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
 
Accessing Alternate index

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL
Author Message
Rameshs

New User


Joined: 15 Jun 2005
Posts: 49
Location: India, Chennai

PostPosted: Wed Jul 27, 2005 6:06 pm    Post subject: Accessing Alternate index
Reply with quote

Hai friends,

I am having the following index-file

Field key type Type Length
=======================================
Video-Code Primary 9 5
Video-Title --- X 30
Supplier-Code Alt with Duplicates 9


The supplier codes are not in contigous, ihave to list video-codes by supplier wise

i have to access by alternate index key. it should access as
supplier codes - 01, 01, 01, 02, 02, 03,04, 04, 04


what i did !
========

move zero to supplier-code
start f1 key is greater than supplier-code invalid key imp-stmt.
--
perform read-para until eof='t'
--
--
read-para
read next record at end move 't' to eof .


but i am not getting result properly.
Back to top
View user's profile Send private message
References
Rameshs

New User


Joined: 15 Jun 2005
Posts: 49
Location: India, Chennai

PostPosted: Tue Aug 02, 2005 11:41 am    Post subject: Got it right Now.
Reply with quote

what i did was correct

Now i got my result ! icon_biggrin.gif
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL All times are GMT + 6 Hours
Page 1 of 1