logic for using pf7& pf8 keys&occur clause in CICS m

elango · New User Joined: 27 Apr 2005 Posts: 12 Location: chennai

Dear squid_rocks,

Thanks for Ur replay.iam explaing my task clearly.

For example a db2 table consists of employee information?s about 100 records. I want to search the information in this way...

I will give a particular employee number and press pf8 key. Then it should display five records after that record, for example if i enter employee id 51 means it should display all the information in the map from employee id's 51 to 55.Like that if i press pf7 means it should traverse back and display records from 47 to 51 and so on.
For that I want do design a CICS macro in a way that it should hold five rows of information at a time. Here is my another problem that how can we use occur clause in designing maps? I don?t know the above logics.
I need some sample coding for this search logic and also coding for declaration of a CICS map with occurs clause.
Plz help me

Regards
Elango
[email protected]

priya · Posted: Thu Apr 28, 2005 7:50 am

You can use a COBOL program to do this.

Use HANDLE AID Command to fetch the function key. Read 5 records from the current record position. Send the records to screen.