|
View previous topic :: View next topic
|
| Author |
Message |
TS70363
New User
Joined: 07 Apr 2010
Posts: 94
Location: Bangalore, India
|
|
|
|
Hi all,
I am trying to add duplicate records in the alternate key field using file manager.
When I tried adding 2 nd record, the Vsam file can be saved successfully but when I add 3rd record for the same key field, it is not allowing me to save the file and I get
| Quote: |
VSAM PUT RC X"08", Error Code X"6C" (record length error)
|
for that 3rd record...
Please let me know the solution... |
|
| Back to top |
|
 |
TS70363
New User
Joined: 07 Apr 2010
Posts: 94
Location: Bangalore, India
|
|
|
|
Sorry, I posted this query in COBOL section..
Can someone move it to VSAM.. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10872
Location: italy
|
|
|
|
From where do You evince that it is an alternate key issue ??
post the VSAM definitions |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| TS70363 wrote: |
| When I tried adding 2 nd record, the Vsam file can be saved successfully but when I add 3rd record for the same key field, it is not allowing me to save the file |
I've not done this with File-Manager but in file-aid if the VSAM-key is not unique, as you say - you repeat the 2nd record, it does not allow you to save the file. Post the VSAM definition, however.
Hope this helps. |
|
| Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
|
|
Possibly the VSAM space allocated to hold the alternate key pointers to the base cluster records is too small?
What does your base cluster and alternate key definitions look like? |
|
| Back to top |
|
|
TS70363
New User
Joined: 07 Apr 2010
Posts: 94
Location: Bangalore, India
|
|
|
|
| Code: |
DATASET-OWNER-----(NULL) CREATION--------2010.106
RELEASE----------------2 EXPIRATION------2010.226
BWO STATUS--------(NULL) BWO TIMESTAMP-----(NULL)
BWO---------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
DATA-----TEST.TRS4W0.TEST.VSAM.DATA
INDEX----TEST.TRS4W0.TEST.VSAM.INDEX
AIX------TEST.TRS4W0.TEST.VSAM.AIX
AIX------TEST.TRS4W0.TEST.VSAM.AIX1
AIX------TEST.TRS4W0.TEST.VSAMAIX0
PATH-----TEST.TRS4W0.TEST.VSAM.PATH1
DATA ------- TEST.TRS4W0.TEST.VSAM.DATA
IN-CAT --- CATALOG.ICF.KATG03.KAT2
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2010.106
RELEASE----------------2 EXPIRATION------2010.226
ACCOUNT-INFO-----------------------------------(NULL)
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--TEST.TRS4W0.TEST.VSAM
ATTRIBUTES
KEYLEN-----------------5 AVGLRECL--------------25 BUFSPACE------
-----12288 CISIZE--------------4096
RKP--------------------0 MAXLRECL--------------25 EXCPEXIT------
----(NULL) CI/CA----------------180
SHROPTNS(1,3) SPEED UNIQUE NOERASE INDEXED
NOWRITECHK NOIMBED NOREPLICAT
UNORDERED NOREUSE NONSPANNED
STATISTICS
REC-TOTAL--------------7 SPLITS-CI--------------0 EXCPS---------
-------652
REC-DELETED------------6 SPLITS-CA--------------0 EXTENTS-------
---------1
REC-INSERTED-----------8 FREESPACE-%CI---------20 SYSTEM-TIMESTA
MP:
REC-UPDATED------------0 FREESPACE-%CA---------20 X'C5DCC4E
DABDD0006'
REC-RETRIEVED--------182 FREESPC----------1470464
ALLOCATION
SPACE-TYPE------CYLINDER HI-A-RBA---------1474560
SPACE-PRI--------------8 HI-U-RBA----------737280
SPACE-SEC--------------2
VOLUME
VOLSER------------ZXS956 PHYREC-SIZE---------4096 HI-A-RBA------
---1474560 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK-----------12 HI-U-RBA------
----737280 EXTENT-TYPE--------X'40'
VOLFLAG------------PRIME TRACKS/CA-------------15
EXTENTS:
LOW-CCHH-----X'01120000' LOW-RBA----------------0 TRACKS--------
--------30
HIGH-CCHH----X'0113000E' HIGH-RBA---------1474559
INDEX ------ TEST.TRS4W0.TEST.VSAM.INDEX
IN-CAT --- CATALOG.ICF.KATG03.KAT2
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2010.106
RELEASE----------------2 EXPIRATION------2010.226
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--TEST.TRS4W0.TEST.VSAM
ATTRIBUTES
KEYLEN-----------------5 AVGLRECL---------------0 BUFSPACE------
---------0 CISIZE--------------4096
RKP--------------------0 MAXLRECL------------4089 EXCPEXIT------
----(NULL) CI/CA-----------------12
SHROPTNS(1,3) RECOVERY UNIQUE NOERASE NOWRITECHK
NOIMBED NOREPLICAT UNORDERED
NOREUSE
STATISTICS
REC-TOTAL--------------1 SPLITS-CI--------------0 EXCPS---------
--------61 INDEX:
REC-DELETED------------0 SPLITS-CA--------------0 EXTENTS-------
---------1 LEVELS-----------------1
REC-INSERTED-----------0 FREESPACE-%CI----------0 SYSTEM-TIMESTA
MP: ENTRIES/SECT----------13
REC-UPDATED------------0 FREESPACE-%CA----------0 X'C5DCC4E
DABDD0006' SEQ-SET-RBA------------0
REC-RETRIEVED----------1 FREESPC------------45056
HI-LEVEL-RBA-----------0
ALLOCATION
SPACE-TYPE---------TRACK HI-A-RBA-----------49152
SPACE-PRI--------------1 HI-U-RBA------------4096
SPACE-SEC--------------1
VOLUME
VOLSER------------ZXS956 PHYREC-SIZE---------4096 HI-A-RBA------
-----49152 EXTENT-NUMBER----------1
DEVTYPE------X'3010200F' PHYRECS/TRK-----------12 HI-U-RBA------
------4096 EXTENT-TYPE--------X'00'
VOLFLAG------------PRIME TRACKS/CA--------------1
EXTENTS:
LOW-CCHH-----X'00050003' LOW-RBA----------------0 TRACKS--------
---------1
HIGH-CCHH----X'00050003' HIGH-RBA-----------49151
PATH ------- TEST.TRS4W0.TEST.VSAM.PATH1
IN-CAT --- CATALOG.ICF.KATG03.KAT2
HISTORY
DATASET-OWNER-----(NULL) CREATION--------2010.110
RELEASE----------------2 EXPIRATION------0000.000
PROTECTION-PSWD-----(NULL) RACF----------------(NO)
ASSOCIATIONS
CLUSTER--TEST.TRS4W0.TEST.VSAM
DATA-----TEST.TRS4W0.TEST.VSAM.DATA
INDEX----TEST.TRS4W0.TEST.VSAM.INDEX
ATTRIBUTES
UPDATE
*** |
|
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
You gave us the base cluster without the alternate indexes. Based on what I see, though, I'm not surprised it's messed up -- you've got three alternate indexes listed but only one path.
Delete the VSAM file, define it the way it should be set up, then try your adds again. The steps in IDCAMS are:
1. Delete the old files
2. Define the base cluster.
3. Repro at least one data record to the base cluster.
4. Define the alternate index.
5. Build the alternate index.
6. Define the path.
These steps don't have to be exactly in this order, but you do have to put data in the base cluster before issuing the BLDINDEX command. |
|
| Back to top |
|
|
|
|
