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 SQL - select data available in index Nileshkul DB2 3 Mon Jun 26, 2017 1:30 am
No new posts VSAM Space Allocation mrgnndhmk JCL & VSAM 7 Sat Apr 22, 2017 12:42 am
No new posts Updating a VSAM file with DISP=OLD sheersh JCL & VSAM 8 Tue Mar 14, 2017 6:14 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts VSAM RLS=NRI while doing IDCAMS sheersh JCL & VSAM 1 Tue Mar 07, 2017 1:55 pm


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