IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Several errors during building alternate index for KSDS file
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Andi1982

New User


Joined: 27 Mar 2008
Posts: 42
Location: Karlsruhe / Germany
PostPosted: Wed Jul 06, 2016 7:39 pm
 Reply with quote
Hey,

after many years away from Mainframe I have to build now an alternate index for a ksds file. Nobody here in company ever did before.

First I do a copy of the ksds file and then I try to define the AIX on it:

Code:

// DLBL ORIG,'DB.ONLINE.WAREN.RUECKST',,VSAM,CAT=UCT$01C         
// DLBL TEMP,'DB.ONLINE.WAREN.RUECKST.REORG',,VSAM,CAT=UCT$01C   
// DLBL TAIX,'DB.ONLINE.WAREN.RUECKST.REORG.AIX',,VSAM,CAT=UCT$01C

// EXEC IDCAMS,SIZE=AUTO                       
    DELETE (DB.ONLINE.WAREN.RUECKST.REORG) -   
    CLUSTER PURGE CATALOG (USER.CATALOG.SG$01C)
/*                                             
// EXEC IDCAMS,SIZE=AUTO                                   
    DEFINE CLUSTER( -                                       
           NAME (DB.ONLINE.WAREN.RUECKST.REORG) -           
           KEYS(42 0) -                                     
           RECSZ(400 400) -                                 
           VOL(SG$010) -                                   
           SPEED -                                         
           SHR(4 3) -                                       
           FSPC(25 25) -                                   
               )  -                                         
         DATA ( -                                           
           NAME(DB.ONLINE.WAREN.RUECKST.REORG.DATA)  -     
           CISZ(2048) -                                     
           RECORDS(70000 7000) -                           
               ) -                                         
         INDEX ( -                                         
           NAME(DB.ONLINE.WAREN.RUECKST.REORG.INDEX)  -     
           CISZ(512)  -                                     
               ) -                                         
         CATALOG (USER.CATALOG.SG$01C)                     
    IF LASTCC = 0 -                                         
    THEN DO                                                 
         REPRO INFILE  (ORIG) OUTFILE (TEMP)               
    END                                                     
    ELSE                SET MAXCC = 13                     
/*                                                         
// EXEC IDCAMS,SIZE=AUTO                                         
    DEFINE ALTERNATEINDEX ( -                                     
              NAME(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) -         
              KEYS(12 109) -                                     
              NONUNIQUEKEY -                                     
              VOL(SG$010) -                                       
              RECSZ(200 200) -                                   
              RELATE(DB.ONLINE.WAREN.RUECKST.REORG) -             
              UPGRADE -                                           
              REUSE -                                             
              CISZ(2048) -                                       
              RECORDS(10 5)) -                                   
           CATALOG (USER.CATALOG.SG$01C)                         
    IF MAXCC=0 THEN -                                             
       BLDINDEX INFILE(TEMP ) -                                   
              OUTFILE(TAIX )                                     
    IF MAXCC=0 THEN -                                             
       DEFINE PATH (NAME(DB.ONLINE.WAREN.RUECKST.REORG.PATH ) -   
              PATHENTRY(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) -     
              UPDATE ) -                                         
              CATALOG (USER.CATALOG.SG$01C)                       
/*                                                               


The Error now occurs on the BLDINDEX step:

Code:
    IF MAXCC=0 THEN -                                                 
       BLDINDEX INFILE(TEMP ) -                                       
              OUTFILE(TAIX )                                         
IDC3014I CATALOG ERROR                                               
IDC3009I ** VSAM CATALOG RETURN CODE IS 8 - REASON CODE IS IGG0CLCG-6
IDC2656I LOCATE FAILED FOR DB.ONLINE.WAREN.RUECKST.REORG             
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12                   


As i understood this error means that I try to insert a duplicate key record on a UNIQUEKEY file. But i definded NONUNIQUE in the definition.

Has anybody some idea what I am doing wrong?

Best regards
Andi
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
PostPosted: Wed Jul 06, 2016 7:45 pm
 Reply with quote
You are not checking the return code from the first step before executing the second step. The message is quite clear - the system cannot find your infile. Perhaps it should be suffixed .DATA?
Back to top
View user's profile Send private message
Andi1982

New User


Joined: 27 Mar 2008
Posts: 42
Location: Karlsruhe / Germany
PostPosted: Wed Jul 06, 2016 7:49 pm
 Reply with quote
The delete / define works fine. Each step returns 0 and Listcat also shows correct values of the file.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
PostPosted: Wed Jul 06, 2016 7:59 pm
 Reply with quote
Perhaps you are not allowing for enough duplicates? The manual says the formula for alternate index record size is 5 + AIXKL + (n * BCKL) or 5 plus the alternate index key size plus base cluster key length times the number of duplicates you allow (32767 is the maximum). So 5 + 109 + 2*42 is 198 bytes, just 2 short of the 200 you specified. So if there are 3 duplicates of the alternate index key, you're going to have problems.

I suspect you'll find wasted space in your data set, too, as the CI sizes seem pretty small and not designed to hold the data.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3076
Location: NYC,USA
PostPosted: Wed Jul 06, 2016 8:16 pm
 Reply with quote
Code:
Explanation: A request has referenced a catalog while catalog management is processing, or after catalog management has processed, an access method services DELETE command for the specific catalog.
Programmer Response: The catalog needed for the request has been deleted. If needed, the catalog must be redefined before attempting the request again.

So
Code:
USER.CATALOG.SG$01C
is unavailable then.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy
PostPosted: Wed Jul 06, 2016 8:23 pm
 Reply with quote
unfortunately Your question id DOS-VSE related

but ...
Quote:
As i understood this error means that I try to insert a duplicate key record on a UNIQUEKEY file. But i definded NONUNIQUE in the definition.

and unfortunately your understanding is just wrong
a simple google
with IDC2656I LOCATE FAILED
returned a link where it sis clearly stated
www.ibm.com/support/knowledgecenter/SSLTBW_2.../m009049.htm
IBM
The virtual storage access method (VSAM) catalog locate function issued against the base cluster or alternate index failed. Message IDC3009I precedes this ...
Back to top
View user's profile Send private message
Andi1982

New User


Joined: 27 Mar 2008
Posts: 42
Location: Karlsruhe / Germany
PostPosted: Thu Jul 07, 2016 1:36 pm
 Reply with quote
Ahm ok, it seems like i was concentrated on the wrong error.

Today I was reading again in the IBM docu for building AIX.

Quote:
The sequence for building an alternate index is as follows:

1) Define the base cluster, using either the ALLOCATE command, the DEFINE CLUSTER command, or JCL.
2) Load the base cluster either by using the REPRO command or by writing your own program to load the data set.
3) Define the alternate index, using the DEFINE ALTERNATEINDEX command.
4) Relate the alternate index to the base cluster, using the DEFINE PATH command. The base cluster and alternate index are described by entries in the same catalog.
5) Build the alternate index, using the BLDINDEX command.


So it is written first to do the path and then build the index. I splitted my job now a bit to make it more clear. The first job just defines the file and fills it with data:

Code:

00001 * $$ JOB JNM=CREDEFX,CLASS=5,DISP=D                             
00002 // JOB CREDEFX                                                 
00003 /*                                                             
00004 // DLBL ORIG,'DB.ONLINE.WAREN.RUECKST',,VSAM,CAT=UCT$01C     
00005 // DLBL TEMP,'DB.ONLINE.WAREN.RUECKST.REORG',,VSAM,CAT=UCT$01C
00006 /*                                                           
00007 // EXEC IDCAMS,SIZE=AUTO                                     
00008     DELETE (DB.ONLINE.WAREN.RUECKST.REORG) -                 
00009     CLUSTER PURGE CATALOG (USER.CATALOG.SG$01C)               
00010 /*                                                           
00011 // EXEC IDCAMS,SIZE=AUTO                                     
00012     DEFINE CLUSTER( -                                         
00013            NAME (DB.ONLINE.WAREN.RUECKST.REORG) -             
00014            KEYS(42 0) -                                       
00015            RECSZ(400 400) -                                   
00016            VOL(SG$010) -                                     
00017            SPEED -                                           
00018            NOREUSE -                                         
00019            SHR(4 3) -                                         
00020            FSPC(25 25) -                                     
00021                )  -                                           
00022          DATA ( -                                             
00023            NAME(DB.ONLINE.WAREN.RUECKST.REORG.DATA)  -       
00024            CISZ(2048) -                                       
00025            RECORDS(70000 7000) -                             
00026                ) -                                           
00027          INDEX ( -                                           
00028            NAME(DB.ONLINE.WAREN.RUECKST.REORG.INDEX)  -       
00029            CISZ(512)  -                                       
00030                ) -                                           
00031          CATALOG (USER.CATALOG.SG$01C)           
00032     IF LASTCC = 0 -                               
00033     THEN DO                                       
00034          REPRO INFILE  (ORIG) OUTFILE (TEMP)     
00035     END                                           
00036 /*                                               
00037 /. ENDE                                           
00038 /*                                               
00039 /&                                               
00040 * $$ EOJ                                         


It works fine and the file is listed in the catalog like following:

Code:
CLUSTER ------- DB.ONLINE.WAREN.RUECKST.REORG
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       DATA-----DB.ONLINE.WAREN.RUECKST.REORG.DATA
       INDEX----DB.ONLINE.WAREN.RUECKST.REORG.INDEX
   DATA ------- DB.ONLINE.WAREN.RUECKST.REORG.DATA
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       CLUSTER--DB.ONLINE.WAREN.RUECKST.REORG
     ATTRIBUTES
       KEYLEN----------------42     AVGLRECL-------------400     BUFSPACE------------9728     CISIZE--------------2048
       RKP--------------------0     MAXLRECL-------------400     EXCPEXIT----------(NULL)     CI/CA----------------315
       SHROPTNS(4,3)      SPEED     SUBALLOC         NOERASE     NOCOMPRESS       INDEXED     NOWRITECHK       NOIMBED
       NOREPLICAT     UNORDERED     NOREUSE       NONSPANNED
     STATISTICS
       REC-TOTAL----------19895     SPLITS-CI--------------0     EXCPS----------------145
       REC-DELETED------------0     SPLITS-CA--------------0     EXTENTS----------------1
       REC-INSERTED-----------0     FREESPACE-%CI---------25     SYSTEM-TIMESTAMP:
       REC-UPDATED------------0     FREESPACE-%CA---------25          2016.189   09:50:16
       REC-RETRIEVED----------0     FREESPACE-------10321920          X'D101738888F37809'
     ALLOCATION
       SPACE-TYPE------CYLINDER
       SPACE-PRI-------------45     USECLASS-PRI-----------0     HALRBA-OR-CI----29030400
       SPACE-SEC--------------5     USECLASS-SEC-----------0     HUSRBA-OR-CI----18708480
     VOLUME
       VOLSER------------SG2010     PHYREC-SIZE---------2048     HALRBA-OR-CI----29030400     EXTENT-NUMBER----------1
       DEVTYPE-------------3390     PHYRECS/TRK-----------21     HUSRBA-OR-CI----18708480     EXTENT-TYPE--------X'00'
       VOLFLAG------------PRIME     TRACKS/CA-------------15
       EXTENTS:
       LOW-CCHH-----X'0AF50000'     LOW-RBA-OR-CI----------0     TRACKS---------------675
       HIGH-CCHH----X'0B21000E'     HI-RBA-OR-CI----29030399
   INDEX ------ DB.ONLINE.WAREN.RUECKST.REORG.INDEX
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       CLUSTER--DB.ONLINE.WAREN.RUECKST.REORG
     ATTRIBUTES
       KEYLEN----------------42     AVGLRECL---------------0     BUFSPACE---------------0     CISIZE--------------5632
       RKP--------------------0     MAXLRECL------------5625     EXCPEXIT----------(NULL)     CI/CA------------------9
       SHROPTNS(4,3)   RECOVERY     SUBALLOC         NOERASE     NOCOMPRESS    NOWRITECHK     NOIMBED       NOREPLICAT
       UNORDERED        NOREUSE
     STATISTICS
       REC-TOTAL-------------30     SPLITS-CI--------------0     EXCPS----------------285     INDEX:
IDCAMS  SYSTEM SERVICES                                           TIME: 09:50:59        07/07/2016   PAGE  72
                             LISTING FROM CATALOG -- USER.CATALOG.SG201C
       REC-DELETED------------0     SPLITS-CA--------------0     EXTENTS----------------1     LEVELS-----------------2
       REC-INSERTED-----------0     FREESPACE-%CI----------0     SYSTEM-TIMESTAMP:            ENTRIES/SECT----------17
       REC-UPDATED------------0     FREESPACE-%CA----------0          2016.189   09:50:16     SEQ-SET-RBA------------0
       REC-RETRIEVED----------0     FREESPACE----------84480          X'D101738888F37809'     HI-LEVEL-RBA-------11264
     ALLOCATION
       SPACE-TYPE---------TRACK
       SPACE-PRI--------------5     USECLASS-PRI-----------0     HALRBA-OR-CI------253440
       SPACE-SEC--------------1     USECLASS-SEC-----------0     HUSRBA-OR-CI------168960
     VOLUME
       VOLSER------------SG2010     PHYREC-SIZE---------5632     HALRBA-OR-CI------253440     EXTENT-NUMBER----------1
       DEVTYPE-------------3390     PHYRECS/TRK------------9     HUSRBA-OR-CI------168960     EXTENT-TYPE--------X'00'
       VOLFLAG------------PRIME     TRACKS/CA--------------1
       EXTENTS:
       LOW-CCHH-----X'07A5000B'     LOW-RBA-OR-CI----------0     TRACKS-----------------5
       HIGH-CCHH----X'07A60000'     HI-RBA-OR-CI------253439



After that I have the job which should define the alternate index like it was recommended in the ibm manual:

Code:
00000 * * * Top of File * * *                                             
00001 * $$ JOB JNM=ADDAIX,CLASS=5,DISP=D                                 
00002 // JOB ADDAIX                                                       
00003 /*                                                                 
00004 *                                                                   
00005 * TRY TO ADD AIX TO KSDS FILE                                       
00006 *                                                                   
00007 /* DLBL ORIG,'DB.ONLINE.WAREN.RUECKST',,VSAM,CAT=UCT$01C           
00008 /* DLBL TEMP,'DB.ONLINE.WAREN.RUECKST.REORG',,VSAM,CAT=UCT$01C     
00009 /* DLBL TAIX,'DB.ONLINE.WAREN.RUECKST.REORG.AIX',,VSAM,CAT=UCT$01C 
00010 /*                                                                 
00011 *                                                                   
00012 * VERIFY FILE AND PURGE ALTERNATE INDEX                             
00013 *                                                                   
00014 // EXEC IDCAMS,SIZE=AUTO                                           
00015     DELETE (DB.ONLINE.WAREN.RUECKST.REORG.AIX) -                   
00016               PURGE ALTERNATEINDEX -                               
00017               CATALOG (USER.CATALOG.SG$01C)                         
00018     IF LASTCC=8 THEN SET MAXCC=0                                   
00019     DEFINE ALTERNATEINDEX ( -                                       
00020               NAME(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) -           
00021               KEYS(12 109) -                                       
00022               NONUNIQUEKEY -                                       
00023               VOL(SG$010) -                                         
00024               RECSZ(200 200) -                                     
00025               RELATE(DB.ONLINE.WAREN.RUECKST.REORG ) -             
00026               UPGRADE -                                             
00027               NOREUSE -                                         
00028               CISZ(2048) -                                     
00029               RECORDS(100 75)) -                               
00030            CATALOG (USER.CATALOG.SG$01C)                       
00031     IF MAXCC=0 THEN -                                           
00032        DEFINE PATH ( -                                         
00033                 NAME(DB.ONLINE.WAREN.RUECKST.REORG.PATH ) -     
00034                 PATHENTRY(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) -
00035                 UPDATE -                                       
00036               ) -                                               
00037               CATALOG (USER.CATALOG.SG$01C)                     
00038     IF MAXCC=0 THEN -                                           
00039        BLDINDEX -                                               
00040               INDATASET(DB.ONLINE.WAREN.RUECKST.REORG ) -       
00041               OUTDATASET(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) - 
00042               CATALOG (USER.CATALOG.SG$01C)                     
00043 /*                                                             
00044 /&                                                             
00045 * $$ EOJ                                                       


I was not sure if i need the DLBL, so I commented them out. I also made the files to NOREUSE because anywhere i was reading that its not possible to build AIX on reusable files.

But still there is Error now on building index step:

Code:
=====     DELETE (DB.ONLINE.WAREN.RUECKST.REORG.AIX) -                   
=====               PURGE ALTERNATEINDEX -                               
=====               CATALOG (USER.CATALOG.SG201C)                         
===== IDC0550I ENTRY (R) DB.ONLINE.WAREN.RUECKST.REORG.PATH DELETED       
===== IDC0550I ENTRY (G) DB.ONLINE.WAREN.RUECKST.REORG.AIX DELETED       
===== IDC0550I ENTRY (D) DB.ONLINE.WAREN.RUECKST.REORG.AIX.DATA DELETED   
===== IDC0550I ENTRY (I) DB.ONLINE.WAREN.RUECKST.REORG.AIX.INDEX DELETED 
===== IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0           
=====                                                                     
=====     IF LASTCC=8 THEN SET MAXCC=0                                   
=====                                                                     
=====     DEFINE ALTERNATEINDEX ( -                                       
=====               NAME(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) -           
=====               KEYS(12 109) -                                       
=====               NONUNIQUEKEY -                                       
=====               VOL(SG2010) -                                         
=====               RECSZ(200 200) -                                     
=====               RELATE(DB.ONLINE.WAREN.RUECKST.REORG ) -             
=====               UPGRADE -                                             
=====               NOREUSE -                                             
=====               CISZ(2048) -                                           
=====               RECORDS(100 75)) -                                     
=====            CATALOG (USER.CATALOG.SG201C)                             
===== IDC0512I NAME GENERATED-(D) DB.ONLINE.WAREN.RUECKST.REORG.AIX.DATA   
===== IDC0512I NAME GENERATED-(I) DB.ONLINE.WAREN.RUECKST.REORG.AIX.INDEX 
===== IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0           
=====                                                                     
=====     IF MAXCC=0 THEN -                                               
=====        DEFINE PATH ( -                                               
=====                 NAME(DB.ONLINE.WAREN.RUECKST.REORG.PATH ) -         
=====                 PATHENTRY(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) -     
=====                 UPDATE -                                             
=====               ) -                                                   
=====               CATALOG (USER.CATALOG.SG201C)                         
===== IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0           
=====                                                                     
=====     IF MAXCC=0 THEN -                                               
=====        BLDINDEX -                                                   
=====               INDATASET(DB.ONLINE.WAREN.RUECKST.REORG ) -           
=====               OUTDATASET(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) -       
=====               CATALOG (USER.CATALOG.SG201C)                         
===== IDC3300I  ERROR OPENING DB.ONLINE.WAREN.RUECKST.REORG               
===== IDC3351I ** VSAM OPEN RETURN CODE IS 148                             
===== IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12                   
===== IDCAMS  SYSTEM SERVICES                                           T
=====                                                                   
===== IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12


This error means:

Quote:
148(X'94') No record for the data set to be opened was found in the available catalogs, or an unidentified error occurred while VSAM was searching the catalog. For the catalog return code, see system message IDC3009I. For a description of this message, see z/OS MVS System Messages, Vol 6 (GOS-IEA).

For z/OS UNIX files, the requested file does not exist.


But I don't know what i am doing wrong. The listcat shows this after trying to create the AIX:

Code:
CLUSTER ------- DB.ONLINE.WAREN.RUECKST.REORG
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       DATA-----DB.ONLINE.WAREN.RUECKST.REORG.DATA
       INDEX----DB.ONLINE.WAREN.RUECKST.REORG.INDEX
       AIX------DB.ONLINE.WAREN.RUECKST.REORG.AIX
   DATA ------- DB.ONLINE.WAREN.RUECKST.REORG.DATA
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       CLUSTER--DB.ONLINE.WAREN.RUECKST.REORG
     ATTRIBUTES
       KEYLEN----------------42     AVGLRECL-------------400     BUFSPACE------------9728     CISIZE--------------2048
       RKP--------------------0     MAXLRECL-------------400     EXCPEXIT----------(NULL)     CI/CA----------------315
       SHROPTNS(4,3)      SPEED     SUBALLOC         NOERASE     NOCOMPRESS       INDEXED     NOWRITECHK       NOIMBED
       NOREPLICAT     UNORDERED     NOREUSE       NONSPANNED
     STATISTICS
       REC-TOTAL----------19895     SPLITS-CI--------------0     EXCPS----------------145
       REC-DELETED------------0     SPLITS-CA--------------0     EXTENTS----------------1
       REC-INSERTED-----------0     FREESPACE-%CI---------25     SYSTEM-TIMESTAMP:
       REC-UPDATED------------0     FREESPACE-%CA---------25          2016.189   09:37:27
       REC-RETRIEVED----------0     FREESPACE-------10321920          X'D10170AB2C218009'
     ALLOCATION
       SPACE-TYPE------CYLINDER
       SPACE-PRI-------------45     USECLASS-PRI-----------0     HALRBA-OR-CI----29030400
       SPACE-SEC--------------5     USECLASS-SEC-----------0     HUSRBA-OR-CI----18708480
     VOLUME
       VOLSER------------SG2010     PHYREC-SIZE---------2048     HALRBA-OR-CI----29030400     EXTENT-NUMBER----------1
       DEVTYPE-------------3390     PHYRECS/TRK-----------21     HUSRBA-OR-CI----18708480     EXTENT-TYPE--------X'00'
       VOLFLAG------------PRIME     TRACKS/CA-------------15
       EXTENTS:
       LOW-CCHH-----X'0AF50000'     LOW-RBA-OR-CI----------0     TRACKS---------------675
       HIGH-CCHH----X'0B21000E'     HI-RBA-OR-CI----29030399
   INDEX ------ DB.ONLINE.WAREN.RUECKST.REORG.INDEX
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       CLUSTER--DB.ONLINE.WAREN.RUECKST.REORG
     ATTRIBUTES
       KEYLEN----------------42     AVGLRECL---------------0     BUFSPACE---------------0     CISIZE--------------5632
       RKP--------------------0     MAXLRECL------------5625     EXCPEXIT----------(NULL)     CI/CA------------------9
       SHROPTNS(4,3)   RECOVERY     SUBALLOC         NOERASE     NOCOMPRESS    NOWRITECHK     NOIMBED       NOREPLICAT
       UNORDERED        NOREUSE
     STATISTICS
IDCAMS  SYSTEM SERVICES                                           TIME: 09:48:48        07/07/2016   PAGE  72
                             LISTING FROM CATALOG -- USER.CATALOG.SG201C
       REC-TOTAL-------------30     SPLITS-CI--------------0     EXCPS----------------285     INDEX:
       REC-DELETED------------0     SPLITS-CA--------------0     EXTENTS----------------1     LEVELS-----------------2
       REC-INSERTED-----------0     FREESPACE-%CI----------0     SYSTEM-TIMESTAMP:            ENTRIES/SECT----------17
       REC-UPDATED------------0     FREESPACE-%CA----------0          2016.189   09:37:27     SEQ-SET-RBA------------0
       REC-RETRIEVED----------0     FREESPACE----------84480          X'D10170AB2C218009'     HI-LEVEL-RBA-------11264
     ALLOCATION
       SPACE-TYPE---------TRACK
       SPACE-PRI--------------5     USECLASS-PRI-----------0     HALRBA-OR-CI------253440
       SPACE-SEC--------------1     USECLASS-SEC-----------0     HUSRBA-OR-CI------168960
     VOLUME
       VOLSER------------SG2010     PHYREC-SIZE---------5632     HALRBA-OR-CI------253440     EXTENT-NUMBER----------1
       DEVTYPE-------------3390     PHYRECS/TRK------------9     HUSRBA-OR-CI------168960     EXTENT-TYPE--------X'00'
       VOLFLAG------------PRIME     TRACKS/CA--------------1
       EXTENTS:
       LOW-CCHH-----X'07A5000B'     LOW-RBA-OR-CI----------0     TRACKS-----------------5
       HIGH-CCHH----X'07A60000'     HI-RBA-OR-CI------253439
AIX ----------- DB.ONLINE.WAREN.RUECKST.REORG.AIX
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       DATA-----DB.ONLINE.WAREN.RUECKST.REORG.AIX.DATA
       INDEX----DB.ONLINE.WAREN.RUECKST.REORG.AIX.INDEX
       CLUSTER--DB.ONLINE.WAREN.RUECKST.REORG
       PATH-----DB.ONLINE.WAREN.RUECKST.REORG.PATH
     ATTRIBUTES
       UPGRADE
   DATA ------- DB.ONLINE.WAREN.RUECKST.REORG.AIX.DATA
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       AIX------DB.ONLINE.WAREN.RUECKST.REORG.AIX
     ATTRIBUTES
       KEYLEN----------------12     AVGLRECL-------------200     BUFSPACE------------6144     CISIZE--------------2048
       RKP--------------------5     MAXLRECL-------------200     EXCPEXIT----------(NULL)     CI/CA-----------------21
       AXRKP----------------109
       SHROPTNS(1,3)   RECOVERY     SUBALLOC         NOERASE     NOCOMPRESS       INDEXED     NOWRITECHK       NOIMBED
       NOREPLICAT     UNORDERED     NOREUSE          SPANNED     NONUNIQKEY
     STATISTICS
       REC-TOTAL--------------0     SPLITS-CI--------------0     EXCPS------------------0
       REC-DELETED------------0     SPLITS-CA--------------0     EXTENTS----------------1
       REC-INSERTED-----------0     FREESPACE-%CI----------0     SYSTEM-TIMESTAMP:
       REC-UPDATED------------0     FREESPACE-%CA----------0          0000.000   00:00:00
       REC-RETRIEVED----------0     FREESPACE----------43008          X'0000000000000000'
     ALLOCATION
       SPACE-TYPE---------TRACK
       SPACE-PRI--------------1     USECLASS-PRI-----------0     HALRBA-OR-CI-------43008
       SPACE-SEC--------------1     USECLASS-SEC-----------0     HUSRBA-OR-CI-----------0
     VOLUME
       VOLSER------------SG2010     PHYREC-SIZE---------2048     HALRBA-OR-CI-------43008     EXTENT-NUMBER----------1
       DEVTYPE-------------3390     PHYRECS/TRK-----------21     HUSRBA-OR-CI-----------0     EXTENT-TYPE--------X'40'
       VOLFLAG------------PRIME     TRACKS/CA--------------1
       EXTENTS:
IDCAMS  SYSTEM SERVICES                                           TIME: 09:48:48        07/07/2016   PAGE  73
                             LISTING FROM CATALOG -- USER.CATALOG.SG201C
       LOW-CCHH-----X'0C570000'     LOW-RBA-OR-CI----------0     TRACKS-----------------1
       HIGH-CCHH----X'0C570000'     HI-RBA-OR-CI-------43007
   INDEX ------ DB.ONLINE.WAREN.RUECKST.REORG.AIX.INDEX
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       AIX------DB.ONLINE.WAREN.RUECKST.REORG.AIX
     ATTRIBUTES
       KEYLEN----------------12     AVGLRECL---------------0     BUFSPACE---------------0     CISIZE--------------2048
       RKP--------------------5     MAXLRECL------------2041     EXCPEXIT----------(NULL)     CI/CA-----------------21
       SHROPTNS(1,3)   RECOVERY     SUBALLOC         NOERASE     NOCOMPRESS    NOWRITECHK     NOIMBED       NOREPLICAT
       UNORDERED        NOREUSE
     STATISTICS
       REC-TOTAL--------------0     SPLITS-CI--------------0     EXCPS------------------0     INDEX:
       REC-DELETED------------0     SPLITS-CA--------------0     EXTENTS----------------1     LEVELS-----------------0
       REC-INSERTED-----------0     FREESPACE-%CI----------0     SYSTEM-TIMESTAMP:            ENTRIES/SECT-----------4
       REC-UPDATED------------0     FREESPACE-%CA----------0          0000.000   00:00:00     SEQ-SET-RBA------------0
       REC-RETRIEVED----------0     FREESPACE----------43008          X'0000000000000000'     HI-LEVEL-RBA-----------0
     ALLOCATION
       SPACE-TYPE---------TRACK
       SPACE-PRI--------------1     USECLASS-PRI-----------0     HALRBA-OR-CI-------43008
       SPACE-SEC--------------1     USECLASS-SEC-----------0     HUSRBA-OR-CI-----------0
     VOLUME
       VOLSER------------SG2010     PHYREC-SIZE---------2048     HALRBA-OR-CI-------43008     EXTENT-NUMBER----------1
       DEVTYPE-------------3390     PHYRECS/TRK-----------21     HUSRBA-OR-CI-----------0     EXTENT-TYPE--------X'40'
       VOLFLAG------------PRIME     TRACKS/CA--------------1
       EXTENTS:
       LOW-CCHH-----X'0C570001'     LOW-RBA-OR-CI----------0     TRACKS-----------------1
       HIGH-CCHH----X'0C570001'     HI-RBA-OR-CI-------43007
   PATH ------- DB.ONLINE.WAREN.RUECKST.REORG.PATH
     HISTORY
       OWNER-IDENT-------(NULL)     CREATION--------2016.189
       RELEASE----------------2     EXPIRATION------0000.000
     PROTECTION----------(NULL)
     ASSOCIATIONS
       AIX------DB.ONLINE.WAREN.RUECKST.REORG.AIX
       DATA-----DB.ONLINE.WAREN.RUECKST.REORG.AIX.DATA
       INDEX----DB.ONLINE.WAREN.RUECKST.REORG.AIX.INDEX
       DATA-----DB.ONLINE.WAREN.RUECKST.REORG.DATA
       INDEX----DB.ONLINE.WAREN.RUECKST.REORG.INDEX
     ATTRIBUTES
       UPDATE


I don't know what I am doing wrong... And sorry for so many texts, but I am not sure which informations are important for you.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
PostPosted: Thu Jul 07, 2016 5:27 pm
 Reply with quote
I have never "done" VSE so I do not know if this observation is relevant or not...
Code:
TAIX,'DB.ONLINE.WAREN.RUECKST.REORG.AIX',,VSAM,CAT=UCT$01C

Code:
CATALOG (USER.CATALOG.SG$01C)

You have UCT$01C in one place and SG$01C in another.
Back to top
View user's profile Send private message
Andi1982

New User


Joined: 27 Mar 2008
Posts: 42
Location: Karlsruhe / Germany
PostPosted: Thu Jul 07, 2016 5:55 pm
 Reply with quote
Hey Nic,

I also had these thoughts icon_smile.gif But I asked our system guy and he showed me that UCT$01C is just a other DLBL (DD) of this USER.CATALOG.SG$01C file.

So this should not be the problem. But thanks for your hint!
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
PostPosted: Thu Jul 07, 2016 6:44 pm
 Reply with quote
Have you tried running your DEFINE AIX, DEFINE PATH, BLDINDEX commands without a CATALOG parameter? You keep having catalog issues, and I don't use the CATALOG parameter when I am defining VSAM data sets (in fact, I don't recall needing to use the CATALOG parameter except in rare cases when I'm working on system upgrades). Granted, I'm doing so on z/OS so z/VSE may be different, but you should at least try taking the CATALOG (....) off the various statements. The system will use the default catalog if you don't specify one in the IDCAMS command.
Back to top
View user's profile Send private message
Andi1982

New User


Joined: 27 Mar 2008
Posts: 42
Location: Karlsruhe / Germany
PostPosted: Tue Oct 18, 2016 6:08 pm
 Reply with quote
Hey,

meanwhile we found the solution for our problem The buildindex failed because we did not allocate some File:

Code:

// DLBL IJSYSUC,'USER.CATALOG.SG$01C',,VSAM             


This IJSYSUC statement was missing. our build index step looks now like that and works fine:

Code:
* - - - - - - - - - - - - - - - - - - - - - - - - - - -           
* BUILD THE ALTERNATE INDEX, USING BLDINDEX                       
* - - - - - - - - - - - - - - - - - - - - - - - - - - -           
// DLBL IJSYSUC,'USER.CATALOG.SG$01C',,VSAM                       
/* DLBL TEMP,'DB.ONLINE.WAREN.RUECKST.REORG',,VSAM,CAT=UCT$01C   
/* DLBL TAIX,'DB.ONLINE.WAREN.RUECKST.REORG.AIX',,VSAM,CAT=UCT$01C
// EXEC IDCAMS,SIZE=AUTO                                         
       BLDINDEX -                                                 
              INDATASET(DB.ONLINE.WAREN.RUECKST.REORG ) -         
              OUTDATASET(DB.ONLINE.WAREN.RUECKST.REORG.AIX ) -   
              CATALOG (USER.CATALOG.SG$01C)                       
/*                                                               



other problem was the record length of the aix file. we just gave RECSZ (200 200). It was to less. the alternate key was 9 byte and the primary key has already 42 byte. With 1500 possible duplicates it was way to small. So we raised RECSZ to (4086 65615) and all alternate-keys could be build.

And the last problem was our JCL in cobol program. The File was defined like that:


Code:
// DLBL WERUECK,'DB.ONLINE.WAREN.RUECKST.REORG',,VSAM,CAT=UCT$01C     


we had to do like that to make it working:

Code:
// DLBL WERUEK,'DB.ONLINE.WAREN.RUECKST.REORG',,VSAM,CAT=UCT$01C     
// DLBL WERUEK1,'DB.ONLINE.WAREN.RUECKST.REORG.PATH',,VSAM,CAT=UCT$01C


Problem was that dd names can be max 7 chars. And we needed to DLBL the PATH file to the AIX with some '1' at the end.

Hope this will anytime help to somebody.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
PostPosted: Tue Oct 18, 2016 9:10 pm
 Reply with quote
Glad you got it sorted out. Thanks for posting your solution.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts Unable to interpret a hex value to De... COBOL Programming 4
No new posts how to eliminate null indicator value... DB2 7
No new posts Format Binary file to EBCDIC JCL & VSAM 4
No new posts Binary File format getting change whi... All Other Mainframe Topics 7
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us