To log an error message, call the routine ERLOGR:
CALL ERLOGR(SUBNAME,SEVERITY,DUMMY,DUMMY,MESSAGE)
where SUBNAME is the name of the subroutine where the error occured,
SEVERITY is the severity level name or code,and MESSAGE in the text of the error
message.
For example, the following call to ERLOGR will generate the error message
in the above example:
CALL ERLOGR('CTCDRV',ELWARN,0,0,'CTCRP1 failed')