kcube
New User
Joined: 09 May 2007 Posts: 1 Location: Banagalore
|
|
|
|
Actually, we need to create the path on one VSAM file. To create the path we need alternate index allocate and build.
I am trying to create/build the alternate index on the file give below:
Base file: TTZU.A1.PNCW.VPAF.DIST.FILE
Alternate Index: TTZU.A1.PNCW.VPAF.DIST.FILE.AIX1
Model file: TTKA.A.PNCW.VPAF.DIST.FILE
Model Index : TTKA.A.PNCW.VPAF.DIST.FILE.AIX1
It is showing the following error.
IDCAMS SYSTEM SERVICES TIME: 10:19:3
7 05/09/07 PAGE 1
MARGINS(1 2000)
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0
BLDINDEX INDATASET(TTZU.A1.PNCW.VPAF.DIST.FILE) OUTDATASET(TTZU.A1.PNCW.VPAF.D
IST.FILE.AIX1)
IDC1646I 102 EXCESS PRIME KEY VALUES FOR AIX KEY 40404040
IDC1653I TTZU.A1.PNCW.VPAF.DIST.FILE.AIX1 BUILT WITH ERRORS
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 4
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 4
Any help will be highly appreciated. |
|
rz061m
New User
Joined: 03 Mar 2006 Posts: 48 Location: Chennai
|
|
|
|
Hi,
this is the jcl i use in my site..........please change the file names and try this
//SY6344R JOB OHOT,XXXX,MSGLEVEL=(1,1),
//* TYPRUN=SCAN,
// MSGCLASS=X,
// NOTIFY=&SYSUID,
// CLASS=X,RESTART=SZDEFIN
//SZCUIND EXEC PGM=IDCAMS,REGION=5M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CL (NAME(SY63.WR3146.SZCUIND.D140706) -
KEYS(21 0) -
SHR(2 3) -
UNIQUE -
VOLUMES(* * *) -
CYL(700 700) -
BUFSP(100000) -
RECSZ(70 70)) -
DATA (NAME(SY63.WR3146.SZCUIND.D140706.DATA) -
CISZ(4096)) -
IX (NAME(SY63.WR3146.SZCUIND.D140706.INDEX) -
CISZ(2048))
/*
//*
//SZCOPY EXEC PGM=SUDSCOPY,REGION=5M
//IN1 DD DSN=SY63.SZ04DT5.SZCUIND.D140706,
// DISP=SHR,UNIT=SILO,
// VOL=SER=601783
//OUT1 DD DSN=SY63.WR3146.SZCUIND.D140706,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
-BEGIN
INDD=IN1
COPYDD=OUT1
-END
//*
//SZDEFIN EXEC PGM=IDCAMS,REGION=5M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE AIX (NAME(SY63.WR3146.SZCUIND.D140706.ALT) -
KEYS(5 15) -
REL (SY63.WR3146.SZCUIND.D140706) -
NONUNIQUEKEY -
UPG -
REUSE -
VOLUMES(* * * *) -
CYL(100 100) -
BUFSP(100000) -
RECSZ(31 220)) -
DATA (NAME(SY63.WR3146.SZCUIND.D140706.ALT.DATA) -
CISZ(4096)) -
IX (NAME(SY63.WR3146.SZCUIND.D140706.ALT.INDEX) -
CISZ(2048))
DEFINE PATH (NAME('SY63.WR3146.SZCUIND.D140706.ALT.PATH') -
PENT('SY63.WR3146.SZCUIND.D140706.ALT'))
/*
//SZBLDIN EXEC PGM=IDCAMS,REGION=5M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
BIX IDS('SY63.WR3146.SZCUIND.D140706') -
ODS('SY63.WR3146.SZCUIND.D140706.ALT')
//
thanks,
Karthik. P |
|