Invoking CZASEND from a REXX EXEC
The following REXX EXEC shows an instance of how to execute CZASEND from REXX. It is intended to be used as a TSO command under ISPF, for an instance from ISPF Option 6. The message to be sent should be passed as a parameter. You might need to set amihlq to the high level qualifier chosen during installation, and you might have to make other edits to suit your requirements and your environment.
/* Rexx EXEC to test and demonstrate CZASEND */
/* You will need to edit <amihlq> before using */
Parse Arg Msg
"ALLOC FI(CZAPARMS) DA('<amihlq>.CZAGENT.CNTL(CZAPARMS)') SHR REUSE"
Call RCcheck "CZAPARMS"
"ALLOC FI(CZAPRINT) DA(*)"
Call RCcheck "CZAPRINT"
"ISPEXEC LIBDEF ISPLLIB DATASET ID('<amihlq>.CZAGENT.LOAD')"
Call RCcheck "ISPLLIB"
ADDRESS LINKMVS "CZASEND Msg"
RetCode = RC
"ISPEXEC LIBDEF ISPLLIB"
Exit RetCode
RCcheck:
If RC = 0 Then Return
Say "Error" RC "allocating" Arg(1)
Exit 16
/* You will need to edit <amihlq> before using */
Parse Arg Msg
"ALLOC FI(CZAPARMS) DA('<amihlq>.CZAGENT.CNTL(CZAPARMS)') SHR REUSE"
Call RCcheck "CZAPARMS"
"ALLOC FI(CZAPRINT) DA(*)"
Call RCcheck "CZAPRINT"
"ISPEXEC LIBDEF ISPLLIB DATASET ID('<amihlq>.CZAGENT.LOAD')"
Call RCcheck "ISPLLIB"
ADDRESS LINKMVS "CZASEND Msg"
RetCode = RC
"ISPEXEC LIBDEF ISPLLIB"
Exit RetCode
RCcheck:
If RC = 0 Then Return
Say "Error" RC "allocating" Arg(1)
Exit 16
Related topics
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*