Download FDRMOVE FDRERASE - Innovation Data Processing

FDRPAS SPECIAL CON SIDERATION S
FDRPAS E-MAIL NOTIFICATION FACILITY
SEND AN E-MAIL IF
SWAP FAILS
EXAMPLE
320.04
Send an e-mail if the swap of volume DATA22 fails. Since no SYSTCPD DD is provided,
the MAILSERVER statement must specify the IP address of the mail server. The e-mail
includes the text of the error message.
//SWAP
EXEC PGM=FDRPAS,REGION=0M
//STEPLIB DD DISP=SHR,DSN=fdrpas.loadlib
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//FDREMAIL DD *
MAILSERVER 12.132.14.178
FROM:<[email protected]>
TO:<[email protected]>
SUBJECT: DATA22 SWAP FAILED
/*
//SYSIN
DD *
SWAP
TYPE=FULL
MOUNT
VOL=DATA22,SWAPUNIT=07C3
/*
SEND AN E-MAIL
FOR EACH STEP
INDICATING
SUCCESS OR
FAILURE EXAMPLE
Send an e-mail for each volume in this step that indicates success or failure. Since a
SYSTCPD DD is provided, the MAILSERVER statement can specify the name of the mail
server. “PASLIST” is the name of a group that is interpreted by the mail server. The e-mail
includes the text of the message to identify the volume.
//SWAP
//STEPLIB
//SYSPRINT
//SYSUDUMP
//SYSTCPD
//FDREMAIL
//SYSIN
SWAP
MOUNT
MOUNT
…
MOUNT
/*
EXEC PGM=FDRPAS,REGION=0M
DD DISP=SHR,DSN=fdrpas.loadlib
DD SYSOUT=*
DD SYSOUT=*
DD DISP=SHR,DSN=TCPIP.DATA(SYSTEM1)
DD DISP=SHR,DSN=STGMGMT.FDRPAS.CNTL(EMAIL)
DD *
TYPE=FULL,EMSG=OK
VOL=TSO001,SWAPUNIT=1A**
VOL=TSO002,SWAPUNIT=1A**
VOL=TSO099,SWAPUNIT=1A**
Data set STGMGMT.FDRPAS.CNTL(EMAIL) contains:
MAILSERVER MAIL.MYCOMPANY.COM
FROM:JOHN DOE<[email protected]>
TO:[email protected]
SUBJECT: FDRPAS SWAP ENDED &SYSTEMS, JOB &JOBNAME, STEP &STEPNAME
MESSAGE - &MESSAGE
- 320-29 -