FCAJO

(GIN Macro)

Defined in: MACROS GLJ

Used in: ABANDON867, ACTPRI867, ANSCOM865, BCAST867, CAPCA50, CHARGESC867, CONNECT867, CONNECTA867, CORESHED861, FINISH867, HLSREAD867, IDFENQS867, JAMSWAP865, LISTNEXT867, LISTOPEN867, LISTPREP865, LISTSEAR867, LOGACC863, OPENWORK866, ORELEND860, PROCONTX867, READFALE866, SAVEBLOK65, SAVEFILE860, SAVEJOB865, SCHDJOBA867, SCHEDJOB867, SETJOBQ867, SWAP865, UNPLUG867, UNSAVE867, WORKFILE860, WSJOBSA867, WTSTAT867

FCAJO.mac.txt

 82L4 ...[??? FCAJO SECT CENT FGN 18 DOC 
 82TW    #   
 83*G    #   
 83T6    #MAC  FCAJO                        [FIND  CPA FROM JOB BLOCK
 84#Q    [   
 84SB    #STR  %B
 85#2          MOD LDX %A AJBRING+BPTR,%B
 85RL    #STR  %B
 86?=    #SKI
 86QW          LDX   %A AJBRING+BPTR(%A) 
 87=G          SBN   %A JOBRING  
 87Q6    [   
 889Q    #STR  N,%C  
 88PB    (   
 8992    #SKI  K6ALLGEO                     [CHECK THAT BLOCK FOUND  
 89NL    (                                  [ IS OF THE RIGHT TYPE   
 8=8=          LDCH  0  ATYPE(%A)
 8=MW          SBN   0  CPAT/64  
 8?7G          BZE   0  MFCAJO1  
 8?M6          GEOERR   1,CPA?   
 8#6Q    MFCAJO1 
 8#LB    )   
 8*62    )   
 8*KL    [   
 8B5=    #NOR