FSHSKIP

(GIN Macro)

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

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