DFSIASN0 procedure

DFSIASN0 is a sample procedure that invokes the IMS abend search and notification function, a diagnostic tool that you can customize so that you receive an informational email if an abend occurs.

Before you can use the DFSIASN0 procedure, you must tailor it, create and populate input data sets for it to use, and perform the IMS abend search and notification setup tasks described in Setting up the IMS abend search and notification function.

JCL

The JCL and SMTP control statements to invoke IMS abend and search and notification follow. 

//****************************************** 
//* DFSIASN0 
//* NOTE: THIS MEMBER MUST BE COPIED TO 
//* A CONCATENATED Z/OS PROCEDURE LIBRARY 
//* FOR THE EVENT-DRIVEN ACTIVATION 
//****************************************** 
//DFSIASN0   PROC
//           PARM1=,PARM2= 
//* 
//*************************************** 
//* REMOVE THE EMAIL DATA SET IF IT EXISTS 
//*************************************** 
//IASN1 EXEC PGM=IEFBR14 
//LSTEMAIL DD DSN=USERID.IASN.SDFSSWAN.LSTEMAIL, 
//         DCB=(LRECL=255,BLKSIZE=2550,RECFM=FB), 
//         DISP=(MOD,DELETE), UNIT=SYSDA, 
//         SPACE=(TRK,(1,1)) 
//* 
//***************************************
//* REMOVE THE SMS DATA SET IF IT EXISTS 
//***************************************
//IASN1B EXEC PGM=IEFBR14 
//LSTSMS   DD DSN=USERID.IASN.SDFSSWAN.LSTSMS, 
//         DCB=(LRECL=255,BLKSIZE=2550,RECFM=FB), 
//         DISP=(MOD,DELETE),
//         UNIT=SYSDA, 
//         SPACE=(TRK,(1,1)) 
//* 
//**************************************************
//* WRITE THE FORMATTED EMAIL OUT TO EMAIL DATA SET 
//**************************************************
//IASN2 EXEC PGM=DFSIASNP,PARM='&PARM1;,&PARM2;'
//      STEPLIB DD DISP=SHR,DSN=STLSERV.QPPTEST.IMS.SDFSRESL
//      SYSUT1  DD DISP=SHR,DSN=RUNTIME.DS(DFSIAEML)
//      URLS    DD DISP=SHR,DSN=RUNTIME.DS(DFSIAURL)
//      CONTROL DD DISP=SHR,DSN=RUNTIME.DS(DFSIACTL)
//      INPARMS DD DISP=SHR,DSN=SKELETON.DS(DFSIAPRM)
//     SYSPRINT DD SYSOUT=*
//      SYSUT2  DD DSN=*.IASN1.LSTEMAIL,DISP=(NEW,CATLG),
//                 DCB=(LRECL=255,BLKSIZE=2550,RECFM=FB),
//                 UNIT=SYSDA,SPACE=(TRK,(1,1))
//*
//*********************************************
//* WRITE THE FORMATTED SMS OUT TO SMS DATA SET
//*********************************************
//IASN2B EXEC PGM=DFSIASNP,PARM='&PARM1;,&PARM2;'
//       STEPLIB DD DISP=SHR,DSN=STLSERV.QPPTEST.IMS.SDFSRESL
//       SYSUT1  DD DISP=SHR,DSN=RUNTIME.DS(DFSIASMS)
//       URLS    DD DISP=SHR,DSN=RUNTIME.DS(DFSIAURL)
//       CONTROL DD DISP=SHR,DSN=RUNTIME.DS(DFSIACST)
//       INPARMS DD DISP=SHR,DSN=SKELETON.DS(DFSIAPRM)
//      SYSPRINT DD SYSOUT=*
//       SYSUT2  DD DSN=*.IASN1B.LSTSMS,DISP=(NEW,CATLG),
//                  DCB=(LRECL=255,BLKSIZE=2550,RECFM=FB),
//                  UNIT=SYSDA,SPACE=(TRK,(1,1))
//*
//**********************************************
//* SENDS FORMATTED EMAIL OUT THROUGH THE Z/OS SMTP
//**********************************************
//IASN3 EXEC PGM=IEBGENER
//      SYSUT1   DD DISP=SHR,DSN=*.IASN1.LSTEMAIL
//      SYSUT2   DD SYSOUT=(B,SMTP),DCB=(LRECL=255,BLKSIZE=2550,RECFM=FB)
//      SYSPRINT DD SYSOUT=*
//      SYSIN    DD DUMMY
//*
//********************************************
//* SENDS FORMATTED SMS OUT THROUGH THE Z/OS SMTP
//********************************************
//IASN3B EXEC PGM=IEBGENER
//       SYSUT1   DD DISP=SHR,DSN=*.IASN1B.LSTSMS
//       SYSUT2   DD SYSOUT=(B,SMTP),DCB=(LRECL=255,BLKSIZE=2550,RECFM=FB)
//       SYSPRINT DD SYSOUT=*
//       SYSIN    DD DUMMY
//*
//**************************************************
//*  Steps IASN3 and IASN3B if external SMTP server
//*  is specified on "System Setup" panel:
//**************************************************
//* SENDS FORMATTED EMAIL OUT THROUGH EXTERNAL SMTP
//**************************************************
//IASN3 EXEC PGM=IRXJCL,PARM='DFSRASNT SMTPHOST.COMPANY.COM 25'
//      SYSEXEC  DD DISP=SHR,DSN=STLSERV.QPPTEST.IMS.SDFSEXEC
//      SYSTSIN  DD  DUMMY
//      SYSTSPRT DD  SYSOUT=*,DCB=LRECL=256
//      SYSTIN   DD  DUMMY
//      TELOUT   DD  SYSOUT=*,DCB=LRECL=256
//      TELIN    DD  DISP=SHR,DSN=*.IASN1.LSTEMAIL
//*
//************************************************
//* SENDS FORMATTED SMS OUT THROUGH EXTERNAL SMTP
//************************************************
//IASN3B EXEC PGM=IRXJCL,PARM='DFSRASNT SMTPHOST.COMPANY.COM 25'
//       SYSEXEC  DD DISP=SHR,DSN=STLSERV.QPPTEST.IMS.SDFSEXEC
//       SYSTSIN  DD  DUMMY
//       SYSTSPRT DD  SYSOUT=*,DCB=LRECL=256
//       SYSTIN   DD  DUMMY
//       TELOUT   DD  SYSOUT=*,DCB=LRECL=256
//       TELIN    DD  DISP=SHR,DSN=*.IASN1B.LSTSMS
//*

Usage

There are several job steps in DFSIASN0:

  • Steps IASN1 and IASN1B clean up the data sets that are used for each invocation of the IMS abend and search and notification function.
  • Steps IASN2 and IASN2B parse the parameter string and create the email or text message to be sent.
  • Steps IASN3 and IASN3B send the email message and the text message using either the z/OS® SMTP server or an external SMTP server, depending on which server is specified during the system setup.

Parameters

PARM1= and PARM2= represent a character string that is passed to the DFSIASN0 procedure either from:

  • System setup during an abend invocation
  • JCL run deck during an on-demand invocation

This character string contains the input parameters that are passed to the IMS abend search and notification parsing module. The following input parameters can be used with the DFSIASN0 procedure:

  • ABND=
  • APAR=
  • FMID=
  • GEN=
  • IMS=
  • MOD=
  • MSG=
  • RC=
  • SYSID=
  • T=

For descriptions of these parameters, see Parameter descriptions for IMS procedures.

DD statements

The following DD statements can be used with the DFSIASN0 procedure.

  • CONTROL DD
  • INPARMS DD
  • SYSUT1 DD
  • SYSUT2 DD
  • SYSPRINT DD
  • URLS DD

For descriptions of these DD statements, see DD statements for IMS procedures.