Home

 

RPG invocation (OPM)

 

     C*..1....:....2....:....3....:....4....:....5....:....6....:....7..
     C                     CALL 'exitname'
     C* Channel exit parameter block
     C                     PARM           MQCXP
     C* Channel definition
     C                     PARM           MQCD
     C* Length of data
     C                     PARM           DATLEN  90
     C* Length of agent buffer
     C                     PARM           ABUFL   90
     C* Agent buffer
     C                     PARM           ABUF    n
     C* Length of exit buffer
     C                     PARM           EBUFL   90
     C* Address of exit buffer
     C                     PARM           EBUF   16

Declare the structure parameters as follows:

     I*..1....:....2....:....3....:....4....:....5....:....6....:....7..
     I* Channel exit parameter block
     IMQCXP       DS
     I/COPY CMQCXPR
     I* Channel definition
     IMQCD        DS
     I/COPY CMQCDR

 

Parent topic:

MQ_CHANNEL_EXIT – Channel exit

ic17890_

 

Home