{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FILETRAN)}}
====== FILETRAN ======
(GIN Macro)

**Defined in:** [[george:source:CLOSE-MACROS|CLOSE-MACROS]]

**Used in:** [[george:source:APPEND864|APPEND864]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:COMPRESS864|COMPRESS864]], [[george:source:DELETE864|DELETE864]], [[george:source:DROBJ864|DROBJ864]], [[george:source:EDOBJ864|EDOBJ864]], [[george:source:MTCODE864|MTCODE864]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:PERUSFIL84|PERUSFIL84]], [[george:source:RAND864|RAND864]], [[george:source:READFILE84|READFILE84]], [[george:source:REWRITE864|REWRITE864]]

<code - FILETRAN.mac.txt>
 22^= ...#   
 23DW ...#   
 23YG ...[??? FILETRAN SECT FILE FGN 11 DOC  
 24D6 ...#   
 24XQ ...[??? FILEA SECT FILE FGN 11 DOC 
 25CB ...#   
 25X2 ...[??? FILEREAD SECT FILE FGN 11 DOC  
 26BL ...#   
 26W= ...[??? FILEAUTW SECT FILE FGN 11 DOC  
 27*W ...#   
 27TG ...[??? FILEWRIT SECT FILE FGN 11 DOC  
 28*6 ...#   
 28SQ ...[??? FILEAUTR SECT FILE FGN 11 DOC  
 29#B ...#   
 29S2 ...[??? CLOSE SECT FILE FGN 11 DOC 
 2=?L ...#   
 2=R= ...[??? CLOSETHA SECT FILE FGN 11 DOC  
 2?=W ...#   
 2?QG ...[??? CLOSESHO SECT FILE FGN 11 DOC  
 2#=6 ...#   
 2#PQ ...[??? CLOSEABA SECT FILE FGN 11 DOC  
 2*9B ...#   
 2*P2 ...[??? CLOSEDIR SECT FILE FGN 11 DOC  
 2B8L ...#   
 2BN= ...[??? CLOSETOP SECT FILE FGN 11 DOC  
 2C7W ...#   
 2CMG ...[??? FREEZESA SECT FILE FGN 11 DOC  
 2D76 ...#   
 2DLQ ...[??? CLOSESET SECT FILE FGN 11 DOC  
 2F6B ...#   
 2FL2 ...[??? CLOSEFRB SECT FILE FGN 11 DOC  
 2G5L ...#   
 2GK= ...[??? CLOSETHR SECT FILE FGN 11 DOC  
 2H4W ...#   
 2HJG ...[??? COPYFILE SECT FILE FGN 11 DOC  
 2J46 ...#   
 2JHQ ...[??? QKTABSET SECT FILE FGN 11 DOC  
 2K3B ...#   
 2KH2 ...[??? QKTABULA SECT FILE FGN 11 DOC  
 2L2L ...#   
 2LG= ...[??? SETUPTAB SECT FILE FGN 11 DOC  
 2L^W ...#   
 2MFG ...[??? TABSET SECT FILE FGN 11 DOC
 2M^6 ...#   
 2NDQ ...[??? TABULATE SECT FILE FGN 11 DOC  
 2NYB ...#   
 2PD2 ...[??? TABULATX SECT FILE FGN 11 DOC  
 2PXL ...#   
 2QC= ...[??? TAB SECT FILE FGN 11 DOC   
 2QWW ...#   
 2RBG ...[??? TABX SECT FILE FGN 11 DOC  
 2RW6 ...#   
 2S*Q ...[??? TABREWIN SECT FILE FGN 11 DOC  
 2STB ...#   
 2T*2 ...[??? TABRESET SECT FILE FGN 11 DOC  
 2TSL ...#   
 2W#= ...[??? TABUNSET SECT FILE FGN 11 DOC  
 2WRW ...#   
 2X?G ...[??? FREETAB SECT FILE FGN 11 DOC   
 2XR6 ...#   
 2Y=Q ...[??? LOADNUM SECT FILE FGN 11 DOC   
 2YQB ...#   
 2^=2 ...[??? SUBNUM SECT FILE FGN 11 DOC
 2^PL ...#   
 329= ...[??? MAPBIN SECT FILE FGN 11 DOC
 32NW ...#   
 338G ...[??? SFMAP SECT FILE FGN 11 DOC 
 33N6 ...#   
 347Q ...[??? MAPBSE SECT FILE FGN 11 DOC
 34MB ...#   
 3572 ...[??? MAPBCH SECT FILE FGN 11 DOC
 35LL ...#   
 366= ...[??? MAPBSECH SECT FILE FGN 11 DOC  
 36KW ...#   
 375G ...[??? MAPBDEL SECT FILE FGN 11 DOC   
 37K6 ...#   
 384Q ...[??? MAPBCIRC SECT FILE FGN 11 DOC  
 38JB ...#   
 3942 ...[??? FRITE SECT FILE FGN 11 DOC 
 39HL ...#   
 3=3= ...[??? FULLBPAS SECT FILE FGN 11 DOC  
 3=GW ...#   
 3?2G ...#   
 56#Y ...[??? FILETRAN SECT FILE FGN 11 DOC  
 56JQ    #MAC  FILETRAN  
 574B    [ FIRST S/R .ON ENTRY X3= FILE DEPTH,   
 57J2    [ ON EXIT  X1 -> FCB, X2 -> FCA.
 583L    #DEF  M1FILETRAN=0? 
 58H=          STO   0  GEN0 
 592W          LDX   2  FX2  
 59GG          FFCA  
 5=26          SMO      FBACKPOINT(2)
 5=FQ          LDX   1  BPTR(2)  
 5=^B          BRN      (GEN0)   
 5?F2    [ SECOND S/R. ON ENTRY X1-> FCB,GEN1 CONTAINS B.S.PREFIX OF TRANSFER,   
 5?YL    [ GEN2 CONTAINS B.S.BLOCK NO.   
 5#D=    #DEF  M2FILETRAN=0? 
 5#JN ...      LDN   3  BTHREE   
 5#P6 ...      BXU   3  GEN1,M3FILETRAN     [J IF NOT RESIDENCE 3
 5#TJ ...      LDN   3  ADMASTDIR
 5*22 ...      BXE   3  GEN2,(GEOERR)       [BREAK IF BLOCK 0
 5*6D ...M3FILETRAN  
 5*=W ...      BSXD     3,BFCOPY 
 5*CG          ANDX  3  FCOMM(1) 
 5*X6    [ EXIT IF NOT BEING COPIED  
 5BBQ          BZE   3  (0)  
 5BWB ...      EXIT  0  1                   [EXIT + 1 IF FILE BEING COPIED   
 62X2    #NOR
</code>