JOBLOCK [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: JOBLOCK)}}
====== JOBLOCK ======
(GIN Macro)

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

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

<code - 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
</code>