Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
CICS RECEIVE doesnot receive values into input fields

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
jagadeesanm87

New User


Joined: 20 Jan 2011
Posts: 14
Location: Mumbai, India

PostPosted: Thu Jan 20, 2011 11:23 am    Post subject: CICS RECEIVE doesnot receive values into input fields
Reply with quote

I have used cics send map to display the output values in the screen using these commands

  03  NAME1I  PIC X(40).              

  03  CCONTAL    COMP  PIC  S9(4).    

  03  CCONTAF    PICTURE X.           

  03  FILLER REDEFINES CCONTAF.       

    04 CCONTAA    PICTURE X.          

  03  CCONTAI  PIC X(2).              

  03  CRASGTL    COMP  PIC  S9(4).    

03  FILLER PICTURE X(3).   

  03  CCONTAO  PIC X(2).     




EXEC CICS   SEND               

              MAP ('RM9P145')    

              ERASE              

              CURSOR             

              END-EXEC. 

and when I receive it, I find the values spaced out and it is not happening with all the cases.

     EXEC CICS   RECEIVE          

                 MAP('RM9P145')   

                 END-EXEC. 

When I keep pressing enter hurrying from every cics screen the values of this screen (RP9P145) gets spaced out when it reaches here gets spaced out.When I receive I find junk values some times in the input fields in CCONTAI.

When I do press enter with some breaks i get the values properly in CICS RECEIVE.

Now, why does CICS RECEIVE doesnot work fine when I hurry up pressing enter continuously without breaks?

Please give shed some light on this problem

Thank you icon_smile.gif
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6970
Location: porcelain throne

PostPosted: Thu Jan 20, 2011 12:57 pm    Post subject:
Reply with quote

just pressing enter without changing anything on the screen
(spacing or typing a character into a field)
means that there is no data returned.

do you check the resp code after the receive?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8201
Location: Dubuque, Iowa, USA

PostPosted: Thu Jan 20, 2011 5:52 pm    Post subject:
Reply with quote

It sounds like you need to work on your map definition -- research the MDT (Modified Data Tag) and its implications.
Back to top
View user's profile Send private message
jagadeesanm87

New User


Joined: 20 Jan 2011
Posts: 14
Location: Mumbai, India

PostPosted: Thu Jan 20, 2011 6:02 pm    Post subject:
Reply with quote

I have defined the map with FSET so I believe MDT will always be set.

CCONTA DFHMDF POS=(06,40),LENGTH=02,ATTRB=(FSET,NUM),
INITIAL='__'

please forgive if I'm wrong
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8201
Location: Dubuque, Iowa, USA

PostPosted: Thu Jan 20, 2011 6:54 pm    Post subject:
Reply with quote

Question 1: do you move LOW-VALUES to the output map before sending the first time?

Question 2: do you use FSET on every field in the map? FSET is a field value, so if you don't have it on a field and the field contents are not changed then that field's data is not returned.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

PostPosted: Thu Jan 20, 2011 7:25 pm    Post subject: Reply to: CICS RECEIVE doesnot receive values into input fie
Reply with quote

Define FSET to a map field ATTRB which doesn't have a label, such as static map heading or literal. The smaller the map field, the better.

So, your ATTRB will probably be something like (ASKIP,NORM,FSET) or (ASKIP,BRT,FSET).

Usually this will prevent a MAPFAIL, but, your program needs to be coded to handle a MAPFAIL, regardless.

Bill
Back to top
View user's profile Send private message
jagadeesanm87

New User


Joined: 20 Jan 2011
Posts: 14
Location: Mumbai, India

PostPosted: Thu Jan 20, 2011 11:10 pm    Post subject:
Reply with quote

Hi Robert, Bill,

Thanks for your replies,

I have populated commarea fields to the output map fields which are editable and used FSET attribute for the same.

Most of the fields are modifiable with attribute either (FSET) or (FSET,NUM)

When the user keeps pressing Enter will CICS RECIEVE fail after many CICS RECIEVE commands in previous programs

Say for ex, If an user hurry up pressing enter 10 times, Is it sure that all the 10 times the maps will recieve without fail? where in all the maps uses MAP SEND and have fields with attributes FSET.

Thank you icon_smile.gif
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Jan 21, 2011 3:53 am    Post subject:
Reply with quote

there is no INTO or SET, so READ the send and receive MAP commands in the manual.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SORT BUT RETAIN HIGHEST VALUE ON NON-... leondan22 DFSORT/ICETOOL 2 Thu Dec 14, 2017 8:13 pm
No new posts Merging 2 records at multiple rows wi... Bijesh DFSORT/ICETOOL 2 Wed Dec 06, 2017 1:50 am
No new posts Is CICS BMS logic on z/OS different ... Andi1982 CICS 2 Fri Dec 01, 2017 1:56 pm
No new posts How to get complete URL from CICS Con... mbattu CICS 1 Tue Nov 14, 2017 11:59 pm
No new posts JOINKEYS Paired and Unpaired Sort on ... MFwhiz DFSORT/ICETOOL 7 Tue Nov 07, 2017 2:46 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us