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

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

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:ANSCOM865|ANSCOM865]], [[george:source:ATTACHB866|ATTACHB866]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:BACKMASS860|BACKMASS860]], [[george:source:BLOGNAL865|BLOGNAL865]], [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:BSBLFAIL867|BSBLFAIL867]], [[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:CONCEPT85|CONCEPT85]], [[george:source:COOR865|COOR865]], [[george:source:DEADA867|DEADA867]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DTWRONG867|DTWRONG867]], [[george:source:ENWELL867|ENWELL867]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:FHDIRTWO864|FHDIRTWO864]], [[george:source:FREEZE864|FREEZE864]], [[george:source:GETBACK865|GETBACK865]], [[george:source:GETBAX865|GETBAX865]], [[george:source:GETONA867|GETONA867]], [[george:source:HLSEMS864|HLSEMS864]], [[george:source:HLSREAD867|HLSREAD867]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:IFXCODES864|IFXCODES864]], [[george:source:INCOBS867|INCOBS867]], [[george:source:INCOM864|INCOM864]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:IPALL864|IPALL864]], [[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:IPCONE865|IPCONE865]], [[george:source:IPCSTART864|IPCSTART864]], [[george:source:JDTWO864|JDTWO864]], [[george:source:JDWRITE867|JDWRITE867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:LIBINSEC864|LIBINSEC864]], [[george:source:LISTFNDA865|LISTFNDA865]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LOGANAL864|LOGANAL864]], [[george:source:LOGCOM864|LOGCOM864]], [[george:source:MACRALAS864|MACRALAS864]], [[george:source:MONFILEA864|MONFILEA864]], [[george:source:MORNING867|MORNING867]], [[george:source:MOVCART867|MOVCART867]], [[george:source:MULTIPLX864|MULTIPLX864]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NORMALUS864|NORMALUS864]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:PCTCON8|PCTCON8]], [[george:source:PCTSTART867|PCTSTART867]], [[george:source:PERFCHAP866|PERFCHAP866]], [[george:source:PMACT867|PMACT867]], [[george:source:PMDR864|PMDR864]], [[george:source:PMSUMA867|PMSUMA867]], [[george:source:READFALE866|READFALE866]], [[george:source:REALTIME867|REALTIME867]], [[george:source:REGEN865|REGEN865]], [[george:source:RENAME864|RENAME864]], [[george:source:REPORT865|REPORT865]], [[george:source:RETRIEVE864|RETRIEVE864]], [[george:source:RETURNA867|RETURNA867]], [[george:source:RITEFAIL864|RITEFAIL864]], [[george:source:SAVE864|SAVE864]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:SCAN865|SCAN865]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:SETLIST864|SETLIST864]], [[george:source:SETPRAMB867|SETPRAMB867]], [[george:source:SJLOOP864|SJLOOP864]], [[george:source:SUICIDE864|SUICIDE864]], [[george:source:TRANFAIL866|TRANFAIL866]], [[george:source:TRAPCHEC867|TRAPCHEC867]], [[george:source:TRAPGO864|TRAPGO864]], [[george:source:TRAPLIST864|TRAPLIST864]], [[george:source:TRAPWORK864|TRAPWORK864]], [[george:source:VCLASTWO867|VCLASTWO867]], [[george:source:VERBCLAS867|VERBCLAS867]], [[george:source:WA864|WA864]]

<code - FSHCODE.mac.txt>
 22FL    #   
 22^=    #   
 23DW    #   
 23YG    #     MACROS SHFSA IS FOR SHARED FILESTORE CODE GENERATION AND  
 24D6    #                         TESTING MACROS.   
 24XQ    #     IT CONTAINS THE FOLLOWING MACROS: 
 25CB    #   
 25X2    #   
 26BL    [???  FSHCODE SECT FILE FGN 1 DOC   
 26W=    #   
 27*W    [???  FSHCOMPS SECT FILE FGN 1 DOC  
 27TG    #   
 28*6    [???  FSHSKIP SECT FILE FGN 1 DOC   
 28SQ    #   
 29#B    [???  CHAINSWOP SECT FILE FGN 1 DOC 
 29S2    #   
 2=?L    [???  FSHTEST SECT FILE FGN 1 DOC   
 2=R=    #   
 2?=W    [???  FSHENTRY SECT FILE FGN 1 DOC  
 2?QG    #   
 2#=6    #   
 2#PQ    #   
 2*9B    #   
 2*P2    #   
 2B8L    [???  FSHCODE SECT FILE FGN 1 DOC   
 2BN=    #MAC  FSHCODE   
 2C7W    #OPT  FSHA=0
 2CMG    #OPT  FSHB=0
 2D76    #OPT  FSHAORB=FSHA^FSHB 
 2DLQ    #STR  %A,A  
 2F6B    #SKI
 2FL2    (   
 2G5L    #DEF  MFSHCODEA=1   
 2GK=    #UNS  FSHA  
 2H4W    (   
 2HJG    #UNS  FSHB  
 2J46          JBS      %B,,BFSHB
 2JHQ    )   
 2K3B    )   
 2KH2    #STR  %A,B  
 2L2L    #SKI
 2LG=    (   
 2L^W    #DEF  MFSHCODEB=1   
 2MFG    #UNS  FSHB  
 2M^6    (   
 2NDQ    #UNS  FSHA  
 2NYB          JBC      %B,,BFSHB
 2PD2    )   
 2PXL    )   
 2QC=    #STR  AORB,%A   
 2QWW    #SKI
 2RBG    #DEF  MFSHCDEAORB=1 
 2RW6    #OPT  MFSHCDEAORB=0 
 2S*Q    #OPT  MFSHCODEA=0   
 2STB    #OPT  MFSHCODEB=0   
 2T*2    #UNS  MFSHCODEA^MFSHCODEB^MFSHCDEAORB   
 2TSL    #SKI
 2W#=    !     PARAMETER A NOT 'A', 'B' OR 'AORB'
 2WRW    #FRE  MFSHCODEA,MFSHCODEB,MFSHCDEAORB   
 2X?G    #UNS  FSH%A 
 2XR6    #NOR
</code>