(George Source)
Macros used: BITDEFS, FIELDDEF, SEMAPHORE, STRINGS
22FL #PAGE 22^= # 23DW # THIS SEGMENT BELONGS TO MIKE PUTNAM 23YG # 24D6 #OPT FD=1 [LESS FREEZING DUMPER 24XQ #OPT ARV=1 [INCLUDM MK7 RETRIEVAL CODE 25X2 #OPT K0DUMPSYS=K0FILESTORE 26BL #OPT K0BSUNJ=K0DUMPSYS 26W= #OPT K0RESTORE=K0DUMPSYS 27*W #OPT K0INCDUMP=K0DUMPSYS 27TG #OPT K6DUMPSYS=K6FILESTORE 28*6 #OPT K6RESTORE=K6DUMPSYS 28SQ #OPT K6INCDUMP=K6DUMPSYS 29#B #OPT K6BSUNJ=K6DUMPSYS 29S2 # 2=?L # BIT IDS. FOR MT REPLY WORD IN CPAT 2=R= # 2?=W BITDEFS CPRW1,0,BRWBUSY,BRWLBLOCK,BRWCERR,BRWFAIL 2?QG BITDEFS CPRW1,4,BRWEOT 2#=6 #DEF BRWTM=BRWEOT 2#PQ # 2*9B # SKELETON NAME ENTRIES IDENTIFIERS 2*P2 # 2B8L #DEF BMEINC=A1+1 2BN= #DEF BMECOPS=BMEINC+1 2C7W #DEF BMECAT=BMECOPS+1 2CMG #DEF BMELOC1=BMECAT+1 2D76 #DEF BMELOC2=BMELOC1+1 2DLQ #DEF BMELOC3=BMELOC2+1 2F6B #DEF BMEREL=BMELOC3+1 2FL2 #DEF BMEGAN=BMEREL+1 2G5L # 2GK= # :SYSTEM.INCINDEX INCREMENT RECORD IDENTIFIERS 2H4W # 2HJG STRINGS A1,AINCRH,AINCHD,AINCNO,AINCSTATE,AINCD,AINCT,AINCSIZE 2J46 STRINGS AINCSIZE+1,AINCFILES,AINCSTAT1,AINCSTAT2,AINCGMT 2JHQ STRINGS AINCGMT+1,AINCSTAT4 2K3B STRINGS AINCSTAT4+1,AMTS,AMAG,AMAGSTATE 2KH2 STRINGS 0,AINCRHR,AINCHDR,AINCNOR,AINCSTATER,AINCDR,AINCTR 2L2L STRINGS AINCTR+1,AINCSIZER,AINCFILESR,AINCSTAT1R,AINCSTAT2R 2LG= STRINGS AINCSTAT2R+1,AINCGMTR,AINCSTAT4R,AMTSR,AMAGR,AMAGSTATER 2L^W # 2MFG # BIT DEFINITIONS FOR INC & MAG STATE 2M^6 # 2NDQ BITDEFS AINCSTATE,0,BIREDUMP,BIENDBAT,BIDUMPROC,BINEWDT,BIOBS,BINSUITRV 2NYB BITDEFS AINCSTATE,7,BIDIRD,BITOTD,BIGENRES,,BIPRNOBS,BIAVEST 2P69 ... BITDEFS AINCSTATE,13,BIFINAL,BIUNFIN,,BIRESTBAT 2P#5 ... BITDEFS AINCSTATE,15,BIWFBREAK 2PD2 BITDEFS AINCSTATE,18,BIOBSENT,BITTTPROC,,BI6PLUS 2PXL BITDEFS AINCSTATER,0,BIREDUMPR,BIENDBATR,BIDUMPROCR,BINEWDTR,BIOBSR 2QC= BITDEFS AINCSTATER,5,BINSUITRVR,,BIDIRDR,BITOTDR,BIGENRESR 2QWW BITDEFS AINCSTATER,11,BIPRNOBSR,BIAVESTR 2R6N ... BITDEFS AINCSTATER,13,BIFINALR,BIUNFINR 2R=K ... BITDEFS AINCSTATER,15,BIWFBREAKR,BIRESTBATR 2RBG BITDEFS AINCSTATER,18,BIOBSENTR,BITTTPROCR,,BI6PLUSR 2RW6 BITDEFS AMAGSTATE,0,BMFAIL,BMLASTRV,BMRETURN,BMUSWR,BMOPWR,BMNCURR 2S5Y ... BITDEFS AMAGSTATE,7,BMTBWR 2S*Q BITDEFS AMAGSTATE,17,BMOBS,BMNFULL,BMPROCT 2STB BITDEFS AMAGSTATER,0,BMFAILR,BMLASTRVR,BMRETURNR,BMUSWRR,BMOPWRR 2T*2 BITDEFS AMAGSTATER,5,BMNCURRR 2TJS ... BITDEFS AMAGSTATER,7,BMTBWRR 2TSL BITDEFS AMAGSTATER,17,BMOBSR,BMNFULLR,BMPROCTR 2W#= # 2WRW #DEF INCMAGLEN=2 [LENGTH OF MT ENTRY IN INCINDEX 2X?G # 2XR6 # BIT DEFINITIONS FOR 'DUMP TAPE' BIT IN EINCLOOK IN NAME REC. 2Y=Q BITDEFS EINCLOOKN,0,BNUSEDUMP 2YQB BITDEFS EINCLOOK,0,BEUSEDUMP 2^=2 # 2^PL # FILE INCREMENT (FINC) BLOCK IDENTIFIERS 329= # 329^ ...#UNS FPD 32=N ...( 32?C ... STRINGS A1,INCNO,INCCOPIES,INCREPLY,INCCMPSIZE,INCSYSSIZE 32#6 ...#UNS FNSAD2 32#T ...( 32*J ... STRINGS INCSYSSIZE+1,INCDIRNVAIN,INCDIRSRCH,INCSIZE 32B? ... STRINGS INCSIZE+1,INCFILNUM,INCBLNUM,INCTIMING 32C2 ...) 32CP ...#UNS FNSAD2 32DD ...#STR 32F7 ... STRINGS INCSYSSIZE+1,INCSIZE,INCFILNUM,INCBLNUM,INCTIMING 32FW ... STRINGS INCTIMING+1,INCDIRWAIT,INCBSWAIT,INCMTWAIT 32GK ... STRINGS INCMTWAIT+1,INCBEGDUMP,INCTIMESENT,INCTIMEFILE 32H# ... STRINGS INCTIMEFILE+1,INCACT,INCWORK,INCPERIS,FGETSER 32J3 ... STRINGS FGETSER+1,FGETSTATE 32JQ ...#DEF FGETLEN=2 32KF ...) 32L8 ...#UNS FPD 32LX ...#SKI 32ML ...( 32NW STRINGS A1,INCRH,INCNO,INCCOPIES,INCREPLY,INCUNFIN,INCBATCH 338G STRINGS INCBATCH+1,INCCMPSIZE,INCSYSSIZE,INCSIZE,INCFILNUM,INCBLNUM 33N6 STRINGS INCBLNUM+1,INCTIMING,INCDIRWAIT,INCBSWAIT,INCMTWAIT 347Q STRINGS INCMTWAIT+1,INCBEGDUMP,INCTIMESENT,INCTIMEFILE 34CJ ... STRINGS INCTIMEFILE+1,INCRV,INCACT,INCWORK,INCLISTS 34HF ...) 34MB # 3572 # BIT DEFINITIONS FOR INCREPLY WORD IN FINC BLOCK 35LL # 366= BITDEFS INCREPLY,0,BINCNSUITRV,BINCENDBAT,BINCGENRES,BINCEOT 36=7 ... BITDEFS INCREPLY,4,BINCFIN 36B4 ... BITDEFS INCREPLY,5,BINCMDUMP,BINCGETDIR,BINCTERMINL 36D2 ... BITDEFS INCREPLY,15,BINCWRFAIL 36F^ ... BITDEFS INCREPLY,16,BINCEOTS,BINCEOIS,BINCDUMP 36KW BITDEFS INCREPLY,20,BINCRVS,BINCCMPSENT 36TN ... BITDEFS INCREPLY,19,BINCRFAIL 375G BITDEFS INCREPLY,22,BINCDIRD,BINCTOTD 379C ...# BIT IDENTIFIERS FOR FGETSTATE 37*# ... BITDEFS FGETSTATE,0,BFGETNDTS,BFGETPOS,BFGETUNAV 37F9 ... BITDEFS FGETSTATE,3,BFGETFH,BFGETREQ,BFGETMTW 37K6 # 384Q # INCWORD (FIXED CORE) IDENTIFIERS 38JB # 38QD ... BITDEFS INCWORD,0,BNOWD,BTOTD,BDCISS,BMTSCAN,BFPRDONE 38TF ... BITDEFS INCWORD,5,BCANAB 38W^ ... BITDEFS INCWORD,6,BGENRES,BFREEBS,BMTGR 38YG ... BITDEFS INCWORD,9,BDUMPAB 396K ... BITDEFS INCWORD,10,BATCHSTART,BATCHFIN,BDUMPING 3998 ... BITDEFS INCWORD,13,BFSHB,BFILEINC,BPARALLEL 39?S ... BITDEFS INCWORD,16,BABSA 39HL BITDEFS INCWORD,17,BDOGENRES,BFERUSLOCK,BFERUSWAIT 3=3= BITDEFS INCWORD,20,BFERUS,BMTSREQ,BIDCOM,BWRINC 3=GW # 3?2G # IDENTIFIERS FOR THE FI FERUS BLOCK USED IN DUMPING 3?G6 # 3?^Q #DEF FERUSRH=A1 3#FB #DEF FERUSNUM=FERUSRH+1 3#^2 #DEF FERUSER=FERUSNUM+1 3*DL #DEF FERUSLEN=3 3*Y= # 3BCW # THE SEMAPHORE CONTROLLING ALTERATION OF THE FERUS BLOCK 3BXG # 3CC6 SEMAPHORE FERUSALT,BFERUSLOCK,BFERUSWAIT,FERUSWAIT 3CWQ # 3DBB # DEFINITIONS FOR THE FILE/FINCPROC BLOCK 3DW2 # 3DXP ...#UNS FPD 3D^D ...( 3F37 ... STRINGS A1,FINCPRH,FINCRVLIM,INCRV,FINCTRD,FINCNOBS 3F4W ... STRINGS FINCNOBS+1,INCUNFIN,INCBATCH,INCLISTS 3F6K ...) 3F8# ...#UNS FPD 3F=3 ...#SKI 3F?Q ...( 3F*L #DEF FINCPRH=A1 [RECORD HEADER 3FT= #DEF FINCRVLIM=A1+1 [TO HOLD LIMIT TO RVS ISSUED IN DUMP 3G#W #DEF FINCNOBS=A1+2 [NO OF FOLLOWING INCR NOS 3GSG [NOT YET PROVED NOT OBSOLETE 3H4# ...) 3H#6 # 3HC= ...# DEF.FOR DS8424 3HGB ...#OPT BSUSKIP = 0 3HKG ...# 3HNL ...# 3HRQ # IDENTIFIERS FOR THE FILE/FRESNUM BLOCK USED IN BSUNJAM 3J?B # 3JR2 #DEF FRREC=A1 3K=L #DEF FRNUM=FRREC+1 3KQ= #DEF FRSTATE=FRNUM+1 3L9W #DEF FRNTOFF=FRSTATE+1 3LPG #DEF FRSTOFF=FRNTOFF+1 3M96 # 3MNQ # IDENTIFIERS FOR THE FILE/INCUNJ BLOCK USED IN BSUNJAM 3N8B # 3NN2 #OPT JAM=5000 3P7L #DEF INREC=A1 3PM= #DEF IRESNUM=INREC+1 3Q6W #DEF ANOJAM=A1+3 3QLG #DEF BSNDUMP=ANOJAM+1 3R66 #DEF BSLEFT=BSNDUMP+1 3RKQ #DEF INCUNR=BSLEFT+1 3RM^ ...[ BIT IDENTIFIERS USED BY B S U IN FILE FRESNUM BLOCK 3RQ8 ... BITDEFS FRSTATE,0,BFTHRESHOP,BFJAMOP 3RSC ... BITDEFS FRSTATE,20,BFJAM,BFJAMCL,BFTHRESH,BFTHRESHCL 3RWL ...[ BIT IDENTIFIERS USED BY B S U IN BSTB BSLIST BLOCK 3RYT ... BITDEFS BSLETH,12,BSLJAM,BSLTHRESH 3S5B # 3SK2 # TIME INTERVAL USED TO UPDATE GMT ON BACKING STORE 3T4L # 3TJ= #DEF GMTINT=5 3W3W # 3WHG #OPT K0PROCESSOR=0 [PROCESSOR LISTING LEVEL 3X36 #OPT K6PROCESSOR=0 [PROCESSOR TRACING LEVEL 3XGQ # 3Y2B # IDENTIFIERS FOR FILE/FINTER AS USED BY GEN. RESTORE 3YG2 # 3Y^L #DEF FIRSTINC=A1 3^F= # 3^YW # IDENTIFIERS FOR FILE/FINTER7 USED BY GEN. RESTORE 42DG # 42Y6 #DEF A1FINT7=A1 43CQ #DEF CURRTSN=A1FINT7 43XB #DEF BMINTO1=CURRTSN+1 44C2 #DEF BMINTO2=BMINTO1+1 44WL #DEF BMEREEL=BMINTO2+1 [BMEREEL IS USED TO HOLD REEL NO 45B= #DEF BMEGEN=BMEREEL+1 [BMEGEN IS USED TO HOLD F/GEN/NO 45CS ...#UNS FPD 45FB ...( 45GY ...#DEF GRPINCNUM = BMEGEN+1 45JG ...#DEF GRPINCFILES = GRPINCNUM + 1 45L4 ...#DEF GRPINCSIZE = GRPINCFILES + 1 45ML ...#DEF AMAGS = GRPINCSIZE + 1 45P8 ...) 45QQ ...#UNS FPD 45S# ...#STR 45TW #DEF AMAGS=BMEGEN+1 46*G # 46T6 # DEFINITIONS FOR DUMP TAPE SCHEDULER 47#Q # 47SB #OPT K0SCHEDULER=0 48#2 #OPT K6SCHEDULER=0 48RL # 49?= # IDENTIFIERS FOR MK7 REQUEST BLOCK 49QW # 4==G #DEF ADTCOUNT=A1 4=Q6 #DEF FREQCT=ADTCOUNT+1 4?9Q #DEF FFUSER1=FREQCT+1 4?PB #DEF FFUSER2=FFUSER1+1 4#92 #DEF FFUSER3=FFUSER2+1 4#NL #DEF FFLOG1=FFUSER3+1 4*8= ...#DEF FFLOG2=FFLOG1+1 4*MW #DEF FFLOG3=FFLOG2+1 4B7G #DEF FFREEL=FFLOG3+1 4BM6 #DEF FFGEN=FFREEL+1 4C6Q #DEF FFLANG=FFGEN+1 4CLB #DEF FDTINCNUM=FFLANG+1 4D62 #DEF FDTFILNUM=FDTINCNUM+1 4D7C ...#UNS FTS2 4D8S ...( 4D=9 ...#DEF FDTFILSTR=FDTFILNUM+1 4D?L ...#ALT FDTSTATE=FDTFILSTR+1 4D*3 ...#ALT FREVCT=FDTSTATE+1 4DBD ...#ALT FREQLEN=FREVCT-ADTCOUNT+1 4DCT ...) 4DF= ...#UNS FTS2 4DGM ...#SKI 4DJ4 ...( 4DKL #DEF FDTSTATE=FDTFILNUM+1 4F5= #DEF FREVCT=FDTSTATE+1 4FJW #DEF FREQLEN=FREVCT-ADTCOUNT+1 4FLS ...) 4FNQ ...# 4FNT ...# DEFINITIONS FOR ADATA AWHATRVS BLOCK 4FNY ...# 4FP3 ...#DEF AWVJOBNAM=A1 4FP6 ...#DEF AWVJOBNAM2=AWVJOBNAM+1 4FP9 ...#DEF AWVJOBNAM3=AWVJOBNAM2+1 4FP# ...#DEF AWVUSERNAM=AWVJOBNAM3+1 4FPC ...#DEF AWVUSERNAM2=AWVUSERNAM+1 4FPG ...#DEF AWVUSERNAM3=AWVUSERNAM2+1 4FPK ...#DEF AWVBITS=AWVUSERNAM3+1 4FPN ...#DEF AWVCOUNT=AWVBITS+1 4FPR ...#DEF AWVCONS=AWVCOUNT+1 4FPW ...#DEF AWVJOBNO=AWVCONS+1 4FP^ ...# 4FQ4 ...# BIT DEFS FOR ADATA AWHATRVS BLOCK 4FQ7 ...# 4FQ= ... BITDEFS AWVBITS,0,AWVBHERE,AWVBLIST,AWVBFULL,AWVBLISTPR,AWVBREM 4FQ* ... BITDEFS AWVBITS,5,AWVBJOBNO,AWVBUSERNAM,AWVBJOBNAM,AWVBALL,AWVBUSER 4FQD ... BITDEFS AWVBITS,10,AWVBOPER,AWVBOPCOM 4FQH ...# 4FQN ...# DEFINITIONS FOR FDINCS BLOCK. 4FSL ...# 4FWJ ... STRINGS A1,FDINCNO,FDINCTSN,FDINCWOR,FDINCINC 4FYG ... FIELDDEF FDINCFSNO,6,FDINCWOR,23 4G2D ...#DEF FDINCLEN=1 4G4G # 4GJ6 # DEFINITIONS FOR FILE/FDT BLOCK 4H3Q # 4HHB #DEF FDSN=A1+1 4J32 #DEF FDST=FDSN+1 4JGL #DEF FDINC=FDST+1 4K2= #DEF FDFILE=FDINC+1 4KFW #DEF FDTLEN=4 4KH4 ...# 4KJ= ...# 4KKD ...# BIT DEFS FOR FILE/FREQ &FILE/FDT BLOCKS 4KLL ...# 4KLX ... BITDEFS BACK2,0,BIFDTLMEF,BIFDTAFS,BIFDTCDPR,BIFDTOPEN,BIFDTRVF,BIFDTAW 4KM8 ...#UNS FTS2 4KMF ...#SKI 4KMS ... BITDEFS FDTSTATE,0,BINCUNVER,BFILRES,BPERLST,,BINCUNUS,,BTEMLST 4KP2 ... BITDEFS FDST,0,BIFDTF,BIFDTO,BIFDTD,BIFDTFO,BIFDTOW,BIFDTJ 4KP9 ... BITDEFS FDST,7,BIFDTNW,BIFDTCA,BIFDTCD,BIFDTUW,BIFDTNL,BIFDTJL,BIFDTCL 4KPD ... BITDEFS FDST,14,BIFDTPF,BIFDTFE 4KPM ... FIELDDEF FDTFSNO,6,FDST,23 4KPW ...# 4KQ5 ...#UNS FTS2 4KQ# ...( 4KQH ... BITDEFS FDTSTATE,0,BINCUNVERR,BFILERES,BFILNEXI,BPERLOST,BTEMLOST 4KQQ ... BITDEFS FDTSTATE,5,BFILBRES,BTERMST,BHAPPY,BFHCE,BFORMERR 4KQ^ ...) 4KRB ...# 4KSJ ...# DEFINITIONS FOR FLIB/FLINC BLOCK 4KTQ ...# 4KWY ...#DEF FLINCST=A1+2 4KY6 ... BITDEFS FLINCST,3,BFUSWR,BFOPWR 4K^G # 4LF6 # 4LK3 ...#UNS FPD 4LNY ...#SKI 4LST ...( 4LYQ # DEFINITIONS FOR DUMPERS FGET BLOCK 4MDB # 4MY2 #DEF FGETSER=A1 4NCL #DEF FGETSTATE=FGETSER+1 4NX= #DEF FGETLEN=FGETSTATE-A1+1 4PBW # 4PLN ...) 4S#L # 4SS= # IDENTIFIERS FOR QUALIFIER BLOCKS OF SENTINELS ON DUMP TAPES 4T?W # 4TRG #DEF ESENTYP=A1 [SENTINEL TYPE 4W?6 #DEF ESEN1=A1+1 4WQQ #DEF ESENBP=A1+1 [NO. OF PRECEDING DATA BLOCKS 4X=B #DEF ESENLOC1=A1+2 [) 4XQ2 #DEF ESENLOC2=A1+3 [)3WD LOCAL NAME 4Y9L #DEF ESENLOC3=A1+4 [) 4YP= #DEF ESENRL=A1+5 [REEL 4^8W #DEF ESENFG=A1+6 [GEN. 4^NG #DEF ESENFN=A1+7 [FILE NUMBER 5286 #DEF ESENTM=A1+8 [TYPE/MODE 52MQ #DEF ESEND2=A1+9 [ " 537B #DEF ESEN10=A1+10 [ 53M2 #DEF ESEN11=A1+11 [ 546L #DEF ESENLAN=A1+12 [LANGUAGE 54L= #DEF ESENUSE1=A1+13 [) 555W #DEF ESENUSE2=A1+14 [)USERNAME 55KG #DEF ESENUSE3=A1+15 [) 5656 #DEF ESEN16=A1+16 [ 56JQ #DEF ESENAL=ESEN16 [SPECIALLY ALLOCATED FILES 574B #DEF ESEN17=A1+17 [ 57J2 #DEF ESENCT=A1+18 [NO OF BLOCKS:B0=1 FOR GENERAL RESTOR 583L #DEF ESENGR=ESENCT [ 58H= #DEF ESENB=A1+19 [B0=1 FOR DIR &"NEW FORMAT"BITS 592W [B1=1 FOR END OF INCREMENT 59GG # 59H# ...#UNS FNSAD 59J6 ...( 59JY ...# 59KQ ...# IDENTIFIERS FOR FDUMPCOM BLOCK 59LJ ...# 59MB ...#DEF FDUMPUSER=A1 59N8 ...#DEF FDUMPSTATE=FDUMPUSER+3 59P2 ... BITDEFS FDUMPSTATE,0,BFDUMPCOM 59PS ...# 59QL ...# 59RD ...# IDENTIFIERS FOR INDEXCHK BLOCK AS USED BY INCVFCHK 59S= ...# 59T4 ...#DEF INDEXLINK = A1 59TW ...#DEF INDEXECOPS = INDEXLINK+1 59WN ...#DEF INDEXNUM = INDEXECOPS+1 59XG ...#DEF INDEXTRAPS = INDEXNUM+1 59Y# ...# 59^6 ...) 59^7 ...# IDENTIFIERS FOR FI/FDUCOM BLOCK FOR IDC 59^8 ... STRINGS A1,FDUPARAMS,FDUNUM,FDUTSNCT,FDUTSN 59^9 ... BITDEFS FDUPARAMS,0,BFDTOTAL,BFDRETURN,BFDREUSE,BFDALL,BFDSPARE 59^= ... BITDEFS FDUPARAMS,5,BFDPOOL,BFDINT,BFDTAPES,BFDTSN 59^? ... BITDEFS FDUTSN,0,FDUTSNUSED 59^# ...# 59^* ...# IDENTIFIERS FOR FI/FDUMPTAPES BLOCK FOR IDC 59^B ...# 59^C ... STRINGS A1,FDTTAPE,FDTDATE 59^D ... BITDEFS FDTTAPE,0,FDTTAPEUSED 59^F ...# 59^G ...# IDENTIFIERS FOR FI/FREJTAPES BLOCK FOR IDC 59^H ...#DEF FRJTAPE = A1 59^J ...# 59^K ...# BIT IDS. FOR IDC RTMS 59^L ... BITDEFS AWORK1,0,IDCRTMOLD,IDCRTMASK,IDCRTMNEW 59^M ...# 5=26 #PAGE ^^^^ ...21063703006800000000