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

**Defined in:** [[george:source:MACROS_SHFS|MACROS SHFS]]

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

<code - 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
</code>