//CFZARMP  JOB MSGCLASS=C,MSGLEVEL=(1,1),USER=XXXXXXX,NOTIFY=XXXXXXX
//********************************************************************
//*                                                                  *
//* PROPRIETARY STATEMENT:                                           *
//*    Licensed Materials - Property of IBM                          *
//*    5650-ZOS Copyright IBM Corp. 2013                             *
//*                                                                  *
//*    STATUS=HPG7790                                                *
//*                                                                  *
//* DESCRIPTIVE NAME:                                                *
//*                                                                  *
//* SAMPLE JCL TO UPDATE THE ADMINISTRATIVE POLICY DATA FOR CIM      *
//* SERVER IN THE COUPLE DATA SET FOR ARM (AUTOMATIC RESTART MANAGER)*
//*                                                                  *
//* NOTES:                                                           *
//*                                                                  *
//*   1. SYSPRINT DD IS A REQUIRED DD STATEMENT FOR THE UTILITY      *
//*      OUTPUT.                                                     *
//*   2. SYSIN DD IS A REQUIRED DD STATEMENT FOR THE UTILITY         *
//*      CONTROL STATEMENTS.                                         *
//*   3. DATA TYPE(ARM) STATEMENT IS REQUIRED TO SPECIFY WHAT TYPE   *
//*      OF COUPLE DATA SET IS TO BE UPDATED.                        *
//*   4. REPORT KEYWORD IS OPTIONAL.  WHEN REPORT(YES) IS SPECIFIED, *
//*      AN ARM ADMINISTRATIVE POLICY REPORT WILL BE GENERATED IN    *
//*      THE OUTPUT.  THE DEFAULT VALUE FOR REPORT IS YES.           *
//*   5. REPLACE KEYWORD IS OPTIONAL. WHEN REPLACE(YES) IS SPECIFIED *
//*      FOR A POLICY, THE POLICY WILL BE REPLACED IF IT ALREADY     *
//*      EXISTED IN THE COUPLE DATA SET.                             *
//*      IF REPLACE(NO) IS SPECIFIED FOR AN EXISTING POLICY,         *
//*      THE UPDATE JOB WILL BE FAILED AND NO CHANGES WILL BE MADE   *
//*      TO THE COUPLE DATA SET.                                     *
//*   6. TO DELETE AN EXISTING POLICY IN A COUPLE DATA SET,          *
//*      INCLUDE THE FOLLOWING LINE IN THE SYSIN DD CARD:            *
//*            DELETE POLICY NAME(CFZARMPO)                          *
//*      WHERE POLNAME IS THE NAME OF THE POLICY TO BE DELETED.      *
//*                                                                  *
//********************************************************************
//STEP1    EXEC PGM=IXCMIAPU
//STEPLIB  DD   DSN=SYS1.MIGLIB,DISP=SHR
//SYSPRINT DD   SYSOUT=A
//SYSABEND DD   SYSOUT=A
//SYSIN    DD   *

     DATA TYPE(ARM)
     REPORT(YES)

     DEFINE POLICY NAME(CFZARMPO) REPLACE(YES)

         RESTART_GROUP(CFZCIMRESGRP)
         /* List all systems where the CIM Server can be started  */
         TARGET_SYSTEM(SYS1)
         /* Wait 10 sec before restarting to free resources       */
         RESTART_PACING(10)

         ELEMENT(CFZ_SRV_*)
           RESTART_ATTEMPTS(3,300)
           RESTART_TIMEOUT(300)
           READY_TIMEOUT(300)
           /* coss-system restart is not allowed.                 */
           /* No restart after system failure                     */

           TERMTYPE(ELEMTERM)
           RESTART_METHOD(ELEMTERM,STC,'S CFZCIM')

/*