JOBLOCK

(GIN Macro)

Used in: ABANDON867, CLOSEMT867, CONNECT867, DTSUBSS867, ENWELL867, ERASEA867, EXPRESS864, FINISH867, HLSREAD867, IDFENQS867, LIBREQCA867, LISTNEXT867, LISTOPEN867, LISTPREP865, LISTSEAR867, OPENWORK866, ORELEND860, PROCONTX867, PROFLAG83, READFALE866, REGEN865, RELPER867, RENAMEMT867, SAVEBLOK65, SAVEFILE860, SAVEJOB865, SCHEDJOB867, SCHEDULE867, SWAP865, UNSAVE867, WHATPER867, WHATRVSA867, WORKFILE860, WSJOBSA867, WSPERIS867

JOBLOCK.mac.txt

 *8LJ ...[??? JOBLOCK SECT CENT FGN 21 DOC   
 *8WB    #   
 *9B2    #   
 *9TL    #   
 *=*=    #   
 *=SW    #MAC           JOBLOCK  
 *?#G    #STR  %A,2  
 *?S6          LDX   2  %A   
 *#?Q          LDN   1  BJOBQ
 *#RB    MJOBLOCK2   
 **?2          LDX   1  FPTR(1)  
 **QL          BXE   1  CXJO,MJOBLOCK1   
 *B==          BXU   2  JOBNUM(1),MJOBLOCK2  
 *BPW          BRN      MJOBLOCK3
 *C9G    MJOBLOCK1   
 *CP6          NGN   1  1
 *D8Q    MJOBLOCK3   
 *DNB    #STR  %B,1  
 *F82    (   
 *FML          STO   1  %B   
 *G7=          LDX   1  FX1  
 *GLW    )   
 *H6G    #STR  %B,2  
 *HL6          LDX   2  FX2  
 *J5Q    #NOR