Hi List,
We have a VSAM KSDS with 1 record in it that is causing us some heartburn. I
was able to create a new dataset and REPRO this one into the new one
successfully, and the new dataset works fine, but I'd like to know what may be
causing the original to be having problems - and possibly how to fix it. It is
not open to any online regions, but is used by batch. A LISTC of the dataset
shows bogus statistics - even after running a VERIFY against it (which came
back clean, RC=0). I ran an EXAMINE against it and got no errors:
EXAMINE NAME(LFCT.MQ.BPX.BILLCASE.MASTER) DATATEST
IDC01700I INDEXTEST BEGINS
IDC11773I 1 KEYS PROCESSED ON INDEX LEVEL 1, AVERAGE KEY
LENGTH: 0.0
IDC11774I CURRENT INDEX CISIZE IS 1024, RECOMMENDED MINIMUM INDEX CISIZE IS
1024
IDC01724I INDEXTEST COMPLETE - NO ERRORS DETECTED
IDC01701I DATATEST BEGINS
IDC01709I DATATEST COMPLETE - NO ERRORS DETECTED
IDC01708I 1 CONTROL INTERVALS ENCOUNTERED
IDC01710I DATA COMPONENT CONTAINS 1 RECORDS
IDC01711I DATA COMPONENT CONTAINS 0 DELETED CONTROL INTERVALS
IDC01712I MAXIMUM LENGTH DATA RECORD CONTAINS 333 BYTES
IDC01722I 99 PERCENT FREE SPACE
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
We have 2 VSAM utility programs, VSAMTUNE and VSAMUTIL. VSAMTUNE says the
dataset is fine and displays the record:
Cluster LFCT.MQ.BPX.BILLCASE.MASTERB
Catalog CATALOG.MVSICF1.VADR111
Rcd len 00333, rcd RBA 0000000000023000, key length 030, key offset 00000.
VSAMUTIL however, says the dataset is empty.
"THIS DATASET CONTAINS NO RECORDS, USE EDIT TO LOAD"
Unfortunately I don't have any diagnostic codes out of the COBOL program that
was getting the open error.
So my question - any idea what could be broken in this dataset to cause this
kind of problem (bogus stats that I can't fix and some programs not being able
to open the dataset/find the record in it)?
TIA for any pointers.
Rex
Here's the LISTC of it (with some parts removed to conserve reading time..).
CLUSTER ------- LFCT.MQ.BPX.BILLCASE.MASTERB
IN-CAT --- CATALOG.MVSICF1.VADR111
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2013.064
RELEASE----------------2 EXPIRATION------0000.000
ASSOCIATIONS
DATA-----LFCT.MQ.BPX.BILLCASE.MASTERB.DATA
INDEX----LFCT.MQ.BPX.BILLCASE.MASTERB.INDEX
DATA ------- LFCT.MQ.BPX.BILLCASE.MASTERB.DATA
IN-CAT --- CATALOG.MVSICF1.VADR111
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2013.064
RELEASE----------------2 EXPIRATION------0000.000
ACCOUNT-INFO-----------------------------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--LFCT.MQ.BPX.BILLCASE.MASTERB
ATTRIBUTES
KEYLEN----------------30 AVGLRECL------------2965
BUFSPACE-----------41984 CISIZE-------------20480
RKP--------------------0 MAXLRECL------------9156
EXCPEXIT----------(NULL) CI/CA-----------------37
SHROPTNS(3,3) SPEED UNIQUE NOERASE INDEXED
NOWRITECHK UNORDERED REUSE
NONSPANNED
STATISTICS (* - VALUE MAY BE INCORRECT)
REC-TOTAL--------------0* SPLITS-CI--------------3*
EXCPS---------------1639*
REC-DELETED----------420* SPLITS-CA--------------0*
EXTENTS----------------1
REC-INSERTED---------163* FREESPACE-%CI----------0
SYSTEM-TIMESTAMP:
REC-UPDATED------------8* FREESPACE-%CA----------0
X'CD2E94CA07A96504'
REC-RETRIEVED-------8375* FREESPC----------7577600*
ALLOCATION
SPACE-TYPE------CYLINDER HI-A-RBA---------7577600
SPACE-PRI-------------10 HI-U-RBA----------757760
SPACE-SEC--------------2
VOLUME
VOLSER------------NRS006 PHYREC-SIZE--------10240
HI-A-RBA---------7577600 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK------------5
HI-U-RBA----------757760 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA-------------15
EXTENTS:
LOW-CCHH-----X'01D00000' LOW-RBA----------------0
TRACKS---------------150
HIGH-CCHH----X'01D9000E' HIGH-RBA---------7577599
INDEX ------ LFCT.MQ.BPX.BILLCASE.MASTERB.INDEX
IN-CAT --- CATALOG.MVSICF1.VADR111
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2013.064
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--LFCT.MQ.BPX.BILLCASE.MASTERB
ATTRIBUTES
KEYLEN----------------30 AVGLRECL---------------0
BUFSPACE---------------0 CISIZE--------------1024
RKP--------------------0 MAXLRECL------------1017
EXCPEXIT----------(NULL) CI/CA-----------------33
SHROPTNS(3,3) RECOVERY UNIQUE NOERASE NOWRITECHK
UNORDERED REUSE
STATISTICS (* - VALUE MAY BE INCORRECT)
REC-TOTAL--------------1* SPLITS-CI--------------0*
EXCPS----------------308* INDEX:
REC-DELETED------------0* SPLITS-CA--------------0*
EXTENTS----------------1 LEVELS-----------------1
REC-INSERTED-----------0* FREESPACE-%CI----------0
SYSTEM-TIMESTAMP: ENTRIES/SECT-----------6
REC-UPDATED-----------19* FREESPACE-%CA----------0
X'CD2E94CA07A96504' SEQ-SET-RBA----------------0
REC-RETRIEVED----------0* FREESPC------------32768*
HI-LEVEL-RBA---------------0
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------33792
SPACE-PRI--------------1 HI-U-RBA------------1024
SPACE-SEC--------------1
VOLUME
VOLSER------------NRS006 PHYREC-SIZE---------1024
HI-A-RBA-----------33792 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK-----------33
HI-U-RBA------------1024 EXTENT-TYPE--------X'00'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'00130003' LOW-RBA----------------0
TRACKS-----------------1
HIGH-CCHH----X'00130003' HIGH-RBA-----------33791
The information contained in this message is confidential, protected from
disclosure and may be legally privileged. If the reader of this message is not
the intended recipient or an employee or agent responsible for delivering this
message to the intended recipient, you are hereby notified that any disclosure,
distribution, copying, or any action taken or action omitted in reliance on it,
is strictly prohibited and may be unlawful. If you have received this
communication in error, please notify us immediately by replying to this
message and destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
