*---------------------------------------------------------------------* 00013398 * DCM EXTENDED DEMO JCL * 00013399 * * 00013400 * SAMPLE JCL FOR JOB TESTDCMX WHICH GENERATES WTO MESSAGES THAT ARE * 00013401 * CAPTURED BY THE ABOVE SAMPLE SYSLOG RULE SETS. THIS JOB IS ALSO * 00013410 * FOUND AS MEMBER TESTDCMX IN THE INSTALL PDS. * 00013420 * * 00013430 *---------------------------------------------------------------------* 00013440 * 00013474 //TESTDCMX JOB 00013475 //* 00013476 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013477 //SYSIN DD * 00013478 ******************************************************** 00013479 * THIS JOB WILL DISPLAY SOME OF THE CAPABILITIES OF * 00013480 * DCM, THE CONSOLE AUTOMATION COMPONENT OF ASAP/DCM. * 00013481 * VARIOUS MESSAGES WILL BE DISPLAYED AND A SPECIFIC * 00013482 * ACTION WILL BE TAKEN FOR EACH. ACTIONS INCLUDE: * 00013483 * - HIGHLIGHT/SUPPRESS * 00013484 * - ADD TEXT TO CLARIFY REQUIRED ACTION * 00013485 * - ISSUE COMMANDS, SUBMIT JOBS * 00013486 * - AUTOMATICALLY REPLY TO WTOR MESSAGES * 00013487 * - ALTER A MESSAGE'S TEXT * 00013488 * - ALTER A MESSAGE'S COLOR AND/OR DISPLAY ATTRIBUTES * 00013489 * A SHORT WAIT OCCURS BETWEEN EACH MAJOR STEP. * 00013490 ******************************************************** 00013491 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013492 //MSG EXEC PGM=#ASAPMSG, 00013493 // PARM='DCM001I NORMAL MESSAGE NO ACTION TAKEN' 00013494 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013495 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013496 DCM002I INFORMATION MESSAGE, ADD TEXT 00013497 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013498 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013499 DCM003E ERROR MESSAGE, MAKE RED AND ADD TEXT 00013500 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013501 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013502 DCM004I DATE TIME SUPPRESS THIS MESSAGE 00013503 DCM099I YOU DIDN'T NOTICE MESSAGE DCM004I DID YOU? 00013504 DCM099I IT WAS SUPPRESSED FROM BEING DISPLAYED, 00013505 DCM099I BUT IS STILL IN THE JOB LOG AND SYSLOG 00013506 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013507 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013508 DCM005I BAD INFORMATION MSSSAGE, FIX TEXTTTT 00013509 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013510 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013511 DCM006A ACTION MESSAGE, ISSUE COMMAND 00013512 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013513 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013514 DCM007A IMPORTANT ACTION MESSAGE, ISSUE COMMANDS, MAKE YELLOW 00013515 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013516 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013517 DCM008A ISSUE COMMAND TO GENERATE WTOR FOR AUTOMATIC RESPONSE 00013518 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013519 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013520 DCM009A SUBMIT ASAP JOB NAMED IEFBR14 BASED ON THIS MESSAGE 00013521 //WAIT EXEC PGM=#CDS60TS,PARM=10 00013522 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013523 DCM010I FILTER WITH WILDCARDS, DEMONSTRATE COLOR CHANGES 00013524 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013525 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013526 DCM010I SET MESSAGE COLOR TO GREEN 00013527 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013528 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013529 DCM010I SET MESSAGE COLOR TO WHITE 00013530 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013531 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013532 DCM010I SET MESSAGE COLOR TO RED 00013533 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013534 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013535 DCM010I SET MESSAGE COLOR TO BLUE 00013536 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013537 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013538 DCM010I SET MESSAGE COLOR TO TURQUOISE 00013539 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013540 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013541 DCM010I SET MESSAGE COLOR TO YELLOW 00013542 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013543 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013544 DCM010I SET MESSAGE COLOR TO PINK 00013545 //WAIT EXEC PGM=#CDS60TS,PARM=5 00013546 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013547 DCM011I FILTER WITH WILDCARDS, DEMONSTRATE DISPLAY CHANGES 00013548 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013549 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013550 DCM011I SET MESSAGE DISPLAY ATTRIBUTE TO REVERSE 00013551 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013552 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013553 DCM011I SET MESSAGE DISPLAY ATTRIBUTE TO UNDERSCORE 00013554 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013555 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013556 DCM011I SET MESSAGE DISPLAY ATTRIBUTE TO BLINK (ON TRUE 327X) 00013557 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013558 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013559 DCM012I DEMONSTRATE COMBINED COLOR AND DISPLAY CHANGES 00013560 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013561 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013562 DCM012I COMBINE MESSAGE ATTRIBUTES OF PINK AND UNDERSCORE 00013563 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013564 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013565 DCM012I COMBINE MESSAGE ATTRIBUTES OF BLUE AND REVERSE 00013566 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013567 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013568 DCM012I COMBINE MESSAGE ATTRIBUTES OF YELLOW AND BLINK (ON TRUE 327X) 00013569 //WAIT EXEC PGM=#CDS60TS,PARM=3 00013570 //MSG EXEC PGM=#ASAPMSG,PARM=SYSIN 00013571 //SYSIN DD * 00013572 DCM013I *** END OF DCM DEMO *** 00013573 //WAIT EXEC PGM=#CDS60TS,PARM=1 00013574 // 00013575