Show pageBacklinksBack to top 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: 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> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In