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
 

 

How to allocate and build alternate index and path for VSAM

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
kcube

New User


Joined: 09 May 2007
Posts: 1
Location: Banagalore

PostPosted: Wed May 09, 2007 4:51 pm    Post subject: How to allocate and build alternate index and path for VSAM
Reply with quote

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

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Wed May 09, 2007 5:00 pm    Post subject:
Reply with quote

What have you found out from the messages and code supplied by the failing job ?

What is your AIX definition, post the DEFINE statements
Back to top
View user's profile Send private message
rz061m

New User


Joined: 03 Mar 2006
Posts: 48
Location: Chennai

PostPosted: Thu May 10, 2007 2:48 pm    Post subject:
Reply with quote

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
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fail to change physical VSAM filename... jacobdng CICS 6 Fri Jan 20, 2017 12:36 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
No new posts Underlying DB2 VSAM LDS - SMF recording vasanthz All Other Mainframe Topics 6 Thu Jan 05, 2017 4:20 am
No new posts Order BY AND Index Nileshkul DB2 2 Sat Dec 31, 2016 6:33 pm
No new posts BWO option in VSAM blayek CICS 3 Sat Nov 05, 2016 10:47 am


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