{{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]]
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