Using CIOPCMSG to send messages from CICS - ironstream_for_micro_focus_omi - 7.2

The CIOPCMSG interface is a separate reentrant load module which can be called from CICS transactions. The first four bytes sent to CIOPCMSG will hold the return code. The remaining parameters are the same as those for OVOPCMSG. Each parameter must be terminated with a NULL (x'00') character. The CICS command to call CIPOCMSG is:

EXEC CICS LINK PROGRAM('CIOPCMSG') COMMAREA(opcmsg) LENGTH(opclen)

where opcmsg is the common area storage that hold the return code and input parameters, and opclen is the size of the common area storage.

The CIOPCMSG load module must be copied from the Ironstream LOAD library into a DFHRPL library (as specified in the CICS startup JCL).

The Ironstream IBM Z agent's SAMP dataset contains a sample CIOPCMSA for calling CIOPCMSG from an assembler transaction program.

To load the sample and call the CIOPCMSG, issue the following commands from CICS:

1. Use the DFHEITAL procedure to assemble the sample CIOPCMSA into a DFHRPL load library.

2. Define the CIOPCMSG and the calling transaction program

CEDA DEF PROG(CIOPCMSG) GROUP(groupname) LANGUAGE(LE370) 

CEDA DEF PROG(CIOPCMSA) GROUP(groupname) LANGUAGE(ASSEMBLER)

3. Define the transaction which will call the sample:

CEDA DEF TRANS(EOPC) PROG(CIOPCMSA) GROUP(groupname)

4. Install the programs and transactions:

CEDA I PROG(CIOPCMSG) GROUP(groupname) 

CEDA I PROG(CIOPSMSA) GROUP(groupname) 

CEDA I TRANS(EOPC) GROUP(groupname)

5. Load the new copies of the programs:

CEMT S PROG(CIOPCMSG) NEW 

CEMT S PROG(CIOPCMSA) NEW

Call the new transaction with the EOPC command from a CICS session. (The four-character transaction name and the groupname can be customized to the site requirements.)

Any error messages generated by the CIOPCMSG will be written to the CEEOUT DD defined in the CICS startup JCL and returned to the calling program in the four-byte return code at the head of the common area that was passed to CIOPCMSG. The possible return code values (in decimal) are: