Use of Conditional Statements (OpenVMS to z/OS)

This Process uses conditional logic to check the completion code of STEP01. If the completion code is equal to 0, STEP03 copies a file from OpenVMS to z/OS. If the completion code is greater than 0, STEP04 initiates the RUN TASK statement to notify the OpenVMS user that the copy was unsuccessful.

PROC1   PROCESS      SNODE=XYZNODE                                -
                     SNODEID=(JSMITH,JERRY)
STEP01  COPY  FROM  (DSN=JSMITH.DATA                              -
                     SNODE)                                       -
              TO    (DSN=U1:[RJONES.CDTEST]RUSS.DAT               -
                     DISP=RPL)
STEP02  IF   (STEP01 = 0)  THEN
STEP03  COPY  FROM  (DSN=U1:[RJONES.DATA_FILES]TEXT.DAT)          -
              TO    (DSN=JSMITH.YES SNODE                         -
                     DCB=(DSORG=PS,RECFM=V) DISP=RPL)
        ELSE
STEP04  RUN TASK    (PGM=VMS)  PNODE SYSOPTS="                    -
                     CMD = ’REPLY/USER=RJONES COPY_UNSUCCESSFUL’"
        EIF