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

**Defined in:** [[george:source:MACS_PW|MACS PW]]

**Used in:** [[george:source:JOBLIST867|JOBLIST867]]

<code - JOBSOURCE.mac.txt>
 6464    [??? JOBSOURC SECT COMM FGN 9 DOC   
 64*W    #   
 64TG    #   
 65*6    #MAC  JOBSOURCE 
 65SQ    #STR  %A
 66#B          LDX   %B JOBNUM(%A)   
 66S2          SMO      FX2  
 67?L    #STR  %A
 67R=          STO   %B ACOMMUNE1           [SAVE NEW JOB NO 
 68=W    #STR  %A
 68QG    #SKI
 69=6          STOZ     ACOMMUNE1
 69PQ          DOWN     IDFENQS,2           [COPY ASSOCS BLOCK AND JSE3  
 6=9B    #STR  %A
 6=P2    (   
 6?8L          JOBLOCK  %B,%A
 6?N=          BPZ   %A MEXIT
 6#7W          GEOERR   1,NOJOBLOK   
 6#MG    MEXIT   
 6*76    )   
 6*LQ    #NOR
</code>