Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
cobol jcl (ALTERNATE INDEX)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL
Author Message
annanagarlt

New User


Joined: 31 Oct 2003
Posts: 5

PostPosted: Fri Oct 31, 2003 8:01 pm    Post subject: cobol jcl (ALTERNATE INDEX)
Reply with quote

DEAR ALL

I WOULD LIKE TO KNOW HOW ALTERNATE INDEX WORKS. I WOULD BE HAPPY IF SOMEONE CAN GIVE ME A OPEN SOURCE FOR THE SAME.

HURRY
Back to top
View user's profile Send private message
References
PostPosted: Fri Oct 31, 2003 8:01 pm    Post subject: Re: cobol jcl (ALTERNATE INDEX) Reply with quote

francis suman

New User


Joined: 23 May 2003
Posts: 11
Location: Chennai, India

PostPosted: Thu Nov 06, 2003 9:39 am    Post subject: ALTERNATE INDEX
Reply with quote

Hi ANNANAGARLT,

Apart from access through primary key,VSAM provides use of upto 255 alternate keys per dataset.

With in the KSDS (or) ESDS retriving a data other than the unique key,with in alternate index key duplicate data are allowed.

creation of alternate index using the IDCAMS utility there will be three steps

1.DEFINE AIX --> is used to create an alternate index for the field.
2.DEFINE PATH --> it is used to create a path between your main index and AIX.
3.BUILD INDEX -->Once an AIX has defined, records can be loaded into it using the BLDINDEX command.


EXAMPLE.
/* IDCAMS COMMAND */
DEFINE ALTERNATEINDEX (NAME(SUMAN.KANNAN.AIXVSAM) -
RELATE(SUMAN.KANNAN.VSAM) -
TRACKS(2 2) -
VOLUMES(LMR001 -
) -
CONTROLINTERVALSIZE(4096) -
FREESPACE(10 20) -
RECORDSIZE(20 80) -
KEYS(20 5) -
NONUNIQUEKEY -
UPGRADE -
) -
DATA (NAME(SUMAN.KANNAN.AIXVSAM.DATA) -
) -
INDEX (NAME(SUMAN.KANNAN.AIXVSAM.INDEX) -
)


/* IDCAMS COMMAND */
DEFINE PATH (NAME(SUMAN.KANNAN.PATH) -
PATHENTRY(SUMAN.KANNAN.AIXVSAM) -
UPDATE -
OWNER(LTR040) -
)

/*IDCAMS COMMAND*/
//SYSIN DD *
BLDINDEX INFILE(SUMAN.KANNAN.VSAM)-
OUTFILE(SUMAN.KANNAN.AIXVSAM)

/*
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL All times are GMT + 6 Hours
Page 1 of 1