{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CUBSCHEC)}}
====== CUBSCHEC ======
(GIN Macro)
**Defined in:** [[george:source:LOBS-MACROS|LOBS-MACROS]]
**Used in:** [[george:source:ALASB867|ALASB867]]
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