CDEMPTY PROCESS SNODE=CD.SNODE HOLD=YES -
&USERID=%USER -
&EMPTY=NO -
&XDATA=TODAY
*
* THIS PROCESS ILLUSTRATES HOW TO TEST A VARIABLE THAT WAS PASSED TO THE
* PROCESS AND MAKE A DECISION BASED ON THE VALUE. THE VALUE FOR EMPTY
* AND XDATA COULD BE PASSES BY THE SUBMIT COMMAND.
*
STEP1 COPY FROM (DSN=CDZ.TCPIP.DATA.FILE -
DISP=(SHR) PNODE) -
TO (DSN=CDZ.FTST.XYZ -
DISP=(RPL) SNODE)
IF (&EMPTY EQ C'NO') THEN
R01 RUN TASK PNODE (PGM=DMNOTFY2 -
PARM=(CL4'GOOD',C'EMPTY IS NO',&USERID))
ELSE
R02 RUN TASK PNODE (PGM=DMNOTFY2 -
PARM=(CL4'GOOD',C'EMPTY IS YES',&USERID))
EIF
IF (&XDATA EQ C'YESTER') THEN
R03 RUN TASK PNODE (PGM=DMNOTFY2 -
PARM=(CL4'GOOD',C'XDATA IS YESTER',&USERID))
ELSE
R04 RUN TASK PNODE (PGM=DMNOTFY2
- PARM=(CL4'GOOD',C'XDATA IS TODAY',&USERID))
EIF