{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPSDUMP)}}
====== COMPSDUMP ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:FIELDDEF|FIELDDEF]], [[george:macro:SEMAPHORE|SEMAPHORE]], [[george:macro:STRINGS|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