Operator Console Notify Program (DGADTIFY)

Edit online

The operator console program, DGADTIFY, works with the RUN TASK statement to notify the console operator of the success or failure of Processes by means of Write to Operator (WTO) messages.

The program must have the following parameters passed to it:

Parameter Description
CL4‘GOOD' | CL4‘FAIL' The first positional parameter tells the program the correct message to output. Code the parameter as illustrated in the following example, including the single quotes.
file name The second positional parameter is the name of the file that is being copied.

The following example shows a Connect:Direct® for z/OS® Process using the DGADTIFY program.

COPY1 PROCESS PNODE=CDA SNODE=CDB
STEP01    COPY -
            FROM ( -
               PNODE -
               DSN=FILE1 -
               DISP=SHR -
                 )  -
            TO ( -
               SNODE -
               DSN=FILE2 -
               DISP=SHR  -
               )
STEP02      IF (STEP01=0) THEN
NOTIFYG        RUN TASK (PGM=DGADTIFY, -
                         PARM=(CL4'GOOD',FILE1)) PNODE
            ELSE
NOTIFYF        RUN TASK (PGM=DGADTIFY, -
                         PARM=(CL4'FAIL',FILE1)) PNODE
            EIF

The DGADTIFY program is attached on the PNODE. A parameter list containing the GOOD or FAIL message criteria and the FILE1 file name is passed to DGADTIFY. If the COPY statement is successful, the first RUN TASK step executes and you see the following message:

SNTB001I ** CONNECT:DIRECT SUCCESSFUL STEP COMPLETION **
FILE XFER BETWEEN - PLEX.JOE  AND - PLEX.TOM    SUCCESSFUL
REQUESTOR=CTENN1
DSN=CD.OUTPUT.data set

If the COPY statement is unsuccessful, the second RUN TASK step executes and you see the following messages:

SNTB002I ** Connect:Direct FAILED STEP COMPLETION **
******** Connect:Direct FILE TRANSFER FAILED  *********
******** Connect:Direct FILE TRANSFER FAILED  *********
FILE XFER BETWEEN - PLEX.JOE  AND - PLEX.TOM  FAILED
REQUESTOR=CTENN1
DSN=CD.OUTPUT.data set
******** Connect:Direct FILE TRANSFER FAILED  *********
******** Connect:Direct FILE TRANSFER FAILED  *********