Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

adding 3rd record in VSAM using file manager

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
TS70363

New User


Joined: 07 Apr 2010
Posts: 94
Location: Bangalore, India

PostPosted: Wed Apr 21, 2010 3:07 pm    Post subject: adding 3rd record in VSAM using file manager
Reply with quote

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
View user's profile Send private message

TS70363

New User


Joined: 07 Apr 2010
Posts: 94
Location: Bangalore, India

PostPosted: Wed Apr 21, 2010 3:09 pm    Post subject:
Reply with quote

Sorry, I posted this query in COBOL section..
Can someone move it to VSAM..
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Wed Apr 21, 2010 3:10 pm    Post subject: Reply to: adding 3rd record in VSAM using file manager
Reply with quote

From where do You evince that it is an alternate key issue ??
post the VSAM definitions
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Wed Apr 21, 2010 4:09 pm    Post subject: Re: adding 3rd record in VSAM using file manager
Reply with quote

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
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Wed Apr 21, 2010 5:05 pm    Post subject:
Reply with quote

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
View user's profile Send private message
TS70363

New User


Joined: 07 Apr 2010
Posts: 94
Location: Bangalore, India

PostPosted: Wed Apr 21, 2010 6:20 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8057
Location: East Dubuque, Illinois, USA

PostPosted: Wed Apr 21, 2010 6:49 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts How to see VIEW definition from BMC c... rohanthengal DB2 1 Thu May 04, 2017 1:50 pm
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us