MSGID PROCESS SNODE=CD.SNODE
*
* THIS PROCESS ILLUSTRATES HOW TO TEST THE MESSAGE ID OF THE PREVIOUS
* STEP AND TAKE ACTION BASED ON A SPECIFIC MESSAGE ID. IN THE CASE
* IF THE PUSH STEP GENERATES A COMPLETION MESSAGE OF SCPA000I THEN
* EXIT AND DO NOT EXECUTE STEP PULL.
*
PUSH COPY FROM (DSN=CDZ.TCPIP.DATA.FILE -
DISP=(SHR) PNODE)
TO (DSN=CDZ.FTST.XYZ -
DISP=(RPL) SNODE)
IF (%MSGID EQ C'SCPA000I') THEN
EXIT
EIF
PULL COPY FROM (DSN=CDZ.TCPIP.DATA.FILE -
DISP=(SHR) SNODE)
TO (DSN=CDZ.FTST.XYZ -
DISP=(RPL) PNODE)