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