SFLFORCT MODULE
*
*
 INCLUDE SMACS
*
*
 PROC ICL9LPCTDATEAD
 CDATA ICL9HNDATE
DATE BYTE(10)
 CODE
 LSS V'DATE
 EXIT
*
*
 PROC ICL9LPCTTIMEAD
 CDATA ICL9HNTIME
TIME BYTE(8)
 CODE
 LSS V'TIME
 EXIT
*
*
 PROC ICL9LPCTCONTROLENTRYDESC
*
 EXT .ICL9LPCTCONTROL
 CODE
 LSD D'.ICL9LPCTCONTROL
 EXIT
*
*
 PROC ICL9LPCTNOMINATEERRPROC
 PARAMS
CONTMESSAD WORD
REGSAD WORD
 CODE
 PRCL 4
 LSS 0
 SLSD D'.ICL9LPCTINTERRUPTERROR
 SLSS X'30000001'
 SLSS CONTMESSAD
 SLSS X'28000011'
 SLSS REGSAD
 ST.T
 RALN 12
 CALL .ICL9HNSETDUMPER
 EXIT
 END