joshua1983 New User Joined: 25 May 2006 Posts: 7 Location: Mumbai, India
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
As mentioned by you, whenever u r pressing PF10, it should display the next record.
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.
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
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.
All times are GMT + 6 Hours