(GIN Macro)
Defined in: MACROS GLJ
Used in: ABANDONA867, ACTPRI867, ALAS822, ALLOCATE867, BLOGNAL865, CANCOM863, COMHOOK867, COMPRO867, COMPROB867, CONNECTA867, CONTINUE867, CONTXCOD60, COOR865, CORE867, COREALLF867, DEWELL867, DOMONOP867, DOXCODE867, DSCNCT867, EDITOR867, EDITORA865, ENWELL867, ENWELLB867, EVENTS864, FILELOG, FREEBUFF860, GET6, GETWORD867, GIVE867, HLSEVENT867, HLSOCCUR865, IFEXPAN867, IFXCODES864, INCOM864, INITJOB867, JDWRITE867, JOBLIST867, JWELLTWO867, LIBREQC867, LIST867, LISTEND867, LISTFILE867, LOADERR70, LOADFIN860, LOADPROG865, LOGACC863, LOGANAL864, LOGCOM864, MONRESUM850, NEWDIR867, OLMTA85, ONLINCL864, ONLINEA867, ONLINEB867, ONLINEC867, OPERATOR867, PNTLAST860, PROCONTX867, PROSTART867, PUTPER85, QUOTA850, REALTIME867, RELPER867, RUNPROG840, SAVE864, SAVEJOB865, SETJOBQ867, SETPC867, SETPRAMA867, SJMESS867, SWAP865, TRAPLIST864, UNPLUG867, USEREXCP860, USERLIB867, USEROPEN867, VCLASTWO867, VERBCLAS867, WAIT867, WSPARAM867
6XF4 ...[??? FJOCA SECT CENT FGN 18 DOC 6XNW # 6Y8G # 6YN6 #MAC FJOCA [FIND JOB BLOCK FROM CPA 6^7Q [ 6^MB #STR %B 7272 MOD LDX %A JOBRING+FPTR,%B 72LL #STR %B 736= #SKI 73KW LDX %A JOBRING+FPTR(%A) 745G SBN %A AJBRING 74K6 [ 754Q #STR N,%C 75JB ( 7642 #SKI K6ALLGEO 76HL ( [CHECK THAT THE BLOCK FOUND 773= LDCH 0 ATYPE(%A) [ IS OF THE RIGHT TYPE 77GW SBN 0 JOBQE/64 782G BZE 0 MFJOCA1 78G6 GEOERR 1,JBBLOCK? 78^Q MFJOCA1 79FB ) 79^2 ) 7=DL [ 7=Y= #NOR