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
 
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: 8165
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: 1243
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: 8165
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
This topic is locked: you cannot edit posts or make replies. 00D3003B - time outs in DB2 when invo... chavinash2004 DB2 2 Mon Oct 09, 2017 4:39 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts Default Message in Rexx cvnlynn CLIST & REXX 9 Wed Aug 02, 2017 12:38 am
No new posts REXX WTO for console message bipinpeter CLIST & REXX 6 Tue Jun 27, 2017 3:56 pm
No new posts processing a XML file in PL/1 grvtomar PL/I & Assembler 2 Fri Jun 09, 2017 1:07 pm

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