MVSFORUMS.com

[dsonsamuel]

Hi all,
I am throwing error messages in the screen using
EXEC CICS SEND
FROM (WS-ERRORS-TO-SEND)
LENGTH (LENGTH OF WS-ERRORS-TO-SEND)
ERASE
END-EXEC
where WS-ERRORS-TO-SEND is the variable with error messages. No mapsets are used and it will trow the message in the first line. This is coming as unprotected. Is it possible to set the attribute as "Protected" in this case? Please send me the syntax ...

Thanks for ur help in advance.

Regards,
Davidson.

[Mike Chantrey]

I would think all you need to do is define a 1-byte attribute field at the beginning of your WS-ERRORS-TO-SEND field and move the relevant attribute byte (see CICS supplied copy code DFHBMSCA) to this field before the send.