//HZSSAMMT JOB MSGCLASS=T,REGION=8M
//*
//* ------------------------------------------------------------------
//*
//*   $MAC(HZSSAMMT) COMP(SCHZS) PROD(HZS7720):
//*       IBM Health Checker for z/OS Sample Check Messages
//*
//*   PROPRIETARY STATEMENT:
//*
//*       LICENSED MATERIALS - PROPERTY OF IBM
//*       5694-A01
//*       (C) COPYRIGHT IBM CORP. 2005
//*       STATUS = HZS7720
//*
//*    HZSSAMMT:
//*       Sample Health Check Message Generation
//*
//*    FUNCTION:
//*       Generate assembler source statements using a structured
//*       message script (SGML), assemble them, and link edit into
//*       an authorized library producing the message table module
//*       required by the sample health check.
//*
//*    RETURN CODES:
//*       CONV Step:
//*        8    Some messages contain errors
//*       16   No messages could be processed
//*       20   The assembler csect could not be allocated
//*       24   The message source could not be allocated SYSTSPRT
//*            is required to support errors an ABEND U0102 will
//*            occur if SYSTSPRT is not provided
//*       ASM Step:
//*       See appropriate High Level Assembler reference manuals
//*       LKED Step:
//*       See appropriate Program Management reference manuals
//*
//*    INSTRUCTIONS:
//*       This JCL was patterned after the IBM Health Checker for
//*       z/OS sample JCL member HZSMSGNJ contained in SAMPLIB.
//*       See that member for additional comments and explanations.
//*
//*       There are three steps in this job:
//*          CONV - Executes the TSO TMP to convert the SGML input
//*                 into assembler language source statements
//*          ASM  - Executes the High Level Assembler to assemble
//*                 these source statements into an object deck
//*          LKED - Executes the linkage editor to produce a load
//*                 module of the sample exits messages
//*
//*       You will need to tailor this JCL to meet installation
//*       requirements and conventions:
//*          JOB CARD:
//*              Modify to meet installation standards and you may
//*              need to add JES statements (//*MAIN, /$JOBPARM) if
//*              required by your installation.
//*
//*          Work Files:
//*              Update the following SET statement to reflect the
//*              UNIT= name used by your installation for temporary
//*              work files.  It can be left null if no name is
//*              required.
//           SET WORK=
//*
//*          CONV Step:
//*              Update the following SET statement to reflect
//*              the dataset name of the library containing the
//*              IBM Health Checker for z/OS message conversion
//*              exec.
//           SET SYSPROC=SYS1.SBLSCLI0.CLIST
//*
//*          ASM Step:
//*              Update the following SET statement to reflect
//*              the dataset name of the library containing the
//*              High Level Assembler.  Or remove the STEPLIB
//*              statement from the step if the High Level Assembler
//*              is accessed via the link list.
//           SET ASMLIB=SYS1.HLASM.SASMMOD1
//*
//*          LKED Step:
//*              Update the following SET statement to reflect
//*              a dataset in the link list where you want to
//*              store the message module for this sample.
//*              Note that this library MUST be authorized.
//           SET SYSLMOD=&&GOSET(HZSSAMMT)
//*
//*   CHANGE-ACTIVITY:
//*    $L0=HCHXS   ,HBB7720,050701,PDFX: Sample Healh Checker checks
//*
//* ------------------------------------------------------------------
//CONV    EXEC PGM=IKJEFT01,REGION=32M,PARM='%HZSMSGEN NLSCHECK(N)'
//SYSPROC  DD  DISP=SHR,DSN=&SYSPROC
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  DUMMY
//HZSADSN  DD  DSN=&MSGASM,DISP=(,PASS),SPACE=(TRK,(10,10)),
//             RECFM=FB,LRECL=80,UNIT=&WORK
//HZSSDSN  DD  *
<!--                                                                -->
<!-- These are the symbols used in the SGML message tags            -->
<!--                                                                -->
<!ENTITY ibmhc   "IBM Health Checker for z/OS">
<!ENTITY samptxt "sample check routine">
//HZSMDSN  DD  DATA
<lines props="copyright" id=TESTHC>
* ------------------------------------------------------------------- *
*    These lines are placed in the assembler language message module  *
*    produced by this job.  They could be used for documentation      *
*    of the assembler module or to include a copyright notice.        *
*                                                                     *
*    LICENSED MATERIALS - PROPERTY OF IBM                             *
*    5694-A01                                                         *
*    (C) COPYRIGHT IBM CORP. 2005                                     *
*    STATUS = HZS7720                                                 *
*                                                                     *
*                                                                     *
*01* DISCLAIMER =                                                     *
*                                                                     *
*    This sample source is provided for tutorial purposes only. A     *
*    complete handling of error conditions has not been shown or      *
*    attempted. This source is distributed on an "AS IS" basis        *
*    without any warranties either expressed or implied.              *
*                                                                     *
* ------------------------------------------------------------------- *
</lines>
<!--                                                                -->
<msglist xreftext="HZSMSGTB">
<!--                                                                -->
<!-- First Sample Exception Message  HZSH0001S                      -->
<!--                                                                -->
<msg class=exception>
<msgnum xreftext=001>HZSH0001S</msgnum>
<msgtext>
The &samptxt; was called with an unknown &ibmhc;
PQE Function Code (PQE_Function_Code) of <mv Class="hex">code</mv>.
</msgtext>
<msgitem class="EXPLANATION">
<p>
The &samptxt; was called by the &ibmhc;
with a code in the PQE that it does not understand.  This is an
internal error.
</p>
</msgitem>
<msgitem class="SYSACT"><p>
The &samptxt; is stopped and will not be called again by
the &ibmhc;.</p>
</msgitem>
<msgitem class="ORESP"><p>
Report this error to the System Programmer.</p>
</msgitem>
<msgitem class="SPRESP"><p>
Note the code from the message and search problem databases.  If no
corrective action is found, report the error to IBM.</p>
</msgitem>
<msgitem class="PROBD"><p>Should diagnostic information be gathered?
</p></msgitem>
<msgitem class="SOURCE"><p>The owning product</p>
</msgitem>
<msgitem class="REFDOC"><p>Manuals to reference to help explain the
error message further or help diagnose and correct the problem
reported.</p>
</msgitem>
<msgitem class="AUTOMATION"><p>n/a</p>
</msgitem>
<msgitem class="MODULE">
<p>The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"><p>n/a</p>
</msgitem>
<msgitem class="DCODE"><p>n/a</p>
</msgitem>
</msg>
<!--                                                                -->
<!-- A sample Exception message HZSH0002S                           -->
<!--                                                                -->
<msg class=exception>
<msgnum xreftext=002>HZSH0002S</msgnum>
<msgtext>
The &samptxt; was called with an unknown Check Entry Code
(PQE_Entry_Code) of <mv class="hex">code</mv>.
</msgtext>
<msgitem class="EXPLANATION">
<p>
The &samptxt; was called by the &ibmhc;
with a code in the PQE that it does not understand.  This is an
internal error.
</p>
</msgitem>
<msgitem class="SYSACT"><p>
The &samptxt; is stopped and will not be called again by
the &ibmhc;.</p>
</msgitem>
<msgitem class="ORESP"><p>
Report this error to the System Programmer.</p>
</msgitem>
<msgitem class="SPRESP"><p>
Note the code from the message and search problem databases.  If no
corrective action is found, report the error to IBM.</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<!--                                                                -->
<!-- A sample Exception message HZSH0003S                           -->
<!--                                                                -->
<msg class=exception>
<msgnum xreftext=003>HZSH0003S</msgnum>
<msgtext>
The &samptxt; One Time Call Check does not expect parameters.  The
first 50 characters of the invalid parameters are:
<mv class="compress">parms</mv>.
</msgtext>
<msgitem class="EXPLANATION"><p>
An attempt was made to pass parameters to the sample check's One Time
Health Check routine.  This routine does not accept parameters.</p>
</msgitem>
<msgitem class="SYSACT"> <p>The parameters are ignored</p>
</msgitem>
<msgitem class="ORESP"> <p>Do not issue commands supplying parameter
overrides to the One Time Health Check routine</p>
</msgitem>
<msgitem class="SPRESP"> <p>Possible PARMLIB error supplying parameter
overrides to the One Time Health Check routine</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<msg class=exception>
<msgnum xreftext=004>HZSH0004E</msgnum>
<msgtext>
The &samptxt; One Time Call Check.  This check ran on system
&hzssysname; in ASID <mv class="hex">asid</mv> at &hzslocaltime;.
</msgtext>
<msgitem class="EXPLANATION">
<p>The &samptxt; One Time Check
was called by the &ibmhc; from the ASID indicated
at the time in the message.
</p>
</msgitem>
<msgitem class="SYSACT"> <p>None, the system continues processing.
</p>
</msgitem>
<msgitem class="ORESP"> <p>None</p>
</msgitem>
<msgitem class="SPRESP"> <p>None</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<msg class=exception>
<msgnum xreftext=005>HZSH0005E</msgnum>
<msgtext>
The &samptxt; Interval Check has been called.  This is call
<mv class="decimal">c_count</mv> for this check.  This check ran
on system &hzssysname; in ASID <mv class="hex">asid</mv> at
&hzslocaltime;.
</msgtext>
<msgitem class="EXPLANATION">
<p>The Interval Check of the &samptxt; routine has been
called.  The message contains the current count of the number of calls
to it, the ASID of the calling program, and the local time it was
called.
</p>
</msgitem>
<msgitem class="SYSACT"><p>None, the system continues.</p>
</msgitem>
<msgitem class="ORESP"> <p>None</p>
</msgitem>
<msgitem class="SPRESP"> <p>None</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<msg class=exception>
<msgnum xreftext=006>HZSH0006E</msgnum>
<msgtext>
The &samptxt; Parameters have requested the check to ABEND.
</msgtext>
<msgitem class="EXPLANATION">
<p>The parameters supplied to the &samptxt; Interval Check
have request that an ABEND occur.
</p>
</msgitem>
<msgitem class="SYSACT"> <p>The &samptxt; will ABEND with
a system completion code of x'0C3'.
</p>
</msgitem>
<msgitem class="ORESP"> <p>None</p>
</msgitem>
<msgitem class="SPRESP"> <p>None</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<msg class=exception>
<msgnum xreftext=007>HZSH0007S</msgnum>
<msgtext>
The &samptxt; Parameters are not allowed for the One Time Check
routine.
</msgtext>
<msgitem class="EXPLANATION"><p>
An attempt was made to pass parameters to the sample check's One Time
Health Check routine.  This routine does not accept parameters.</p>
</msgitem>
<msgitem class="SYSACT"> <p>The parameters are ignored</p>
</msgitem>
<msgitem class="ORESP"> <p>Do not issue commands supplying parameter
overrides to the One Time Health Check routine</p>
</msgitem>
<msgitem class="SPRESP"> <p>Possible PARMLIB error supplying parameter
overrides to the One Time Health Check routine</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<msg class=exception>
<msgnum xreftext=008>HZSH0008S</msgnum>
<msgtext>
The &samptxt; Parameters are incorrect.  The first 50 characters of
the incorrect value are:<mv class="compress">parm</mv>
</msgtext>
<msgitem class="EXPLANATION">
<p>Parameters were passed to the &ibmhc; sample
but they are incorrect.  There could be a syntax error or they could
be the wrong parameters.
</p>
</msgitem>
<msgitem class="SYSACT"> <p>The parameters are ignored and the
sample continues with its previous values.
</p>
</msgitem>
<msgitem class="ORESP"> <p>If the message is the response to a
&ibmhc; Modify command, check the syntax of
the command, correct it and re-issue the command.  If the message
occurs at &ibmhc; start up, contact the
system programmer.
</p>
</msgitem>
<msgitem class="SPRESP"> <p>Check the &ibmhc;
PARMLIB member for syntax errors or invalid parameters for the
&samptxt;.
</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<msg class=exception>
<msgnum xreftext=009>HZSH0009S</msgnum>
<msgtext>
The &samptxt; Parameter string is too long.
</msgtext>
<msgitem class="EXPLANATION"> <p>The parameters passed to the
&samptxt; are too long.  The maximum length allowed is 11 or
COUNT(xxxx).
</p>
</msgitem>
<msgitem class="SYSACT"> <p>The parameter is ignored and the sample
continues.
</p>
</msgitem>
<msgitem class="ORESP"> <p>If the message is the results of a
modify command, reissue the command correctly.  If the message occurs
at start up, contact the system programmer.
</p>
</msgitem>
<msgitem class="SPRESP"> <p>If the message is occurring at startup,
there is an error in the &ibmhc; PARMLIB member.
</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<msg class=exception>
<msgnum xreftext=010>HZSH0010S</msgnum>
<msgtext>
The &samptxt; COUNT parameter has a syntax error.
</msgtext>
<msgitem class="EXPLANATION"> <p>An attempt was made to modify the
count parameter of the &samptxt;.  There is a syntax error of some
sort.  Most likely it is an invalid character.  The number supplied
is a decimal number.
</p>
</msgitem>
<msgitem class="SYSACT"> <p>The parameter is ignored and the sample
continues.
</p>
</msgitem>
<msgitem class="ORESP"> <p>Correct the value entered.</p>
</msgitem>
<msgitem class="SPRESP"> <p>Correct the parmlib member</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
<msg class=exception>
<msgnum xreftext=011>HZSH0011E</msgnum>
<msgtext>
The &samptxt; Parameters were changed.  The check call count was
changed by the user.  The previous value was
<mv class="decimal">c_count</mv> It is now set to
<mv class="decimal">n_count</mv>.
</msgtext>
<msgitem class="EXPLANATION"> <p>n/a</p>
</msgitem>
<msgitem class="SYSACT"> <p>n/a</p>
</msgitem>
<msgitem class="ORESP"> <p>n/a</p>
</msgitem>
<msgitem class="SPRESP"> <p>n/a</p>
</msgitem>
<msgitem class="PROBD"> <p>n/a</p>
</msgitem>
<msgitem class="SOURCE"><p> The owning product</p>
</msgitem>
<msgitem class="REFDOC"> <p>n/a</p>
</msgitem>
<msgitem class="AUTOMATION"> <p>n/a</p>
</msgitem>
<msgitem class="MODULE"><p>
The name of the check routine and message table</p>
</msgitem>
<msgitem class="RCODE"> <p>n/a</p>
</msgitem>
<msgitem class="DCODE"> <p>n/a</p>
</msgitem>
</msg>
</msglist>
/*
//ASM     EXEC PGM=ASMA90,COND=(0,NE,CONV),                             00000400
//             PARM=('ESD,OBJ,NODECK,NORLD,XREF(SHORT)',
//             'FLAG(NORC),RENT')
//STEPLIB   DD DISP=SHR,DSN=&ASMLIB
//SYSPRINT  DD SYSOUT=*                                                 00000500
//SYSLIB    DD DISP=SHR,DSN=SYS1.MACLIB                                 00000820
//SYSLIN    DD SPACE=(CYL,(1,1)),DSN=&&LOADSET,DISP=(,PASS),
//             RECFM=FB,LRECL=80,UNIT=&WORK
//SYSIN     DD DSN=&MSGASM,DISP=(OLD,DELETE)
//LKED    EXEC PGM=IEWL,COND=((0,NE,CONV),(0,NE,ASM)),
//             PARM='LET,LIST,MAP,RENT'
//SYSPRINT DD  SYSOUT=*                                                 00000500
//SYSUT1   DD  SPACE=(3520,(200)),UNIT=&WORK
//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE)
//SYSLMOD  DD  DISP=(MOD,PASS),SPACE=(TRK,(1,1,1)),
//             DSN=&&GOSET(HZSSAMMT)
//