Using the SPMSG field

Open ClientConnect communicates message text to the CSA using the SPMSG field. In the sample program, issuing the GETMSG command retrieves the message text from SPMSG; the messages are then written to temporary storage:

CALL 'GETMSG' USING SPAREA
 IF SPMSG NOT = SPACES
     EXEC CICS
         WRITEQ TS QUEUE('CSEXQUE')
             FROM(SPMSG) NOSUSPEND
         RESP(CICSRC)
     END-EXEC
 END-IF.

See Appendix A, “CSA Commands” for details about the MESSAGE command and Appendix E, “The SPAREA” for information about the SPAREA.

Copyright © 2005. Sybase Inc. All rights reserved.

View this book as PDF