//ICMMRMUP JOB 'ACCT INFO',NOTIFY=&SYSUID,
//          MSGLEVEL=(1,1),MSGCLASS=?RMMSGCLASS?     
//*---------------------------------------------------------------------
//*
//* Licensed Materials - Property of IBM
//* 5724-B19 / 5697-H60
//* Copyright IBM Corp. 1994, 2014 All Rights Reserved.
//* US Government Users Restricted Rights - 
//* Use, duplication or disclosure restricted by 
//* GSA ADP Schedule Contract with IBM Corp.
//*
//*---------------------------------------------------------------------
//*  **** Please read and follow carefully before running this job. ****
//*                                                                     
//*  This upgrade utility is a job which will upgrade a CM V8.4.1 FP1
//*  (and above, but not including CM V8.4.3) z/OS Resource Manager (RM) 
//*  to the CM V8.5 FP1 level.
//*
//*  Job step:
//*
//*    ICMV850  - UPGRADE FROM CM841 FP1 up to CM842 FP3
//*                       TO CM8.5 FP1
//*
//*  IMPORTANT:  BEFORE RUNNING THIS JOB, z/OS RESOURCE MANAGER 
//*  MUST BE AT LEAST AT THE CM V8.4.1 FP1 LEVEL. THE MINIMUM 
//*  REQUIREMENT IN ORDER TO UPGRADE IS CM V8.4.1 FP1. 
//*  YOU CAN USE THIS SAME JOB TO UPGRADE YOUR RESOURCE MANAGER TO 
//*  CM V8.5.0 FP1 WITHOUT CHANGING ANYTHING IF YOUR RESOURCE MANAGER 
//*  IS FROM CM V8.4.1 FP1 TO CM V8.4.2 FP3.
//*  IF YOUR RESOURCE MANAGER IS CM V8.4.3 AND LATER THEN DO NOT USE 
//*  THIS JOB, USE THE UPGRADE JOB WHICH IS SHIPPED WITH CM 8.5.0 FP1 
//*  INSTEAD.
//*  
//*  To verify your current RM maintenance level, execute the following
//*  SQL:  SELECT RMCURRENTVERSION FROM ICMRMCONTROL
//*
//*  If you want to encrypt existing tables, refer to IBM InfoSphere  
//*  Guardium Data Encryption for IMS and DB2 Databases User's Guide 
//*  for unload and reload operation. 
//*---------------------------------------------------------------------
//*
//*  Modify the following symbolic values
//*
//*   ?RMCREATOR? -
//*       The qualifier of CM database
//*   ?RMDB2RUN? -
//*       Fully qualified name of the DB2 runtime library.
//*   ?RMDB2SYS? -
//*       The DB2 Subsystem ID
//*   ?RMDSN? -
//*       High level qualifier of the DB2 libraries
//*   ?RMMSGCLASS? -
//*       Output Class.
//*   ?RMSQLID? -
//*       The ID of the DB2 Database Administrator performing
//*       this upgrade.
//*   ?RMTIADPLAN? -
//*       The plan name for DSNTIAD.
//*   ?WTOLEVEL? -
//*       The level of console messages written to operator (WTO): 
//*         0 = NONE, 1 = ALL, 2 = ONLY ERRORs
//*
//*---------------------------------------------------------
//*
//* This upgrade utility will perform the following function:
//*
//* 1. Adds new columns to the ICMRMControl table 
//*    in support of User Exit names, WTO Level, 
//*    Quiesce, TLS, and Retention.
//* 2. Update the RMCurrentVersion column of table 
//*    ICMRMControl with value '8.5.00.100'. 
//*
//*---------------------------------------------------------
//JOBLIB   DD DISP=SHR,DSN=?RMDSN?.SDSNLOAD
//* --------------------------------------------------------
//ICMV850  EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSIN  DD *
 DSN SYSTEM(?RMDB2SYS?)
 RUN  PROGRAM(DSNTIAD) PLAN(?RMTIADPLAN?) -
      LIB('?RMDB2RUN?')
//SYSIN     DD *

  SET CURRENT SQLID = '?RMSQLID?';

  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD PRESTOREXITNAME  CHAR(8) NOT NULL DEFAULT 'PRESTOR'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD POSTSTOREXITNAME CHAR(8) NOT NULL DEFAULT 'POSTSTOR'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD PRERTRVEXITNAME  CHAR(8) NOT NULL DEFAULT 'PRERTRV'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD POSTRTRVEXITNAME CHAR(8) NOT NULL DEFAULT 'POSTRTRV'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD PREUPDTEXITNAME  CHAR(8) NOT NULL DEFAULT 'PREREPL'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD POSTUPDTEXITNAME CHAR(8) NOT NULL DEFAULT 'POSTREPL'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD PREQURYEXITNAME  CHAR(8) NOT NULL DEFAULT 'PREQUSM'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD POSTQURYEXITNAME CHAR(8) NOT NULL DEFAULT 'POSTQUSM'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD PRECHSMEXITNAME  CHAR(8) NOT NULL DEFAULT 'PRECHSM'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD POSTCHSMEXITNAME CHAR(8) NOT NULL DEFAULT 'POSTCHSM'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD PREPFCHEXITNAME  CHAR(8) NOT NULL DEFAULT 'PREPFCH'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD POSTPFCHEXITNAME CHAR(8) NOT NULL DEFAULT 'POSTPFCH'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD PREENDTEXITNAME  CHAR(8) NOT NULL DEFAULT 'PREENDT'; 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD POSTENDTEXITNAME CHAR(8) NOT NULL DEFAULT 'POSTENDT'; 

  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD WTOLEVEL SMALLINT NOT NULL DEFAULT 0;

  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD QUIESCESTATE SMALLINT NOT NULL DEFAULT 0;
 
  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD QUIESCESTART TIMESTAMP;

  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD ACTIVATIONSTART TIMESTAMP;

  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD QUIESCEGRACEPERIOD TIMESTAMP;

  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD ENFORCE_TLS12 SMALLINT NOT NULL DEFAULT 0;

  ALTER TABLE ?RMCREATOR?.ICMRMCONTROL
    ADD SYSTEMFLAG2 INTEGER NOT NULL DEFAULT 0;

  ALTER TABLE ?RMCREATOR?.ICMRMTRK
    ALTER COLUMN TOKEN SET DATA TYPE CHAR(128);

  ALTER TABLE ?RMCREATOR?.ICMRMASYNCH
    ALTER COLUMN TOKEN SET DATA TYPE CHAR(128);

  ALTER TABLE ?RMCREATOR?.ICMRMTRK
    ALTER COLUMN RETENTIONPRD SET DATA TYPE CHAR(26);

  ALTER TABLE ?RMCREATOR?.ICMRMTRK
    ALTER COLUMN NEWRETENTIONPRD SET DATA TYPE CHAR(26);

  COMMIT;

  UPDATE ?RMCREATOR?.ICMRMCONTROL
    SET WTOLEVEL = ?WTOLEVEL? 
    WHERE 1 = 1;
  
  COMMIT;

  UPDATE ?RMCREATOR?.ICMRMCONTROL
       SET RMCURRENTVERSION =  '8.5.00.100'
       WHERE 1 = 1;

  COMMIT;

/* 
//