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
 

 

Stop processing after throwing message on the screen ?

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

New User


Joined: 11 Aug 2005
Posts: 85
Location: England

PostPosted: Wed Apr 01, 2009 8:14 pm    Post subject: Stop processing after throwing message on the screen ?
Reply with quote

Hi All,

I'm modifying code to throw message on the screen and stop processing.

Requirement is that all the existing fields populated on the screen prior to sending the message should be there but should become protected after message is thrown on the screen.

Processing should stop completely. None of the function keys should be accepted except CLEAR command.

I used below command to send message on screen:

EXEC CICS SEND
FROM (WS-MESSAGE)
LENGTH (WS-LENGTH)
END-EXEC.

Please advise.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8055
Location: East Dubuque, Illinois, USA

PostPosted: Wed Apr 01, 2009 8:47 pm    Post subject:
Reply with quote

You'll have to protect every field on the screen manually -- one field at a time. Check the manual (link at the top of the page) for the HANDLE AID CICS command.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Wed Apr 01, 2009 8:59 pm    Post subject:
Reply with quote

I would do something like that (assuming pseudo-conversational):

Your map should have a message field.
Protect every field on the map,
move message to message field,
SEND the MAP.
Set a flag in your COMMAREA,
then RETURN TRANSID with COMMAREA.

When (re-)entering the program, check the flag.
If it is on, clear the screen and terminate.

(sorry, I stopped programming many years ago, I may have missed a RECEIVE somewhere... icon_confused.gif )
Back to top
View user's profile Send private message
leo_sangha

New User


Joined: 11 Aug 2005
Posts: 85
Location: England

PostPosted: Wed Apr 01, 2009 9:10 pm    Post subject: Reply to: Stop processing after throwing message on the scre
Reply with quote

thanks Robert.

I used RETURN command after throwing the message on the screen. And the control goes back to calling module.

How do i stop processing. What is the equivalent in CICS to stop processing, None of the function keys or ENTER key should be accepted.

Basically the user should not be able to do anything after the message is thrown on the screen.

Please advise.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8055
Location: East Dubuque, Illinois, USA

PostPosted: Wed Apr 01, 2009 9:27 pm    Post subject:
Reply with quote

The program will need to return to itself to keep the function keys from working; after you do the clear then return to the calling module.
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 File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am
No new posts Asynchronous CICS Processing Question moezbud CICS 1 Mon Mar 06, 2017 6:13 pm
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm
No new posts IMS DC screen Access sivasaras IMS DB/DC 3 Fri Nov 18, 2016 6:38 pm
No new posts Run stats processing on zIIP Engine Virendra Shambharkar DB2 9 Fri Oct 14, 2016 10:24 am


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