FSHCODE

(GIN Macro)

Used in: ACCESS867, ANSCOM865, ATTACHB866, ATTACHC867, BACKMASS860, BLOGNAL865, BMSAVJOB864, BSBLFAIL867, BSTS867, CANCRVX864, CDCIPB864, CDUM866, CLOSEIPB864, COMPRESS864, COMPROB867, COMPS WELL, CONCEPT85, COOR865, DEADA867, DEWELL867, DTWRONG867, ENWELL867, EXPRESS864, FHDIRTWO864, FREEZE864, GETBACK865, GETBAX865, GETONA867, HLSEMS864, HLSREAD867, IFEXPAN867, IFXCODES864, INCOBS867, INCOM864, INCRCUBX860, IPALL864, IPBCCA867, IPBCCD867, IPBINB867, IPBSCAN867, IPCON864, IPCONA864, IPCOND864, IPCONE865, IPCSTART864, JDTWO864, JDWRITE867, JOBLIST867, LIBINSEC864, LISTFNDA865, LISTINTC865, LOGANAL864, LOGCOM864, MACRALAS864, MONFILEA864, MORNING867, MOVCART867, MULTIPLX864, NETOFLNE867, NEWOWN865, NORMALUS864, ONLINCL864, PCTBEGIN863, PCTCON8, PCTSTART867, PERFCHAP866, PMACT867, PMDR864, PMSUMA867, READFALE866, REALTIME867, REGEN865, RENAME864, REPORT865, RETRIEVE864, RETURNA867, RITEFAIL864, SAVE864, SAVEJOB865, SCAN865, SCHEDJOB867, SETLIST864, SETPRAMB867, SJLOOP864, SUICIDE864, TRANFAIL866, TRAPCHEC867, TRAPGO864, TRAPLIST864, TRAPWORK864, VCLASTWO867, VERBCLAS867, WA864

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