IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How do you make your program pseudo-conversational?


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vbhat

New User


Joined: 29 Apr 2005
Posts: 38

PostPosted: Thu May 05, 2005 9:54 am
Reply with quote

How do you make your program pseudo-conversational?

by using return command we can achive this?

can you please give me the answer for the same

thanks
vbhat
Back to top
View user's profile Send private message
vasanthanc

New User


Joined: 01 Apr 2005
Posts: 58

PostPosted: Thu May 05, 2005 12:11 pm
Reply with quote

CICS itself is pseudo conversational. CICS doesnt keep your program under execution all the time. It starts executing your program once you press any of the alert keys(enter / esc / function keys)

You also should write your program with the reactions for each alert key. For example, initially you will display input map and execution will stop. On Enter key you may validate the data entered and save if ok. On escape / PF3 exit. On some function key call some other program etc...
But evertime, on each alert key your program will do some thing and will come out of execution.

Because of this reason, you are not able to retain any values in variables in your program in CICS.

kindly let me know if anything wrong
Back to top
View user's profile Send private message
ankyhunk

Moderator


Joined: 05 May 2005
Posts: 98
Location: Navi Mumbai, India

PostPosted: Mon May 09, 2005 3:47 pm
Reply with quote

Quote:
You are not able to retain any values in variables in your program in CICS.


For a program to be pseudo-conversational it should also support re-entrancy. This means the control should return to the program again as stated above. While it is true that data cannot be sustained in working storage section in such programs but u can transfer data through DFHCOMMAREA (Linkage Section) and Temporary Storage Queues.
Back to top
View user's profile Send private message
Deepa.m

New User


Joined: 28 Apr 2005
Posts: 99

PostPosted: Thu May 19, 2005 5:32 pm
Reply with quote

By giving the tranid in the Return statement you can make it pseudoconversional thus making the control to enter the same program by specifying the tranid corresponding to that program.

EXEC CICS

RETURN
TRANSID('TN23')
COMMAREA(COMMAREA)
END-EXEC.
you should pass the commarea data too.
Back to top
View user's profile Send private message
jctgf
Currently Banned

Active User


Joined: 04 Nov 2006
Posts: 109

PostPosted: Thu Dec 21, 2006 4:30 am
Reply with quote

could some one pls provide a code example of a pseudo conversational program?

in a conversational program, after the send command i would place a receive command.

in a pseudo conversational one, which command would come after the send command?

thanks
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Dec 21, 2006 4:45 am
Reply with quote

jctgf wrote:
in a conversational program, after the send command i would place a receive command.
in a pseudo conversational one, which command would come after the send command?

In a pseudo conversational program, after the send command, you would save any information you might need and return to CICS with either a next trans id pointed to you or the upper left-hand corner of the map you sent, your tranid (with the MDT on).
You can save info by specifying a commarea in the return, putting in a tctua or stashing it in a TS queue.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Thu Dec 21, 2006 3:37 pm
Reply with quote

Hi !

After SEND-MAP, as Will told, save needed information in COMMAREA and
then RETURN to yourself. Then after the user filles out map and pressed ENTER, control comes back to your programm. So then you could issue
RECEIVE-MAP.

EXEC CICS RETURN
TRANSID('TranId')
COMMAREA(COMMAREA)
END-EXEC.

The correct difference between pseudo an non-pseudo conversational i pointed out on question befor in this CICS-Forum.

Regards, UmeySan
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts trying to make sense of keylists TSO/ISPF 11
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
Search our Forums:

Back to Top