*---------------------------------------------------------------------* 00000010 * DCM BASIC DEMO RULE SET * 00000020 * * 00000021 * SAMPLE SYSLOG RULE SET TO RUN DCM QUICK DEMO. JOB TESTDCM LOCATED * 00000030 * IN THE INSTALL PDS MUST BE RUN TO GENERATE REQUIRED MESSAGES. * 00000040 * * 00000050 *---------------------------------------------------------------------* 00000060 * 00000140 * 00000141 * 00000142 ***************************************************************** 00000143 * DCM TEST * 00000144 ***************************************************************** 00000145 MSG='DCM002W' 00000146 ATTR=WHITE 00000147 ADD='********************************' 00000148 ADD='* MESSAGE CAPTURED IN WHITE *' 00000149 ADD='********************************' 00000150 * 00000151 MSG='DCM003E ERROR MESSAGE, CHANGE TO RED' 00000152 ATTR=RED 00000153 * 00000154 MSG='DCM004I INFORMATION MESSAGE, ADD TEXT' 00000155 ADD='***********************************************' 00000156 ADD='* MSG004I WAS CAPTURED, THIS IS ADDITIONAL *' 00000157 ADD='* TEXT TO HELP YOU INTERPRET THE MEANING. *' 00000158 ADD='***********************************************' 00000159 * 00000160 MSG='DCM005E ERROR MESSAGE, HIGHLIGHT AND ADD TEXT' 00000161 ATTR=RED 00000162 ADD='***********************************************' 00000163 ADD='* THIS IS A VERY IMPORTANT MESSAGE, DO NOT *' 00000164 ADD='* FORGET TO RUN THAT JOB! *' 00000165 ADD='***********************************************' 00000166 * 00000167 MSG='DCM006I BAD' 00000168 CHG='DCM006I CONTAINED MISSPELLINGS, THEY ARE NOW FIXED' 00000169 * 00000170 MSG='DCM007A ACTION MESSAGE' 00000171 CMD='D ASM,PLPA,L=02' 00000172 * 00000173 MSG='DCM008A IMPORTANT ACTION MESSAGE, ISSUE COMMANDS, MAKE WHITE' 00000174 ATTR=WHITE 00000175 CMD='D GRS,C,L=02' 00000176 CMD='F A,REFRESH' 00000177 * 00000178 MSG='DCM009A INVOKE COMMAND * CAUSE AUTOMATIC WTOR RESPONSE' 00000179 CMD='F A,EDIT' 00000180 MSG='ASA060A- ONLINE JCL EDIT, ENTER STATEMENT' 00000181 REPLY='QUIT' 00000182 * 00000183 MSG='DCM010A SUBMIT ASAP JOB NAMED IEFBR14 BASED ON THIS MESSAGE' 00000184 ATTR=WHITE 00000185 CMD='F A,SUBMIT=IEFBR14' 00000186 * 00000187 MSG='DCM011W TRAP MESSAGE USING WILDCARD, *RED' 00000188 ATTR=RED 00000189 MSG='DCM011W TRAP MESSAGE USING WILDCARD, *WHITE' 00000190 ATTR=WHITE 00000191 * 00000192 MSG='DCM012I ++++ ++++ SUPPRESS THIS MESSAGE' 00000193 ATTR=SUPPRESS 00000194 * 00000195 MSG='DCM100I JOB IEFBR14*SUCCESSFULLY' 00000196 ATTR=WHITE 00000197 ADD='DCM101I IEFBR14 HAS FINISHED, ISSUE START COMMAND FOR NEXTJOB' 00000198 CMD='S NEXTJOB' 00000199 00000200 00000300 00000400 00000500 00000600 *---------------------------------------------------------------------* 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 00013296 00013297 00013298 00013299 00013300 *---------------------------------------------------------------------* 00013302 * DCM EXTENDED DEMO RULE SET * 00013303 * * 00013304 * SAMPLE SYSLOG RULE SET TO RUN DCM QUICK DEMO. JOB TESTDCMX LOCATED * 00013305 * IN THE INSTALL PDS MUST BE RUN TO GENERATE REQUIRED MESSAGES. * 00013306 * * 00013307 *---------------------------------------------------------------------* 00013308 * 00013309 * 00013310 * 00013311 ***************************************************************** 00013312 * DCM TEST * 00013313 ***************************************************************** 00013314 MSG='DCM002I' 00013315 ADD='************************************************' 00013316 ADD='* USER DEFINED TEXT ADDED TO ACCOMPANY DCM002I *' 00013317 ADD='************************************************' 00013318 * 00013319 MSG='DCM003E ERROR MESSAGE' 00013320 ATTR=RED 00013321 ADD='*****************************************************' 00013322 ADD='* ERROR MESSAGE CAPTURE. COLOR CHANGED TO RED AND *' 00013323 ADD='* THIS TEXT ADDED TO EASE INTERPRETATION. *' 00013324 ADD='*****************************************************' 00013325 * 00013326 MSG='DCM004I ++++ ++++ SUPPRESS THIS MESSAGE' 00013327 ATTR=SUPPRESS 00013328 * 00013329 MSG='DCM005I BAD' 00013330 CHG='DCM005I CONTAINED MISSPELLINGS, THEY ARE NOW FIXED' 00013331 * 00013332 MSG='DCM006A ACTION MESSAGE' 00013333 CMD='D ASM,PLPA,L=02' 00013334 * 00013335 MSG='DCM007A IMPORTANT ACTION MESSAGE, ISSUE COMMANDS, MAKE YELLOW' 00013336 ATTR=YELLOW 00013337 CMD='D GRS,C,L=02' 00013338 CMD='F A,REFRESH' 00013339 * 00013340 MSG='DCM008A ISSUE COMMAND * WTOR FOR AUTOMATIC RESPONSE' 00013341 CMD='F A,EDIT' 00013342 MSG='ASA060A' 00013343 REPLY='QUIT' 00013344 * 00013345 MSG='DCM009A SUBMIT ASAP JOB NAMED IEFBR14 BASED ON THIS MESSAGE' 00013346 ATTR=PINK 00013347 CMD='F A,SUBMIT=IEFBR14' 00013348 * 00013349 MSG='DCM010I * GREEN' 00013350 ATTR=GREEN 00013351 MSG='DCM010I * WHITE' 00013352 ATTR=WHITE 00013353 MSG='DCM010I * RED' 00013354 ATTR=RED 00013355 MSG='DCM010I * BLUE' 00013356 ATTR=BLUE 00013357 MSG='DCM010I * TURQUOISE' 00013358 ATTR=TURQUOISE 00013359 MSG='DCM010I * YELLOW' 00013360 ATTR=YELLOW 00013361 MSG='DCM010I * PINK' 00013362 ATTR=PINK 00013363 * 00013364 MSG='DCM011I * RE' 00013365 ATTR=REVERSE 00013366 MSG='DCM011I * UN' 00013367 ATTR=UNDERSCORE 00013368 MSG='DCM011I * BL' 00013369 ATTR=BLINK 00013370 * 00013371 MSG='DCM012I * PINK AND UNDERSCORE' 00013372 ATTR=PINK,UNDERSCORE 00013373 MSG='DCM012I * BLUE AND REVERSE' 00013374 ATTR=BLUE,REVERSE 00013375 MSG='DCM012I * YELLOW AND BLINK' 00013376 ATTR=YELLOW,BLINK 00013377 * 00013378 MSG='DCM013I' 00013379 ATTR=CYAN,REVERSE,HIGHLIGHT 00013380 ADD='**********************************************************' 00013381 ADD='* MESSAGE DCM013I WAS ALTERED TO CYAN,REVERSE,HIGHLIGHT. *' 00013382 ADD='* THESE SAME ATTRIBUTES WILL BE CARRIED BY ANY MESSAGES *' 00013383 ADD='* THAT ARE ADDED UNLESS AN OVERRIDING RULE EXISTS. *' 00013384 ADD='* THE HIGHLIGHT ATTRIBUTE CAUSES THESE MESSAGES TO BE *' 00013385 ADD='* MADE NON-SCROLLABLE. *' 00013386 ADD='**********************************************************' 00013387 * 00013388 MSG='DCM100I JOB IEFBR14*SUCCESSFULLY' 00013389 ATTR=PINK 00013390 ADD='DCM101I IEFBR14 HAS FINISHED, ISSUE START COMMAND FOR NEXTJOB' 00013391 CMD='S NEXTJOB' 00013392 00013393 00013394 00013395 00013396 00013397 *---------------------------------------------------------------------* 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 00013576 00013577 00013578 00013579 00013580 *---------------------------------------------------------------------* 00013581 * IEFBR14 JCL FOR DCM DEMO * 00013582 * * 00013590 * SAMPLE BASEJCL MEMBER WHICH IS USED IN TESTDCM JOB. THIS JOB IS * 00013600 * AUTOMATICALLY SUBMITTED UPON DETECTION OF MSG DCM010I. UPON ITS * 00013700 * COMPLETION, MESSAGE DCM100I IS GENERATED WHICH TRIGGERS THE NEXT * 00013800 * JOB IN SEQUENCE. MOVE THIS JCL TO YOUR BASEJCL FILE AND TAILOR THE * 00013900 * JOB CARD (EXCEPT THE JOB NAME) BEFORE RUNNING TESTDCM. * 00014000 * * 00014100 *---------------------------------------------------------------------* 00014200 * 00014300 //IEFBR14 JOB 00014310 //* 00014320 //STEP1 EXEC PGM=IEFBR14 00014330 //STEP2 EXEC PGM=#ASAPMSG,COND=(0,NE), 00014340 // PARM='DCM100I JOB IEFBR14 HAS COMPLETED SUCCESSFULLY' 00014350 // 00014900 00014910 00014920 00014921 00014922 00014930 *---------------------------------------------------------------------* 00015100 * * 00015200 * SAMPLE SYSLOG RULE SETS DEMONSTRATING VARIOUS SYSTEM MESSAGE * 00015300 * CAPTURES AND POSSIBLE ASSOCIATED ACTIONS. THESE ARE SAMPLES ONLY * 00015400 * AND SHOULD NOT BE IMPLEMENTED WITHOUT THOROUGH PLANNING. PLEASE * 00015500 * CONTACT YOUR TECHNICAL REPRESENTATIVE IF YOU DESIRE ASSISTANCE. * 00015600 * * 00015700 *---------------------------------------------------------------------* 00015800 * 00015900 *********************************************************************** 00016000 * AUTOMATIC REPLIES TO STANDARD MESSAGES * 00016100 *********************************************************************** 00016200 * 00016300 MSG='ICK003D REPLY U TO ALTER VOLUME' /* REPLY TO ICKDSF */ 00016400 REPLY='U' /* INITIALIZE OF DASD */ 00016500 * 00016600 MSG='ICK21836I IPL TEXT EXISTS' /* ALLOW REPLACEMENT */ 00016700 REPLY='U' /* OF IPL TEXT */ 00016800 * 00016900 *********************************************************************** 00017000 * HIGHLIGHT OR CHANGE COLORS ON IMPORTANT MESSAGES * 00017100 *********************************************************************** 00017200 * 00017300 MSG='ILR' /* AUX STORAGE MSGS */ 00017400 ATTR=RED /* HIGHLIGHT MSG AND- */ 00017500 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00017600 * 00017700 MSG='IRA100E SQA SHORTAGE' /* SQA SHORTAGE */ 00017800 ATTR=RED /* HIGHLIGHT MSG AND- */ 00017900 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00018000 * 00018100 MSG='IRA101E CRITICAL SQA SHORTAGE' /* SQA SHORTAGE! */ 00018200 ATTR=RED /* HIGHLIGHT MSG AND- */ 00018300 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00018400 * 00018500 MSG='IRA102I SQA SHORTAGE RELIEVED' /* SQA SHORT RELIEVED */ 00018600 ATTR=RED /* HIGHLIGHT MSG AND- */ 00018700 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00018800 * 00018900 MSG='IRA103I' /* SQA EXPAND TO CSA */ 00019000 ATTR=RED /* HIGHLIGHT MSG AND- */ 00019100 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00019200 * 00019300 MSG='IRA104I' /* RELIEF OF IRA103I */ 00019400 ATTR=RED /* HIGHLIGHT MSG AND- */ 00019500 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00019600 * 00019700 MSG='IRA200E AUXILIARY STORAGE SHORTAGE' /* PAGING SHORTAGE */ 00019800 ATTR=RED /* HIGHLIGHT MSG AND- */ 00019900 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00020000 * 00020100 MSG='IRA201E CRITICAL AUXILIARY STORAGE SHORTAGE' /* PAGE SHORTAGE! */ 00020200 ATTR=RED /* HIGHLIGHT MSG AND- */ 00020300 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00020400 * 00020500 MSG='IRA202I AUXILIARY STORAGE SHORTAGE RELIEVED' /* AUX STORAGE OK */ 00020600 ATTR=RED /* HIGHLIGHT MSG AND- */ 00020700 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00020800 * 00020900 MSG='IRA203I' /* USER W/HIGH AUXSTOR*/ 00021000 ATTR=RED /* HIGHLIGHT MSG AND- */ 00021100 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00021200 * 00021300 MSG='IRA204E' /* USER W/HIGH AUXSTOR*/ 00021400 ATTR=RED /* HIGHLIGHT MSG AND- */ 00021500 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00021600 * 00021700 MSG='IRA400E PAGEABLE STORAGE SHORTAGE' /* SHORT ON MEMORY */ 00021800 ATTR=RED /* HIGHLIGHT MSG AND- */ 00021900 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00022000 * 00022100 MSG='IRA401E CRITICAL PAGEABLE STORAGE SHORTAGE' /* SHORT ON MEMORY! */ 00022200 ATTR=RED /* HIGHLIGHT MSG AND- */ 00022300 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00022400 * 00022500 MSG='IRA402I PAGEABLE STORAGE SHORTAGE RELEIVED' /* RELIEF OF IRA400E*/ 00022600 ATTR=RED /* HIGHLIGHT MSG AND- */ 00022700 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00022800 * 00022900 MSG='IRA500E SWAP IN FAILED DUE TO STORAGE' /* SWAP FAILED/MEMORY */ 00023000 ATTR=RED /* HIGHLIGHT MSG AND- */ 00023100 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00023200 * 00023300 MSG='IRA501I' /* RELIEF OF IRA500E */ 00023400 ATTR=RED /* HIGHLIGHT MSG AND- */ 00023500 ADD='NOTIFY MVS SYSTEMS PROGRAMMER' /* ADD TO MESSAGE */ 00023600 * 00023601 MSG='IKT007I TCAS ACCEPTING LOGONS' /* TSO IS READY */ 00023610 ATTR=WHITE /* INDICATE LOGON */ 00023620 ADD='***********************' /* IS NOW OKAY */ 00023630 ADD='* TSO NOW AVAILABLE *' 00023640 ADD='***********************' 00023650 * 00023700 *********************************************************************** 00023800 * MESSAGE DELETION AND SUPPRESSION * 00023900 *********************************************************************** 00024000 * 00024100 MSG='ICH408I' /* SUPPRESS RACF */ 00024200 ATTR=SUPPRESS /* WARNING MESSAGES */ 00024300 * 00024400 MSG='DFHLD0107I' /* DELETE CICS/LPA */ 00024500 ATTR=DELETE /* WARNING MESSAGES */ 00024600 * 00024700 MSG='ICH302D REPLY Y TO ALLOW ANOTHER ATTEMPT OR N TO REVOKE USERID' 00024800 ATTR=RED 00024900 REPLY='Y' /* PASSWORD ERROR */ 00025000 ADD='**************************************************************' 00025100 ADD='* ATTENTION! ACCESS AGAINST A SPECIAL RACF ENTITY HAS *' 00025200 ADD='* OCCURRED. POSSIBLE INTRUDER. NOTIFY RACF ADMINISTRATOR *' 00025300 ADD='* DURING WORKING HOURS. *' 00025400 ADD='**************************************************************' 00025500 CMD="SE 'PASSWORD VIOLATION OF SPECIAL DETECTED',USER=(XXXXXX),LOGON" 00025600 * 00025700 *********************************************************************** 00025800 * SMF PROCESSING * 00025900 *********************************************************************** 00026000 * 00026100 MSG='IEE362A SMF ENTER DUMP FOR SYS1.MAN1' /* START DUMP OF SMF */ 00026200 CMD='S DUMPSMF,MAN=1' /* DATASETS AFTER A */ 00026300 MSG='IEE362A SMF ENTER DUMP FOR SYS1.MAN2' /* SWITCH OCCURS */ 00026400 CMD='S DUMPSMF,MAN=2' 00026500 MSG='IEE362A SMF ENTER DUMP FOR SYS1.MAN3' 00026600 CMD='S DUMPSMF,MAN=3' 00026700 * 00026800 *********************************************************************** 00026900 * SVC DUMP PROCESSING * 00027000 *********************************************************************** 00027100 * 00027200 MSG='IEA911E * DUMP ON SYS1.DUMP00' /* SAVE SVC DUMP TO */ 00027300 CMD='S SAVEDUMP,DUMP=00' /* TAPE UPON HEARING */ 00027400 MSG='IEA911E * DUMP ON SYS1.DUMP01' /* THAT DUMP WAS */ 00027500 CMD='S SAVEDUMP,DUMP=01' /* TAKEN. JOB */ 00027600 MSG='IEA911E * DUMP ON SYS1.DUMP02' /* SAVEDUMP BACKS UP */ 00027700 CMD='S SAVEDUMP,DUMP=02' /* TO TAPE AND CLEARS.*/ 00027800 * 00027900 *********************************************************************** 00028000 * AUTOMATIC SPOOL MANAGEMENT PROCESSING * 00028100 *********************************************************************** 00028200 * 00028300 MSG='$HASP534 OFF1.ST INACTIVE' /* OFFLOADER COMPLETE */ 00028400 CMD='$P OFFLOAD1' /* PURGE OFFLOADER */ 00028500 MSG='$HASP534 OFF2.ST INACTIVE' /* OFFLOADER COMPLETE */ 00028600 CMD='$P OFFLOAD2' /* PURGE OFFLOADER */ 00028700 MSG='$HASP534 OFF3.ST INACTIVE' /* OFFLOADER COMPLETE */ 00028800 CMD='$P OFFLOAD3' /* PURGE OFFLOADER */ 00028900 MSG='$HASP534 OFF4.ST INACTIVE' /* OFFLOADER COMPLETE */ 00029000 CMD='$P OFFLOAD4' /* PURGE OFFLOADER */ 00029100 MSG='$HASP534 OFF5.ST INACTIVE' /* OFFLOADER COMPLETE */ 00029200 CMD='$P OFFLOAD5' /* PURGE OFFLOADER */ 00029300 * 00029400 *********************************************************************** 00029500 * HSM PROCESSING * 00029600 *********************************************************************** 00029700 * 00029800 MSG='ARC0027I DFHSM LOG SWITCHED' /* WHEN THE HSM LOG IS*/ 00029900 CMD='F A,SUBMIT=HSMLOGY,HSMSYSA' /* SWITCHED, PRINT Y2 */ 00030000 * 00030100 MSG='ARC0037I DFHSM PROBLEM DETERMINATION OUTPUT DATA SETS' /* PDA */ 00030200 CMD='F A,SUBMIT=HSMTRACE,HSMSYSA' /* FULL, PRINT DOY2 */ 00030300 * 00030400 *********************************************************************** 00030500 * SYSLOG PROCESSING * 00030600 *********************************************************************** 00030700 * 00030800 MSG='IEF176I WTR 252 WAITING FOR WORK, CLASS=K' /* SYSLOG PROCESSING */ 00030900 CMD='P 252' /* SHUTDOWN WRITER */ 00031000 * 00031100 *********************************************************************** 00031200 * AUTOMATIC START-UP COMMANDS DURING IPL * 00031300 *********************************************************************** 00031400 * 00031500 MSG='IST020I VTAM INITIALIZATION COMPLETE' /* AFTER VTAM IS UP - */ 00031600 CMD='PA PAGE.VCAT001.LOCAL1' /* ADD TEMPORARY PAGE */ 00031700 CMD='S TSO' /* START TSO */ 00031800 CMD='S CNMPSSI' /* START NETVIEW */ 00031900 CMD='S PNMS' /* START PNMS */ 00032000 CMD='*START DB2' /* START TEST DB2 */ 00032100 CMD='%START DB2' /* START Q/A DB2 */ 00032200 CMD='S OCACI' /* START OMEGAMON/CICS*/ 00032300 CMD='S O2CI' /* START OMEGAMON/DB2 */ 00032400 CMD='S OMIIMVS' /* START OMEGAMON/MVS */ 00032500 CMD='S OMIICOL' /* REALTIME COLLECTOR */ 00032600 CMD='S OMIIETE' /* END-TO-END RTIME */ 00032700 CMD='S OMIICSA' /* CSA ANALYZER */ 00032800 CMD='S OMIIHDI' /* HISTORY DATA INTERF*/ 00032900 CMD='S OMIIHIST' /* HISTORICAL COLLECT */ 00033000 CMD='S OMIIEPZM' /* ZOOM-TO-EPILOG */ 00033100 CMD='S OMVIEW' /* START OMEGAVIEW */ 00033200 CMD='$SLGN1' /* START NJE INTERFACE*/ 00033300 CMD='$SLGN2' /* START RJE INTERFACE*/ 00033400 CMD='$SLNE2' /* START NJE LINE 2 */ 00033500 CMD='$SLNE3' /* START NJE LINE 3 */ 00033600 CMD='$SLNE4' /* START NJE LINE 4 */ 00033700 CMD='$SLNE5' /* START NJE LINE 5 */ 00033800 CMD='$SN,A=AP2NJE' /* START NJE NODE */ 00033900 CMD='$SN,A=A442JS2N' /* START NJE NODE */ 00034000 * 00034100 MSG='CNM541I NETVIEW SUBSYSTEM INITIALIZED SUCCESSFULLY' 00034200 CMD='S CNMP01' /* START NETVIEW */ 00034300 * 00034400 MSG='ERB100I ZZ : ACTIVE' /* START RMFGAT */ 00034500 CMD='F R,START III' /* ONCE RMF IS ACTIVE */ 00034600 * 00034700 MSG='IEFTMS17' /* SUPPRESS TMC NOT */ 00034800 ATTR=SUPPRESS /* PSU FORMAT MESSAGE */ 00034900 * 00035000 MSG="IEFTMS0 REPLY 'U' FOR CA-1 VERSION-5.+ INITIALIZATION" 00035100 REPLY='U' 00035200 * 00035300 *********************************************************************** 00035400 * AUTOMATIC COMMANDS DURING SYSTEM SHUTDOWN * 00035500 *********************************************************************** 00035600 * 00035700 MSG='IKT012D' /* VTAM STOPPING BUT */ 00035800 REPLY='U' /* TSO ACTIVE, NODUMP */ 00035900 * 00036000 MSG='IKT010D' /* TSO STOPPED, USERS */ 00036100 REPLY='SIC' /* ACTIVE, HALT THEM */ 00036200 * 00036300 MSG='$HASP395 LOGROUTE ENDED' /* ONCE LOGROUTE DOWN */ 00036400 CMD='@CLOSE IMMED' /* CLOSE NETVIEW */ 00036500 CMD='P OMVIEW' /* STOP OMEGAVIEW */ 00036600 * 00036700 MSG='IEF404I CNMP01 - ENDED' /* ONCE NETVIEW DOWN */ 00036800 CMD='P CNMPSSI' /* REMOVE SUBSYSTEM */ 00036900 * 00037000 MSG='$HASP099 ALL AVAILABLE FUNCTIONS COMPLETE' 00037100 CMD='$PJES2' /* ONCE JES2 INACTIVE */ 00037200 CMD='Z EOD' /* ISSUE HALT END OF */ 00037300 CMD='K M,UEXIT=N' /* DAY, STOP ASAP/DCM */ 00037400 00037500 00037510 00037520 00037530 00037540 *---------------------------------------------------------------------* 00037600 * * 00037700 * SAMPLE SCHEDULE FILE ENTRIES DEMONSTRATING VARIOUS AUTOMATED * 00037800 * EVENTS. THESE ARE SAMPLES ONLY AND SHOULD NOT BE IMPLEMENTED * 00037900 * WITHOUT THOROUGH PLANNING. PLEASE CONTACT YOU TECHNICAL * 00038000 * REPRESENTATIVE IF YOU DESIRE ASSISTANCE. * 00038100 * * 00038200 *---------------------------------------------------------------------* 00038300 * 00038400 L S2200 *************************************************** 00038500 L S2200 * PLEASE SHUTDOWN CICSP3A THEN RELEASE SMSCL0DP * 00038600 L S2200 *************************************************** 00038700 LSMTWTF 2100 *************************************************** 00038800 LSMTWTF 2100 * PLEASE SHUTDOWN CICSP3A THEN RELEASE SMSCL0DP * 00038900 LSMTWTF 2100 *************************************************** 00039000 LSMTWTFS2358 *************************************************** 00039100 LSMTWTFS2358 * PLEASE SHUTDOWN ALL THE CICS REGIONS * 00039200 LSMTWTFS2358 *************************************************** 00039300 LSMTWTFS0400 *************************************************** 00039400 LSMTWTFS0400 * PLEASE STARTUP ALL THE CICS REGIONS * 00039500 LSMTWTFS0400 *************************************************** 00039600 *********************************************************************** 00039700 * MISCELLANEOUS HOUSEKEEPING COMMANDS * 00039800 *********************************************************************** 00039900 CSMTWTFS0700 $SN,A=A442JS2N /* START NJE NODE */ 00040000 CSMTWTFS0700 $SN,A=AP2NJE /* START NJE NODE */ 00040100 CSMTWTFS2359 P R /* HALT RMF AT EODAY */ 00040200 CSMTWTFS0000 S RMF.R,,,MEMBER(1A) /* RESTART RMF, NEWDAY*/ 00040300 JSMTWTFS2030 SETINITB /* SETUP INITIATORS */ 00040400 *********************************************************************** 00040500 * DISK PACK BACKUPS * 00040600 *********************************************************************** 00040700 * DAILY INCREMENTAL AND FULL PACK OF HSM001 00040800 J MTWTF 1900 BKUPDALY HSM001 /* DAILY BKUP HSM001 */ 00040900 J MTWTF 1650 INCRUSER /* DAILY INCREMENTAL */ 00041000 * MONTHLY AND WEEKLY FULLPACK OF ALL DASD EXCEPT DB2 00041100 J 11650 BKUPMNTH /* 1ST SUN PACK BACKUP*/ 00041200 J 21650 BKUPWEEK /* 2ND SUN PACK BACKUP*/ 00041300 J 31650 BKUPWEEK /* 3RD SUN PACK BACKUP*/ 00041400 J 41650 BKUPWEEK /* 4TH SUN PACK BACKUP*/ 00041500 J 51650 BKUPWEEK /* 5TH SUN PACK BACKUP*/ 00041600 *********************************************************************** 00041700 * WEDNESDAY INCREMENTAL IMAGE COPIES * 00041800 *********************************************************************** 00041900 J W 2359 #MSIC2YP 00042000 * #MSIC4YP - #MSIC2YP SUBMITS THIS JOB 00042100 * #MSIC5YP - #MSIC4YP SUBMITS THIS JOB 00042200 * #MSIC6YP - #MSIC5YP SUBMITS THIS JOB 00042300 J W 2359 #MSIC7YP /* SUBMITTED WITH #2YP*/ 00042400 * #MSIC8YP - #MSIC6YP SUBMITS THIS JOB 00042500 J 02#MSIC9YP #MSIC9YP /* END OF IMAGE COPIES*/ 00042600 *********************************************************************** 00042700 * AUTOMATIC SPOOL MANAGEMENT PROCESSING * 00042800 *********************************************************************** 00042900 CS 0010 $TOJ1-9999,ALL,DAYS=10,Q=O /*SEND 10 DAY OLD */ 00043000 CS 0010 $TOS1-9999,ALL,DAYS=10,Q=O /*JOB AND STC OUTPUT */ 00043100 C1 0015 $SOFFLOAD1,TYPE=TRANSMIT /* TO CLASS 0, THEN */ 00043200 C1 0015 $SOFF1.ST /* OFFLOAD 0 TO TAPE. */ 00043300 C2 0015 $SOFFLOAD2,TYPE=TRANSMIT /* USE A DIFFERENT */ 00043400 C2 0015 $SOFF2.ST /* JES2 OFFLOAD */ 00043500 C3 0015 $SOFFLOAD3,TYPE=TRANSMIT /* TAPE FOR EACH */ 00043600 C3 0015 $SOFF3.ST /* POSSIBLE WEEK IN */ 00043700 C4 0015 $SOFFLOAD4,TYPE=TRANSMIT /* THE MONTH. THIS */ 00043800 C4 0015 $SOFF4.ST /* ALLOWS FOR APPROX. */ 00043900 C5 0015 $SOFFLOAD5,TYPE=TRANSMIT /* 30 DAYS OF LOST */ 00044000 C5 0015 $SOFF5.ST /* JOB RECOVERY. */ 00044100 * 00044200 * SHUTDOWN OF OFFLOADERS IS ACCOMPLISHED THROUGH DCM 00044300 * 00044400 CSMTWTFS0004 $PQ,Q=0 /* PURGE 0 DAY OUTPUT */ 00044500 CSMTWTFS0005 $PQ,Q=1,DAYS=1 /* PURGE 1 DAY OUTPUT */ 00044600 CSMTWTFS0006 $PQ,Q=4,DAYS=3 /* PURGE 4 DAY OUTPUT */ 00044700 CSMTWTFS0007 $PQ,Q=Z /* PURGE O/P QUEUE 'Z'*/ 00044800 CSMTWTFS0000 $PT1-9999 /* CLEAN TSO JOBS */ 00044900 C S0008 $PQ,Q=S /* CLEAN STC OUTPUT */ 00045000 C MTWTF 0750 $PQ,Q=9 /* PURGE 0 DAY OUTPUT */ 00045100 *********************************************************************** 00045200 * SYSLOG PROCESSING * 00045300 *********************************************************************** 00045400 CSMTWTFS0000 W L /* WRITE LOG AT EODAY */ 00045500 CS 0001 S LOGWTR,SYSID=SYSB,DAY=SATURDAY,CLASS=L /* SAVE */ 00045600 C M 0001 S LOGWTR,SYSID=SYSB,DAY=SUNDAY,CLASS=L /* SYSLOG */ 00045700 C T 0001 S LOGWTR,SYSID=SYSB,DAY=MONDAY,CLASS=L /* INTO */ 00045800 C W 0001 S LOGWTR,SYSID=SYSB,DAY=TUESDAY,CLASS=L /* DAILY */ 00045900 C T 0001 S LOGWTR,SYSID=SYSB,DAY=WEDNESDA,CLASS=L /* DATA */ 00046000 C F 0001 S LOGWTR,SYSID=SYSB,DAY=THURSDAY,CLASS=L /* SET */ 00046100 C S0001 S LOGWTR,SYSID=SYSB,DAY=FRIDAY,CLASS=L /* TO VIEW*/ 00046200 J M 0745 SYSLOGWK SYSLOGB /* SAVE WEEKLY SYSLOG */ 00046300 J 04SYSLOGMN SYSLOGB SYSLOGWK /* SAVE 4 WEEK SYSLOG */ 00046400 *********************************************************************** 00046500 * HSM PROCESSING (NOTE: MORE HSM PROCESSING DONE IN SYSLOG FILE) * 00046600 *********************************************************************** 00046700 CSMTWTFS0646 F DFHSM,SWAPLOG /* SWAP HSM LOG */ 00046800 C M F 0700 F DFHSM,RECYCLE ALL EXECUTE /* RECYCLE ML2 TAPES */ 00046900 *********************************************************************** 00047000 * EREP PROCESSING * 00047100 *********************************************************************** 00047200 J 0659ALL01 EREPMNTH /* MONTH LOGREC REPORT*/ 00047300 J MTWTF 0709 EREPDAYA /* DAILY LOGREC REPORT*/ 00047400 *********************************************************************** 00047500 * CA-1 TAPE MANAGEMENT PROCESSING * 00047600 *********************************************************************** 00047700 JSM WTFS0715 TMSDAILY /* TMS BACKUPS/REPORTS*/ 00047800 J T 0715 TMSDAIL2 /* TMS BACKUPS/REPORTS*/ 00047900 J M 0710 TMSVAULT /* TMS VAULT REPORTS */ 00048000 JSMTWTFS0720 TMSFMSIC /* TMS FMS IC VAULT RP*/ 00048100 J MTWTF 0750 ONLINE /* TMS ONLINE LISTINGS*/ 00048200 *********************************************************************** 00048300 * SMF PROCESSING - UPDATE THIS SCHEDULE IN DECEMBER FOR NEXT YEAR * 00048400 *********************************************************************** 00048500 C MTWTF 0030 I SMF /* SWITCH SMF DATASETS*/ 00048600 JSMTWTF 0100 SMFDAILY /* MAKE DAILY SMF TAPE*/ 00048700 J M 0740 SMFWEEK /*MAKE WEEKLY SMF TAPE*/ 00048800 J 0800ALL01 SMFMONTH /* MAKE MONTH SMF TAPE*/ 00048900 *********************************************************************** 00049000 * IPL SEQUENCE * 00049100 *********************************************************************** 00049200 C 0000 I S DFHSM 00049300 C 0000 I S VTAM.NET 00049400 C 0010 I S CAS9 00049500 C 0015 I S RMF.R,,,MEMBER(1A) 00049600 C 0015 I S ABENDAID 00049700 J 0015 I SETINITB 00049800 J 0020 I SETCACHE 00049900 C 0030 I $SPRT1 00050000 C 0010 I S KOCCIB 00050100 00050200 00050210 00050220 00050230 00050240 *---------------------------------------------------------------------* 00050300 * * 00050400 * SAMPLE COMMAND GROUP NAMED STOPSYSB WHICH IS USED TO BEGIN THE * 00050500 * SYSTEM SHUTDOWN PROCESS. AS THESE COMMANDS ARE EXECUTED, DCM RULE * 00050600 * SETS CAPTURE THE RESULTING MESSAGES AND COMPLETE THE SHUTDOWN * 00050700 * PROCESS. * 00050800 * * 00050900 *---------------------------------------------------------------------* 00051000 * 00051100 CMD='P OCACI' 00051200 CMD='P O2CI' 00051300 CMD='P OMIIMVS' 00051400 CMD='P OMIICOL' 00051500 CMD='P OMIIETE' 00051600 CMD='P OMIICSA' 00051700 CMD='P OMIIHDI' 00051800 CMD='P OMIIHIST' 00051900 CMD='P OMIIEPZM' 00052000 CMD='P OMVIEW' 00052100 CMD='P OBCNDL' 00052200 CMD='*STOP DB2' 00052300 CMD='%STOP DB2' 00052400 CMD='-STOP DB2' 00052500 CMD='P VPSB' 00052600 CMD='P PNMS' 00052700 CMD='P PNMST' 00052800 CMD='P TSO' 00052900 CMD='$PLGN1' 00053000 CMD='$PR1.PR1' 00053100 CMD='$PLNE1' 00053200 CMD='$PLGN2' 00053300 CMD='$PI1-25' 00053400 CMD='$PPRT1' 00053500 CMD='Z NET,QUICK' 00053600 CMD='F DFHSM,STOP' 00053700 CMD='P LLA' 00053800 CMD='P VLF' 00053900 CMD='P L' 00054000 CMD='P R' 00054100 CMD='P M' 00054200 CMD='P CNMPSSI' 00054300 CMD='C CNMP01' 00054400 CMD='P A' 00054500 00054600 00054610 00054620 00054630 00054640 *---------------------------------------------------------------------* 00054700 * * 00054800 * SAMPLE COMMAND GROUP NAMED SETINITB WHICH IS USED TO RESET THE * 00054900 * CLASS AND STATUS OF ALL JES2 INITIATORS. * 00055000 * * 00055100 *---------------------------------------------------------------------* 00055200 * 00055300 CMD='$PI1-40' 00055400 CMD='$TI1,F' 00055500 CMD='$TI2,F' 00055600 CMD='$TI3,F' 00055700 CMD='$TI4,G' 00055800 CMD='$TI5,I' 00055900 CMD='$TI6,I' 00056000 CMD='$TI7,J' 00056100 CMD='$TI8,J' 00056200 CMD='$TI9,J' 00056300 CMD='$TI10,K' 00056400 CMD='$TI11,L' 00056500 CMD='$TI12,L' 00056600 CMD='$TI13,L' 00056700 CMD='$TI14,M' 00056800 CMD='$TI15,M' 00056900 CMD='$TI16,N' 00057000 CMD='$TI17,O' 00057100 CMD='$TI18,P' 00057200 CMD='$TI19,P' 00057300 CMD='$TI20,P' 00057400 CMD='$TI21,P' 00057500 CMD='$TI22,P' 00057600 CMD='$TI23,P' 00057700 CMD='$TI24,P' 00057800 CMD='$TI25,R' 00057900 CMD='$TI26,R' 00058000 CMD='$TI27,R' 00058100 CMD='$TI28,R' 00058200 CMD='$TI29,R' 00058300 CMD='$TI30,V' 00058400 CMD='$TI31,F' 00058500 CMD='$TI32,X' 00058600 CMD='$TI33,X' 00058700 CMD='$TI34,X' 00058800 CMD='$TI35,X' 00058900 CMD='$TI36,X' 00059000 CMD='$TI37,X' 00059100 CMD='$TI38,X' 00059200 CMD='$TI39,X' 00059300 CMD='$TI40,X' 00059400 CMD='$SI1' 00059500 CMD='$SI2' 00059600 CMD='$SI3' 00059700 CMD='$SI4' 00059800 CMD='$SI5' 00059900 CMD='$SI6' 00060000 CMD='$SI7' 00060100 CMD='$SI8' 00060200 CMD='$SI9' 00060300 CMD='$SI10' 00060400 CMD='$SI11' 00060500 CMD='$SI12' 00060600 CMD='$SI13' 00060700 CMD='$SI14' 00060800 CMD='$SI15' 00060900 CMD='$SI16' 00061000 CMD='$SI17' 00061100 CMD='$SI18' 00061200 CMD='$SI19' 00061300 CMD='$SI20' 00061400 CMD='$SI21' 00061500 CMD='$SI22' 00061600 CMD='$SI23' 00061700 CMD='$SI24' 00061800 CMD='$SI25' 00061900 CMD='$SI26' 00062000 CMD='$SI30' 00062100 CMD='$SI31' 00062200