Stop processing after throwing message on the screen ?

leo_sangha · New User Joined: 11 Aug 2005 Posts: 85 Location: England

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.

Robert Sample · Posted: Wed Apr 01, 2009 8:47 pm

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.

Marso · Posted: Wed Apr 01, 2009 8:59 pm

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...

)

leo_sangha · New User Joined: 11 Aug 2005 Posts: 85 Location: England

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.

Robert Sample · Posted: Wed Apr 01, 2009 9:27 pm

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.