(GIN Macro)
Defined in: HUNTMACS1
Used in: ACCESS867, CDCIPB864, CHEKPRIV867, ERASE867, INCRCUBS860, INCRCUBX860, IPCOPENA83, IPCOPENB83, IPCPERI83, MAKEFILE863, MONFIL865, MONFILEA864, MONJRNAL850, ONLINCL864, OWNERCHE84, WLA867
3*ND ...[??? FCJOB SECT CENT FGN 1 DOC 3*Y= # 3BCW #MAC FCJOB 3BXG [ 3CC6 [ FINDS CURRENT JOB BLOCK FROM A SUBSET OF PCA CPA OLPA ACTIVITIES 3CWQ [ DEFINED BY %C %D %E 3DBB [ %A MODIFIER TO POINT TO JOB BLOCK; %B PNTR TO CURRENT ACTY;IF ABSENT 3DW2 [ ASSUMED = %A ;%C=PCA OR ABSENT ;%D=CPA OR ABSENT ;%E=OLPA OR ABSENT 3F*L [ 3FT= #STR %B 3G#W LDX %A %B 3GSG #STR %C 3H#6 ( 3HRQ #STR %D%E 3J?B ( 3JR2 #OPT MFCJOB10=APET/64 3K=L LDCH 0 ATYPE(%A) 3KQ= SBN 0 MFCJOB10 3L9W BZE 0 MFCJOB3 3LPG ) 3M96 ) 3MNQ #STR %D 3N8B ( 3NN2 #STR %E 3P7L ( 3PM= #STR %C 3Q6W #SKI 3QLG LDCH 0 ATYPE(%A) 3R66 #OPT MFCJOB10=0 3RKQ SBADN 0,CPAT/64-MFCJOB10 3S5B BNZ 0 MFCJOB2 3SK2 ) 3T4L FJOCA %A,,N 3TJ= #STR %C%E 3W3W BRN MFCJOB4 3WHG MFCJOB2 3X36 ) 3XGQ #STR %E 3Y2B ( 3YG2 MFCJOB6 3Y^L FINDACTFB %A,,APET,,,BPTR 3^F= LDX 0 JOBRING+BPTR(%A) 3^YW BZE 0 MFCJOB6 [IF TP PCA NOT ON JOBRING,PUC PCA IS 42DG ) 42Y6 #STR %C%E 43CQ ( 43XB MFCJOB3 44C2 FJOPCA %A,,N 44WL ) 45B= #FRE MFCJOB10 45TW MFCJOB4 46*G #SKI K6ALLGEO 46T6 ( 47#Q LDCH 0 ATYPE(%A) 47SB SBN 0 JOBQE/64 48#2 BZE 0 MFCJOB5 48RL GEOERR 1,JBBLOCK? 49?= MFCJOB5 49QW ) 4==G #NOR