%EXTERNALROUTINESPEC ECTM REPORT INT(%STRING(63) MESS, %INTEGER N)
!
%EXTERNALROUTINE ICL9HE COMPERR(%INTEGER LANGUAGE, ERROR)
!
SELECT OUTPUT(0)
PRINT STRING("COMPERR - LANGUAGE");  WRITE(LANGUAGE,0)
PRINT STRING(", ERROR");  WRITE(ERROR,0)
NEW LINE
%END
!
%EXTERNALINTEGERFN ICL9HE DIAGOUT
%RESULT = 0
%END
!
%EXTERNALINTEGERFN ICL9HE FILE TIDY PROC(%LONGINTEGER PROCEDURE)
%RESULT = 0
%END
!
%EXTERNALINTEGERFN ICL9HE NOMDESC(%INTEGER DR0, DR1,  %C
      %LONGLONGREAL PROCEDURE)
%RESULT = 0
%END
!
%EXTERNALROUTINE ICL9HE PROLOG(%INTEGER N)
ECTM REPORT INT("Entered ICL9HE PROLOG",N)
%END
!
%EXTERNALINTEGERFN ICL9HE RESET
%RESULT = 0
%END
!
%EXTERNALINTEGERFN ICL9HE TIDY UP
%RESULT = 0

%END
!
%ENDOFFILE