RENAMAG864
(George Source)
Macros used: BXE, CHAIN, CLOSETOP, COMBRKIN, COMERR, DOWN, ENDCOM, ERRORX, FREECORE, GEOERR, GETDIR, HUNT, HUNT2, INHIBITBRK, MENDAREA, MFREE, MHUNT, NAMETOP, OPEN, OPENSYS, PERMITBRK, REPERR, REWRITE, SEG, SEGENTRY, SETNCORE, SETUPCORE, SSCOR, SSEARCH, STEPWRITE, TESTREP, TRACE, TSININC, UNLOAD, USEROPEX
- RENAMAG864.txt
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