R/1/0/
TC/SWERRMESS/
P+1
I/%CONSTINTEGER IMPERROR = 10000
%CONSTSTRING(64) SWERRMESS=E"FAILURE OF PASCAL SUPPORT SOFTWARE"
/
TC/PROCR=/ R/CERR/LPCE/
TC/ICL9HECOMPERR/ A/HE/FATAL/
TC/ DATEANDTIME/
R/ROUTINE/INTEGERFN/
TC/%IF D ->/ P+2
G I/         %RESULT=0///
TC/ICL9CEZINIT/
TC/->SKIP/ P+1
TC/ STOP/
TC/I=SSCOMREG(36)/ I/          QUIT///
TC/FN OPEN(/
T+5
I/%STRING(31) FILENAME///
TC/%IF F_IDEN#""/ G
I/            %IF F_DSNUM=INDEFAULT %THENSTART
              FILENAME="INPUT"
            %FINISHELSESTART
              %IF F_DSNUM=OUTDEFAULT %THENSTART
                 FILENAME="OUTPUT"
              %FINISHELSESTART
                 FILENAME=F_IDEN
              %FINISH
            %FINISH
/
R/F_IDEN/FILENAME/
TC/FN CLOSE/
G I/%STRING(31) FNAME///
TC/.F_IDEN./
I/        %IF F_DSNUM = INDEFAULT %THENSTART
           FNAME="INPUT"
        %FINISHELSESTART
           %IF F_DSNUM = OUTDEFAULT %THENSTART
              FNAME="OUTPUT"
           %FINISHELSESTART
              FNAME=F_IDEN
           %FINISH
        %FINISH
/
R/F_IDEN/FNAME/
TC/FN LOCATE CHANNEL/
TC/"ICL9CE"/ R/CE/LP/
TC/ OPEH USER ERROR/
TC/ICL9HECOMPERR/ A/HE/FATAL/ R/ERRNO/IMPERROR/
TC/ICL9CERRPROCR(/ R/CERR/LPCE/
TC/"IMP/ R/IMP/PASCAL SUPPORT/
T+3 I/         NEWLINE///
TC/ ICL9HERRMESSL/
T+2 A/%/LONG/
T+2 R/>0/=IMPERROR/ G
P+2 I/        I=X'18000000'+LENGTH(SWERRMESS)
        I=I<<32
        EMESSDESC=I+ADDR(SWERRMESS)+1
/
TC/ ERRPROCS/
T+2 R/CERR/LPCE/
E