DECLARE IS LITERALLY 'LITERALLY';

DECLARE DCL IS 'DECLARE';

DCL PROC IS 'PROCEDURE';

DCL ENDPROC IS 'END';

DCL THENDO IS 'THEN DO';

DCL ELSEDO IS 'END; ELSE DO';

DCL ENDIF IS 'END';

DCL rmx_string IS '16';

DCL ci_file IS '0';

DCL co_file IS '1';

DCL excep WORD EXTERNAL ;

DCL files(7) STRUCTURE(name WORD,conn WORD) EXTERNAL ;

upper: PROC(ch) BYTE EXTERNAL ;

DCL ch BYTE; END;

error: PROC (msg) EXTERNAL ;

DCL msg WORD; END;

echeck_no_file: PROC EXTERNAL ; END;