Use of Conditional Logic to Test Message ID in z/OS

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)