Using a variable in Receive Map

Jayaprakash Janarthanan · New User Joined: 08 Oct 2007 Posts: 3 Location: India

Hi,
I have a set of 9 screens/maps in a application which can be traversed by pressing the function keys F1 to F9 resp. I can traverse from any screen to any screen. On pressing a function key I have to receive the previous screen's value and have to throw the current screen(corresponding to function key).

Qsn:
On pressing a function key say F7, I have to receive the data from the previous screen. This previous screen can be any of the 9 screens. I would like to write the recieve using a variable name which already holds the map name.

Map name: MAP1, MAP2... MAP9
Variable: WS-MAP-NAME

EXEC CICS RECEIVE
MAP (WS-MAP-NAME)
END-EXEC.

On compilation I'm facing a problem that 'UNABLE TO APPLY DEFAULT FOR KEYWORD 'INTO'.'

Can we use variables inside EXEC CICS commands? Is there a better way(other than the evaluate & if) to accomplish this logic?

Garry Carroll · Posted: Wed Jul 07, 2010 7:26 pm

Jayaprakash Janarthanan · New User Joined: 08 Oct 2007 Posts: 3 Location: India

Thanks for the reply Garry!
The actual catch is in the 'INTO' part. The SDF has created the copybooks for each map and say for MAP1, the input group variable is MAP1I and the output group variable is MAP1O.

So, depending on the map I receive the INTO clause varies from MAP1I, MAP2I ... MAP9I... I don't know how to attach the dynamic <mapname> to static <I> and put it in the INTO clause.

I thought the system would assume the INTO part according to the map name. Any idea on how to achieve the <mapname>I part?

Any help would be much appreciated. Thanks!

dbzTHEdinosauer · Posted: Wed Jul 07, 2010 8:12 pm

how many modules are involved in this application?

is there a one-to-one map to module
or
does only one module do all the sending and receiving?

Jayaprakash Janarthanan · New User Joined: 08 Oct 2007 Posts: 3 Location: India

Hi,
It's just a single program/module in the application.
The idea that I have in mind is to put this entire receive statement in a IF or EVALUATE and use them according to the maps I would like to receive. But for a list of 9 screens, that would reduce the readability and I wish to have a more effective method, something like dynamically populating the clauses MAP, MAPSET & INTO.

Map names: MAP1, MAP2... MAP9
Mapsets : MAP1, MAP2... MAP9
BMS cpy : MAP1I, MAP2I.... MAP9I

Bill O'Boyle · Posted: Wed Jul 07, 2010 11:11 pm

Nine screens

You should have nine different programs.

Otherwise, you could very well be creating a maintenance monster.

Bill

dbzTHEdinosauer · Posted: Wed Jul 07, 2010 11:19 pm

other than the rather important comment that bill provided,
something to think about.

the module is rather large, impacts performance and cics memory

you apparently already have all the necessary code to populate/depopulate the 9 different screens - the -mapo's and -mapi's.

if they all were to redefine the same area, you would only need one send and one receive in the program.

the MAPNAME and the MAPSET are what are important- these values are used by CICS to access 'data' in cics tables/areas (maps)
SEND merges the data at the address provided by mapo with the MAP and then ships the whole stream to the terminal.
the receive uses the MAP to interpret the instream data to populate the address of the mapo.

dbzTHEdinosauer · Posted: Wed Jul 07, 2010 11:59 pm

when you get feed-up with this maintenance nightmare,
you will find that splitting up the modules will be easy.

CONTROL pgm (also known as a distributor) knows the map name.
does a receive into an area, passes the area to that MAPs module via LINK,
module does its thing, returns to distributor.

distributor decides what next to do, LINK to module for that MAP,
module does its thing, passes back the populated MAPO,
distributor does a SEND,
saves what it needs to save to know where it is,was, did, must do next, etc..
and returns to cics.

selvaganesan · New User Joined: 21 Oct 2005 Posts: 5 Location: USA

Hi
In the above application program,suppose user enters data in screen1 and navigates to Screen2 and if user returns to screen1 than we need to display screen1 data again for editing.

Is there way to retain the data between navigation(Using CICS commands)?

Robert Sample · Posted: Thu Jul 15, 2010 9:13 am

Earl Haigh · Active User Joined: 25 Jul 2006 Posts: 475

Robert Sample · Posted: Sat Jul 17, 2010 6:09 pm

Earl, it's the Java / C / .Net culture. The sad thing to me is that the o/p used the correct terminology in the same sentence (receiving the map) yet could not use "send" the map or "display" the map.