*---------------------------------------------------------------------* 00006600
* DCM BASIC DEMO JCL                                                  * 00006700
*                                                                     * 00006710
* SAMPLE JCL FOR JOB TESTDCM WHICH GENERATES WTO MESSAGES THAT ARE    * 00006800
* CAPTURED BY THE ABOVE SAMPLE SYSLOG RULE SETS.  THIS JOB IS ALSO    * 00006900
* FOUND AS MEMBER TESTDCM IN THE INSTALL PDS.                         * 00007000
*                                                                     * 00007100
*---------------------------------------------------------------------* 00007200
*                                                                       00007300
//TESTDCM  JOB                                                          00007400
//*                                                                     00007500
//STEP0   EXEC PGM=#ASAPMSG,PARM=SYSIN                                  00007600
//SYSIN     DD *                                                        00007700
********************************************************                00007800
* THIS JOB WILL DISPLAY SOME OF THE ABILITIES OF DCM.  *                00007900
* DCM IS THE CONSOLE AUTOMATION COMPONENT OF ASAP/DCM. *                00008000
* VARIOUS MESSAGES WILL BE DISPLAYED AND A SPECIFIC    *                00008100
* ACTION WILL BE TAKEN FOR EACH.  SOME OF THE ACTIONS  *                00008200
* INCLUDE HIGHLIGHTING, SUPPRESSING, ALTERING TEXT,    *                00008300
* ALTERING COLORS, SUBMITTING JOBS BASED ON MESSAGE    *                00008400
* MATCHES AND AUTOMATICALLY RESPONDING TO WTORS.  A    *                00008500
* WAIT OF AT LEAST 5 SECONDS OCCURS BETWEEN STEPS.     *                00008600
********************************************************                00008700
//STEP0A  EXEC PGM=#CDS60TS,PARM=5                                      00008800
//*                                                                     00008900
//STEP1   EXEC PGM=#ASAPMSG,                                            00009000
//             PARM='DCM001I NORMAL MESSAGE NO ACTION TAKEN'            00009100
//STEP1A  EXEC PGM=#CDS60TS,PARM=5                                      00009200
//*                                                                     00009300
//STEP2   EXEC PGM=#ASAPMSG,                                            00009400
//             PARM='DCM002W WARNING MESSAGE, CHANGE TO WHITE'          00009500
//STEP2A  EXEC PGM=#CDS60TS,PARM=5                                      00009600
//*                                                                     00009700
//STEP3   EXEC PGM=#ASAPMSG,                                            00009800
//             PARM='DCM003E ERROR MESSAGE, CHANGE TO RED'              00009900
//STEP3A  EXEC PGM=#CDS60TS,PARM=5                                      00010000
//*                                                                     00010100
//STEP4   EXEC PGM=#ASAPMSG,                                            00010200
//             PARM='DCM004I INFORMATION MESSAGE, ADD TEXT'             00010300
//STEP4A  EXEC PGM=#CDS60TS,PARM=5                                      00010400
//*                                                                     00010500
//STEP5   EXEC PGM=#ASAPMSG,                                            00010600
//             PARM='DCM005E ERROR MESSAGE, HIGHLIGHT AND ADD TEXT'     00010700
//STEP5A  EXEC PGM=#CDS60TS,PARM=5                                      00010800
//*                                                                     00010900
//STEP6   EXEC PGM=#ASAPMSG,                                            00011000
//             PARM='DCM006I BAD INFORMATION MSSSAGE, FIX TEXTTTT'      00011100
//STEP6A  EXEC PGM=#CDS60TS,PARM=5                                      00011200
//*                                                                     00011300
//STEP7   EXEC PGM=#ASAPMSG,                                            00011400
//             PARM='DCM007A ACTION MESSAGE, ISSUE COMMAND'             00011500
//STEP7A  EXEC PGM=#CDS60TS,PARM=5                                      00011600
//*                                                                     00011700
//STEP8   EXEC PGM=#ASAPMSG,PARM=SYSIN                                  00011800
//SYSIN     DD *                                                        00011900
DCM008A IMPORTANT ACTION MESSAGE, ISSUE COMMANDS, MAKE WHITE            00012000
//STEP8A  EXEC PGM=#CDS60TS,PARM=5                                      00012100
//*                                                                     00012200
//STEP9   EXEC PGM=#ASAPMSG,PARM=SYSIN                                  00012300
//SYSIN     DD *                                                        00012400
DCM009A INVOKE COMMAND THAT WILL THEN CAUSE AUTOMATIC WTOR RESPONSE     00012500
//STEP9A  EXEC PGM=#CDS60TS,PARM=5                                      00012600
//*                                                                     00012700
//STEP10  EXEC PGM=#ASAPMSG,PARM=SYSIN                                  00012800
//SYSIN     DD *                                                        00012900
DCM010A SUBMIT ASAP JOB NAMED IEFBR14 BASED ON THIS MESSAGE             00013000
//STEP10A EXEC PGM=#CDS60TS,PARM=5                                      00013100
//*                                                                     00013200
//STEP11  EXEC PGM=#ASAPMSG,PARM=SYSIN                                  00013210
//SYSIN     DD *                                                        00013220
DCM011W TRAP MESSAGE USING WILDCARD, THIS ONE SHOULD BE RED             00013230
DCM011W TRAP MESSAGE USING WILDCARD, THIS ONE SHOULD BE WHITE           00013240
DCM011W TRAP MESSAGE USING WILDCARD, THIS ONE SHOULD BE NORMAL COLOR    00013250
//STEP11A EXEC PGM=#CDS60TS,PARM=5                                      00013260
//*                                                                     00013270
//STEP12  EXEC PGM=#ASAPMSG,PARM=SYSIN                                  00013280
DCM012I DATE TIME SUPPRESS THIS MESSAGE                                 00013290
DCM099I YOU DIDN'T NOTICE MESSAGE DCM012I DID YOU?                      00013291
DCM099I IT WAS SUPPRESSED FROM BEING DISPLAYED,                         00013292
DCM099I BUT IS STILL IN THE JOB LOG AND SYSLOG                          00013293
//STEP12A EXEC PGM=#CDS60TS,PARM=3                                      00013294
//                                                                      00013295