AREA(2)
ALTER(15,X4,X2)
REDIRECT(
ICL9LPCTNOMINATEERRPROC&
ICL9LPCTGETVSAREA&
ICL9LPCTDATEANDTIME&
ICL9LPCTABORT&
ICL9HNLOG&
ICL9HNOUTPUTLINE&
ICL9HNNEWLINE&
ICL9HNNEWPAGE&
ICL9HNDUMP,ICL9LPSYSERR)