Author: Andi1982
Subject: Several errors during building alternate index for KSDS file
Posted: Wed Jul 06, 2016 7:39 pm (GMT 5.5)
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:
The Error now occurs on the BLDINDEX step:
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
_________________
Working on a IBM Z9BC
z/VSE 4.1.0
CICS/VSE 2.3.0
z/VM 5.3
Subject: Several errors during building alternate index for KSDS file
Posted: Wed Jul 06, 2016 7:39 pm (GMT 5.5)
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
_________________
Working on a IBM Z9BC
z/VSE 4.1.0
CICS/VSE 2.3.0
z/VM 5.3