FJOCA [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FJOCA)}}
====== FJOCA ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** [[george:source:ABANDONA867|ABANDONA867]], [[george:source:ACTPRI867|ACTPRI867]], [[george:source:ALAS822|ALAS822]], [[george:source:ALLOCATE867|ALLOCATE867]], [[george:source:BLOGNAL865|BLOGNAL865]], [[george:source:CANCOM863|CANCOM863]], [[george:source:COMHOOK867|COMHOOK867]], [[george:source:COMPRO867|COMPRO867]], [[george:source:COMPROB867|COMPROB867]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:CONTINUE867|CONTINUE867]], [[george:source:CONTXCOD60|CONTXCOD60]], [[george:source:COOR865|COOR865]], [[george:source:CORE867|CORE867]], [[george:source:COREALLF867|COREALLF867]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:DOXCODE867|DOXCODE867]], [[george:source:DSCNCT867|DSCNCT867]], [[george:source:EDITOR867|EDITOR867]], [[george:source:EDITORA865|EDITORA865]], [[george:source:ENWELL867|ENWELL867]], [[george:source:ENWELLB867|ENWELLB867]], [[george:source:EVENTS864|EVENTS864]], [[george:source:FILELOG|FILELOG]], [[george:source:FREEBUFF860|FREEBUFF860]], [[george:source:GET6|GET6]], [[george:source:GETWORD867|GETWORD867]], [[george:source:GIVE867|GIVE867]], [[george:source:HLSEVENT867|HLSEVENT867]], [[george:source:HLSOCCUR865|HLSOCCUR865]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:IFXCODES864|IFXCODES864]], [[george:source:INCOM864|INCOM864]], [[george:source:INITJOB867|INITJOB867]], [[george:source:JDWRITE867|JDWRITE867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JWELLTWO867|JWELLTWO867]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LIST867|LIST867]], [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:LOGACC863|LOGACC863]], [[george:source:LOGANAL864|LOGANAL864]], [[george:source:LOGCOM864|LOGCOM864]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:OLMTA85|OLMTA85]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:ONLINEA867|ONLINEA867]], [[george:source:ONLINEB867|ONLINEB867]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:OPERATOR867|OPERATOR867]], [[george:source:PNTLAST860|PNTLAST860]], [[george:source:PROCONTX867|PROCONTX867]], [[george:source:PROSTART867|PROSTART867]], [[george:source:PUTPER85|PUTPER85]], [[george:source:QUOTA850|QUOTA850]], [[george:source:REALTIME867|REALTIME867]], [[george:source:RELPER867|RELPER867]], [[george:source:RUNPROG840|RUNPROG840]], [[george:source:SAVE864|SAVE864]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:SETJOBQ867|SETJOBQ867]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SJMESS867|SJMESS867]], [[george:source:SWAP865|SWAP865]], [[george:source:TRAPLIST864|TRAPLIST864]], [[george:source:UNPLUG867|UNPLUG867]], [[george:source:USEREXCP860|USEREXCP860]], [[george:source:USERLIB867|USERLIB867]], [[george:source:USEROPEN867|USEROPEN867]], [[george:source:VCLASTWO867|VCLASTWO867]], [[george:source:VERBCLAS867|VERBCLAS867]], [[george:source:WAIT867|WAIT867]], [[george:source:WSPARAM867|WSPARAM867]]

<code - FJOCA.mac.txt>
 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
</code>