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

**Defined in:** [[george:source:MACROS_SHFSA|MACROS SHFSA]]

**Used in:** [[george:source:ANSCOM865|ANSCOM865]], [[george:source:BSTS867|BSTS867]], [[george:source:CANCRVX864|CANCRVX864]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:CDUM866|CDUM866]], [[george:source:CLOSEIPB864|CLOSEIPB864]], [[george:source:COMPRESS864|COMPRESS864]], [[george:source:COMPROB867|COMPROB867]], [[george:source:COMPS_WELL|COMPS WELL]], [[george:source:COOR865|COOR865]], [[george:source:DELETE864|DELETE864]], [[george:source:DTWRONG867|DTWRONG867]], [[george:source:EVENTS864|EVENTS864]], [[george:source:FHDIRTWO864|FHDIRTWO864]], [[george:source:FINDFS867|FINDFS867]], [[george:source:FREEZE864|FREEZE864]], [[george:source:GETBACK865|GETBACK865]], [[george:source:GETBAX865|GETBAX865]], [[george:source:GETONA867|GETONA867]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:IFXCODES864|IFXCODES864]], [[george:source:INCOBS867|INCOBS867]], [[george:source:INCOM864|INCOM864]], [[george:source:IPBCCA867|IPBCCA867]], [[george:source:IPBCCD867|IPBCCD867]], [[george:source:IPBINB867|IPBINB867]], [[george:source:IPBSCAN867|IPBSCAN867]], [[george:source:IPCON864|IPCON864]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCOND864|IPCOND864]], [[george:source:IPCSTART864|IPCSTART864]], [[george:source:JDWRITE867|JDWRITE867]], [[george:source:LOGANAL864|LOGANAL864]], [[george:source:LOGCOM864|LOGCOM864]], [[george:source:MACRALAS864|MACRALAS864]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MOVCART867|MOVCART867]], [[george:source:MTSTART864|MTSTART864]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PMDR864|PMDR864]], [[george:source:PMSUMA867|PMSUMA867]], [[george:source:REALTIME867|REALTIME867]], [[george:source:REGEN865|REGEN865]], [[george:source:RENAME864|RENAME864]], [[george:source:RETRIEVE864|RETRIEVE864]], [[george:source:RETURNA867|RETURNA867]], [[george:source:REWRITE864|REWRITE864]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:SETLIST864|SETLIST864]], [[george:source:SETPRAMB867|SETPRAMB867]], [[george:source:TRANFAIL866|TRANFAIL866]], [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:TRAPGO864|TRAPGO864]], [[george:source:UNLOAD7|UNLOAD7]], [[george:source:WA864|WA864]]

<code - FSHSKIP.mac.txt>
 36KW    [???  FSHSKIP SECT FILE FGN 1 DOC   
 375G    #MAC  FSHSKIP   
 37K6    #OPT  FSHA=0
 384Q    #OPT  FSHB=0
 38JB    #DEF  20?=FSHA^FSHB$1   
 3942    #STR  %A
 39HL    (   
 3=3=    #STR  %A,A  
 3=GW    (   
 3?2G    #STR  %A,B  
 3?G6    !     PARAMETER A NOT 'A', 'B' OR NULL  
 3?^Q    )   
 3#FB    )   
 3#^2    #STR  %A
 3*DL    (   
 3*Y=    #DEF  20?=FSH%A<1$1^(FSHA&FSHB) 
 3BCW    #SKI  FSHA&FSHB 
 3BXG    (   
 3CC6    #STR  %B
 3CWQ    (   
 3DBB    #STR  %A,A  
 3DW2    #SKI
 3F*L          JBC      %B,,BFSHB
 3FT=    #STR  %A,B  
 3G#W    #SKI
 3GSG          JBS      %B,,BFSHB
 3H#6    )   
 3HRQ    )   
 3J?B    )   
 3JR2    #SKI  20?   
 3K=L    #NOR
</code>