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
 
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: 8154
Location: East Dubuque, Illinois, USA

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: 8154
Location: East Dubuque, Illinois, USA

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 FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts Moving values to a variable of copybo... Vignesh Sid COBOL Programming 6 Wed Sep 06, 2017 1:04 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm

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