how can we "browse" from a file

joshua1983 · Posted: Fri May 26, 2006 5:41 pm

hi all,

we are actually facing a problem in browsing.....
we had written a program in "CA Realia" .
This program is suppose to retrive the records from a indexed file and display on the cics screen one by one by pressing PF10 key.

we have used STARTBR,READNEXT,ENDBR as given in the books but still we are not getting the solution.........

plz guide us......
thanks in advance...

sankargn · New User Joined: 27 May 2006 Posts: 5

Joshua,

As mentioned by you, whenever u r pressing PF10, it should display the next record.

Try this,

1. Issue a STARTBR command, at the starting of the program.
2. With the use of HANDLE-AID receive the PF10 Key, and while processing PF10 key, issue READ-NEXT command.
The command should be like this.

EXEC CICS HANDLE AID PF10 (Issue-Readnext) END-EXEC.

Issue-Readnext PARA:

EXEC CICS READNEXT (xxxxx) END-EXEC.

EXEC CICS SEND MAP(xxxx) END-EXEC.

3. Display the map.

4. Af the end-of the processing Issue ENDBR command.

Hope this wil suffice the requirement. If you face any problems, let me know.

karthick sivakumar · New User Joined: 16 Mar 2006 Posts: 16 Location: india

Hi,

if u are using alternate indices then you might have to handle dup key condition. if not try incrementing the key value at the end of every read and use it in a loop until end of file is reached.

u can also use TSQs to save the data in the first place and display them one by one using item number

if some other method works let me know of that one too.

regards,
karthick