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

**Defined in:** [[george:source:MACROS_WELL|MACROS WELL]]

**Used in:** [[george:source:EMSENTER867|EMSENTER867]], [[george:source:ENWELL867|ENWELL867]], [[george:source:FINISHB867|FINISHB867]], [[george:source:INSTPARA867|INSTPARA867]], [[george:source:JWUPDATE867|JWUPDATE867]], [[george:source:REGEN865|REGEN865]], [[george:source:SCHDJOBA867|SCHDJOBA867]]

<code - RUNJSA.mac.txt>
 2R6N ...[??? RUNJSA SECT CENT FGN 72 DOC
 2RBG    [   
 2RW6    [   
 2S*Q    [   
 2STB    #MAC           RUNJSA   
 2T*2          BS       ,JSAREQ             [ JSAREQUIRED
 2TDX ...      FSHCODE  AORB 
 2TJS ...      MBC      ,JSVIRTMOP,JSVIRTBACK,JSVIRTMOPB,JSVIRTBACKB 
 2TNP ...      FSHSKIP   
 2TSL          MBC      ,JSVIRTMOP,JSVIRTBACK   [ CLEAR VIRTUAL SLOTS
 2W#=          JBSS     MRUNJ1,,JSACT
 2WRW    #STR  HOSTOPEN,%A   
 2X?G          DOWN     JSASCAN,2           [ JOBLIST ALREADY OPEN   
 2XR6    #STR  HOSTOPEN,%A   
 2Y=Q    #STR
 2YQB          DOWN     JSASCAN,1
 2^=2    MRUNJ1  
 2^PL    #NOR
</code>