FJOPCA

(GIN Macro)

Defined in: MACROS GLJ

Used in: CAPCA50, CORESHED861, EVENTS864, GIVE867, GIVEA867, INMOP867, MEXTSJ70, MONRESUM850, OPCA867, PERFAIL866, PLUGIN867, PROGISH850, REQESLIP861, SWAP865, TPINS861, UNPLUG867

FJOPCA.mac.txt

 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