CUBSCHEC
(GIN Macro)
Defined in: LOBS-MACROS
Used in: ALASB867
- CUBSCHEC.mac.txt
87Q6 ...[??? CUBSCHEC SECT FILE FGN 5 DOC 889Q ...[ 88PB ...#MAC CUBSCHEC 8992 ...#DEF CUBSCHEC=1 89NL ...#INC CUBSCHEC 8=8= ... SEG CUBSCHEC,,FILE,FILESTORE 8=MW ... SEGENTRY K1CUBSCHEC,X1 8?7G ... SEGENTRY K2CUBSCHEC,X2 8?M6 ...# 8#6Q ...# SUBROUTINE TO UPDATE X4 BY FILE SIZES OF ALL NON-PUBLIC 8#LB ...# FILES(EXCLUDING WORKFILES) OPEN TO THIS ACT.. 8*62 ...# ON ENTRY, X2-> REQUIRED ACT. X6 IS SR LINK. 8*KL ...# ON EXIT, X4 UPDATED. DESTROYS X0,X1,X2 & X3. 8B5= ...# 8BJW ...XFRING 8C4G ... LDN 2 FILERING(2) 8CJ6 ... LDX 1 2 8D3Q ...XF1 8DHB ... LDX 1 FPTRF(1) [X1-> NEXT FCA 8F32 ... BXE 1 2,(6) [EXIT IF END OF FILE RING 8FGL ... JBC XF1,1,BACUBS [J IF PUBLIC 8G2= ... PSTAC 3,1 [X3-> FSTACK BLOCK 8GFW ... BFCBX 3,3 [X3-> FCB 8G^G ... JBS XF1,3,BFWORK [J IF WORKFILE 8HF6 ... LDX 0 FBLMOD(3) 8HYQ ... SBN 0 FBLKS-A1 8JDB ... ADX 4 0 [ADD FILE SIZE TO COUNT 8JY2 ... BRN XF1 8KCL ...# 8KX= ...# 8LBW ...# MAIN CODE 8LWG ...# 8MB6 ...X1 [ENTRY WITH CURRENT ACT. A CPAT 8MTQ ... LDX 0 JOBNO(2) 8N*B ... BZE 0 M5 [UP IF JOB NO. ZERO 8NT2 ... LDX 7 2 [X7-> CPA 8P#L ... LDN 4 0 [INITIALISE COUNT 8PS= ... CALL 6 XFRING [UPDATE COUNT FOR CPAT 8Q?W ... FPCACA 2,7,N [X2-> APET (IF ANY) 8QRG ... LDCH 0 ATYPE(2) 8R?6 ... SBN 0 APET/64 8RQQ ... BNZ 0 M2 [J IF NO PROGRAM LOADED 8S=B ... LDX 5 2 [REMEMBER APET 8SQ2 ... CALL 6 XFRING [UPDATE COUNT FOR APET 8T9L ...M1 8TP= ... SMO 5 8W8W ... LDX 2 ACTRING 8WNG ... SBN 2 ACTRING [X2-> NEXT ACT. BLOCK 8X86 ... LDCH 0 ATYPE(2) 8XMQ ... SBN 0 AOLPT/64 8Y7B ... BNZ 0 M2 [J IF NOT AOLPT 8YM2 ... LDX 5 2 8^6L ... LDN 3 0 8^L= ... CALL 6 XFRING [UPDATE COUNT FOR OLPA 925W ... LDX 1 3 [X1-> FCB 92KG ... LDX 3 FPTR(3) [X3-> FSTACK 9356 ... LDEX 6 ARINGNO(3) 93JQ ... ADN 3 A1 944B ...M10 94J2 ... JMBAC M1,3,BACOMM,BACLEAN [J IF NOT COMMUNE 953L ... LDX 2 FPTR(3) 95H= ... ADX 2 FBACKPOINT(2) [X2-> AOLPT 962W ... LDX 0 ALINK1(2) 96GG ... SRL 0 12 9726 ... SBN 0 KGETBAX 97FQ ... BZE 0 M5 [J IF IN GETBAX 97^B ... SBN 0 KINCRCUBS-KGETBAX 98F2 ... BZE 0 M5 [J IF IN INCRCUBS 98YL ... SBN 0 KINCRCUBX-KINCRCUBS 99D= ... BZE 0 M5 [J IF IN INCRCUBX 99XW ... ADN 3 FELLEN 9=CG ... BCT 6 M10 9=X6 ... BRN M1 9?BQ ...M2 9?WB ... LDX 2 7 [X2-> CPAT 9#B2 ... LDN 2 BWORKRING(2) 9#TL ... LDX 1 2 9**= ...M3 9*SW ... LDX 1 FPTRF(1) 9B#G ... BXE 1 2,M4 [J IF END OF WORKFILE RING 9BS6 ... LDX 0 ATYPE(1) 9C?Q ... BXU 0 FILEPLUSFCB,M3 [J IF NOT FCB 9CRB ... LDX 0 FBLMOD(1) 9D?2 ... SBN 0 FBLKS-A1 9DQL ... ADX 4 0 [ADD FILE SIZE TO COUNT 9F== ... BRN M3 9FPW ...M4 9G9G ... LDX 2 7 [X2-> CPAT 9GP6 ... FJOCA 2 [X2-> JOB BLOCK 9H8Q ... LDX 0 CUBS(2) 9HNB ... SBX 0 4 9J82 ... BZE 0 M5 9JML ... GEOERR 1,CUBSERR [CUBS IS WRONG 9K7= ...M5 9KLW ... UP 9L6G ...# 9LL6 ...X2 [ENTRY FROM K1EDOBJ 9M5Q ... LDX 2 APETADDR(2) [X2-> APET 9MKB ... FCAPCA 2 [X2-> CPAT 9N52 ... BRN X1 9NJL ...# 9P4= ...# 9PHW ...#END 9Q3G ... NEWCHAP CUBSCHEC 9QH6 ...#NOR