{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: RENAMAG864)}}
====== RENAMAG864 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERR|COMERR]], [[george:macro:DOWN|DOWN]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETDIR|GETDIR]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNT2|HUNT2]], [[george:macro:INHIBITBRK|INHIBITBRK]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OPEN|OPEN]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:PERMITBRK|PERMITBRK]], [[george:macro:REPERR|REPERR]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:SSCOR|SSCOR]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:STEPWRITE|STEPWRITE]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TRACE|TRACE]], [[george:macro:TSININC|TSININC]], [[george:macro:UNLOAD|UNLOAD]], [[george:macro:USEROPEX|USEROPEX]]
22FL SEG RENAMAG,6,N.R.BOULT,LIBRARY
22^= SEGENTRY K1RENAMAG,QK1RENAMAG
23DW ZFAILMAG +FAILMAG
23YG ZERALREX +ERALREX
248# ...ZERWRGEN +ERWRGEN
249? ...#UNS FPGPT
24== ...(
24?9 ...ZDUMP +HDINUSE
24#8 ...ZG3PT +ERG3PT
24*7 ...NDUMPER 12HDUMPER
24B6 ...NPROCTP 12HGEO3PROCTAPE
24C5 ...)
24D6 PLONE #20000001
24XQ QK1RENAMAG
25CB HUNT 3,FILE,ADJUNCTS
25X2 BNG 3 NOTNON
26BL LDX 0 A1+2(3)
26W= ANDN 0 1
27*W BNZ 0 RENER1 [BRANCH IF NONSTANDARD TAPE
27TG NOTNON
28*6 LDX 0 7
28SQ ANDN 0 #1200
29#B BZE 0 RENERR [BRANCH UNLESS NWT OR LOCAL NAME
29S2 ANDN 7 #6100
2=?L BZE 7 RENOK [BRANCH UNLESS ILLEGAL DETAILS
2=R= RENERR
2?=W MFREE CPB,CUNI
2?QG RENER1
2#=6 COMERR ERWRONG
2#PQ RENOK
2*9B MHUNT 3,FILE,FABSNB
2*P2 LDN 0 1
2B8L ORS 0 ATYPE(3)
2BN= LDN 7 0
2C7W LDX 0 ATYPE(3)
2CMG ANDN 0 #2000
2D76 BZE 0 RENOK1
2DLQ SMO A1(3)
2F6B LDX 7 A1+1(3)
2FL2 RENOK1
2G5L HUNT2 3,FILE,FABSNB
2GK= LDX 0 ATYPE(3)
2H4W ANDN 0 #200
2HJG BNZ 0 NWT [BRANCH IF NAMED WORT TAPE
2J46 LDN 0 1
2JHQ ORS 0 ATYPE(3)
2K3B # THIS SECTION RENAMES A MAGNETIC TAPE
2KH2 RENMT
2L2L SETNCORE 3,3,CPAR,GPERCON
2LG= LDCT 0 5
2L^W STO 0 A1(3)
2MFG LDN 0 1
2M^6 STO 0 A1+1(3)
2NDQ STO 0 A1+2(3)
2NYB BPZ 7 RENMT0 [BRANCH IF NOT XENOTAPE
2PD2 DOWN XENON,1
2PXL BRN OPBRK
2QC= LDX 7 EXEC1(2)
2QWW TESTREP OK,RENMT1
2RBG COMERR ERNOTAV
2RW6 RENMT0
2S*Q LDN 0 AWRITE [ACCESS MODE
2STB LDN 7 ENOTOL
2T*2 USEROPEX OPBRK,0,7 [GET MAG. TAPE ON LINE
2TSL REPERR RENMT1
2W#= BRN XB
2WRW RENMT1
2X?G MFREE CPAR,GPERCON
2X*J ... MHUNT 3,FILE,FABSNB
2XCL ... SMO A1(3)
2XFN ... LDX 6 A1+1(3) [TAPE SERIAL NUMBER
2XHQ ...#UNS FPGPT
2XKS ...(
2XMW ... LDX 2 HDREC(3)
2XPY ... ADX 2 3
2XS2 ... LDX 4 A1-6(2)
2XW4 ... LDX 5 A1-5(2)
2XY6 ... LDX 7 A1-4(2)
2Y28 ... TXU 4 NPROCTP(1)
2Y4= ... TXU 5 NPROCTP+1(1)
2Y6# ... TXU 7 NPROCTP+2(1)
2Y8B ... BCS PROCOK [J IF NAME NOT GEO3PROCTAPE
2Y=D ... LDX 2 HDREC(3)
2Y#G ... SBN 2 10
2YBJ ... BZE 2 SHORTFAB
2YDL ... SBN 2 2
2YGN ...SHORTFAB
2YJQ ... ADX 2 3
2YLS ... LDX 4 A1+1(2)
2YNW ... LDX 5 A1+2(2)
2YQY ... LDX 7 A1+3(2)
2YT2 ... TXU 4 NDUMPER(1)
2YX4 ... TXU 5 NDUMPER+1(1)
2Y^6 ... TXU 7 NDUMPER+2(1)
2^38 ... BCS PROCOK [J IF USERNAME NOT DUMPER
2^5= ... OPENSYS XBRK,INCINDEX,READ,QUERY
2^7# ... TESTREP OK,PROC2
2^9B ... TESTREPN CLUDGE,XINCERR
2^?D ... LDX 4 ZG3PT(1)
2^*G ... BRN RENMT3
2^CJ ...PROC1
2^FL ... CLOSETOP
2^HN ... LDX 4 ZDUMP(1)
2^KQ ... BRN RENMT3
2^MS ...PROC2
2^PW ... TSININC PROC1,6
2^RY ... CLOSETOP
2^W2 ... MHUNT 3,FILE,FABSNB
2^Y4 ...PROCOK
3226 ...)
3248 ... FREECORE 3
326= ... SETNCORE 7,3,AONBS,GREN
329= MHUNT 2,FILE,FABSNB
32NW LDX 1 2
338G ADX 2 A1(2)
33N6 ADN 2 A1-6
347Q STOZ A1(3)
34MB ADN 3 A1+1
3572 MOVE 2 5
35LL #SKI K6RENAME>299-299
366= TRACE 0(3),RENMTNEW
36KW LDN 0 #777 [REEL NO. MASK
375G ANDS 0 3(3)
37CX ... LDCT 0 #600 [ TRUNCATE GEN
37Q# ... ADN 0 #7777 [GEN. MASK AND DEFAULT RET. PERIOD
384Q ANDS 0 4(3)
38#J ... LDN 0 #7777
38JB LDX 4 ALOGLEN(1)
3942 BXE 4 HDREC(1),RENMT2
39HL ADX 1 HDREC(1)
3=3= LDX 4 A1(1)
3=*M ... ADN 4 1
3=N4 ... BZE 4 RENMT2
3?2G LDX 0 A1(1) [SPECIFIED RETENTION PERIOD
3?G6 RENMT2
3?^Q STO 0 5(3)
3#FB LDX 2 FX2
3#^2 STOZ ACOMMUNE2(2) [WRITE 20 WORDS
3*2Y ...#UNS ILOGACC
3*4W ...(
3*6S ... LDX 0 GSIGN
3*8Q ... STO 0 ACOMMUNE3(2)
3*=N ...)
3*#L ...#UNS ILOGACC
3*BJ ...#SKI
3*DL STOZ ACOMMUNE3(2) [WRITE HEADER
3*Y= DOWN RENAMEMT,1 [RENAME TAPE
3BCW NULL
3BXG TESTREP OK,RENMT4
3CC6 LDX 4 ZFAILMAG(1)
3CWQ TESTREP TAPEFAIL,RENMT3
3C^* ...#UNS FPGPT
3D3Y ...(
3D6H ... LDX 4 ZDUMP(1)
3D96 ... TESTREP DUMPTAPE,RENMT3
3D?P ...)
3DBB LDX 4 ZERALREX(1) [Z ALREADY EXISTS
3DW2 MFREE CPB,CUNI
3F*L TESTREP ALREADY,RENMT3
3FGS ... LDX 4 ZERWRGEN(1)
3FN2 ... TESTREP WRGEN,RENMT3
3FT= GEOERR 1,RENAME
3G#W RENMT3
3GSG ERRORX 4 [ERROR MESSAGE
3H#6 RENMT4
3HRQ OPENSYS RENMT4,SERIAL,GENERAL
3J?B LDN 4 1
3JR2 LDN 5 0
3K=L SSEARCH RENMT8,6 [FIND ENTRY IN SERIAL(IF SECURE)
3KQ= STEPWRITE
3L9W SSCOR 0(3),DEC [DECREASE COUNT OF REQUESTERS
3LPG LDX 5 5(3)
3M96 LDN 4 0
3MNQ RENMT8
3N8B CLOSETOP
3NN2 UNLOAD ,4,5,AUT,RET [UNLOAD TAPE
3P7L BRN XB
3PM= # THIS SECTION ALTERS A WORK TAPE NAME
3Q6W NWT
3QLG CHAIN 3,FX2 [CHAIN FABSNB FOR %B FIRST
3R66 LDX 3 FPTR(2)
3RKQ LDX 5 ATYPE(3)
3S5B LDN 0 0
3SK2 DSA 0 ATYPE(3)
3T4L LDN 0 6
3TJ= SBS 0 A1(3)
3W3W OPEN XBRK,GENERAL,QUERY [OPEN JOBS TEMPORARY DIRECTORY
3WHG TESTREPN OK,XNWT1
3X36 MHUNT 3,FILE,FABSNB
3XGQ LDN 0 6
3Y2B ADS 0 A1(3)
3YG2 STO 5 ATYPE(3)
3Y^L HUNT2 3,FILE,FABSNB
3^F= LDX 5 ATYPE(3)
3^YW CHAIN 3,FX2
42DG # FIND HIGHEST LEVEL OF TAPES WITH THIS NEW WORKTAPE NAME
42Y6 MHUNT 3,FILE,FLOCNB
43CQ LDN 0 1
43XB ORS 0 ATYPE(3)
44C2 LDX 0 PLONE(1) [LATEST PLUS ONE
44WL STO 0 A1+4(3)
45B= GETDIR 2
45TW MHUNT 3,FILE,FLOCNB
46*G LDX 6 A1+4(3)
46T6 MFREE FILE,FLOCNB
47#Q NWT1
47SB LDN 4 6
48#2 ANDN 5 #2000
48RL BZE 5 NWT2 [BRANCH UNLESS TSN GIVEN
49?= ADN 4 2
49QW NWT2
4==G SETUPCORE 4,3,FILE,FLOCNB
4=Q6 MHUNT 2,FILE,FABSNB
4?9Q LDX 0 ATYPE(2)
4?PB ORN 0 1
4#92 DSA 0 ATYPE(3)
4#NL SMO A1(2)
4*8= ADN 2 A1-6
4*MW ADN 3 A1
4B7G SMO 4
4BM6 MOVE 2 0
4C6Q # FIND DIRECTORY TO BE UPDATED AND MOVE IN NEW WORKTAPE NAME
4CLB GETDIR 2
4D62 TESTREPN OK,XNWT
4DKL MHUNT 3,FILE,ENT
4F5= LDX 0 EINF2(3)
4FJW SLL 0 1
4G4G BPZ 0 XNWT [BRANCH IF NOT WORKTAPE
4GJ6 LDN 7 0
4H3Q LDX 0 EWKNAME1(3)
4HHB BNZ 0 NWT3 [BRANCH IF WORKTAPE NAME ALREADY
4J32 LDX 7 ESER(3) [TSN
4JGL INHIBITBRK OPBRKA
4K2= NWT3
4KFW NAMETOP 3,FILE,FWB
4K^G STO 6 EWKLEVEL(3)
4LF6 MHUNT 2,FILE,FABSNB
4LYQ HUNT2 2,FILE,FABSNB
4MDB SMO A1(2)
4MY2 ADN 2 A1-6
4NCL ADN 3 EWKNAME1
4NX= MOVE 2 3
4PBW REWRITE
4PWG CLOSETOP
4QB6 BZE 7 NWT5 [BRANCH IF WORKTAPE NAME PREVIOUSLY
4QTQ OPENSYS XBRK,SERIAL,GENERAL
4R*B SSEARCH NWT4A,7 [FIND SERIAL ENTRY (IF STILL THERE)
4RT2 STEPWRITE
4S#L LDCT 0 #40
4SS= ORS 0 5(3) [SET NAMED WORKTAPE BIT
4T?W NWT4A
4TRG CLOSETOP
4W?6 PERMITBRK
4WQQ NWT5
4X=B XB
4XQ2 ENDCOM
4Y9L XNWT
4YP= CLOSETOP
4^8W XNWT1
4^NG COMERR ERNNWT
5286 OPBRKA
52MQ CLOSETOP
537B OPBRK
53M2 COMBRKIN
546L XBRK
54L= GEOERR 1,BREAKIN
555W RENGE
55KG GEOERR 1,RENAME
55N5 ...#UNS FPGPT
55QN ...(
55T? ...XINCERR
55XW ... GEOERR 1,RNNOINC
562F ...)
5656 MENDAREA 50,K99RENAMAG
56JQ #END
^^^^ ...44373773000200000000