(GIN Macro)
Defined in: MACROS GLJ
Used in: CAPCA50, CORESHED861, EVENTS864, GIVE867, GIVEA867, INMOP867, MEXTSJ70, MONRESUM850, OPCA867, PERFAIL866, PLUGIN867, PROGISH850, REQESLIP861, SWAP865, TPINS861, UNPLUG867
7?84 ...[??? FJOPCA SECT CENT FGN 18 DOC 7?CW # 7?XG # 7#C6 #MAC FJOPCA [FIND JOB BLOCK FROM PCA 7#WQ [ 7*BB #STR %B 7*W2 MOD LDX %A JOBRING+BPTR,%B 7B*L #STR %B 7BT= #SKI 7C#W LDX %A JOBRING+BPTR(%A) 7CSG SBN %A AJBRING 7D#6 [ 7DRQ #STR N,%C 7F?B ( 7FR2 #SKI K6ALLGEO [CHECK THAT BLOCK FOUND 7G=L ( [ IS OF THE RIGHT TYPE 7GQ= LDCH 0 ATYPE(%A) 7H9W SBN 0 JOBQE/64 7HPG BZE 0 MFJOPCA1 7J96 GEOERR 1,JBBLOCK? 7JNQ MFJOPCA1 7K8B ) 7KN2 ) 7L7L [ 7LM= #NOR