Implementation

Once you have the application installed, and the message and jobname table updated, you can start running your CA Disk jobs with message check in effect. If you specified Y to SYS$EXIT in the primary options panel, you need to add //SYS$EXIT DD SYSOUT=* to the JCL.

For each CA Disk job qualified for the message check process, a unique message data set will be allocated (and cataloged) or extended with the data set name constructed from the data set prefix specified in the primary options panel (in Step 4 or Step 7 of Installation) and JOBNAME of the job.

For example, if you specified CA-DISK.MSGCHK as the data set prefix and job DSKTEST1 is qualified for message check process, the new sequential data set CA Disk.MSGCHK.DSKTEST1 will be allocated and possibly some messages will be written into it. For subsequent jobs with the same jobname DSKTEST1, more messages will be added into the data set.

Eventually you will have many message data sets and should do the consolidate run. The following procedure is an example of the consolidate run.

To do the consolidate run

Modify and submit the member MSGCHKJ1.
```
//DOIT  EXEC PGM=IKJEFT01,DYNAMNBR=500,
// PARM='%SMSPC005 #DSN.PREFIX.SPECIFIED.IN.ISPF 
//SYSTSPRT  DD SYSOUT=*
//SYSUT2    DD DSN= 
    #INSERT.YOUR.GDGNAME.ONE(+1),
//*  Ø
//     
   DISP=(,CATLG),SPACE=(189,(5,5),RLSE),AVGREC=K,
//  LRECL=189,RECFM=FB,
//  UNIT=SYSALLDA
//  DCB=(A.VALID.DCB)
//*  Ø
//SYSPROC   DD DSN= #INSERT.SYSPROC.DSN,DISP=SHR
//SYSTSIN   DD DUMMY Ø
```
Where;
```
#DSN.PREFIX.SPECIFIED.IN.ISPF 
```
Is the Data set prefix specified in the primary options panel.
```
#INSERT.YOUR.GDGNAME.ONE
```
Is the GDG base defined in Installation Step 2.
```
A.VALID.DCB
```
Creates a model DSCB (PS,FB,LRECL=189).
```
#INSERT.SYSPROC.DSN,DISP=SHR
```
Is the Data set where the application's REXX reside.

This job will merge all message data sets into one sequential data set for the next step. All message data sets will be deleted after this point.

The REXX EXEC allocates (concatenates) all message data sets before merging them into a single data set, you may need to run the consolidate jobs more often if the total number of message data sets is more than 255.

Modify and submit the member MSGCHKJ2.

//SORT2    EXEC PGM=ICEMAN
//SYSPRINT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SORTIN   DD DSN= #INSERT.YOUR.GDGNAME.ONE,
//         DISP=OLD
//SORTOUT  DD DSN= #INSERT.YOUR.GDGNAME.TWO(+1),
//         DISP=(,CATLG,DELETE),
//         RECFM=FB,LRECL=189,
//         SPACE=(10,(2,1),RLSE),AVGREC=K,
//         UNIT=SYSALLDA
//         DCB=(A.VALID.DCB)
//*
//*--------------------------------------------------------------------
//SYSIN    DD *
ALTSEQ CODE=(F402,F501)
SORT FIELDS=(51,1,BI,A,39,4,CH,A,36,2,CH,A,33,2,CH,A,43,8,CH,A,
               1,8,CH,A,51,1,CH,A,53,1,AQ,D,54,2,BI,A)
//*
//SORT3    EXEC PGM=ICEMAN
//SYSPRINT  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SORTIN   DD DSN= #INSERT.YOUR.GDGNAME.TWO(+1),
//         DISP=SHR
//SORTOUT  DD DSN= #INSERT.YOUR.GDGNAME.THREE(+1),
//         DISP=(,CATLG,DELETE), Ø GDG base defined in Installation Step 2
//         RECFM=FB,LRECL=189,
//         SPACE=(100,(2,1),RLSE),AVGREC=K,
//         UNIT=SYSALLDA
//         DCB=(A.VALID.DCB)
//*
//*--------------------------------------------------------------------
//* SELECT ERROR MESSAGES
//*--------------------------------------------------------------------
//SYSIN    DD *
OPTION COPY
INCLUDE COND=(51,1,CH,EQ,C' ')
//*
//PRINT4   EXEC PGM=IEBPTPCH
//SYSPRINT  DD SYSOUT=*
//SYSUT1   DD DSN= #INSERT.YOUR.GDGNAME.THREE(+1),
//         DISP=SHR
//SYSUT2   DD SYSOUT=*,CHARS=X15N,
//         LRECL=145,BLKSIZE=145,RECFM=FA
//SYSIN    DD *
PRINT MAXFLDS=99,MAXLINE=68
TITLE      ITEM=('ERROR MESSAGES FROM CA-DISK',11),
               ITEM=('- ALL JOBS -',42),
               ITEM=('LISTING FOR STORAGE MANAGEM. TEAM',75),
               ITEM=('(ROOM:....)',109)
TITLE      ITEM=('JOBNAME',1),
               ITEM=('MESSAGE IDENT',11),
               ITEM=('E R R O R M E S S A G E ',28)
RECORD     FIELD=(8,1,,1),
               FIELD=(132,58,,11)
//*
//PRINT5   EXEC PGM=IEBPTPCH
//SYSPRINT       DD SYSOUT=*
//SYSUT1T  DD DSN= #INSERT.YOUR.GDGNAME.TWO(+1),
//         DISP=SHR
//SYSUT2   DD SYSOUT=*,CHARS=X15N,
//         LRECL=145,BLKSIZE=145,RECFM=FA
//SYSIN    DD *
PRINT MAXFLDS=99,MAXLINE=68
TITLE      ITEM=('ERROR MSG. AND SUMMARY LINES ',10),
           ITEM=('- ALL JOBS, COMPLETE LIST ',42),
           ITEM=('PLEASE DISTRIBUTE TO STOR. MGMT. ',75),
           ITEM=('(ROOM ....)',109)
TITLE      ITEM=('JOBNAME',1),
           ITEM=('STEPNAME',10),
           ITEM=('PROCSTEP',19),
           ITEM=('DATE + START TIME ',28),
           ITEM=('MESSAGE - OR -',49),
           ITEM=(' SUM. LINE ',66)
RECORD     FIELD=(8,1,,1),
           FIELD=(8,9,,10),
           FIELD=(8,17,,19),
           FIELD=(10,33,,28),
           FIELD=(8,43,,39),
           FIELD=(102,58,,49)
//*
//COPY5    EXEC PGM=ICEGENER
//SYSUT1   DD DSN= #INSERT.YOUR.GDGNAME.ONE,
//         DISP=(OLD,DELETE,KEEP)
//SYSUT2   DD DSN= #INSERT.YOUR.GDGNAME.FOUR(+1),
//         DISP=(,CATLG,DELETE),
//         SPACE=(500,(2,1),RLSE),AVGREC=K,
//         UNIT=SYSALLDA
//         DCB=(A.VALID.DCB)
//*
//*
//*
//*SCRATCH2       DD DSN= #INSERT.YOUR.GDGNAME.TWO,
//*        DISP=(OLD,DELETE,KEEP)
//*SCRATCH3       DD DSN= #INSERT.YOUR.GDGNAME.THREE,
//*        DISP=(OLD,DELETE,KEEP)
//SYSIN    DD *
//SYSPRINT       DD SYSOUT=*

Where under //SORT2;

#INSERT.YOUR.GDGNAME.ONE