Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

how to retain the values in cics ?

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

New User


Joined: 16 Sep 2008
Posts: 4
Location: chennai

PostPosted: Thu Oct 09, 2008 12:47 pm    Post subject: how to retain the values in cics ?
Reply with quote

i have a map sfm0030 and a pgm sfofrc30 associated with it.the transaction id is sf51.

when i give sf51 it is displaying the map;[ the map actually gets 3 values from the user jobname,date,file name]

when the map is displayed, i enter the values and press enter ;the validation is done for the entered values.if successfull it goes to next map else displays the message.

PROBLEM: if i give any value wrongly ;the error msg is displayed in the map; but when i correct the value and press enter again it shows an error message[becoz the other two values are now having low-values;it is not reatining the values]


ex: jobname : aa3000n1
filaname : atest.sample.file
date : 08220008

i have given the date wrong ;so it tells invalid date and displays the map

jobname : aa3000n1
filaname : atest.sample.file
date :
invalid date


so i enter the date again and press enter
jobname : aa3000n1
filaname : atest.sample.file
date : 08222008


no it tells invalid jobname becoz jobname now has low-values? how to retain the old values


NOTE: i even tried

return transid(sf51)
commarea(ws-commarea)
length(60)

it is not working.

since this is the first map i couldn't use linkage section also
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7993
Location: Bellevue, IA

PostPosted: Thu Oct 09, 2008 4:42 pm    Post subject:
Reply with quote

You can store the values in the commarea and use flags in the commarea to denote which value(s) need to be updated. Or you could set the MDT on all 3 fields so they come back into the map when you receive it again.
Back to top
View user's profile Send private message
rukkunudeen

New User


Joined: 16 Sep 2008
Posts: 4
Location: chennai

PostPosted: Thu Oct 09, 2008 5:58 pm    Post subject:
Reply with quote

Robert Sample wrote:
You can store the values in the commarea and use flags in the commarea to denote which value(s) need to be updated. Or you could set the MDT on all 3 fields so they come back into the map when you receive it again.



just a doubt robert wat do u mean by commarea?
will MDT work?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7993
Location: Bellevue, IA

PostPosted: Thu Oct 09, 2008 6:34 pm    Post subject:
Reply with quote

Set MDT on all 3 fields before sending the map; you'll get back all 3 fields each time. That's the easiest solution. Or you could do something like:
Code:
      MOVE MAP-JOB-NAME TO COMMAREA-JOB-NAME
      MOVE MAP-DATE TO COMMAREA-DATE
      MOVE MAP-FILE-NAME TO COMMAREA-FILE-NAME
set COMMAREA-JOB-NAME-FLAG, COMMAREA-DATE-FLAG, COMMAREA-FILE-NAME-FLAG to appropriate value (E for error, space for ok?)
      EXEC CICS RETURN TRANSID(SF51) COMMAREA(WS-COMMAREA)       END-EXEC
.
when your program starts back up you can retrieve the map and update the appropriate value that was in error.

This is all basic CICS stuff -- unless you're just learning CICS you should have done several of these already.
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 Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm
No new posts To display values of multiple rows in... vinu78 DB2 2 Thu Mar 09, 2017 1:20 pm
No new posts Asynchronous CICS Processing Question moezbud CICS 0 Mon Mar 06, 2017 6:13 pm
No new posts CICS Question RE: Browse, Readnext an... moezbud CICS 7 Sun Mar 05, 2017 5:45 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us