TRANSBEG

(GIN Macro)

Defined in: MACROS SHFS

Used in: ANSCOM865, CANCRVX864, DTWRONG867, FHDIRTWO864, FREEZE864, GETBACK865, GETBAX865, HLSREAD867, INCOM864, INCRCUBX860, JDWRITE867, LISTINTC865, LOGANAL864, LOGCOM864, MACRALAS864, MOVCART867, MULTIPLX864, NEWOWN865, NORMALUS864, PERFCHAP866, READFALE866, REALTIME867, REGEN865, RENAME864, RETRIEVE864, RITEFAIL864, SAVE864, SAVEJOB865, TRANFAIL866, TRAPGO864, TRAPLIST864, WA864

TRANSBEG.mac.txt
 22FL    #   
 22^=    #   
 23DW    #   
 23YG    #     MACROS SHFS IS FOR SHARED FILESTORE TRANSFER MACROS.  
 24D6    #     IT CONTAINS THE FOLLOWING MACROS :
 24XQ    #   
 25CB    #   
 25X2    [???  TRANSBEG SECT FILE FGN 1 DOC  
 26BL    #   
 26W=    [???  TRANSBEX SECT FILE FGN 1 DOC  
 27*W    #   
 27TG    [???  TRANSA SECT FILE FGN 1 DOC
 28*6    #   
 28SQ    [???  TRANSB SECT FILE FGN 1 DOC
 29#B    #   
 29S2    [???  TRANSFIN SECT FILE FGN 1 DOC  
 2=?L    #   
 2=R=    [???  ALIEN SECT FILE FGN 1 DOC 
 2?=W    #   
 2?QG    [???  NOTALIEN SECT FILE FGN 1 DOC  
 2#=6    #   
 2#PQ    [???  JNESTED SECT FILE FGN 1 DOC   
 2*9B    #   
 2*P2    [???  TRANCHK SECT FILE FGN 1 DOC   
 2B8L    #   
 2BN=    [???  TRANCHKN SECT FILE FGN 1 DOC  
 2C7W    #   
 2CMG    [???  TRANSRET SECT FILE FGN 1 DOC  
 2D76    #   
 2DLQ    [???  FSHTABLE SECT FILE FGN 1 DOC  
 2F6B    #   
 2FL2    [???  FSHACTNO SECT FILE FGN 1 DOC  
 2G5L    #   
 2GK=    [???  FSHACTPR SECT FILE FGN 1 DOC  
 2H4W    #   
 2HJG    [???  FSHKILL SECT FILE FGN 1 DOC   
 2J46    #   
 2JHQ    [???  TRANSACT SECT FILE FGN 1 DOC  
 2K3B    #   
 2KH2    [???  TESTUNPR SECT FILE FGN 1 DOC  
 2L2L    [   
 2LG=    [???  TESTPAIR SECT FILE FGN 1 DOC  
 2L^W    [   
 2MFG    [???  TRANSIDC SECT FILE FGN 1 DOC  
 2MH9 ...[   
 2MJY ...[???  TRANSFRZ SECT FILE FGN 1 DOC  
 2MLM ...[   
 2MNB ...[???  TRANSFRE SECT FILE FGN 1 DOC  
 2MQ5 ...[   
 2MRS ...[???  TRANSET SECT FILE FGN 1 DOC   
 2MTH ...[   
 2MX= ...[???  TRANSEND SECT FILE FGN 1 DOC  
 2MXL ...[   
 2MY2 ...[???  FSHACCWK SECT FILE FGN 1 DOC  
 2MYB ...[   
 2MYQ ...[???  TRANSDIE SECT FILE FGN 1 DOC  
 2M^6    #   
 2NDQ    #   
 2NYB    #   
 2PD2    #   
 2PXL    #   
 2QC=    [???  TRANSBEG SECT FILE FGN 1 DOC  
 2QWW    #MAC  TRANSBEG  
 2RBG          CALL  1  (FSHSTPARAM) 
 2RW6    #STR  OWNFSHREQ,%A  
 2S*Q    #STR
 2STB                   +FSHOWNSHREQ 
 2T*2    #STR  OWNFSHREQ,%A  
 2TSL                   +%A^FSHZ%H^FSHZ%I^FSHZ%J^FSHZ%K  
 2W#=    #STR  %D
 2WRW    (   
 2X?G    #STR  %D,NOBLOCKS   
 2XR6    #FID  0,11,%E+%D
 2Y=Q    #STR  %D,NOBLOCKS   
 2YQB    #STR
 2^=2    #FID  0,11,FSHNOBLOCKS+FSH  
 2^PL    )   
 329=          LINK     %B,%C
 32NW    #SKI  %F-ACOMMUNE1>7-7  
 338G    !     PARAMETER F IS OUT OF RANGE   
 33N6    #SKI  %F-ACOMMUNE1>7-7  
 347Q    #SKI
 34MB    #DEF  MTRANSBEG=%F-ACOMMUNE1
 3572                   +MTRANSBEG   
 35LL    #STR  %G
 366=          BRN      %G   
 36KW    #STR  %G
 375G    #STR
 37K6          BRN      (GEOERR) 
 384Q    #SKI  +MTRANSBEG
 38JB    #SKI
 3942          DOWN     FSHTRANA,10  
 39HL    #SKI  +MTRANSBEG-1  
 3=3=    #SKI
 3=GW          DOWN     FSHTRANA,11  
 3?2G    #SKI  +MTRANSBEG-2  
 3?G6    #SKI
 3?^Q          DOWN     FSHTRANA,12  
 3#FB    #SKI  +MTRANSBEG-3  
 3#^2    #SKI
 3*DL          DOWN     FSHTRANA,13  
 3*Y=    #SKI  +MTRANSBEG-4  
 3BCW    #SKI
 3BXG          DOWN     FSHTRANA,14  
 3CC6    #SKI  +MTRANSBEG-5  
 3CWQ    #SKI
 3DBB          DOWN     FSHTRANA,15  
 3DW2    #SKI  +MTRANSBEG-6  
 3F*L    #SKI
 3FT=          DOWN     FSHTRANA,16  
 3G#W    #SKI  +MTRANSBEG-7  
 3GSG    #SKI
 3H#6          DOWN     FSHTRANA,17  
 3HRQ    #FRE  MTRANSBEG 
 3J?B    #NOR