; FILE MCRLST .SETS RCBNO "0151" .GOTO 10 This module lists CLG and its subroutines. It also lists several useful indirect MCR files. The RCB number is defined by the .SETS command at the top and it is inserted in the file headings. The headings are generated by MCRLST and added to temporary versions of the files, to avoid having them printed every time the file is used. .10: .SETS $EXT "CMD" .OPEN XX.CMD .DATA .ENABLE SUBSTITUTION .ENABLE DATA PIP Y.TMP='$FILE'.'$EXT' PIP '$FILE'.'$EXT';777=X.TMP,Y.TMP LST '$FILE'.'$EXT' PIP '$FILE'.'$EXT';777,X.TMP;*,Y.TMP;*/DE .DISABLE DATA .CLOSE .ENABLE SUBSTITUTION .SETS $FILE "CLG" .OPEN X.TMP .DATA ;%%A-RCB-'RCBNO'-SL-1 CLG -- COMPILE, LOAD AND GO PROCEDURE .CLOSE @XX .SETS $FILE "GTYPE" .OPEN X.TMP .DATA ;%%A-RCB-'RCBNO'-SL-2 GTYPE -- GET TYPE SUBROUTINE .CLOSE @XX .SETS $FILE "COMPIL" .OPEN X.TMP .DATA ;%%A-RCB-'RCBNO'-SL-3 COMPIL -- COMPILE SUBROUTINE .CLOSE @XX .SETS $FILE "SUBTAB" .OPEN X.TMP .DATA ;%%A-RCB-'RCBNO'-SL-4 SUBTAB -- SUBROUTINE TABLE ROUTINE .CLOSE @XX .SETS $FILE "RAT" .OPEN X.TMP .DATA ;%%A-RCB-'RCBNO'-SL-5 RAT -- RATFOR PROCEDURE .CLOSE @XX .SETS $FILE "REP" .OPEN X.TMP .DATA ;%%A-RCB-'RCBNO'-SL-6 REP -- FLX REPLACE PROCEDURE .CLOSE @XX .SETS $FILE "PU" .OPEN X.TMP .DATA ;%%A-RCB-'RCBNO'-SL-7 PU -- PURGE PROCEDURE .CLOSE @XX .SETS $FILE "MCRLST" .OPEN X.TMP .DATA ;%%A-RCB-'RCBNO'-SL-8 MCRLST -- LISTING PROCEDURE .CLOSE @XX PIP XX.CMD;*/DE