EXTERNALSTRINGFNSPEC  DATE
EXTERNALSTRINGFNSPEC  TIME
SYSTEMINTEGERFN  DATEANDTIME(STRINGNAME  DAT,TIM)
STRING (2) DAY,MONTH,YEAR
DAT=DATE
DAT->DAY.("/").MONTH.("/").YEAR
DAT="19".YEAR."/".MONTH."/".DAY
TIM=TIME
RESULT =0
END 
EXTERNALROUTINESPEC  ICL9CEDIAG
EXTERNALROUTINE  DIAG
ICL9CEDIAG
END ;   !OF DIAG
SYSTEMROUTINE  OPEHUSERERROR
END ;      !OF OPEHUSERERROR
SYSTEMROUTINE  GENOMF
END 
SYSTEMROUTINE  DATIME
END 
ENDOFFILE