Customization › Customization Steps › Step 12 – Upgrade › Upgrade from Version 4.5.0

Upgrade from Version 4.5.0

If you enter version 450, the JCL of job CUSTJ450 is displayed.

JOBCARD
//*
//*
//*
//********************************************************************
//* CUSTJ450:   COPY/CONVERT APC VSAM CLUSTER                        *
//* =========   FROM VERSION 4.5.0 TO VERSION 9.0                    *
//*                                                                  *
//* ACTION: REPLACE ALL  YOUR.APC450.ENV                             *
//* ======= WITH THE PREFIX OF YOUR APC 4.5.0 ENVIRONMENT            *
//*                                                                  *
//*------------------------------------------------------------------*
//* COPYRIGHT (C) 2012 CA. ALL RIGHTS RESERVED.                      *
//* COPYRIGHT (C) TRILOG AG.                                         *
//********************************************************************
//*
//********************************************************************
//*    CREATE REPRO FILES
//********************************************************************
//CRE1     EXEC PGM=IEFBR14
//TEMPKSDS DD DSN=CAMAT.PMA.REPKSDS,
//            DISP=(NEW,CATLG),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            SPACE=(CYL,(150,300)),
//            UNIT=SYSDA,
//            VOL=SER=VOL001
//TEMPRRDS DD DSN=CAMAT.PMA.REPRRDS,
//            DISP=(NEW,CATLG),
//            DCB=(LRECL=8160,RECFM=FB,BLKSIZE=8160),
//            SPACE=(CYL,(150,300)),
//            UNIT=SYSDA,
//            VOL=SER=VOL001
//*
//********************************************************************
//*  COPY EXCLUSION CLUSTER -KSDSEXC-
//********************************************************************
//EXC1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.KSDSEXC,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//EXC2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFEXC),DISP=SHR
//*
//EXC4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(REPROEXC),DISP=SHR
//*

//********************************************************************
//*  COPY LOAD MODULE INFORMATION CLUSTER -KSDSLMO-
//********************************************************************
//LMO1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.KSDSLMO,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//LMO2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFLMO),DISP=SHR
//*
//LMO4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(REPROLMO),DISP=SHR
//*
//********************************************************************
//*  COPY CICS LOAD MODULE INFORMATION CLUSTER -KSDSCMO-
//********************************************************************
//CMO1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.KSDSCMO,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//CMO2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFCMO),DISP=SHR
//*
//CMO4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(REPROCMO),DISP=SHR
//*
//********************************************************************
//*  COPY IMS LOAD MODULE INFORMATION CLUSTER -KSDSIMO-
//********************************************************************
//IMO1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.KSDSIMO,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
/SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR

//*
//IMO2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFIMO),DISP=SHR
//*
//IMO4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(REPROIMO),DISP=SHR
//*

//********************************************************************
//*  COPY ALERT CLUSTER -KSDSALT-
//********************************************************************
//ALT1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.KSDSALT,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD//SYSIN    DD 
 DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//ALT2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFALT),DISP=SHR
//*
//ALT4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(REPROALT),DISP=SHR
//*
//********************************************************************
//*  COPY BATCH MEASUREMENT DATA CLUSTER -KSDSPRO-
//********************************************************************
//PRO1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.KSDSPRO,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//PRO2     EXEC PGM=IDCAMS,COND=(0,NE)

//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFPRO),DISP=SHR
//*
//PRO3     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(REPROPRO),DISP=SHR
//*
//********************************************************************
//*  COPY BATCH MEASUREMENT INFO CLUSTER -KSDSBPM-
//********************************************************************
//BPM1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.KSDSBPM,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//BPM2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFBPM),DISP=SHR
//*
//BPM4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD  DSN=CAMAT.PMA.REPKSDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(REPROBPM),DISP=SHR
//*

//********************************************************************
//*  COPY JOB CLUSTER -KSDSJOB-
//********************************************************************
//JOB1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//IN       DD DSN=YOUR.APC450.ENV.KSDSJOB,DISP=OLD
//TEMP     DD DISP=OLD,DSN=CAMAT.PMA.REPKSDS
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//JOB2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DISP=SHR,DSN=CAMAT.PMA.CNTL(DEDEFJOB)
//*
//JOB4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD DISP=OLD,DSN=CAMAT.PMA.REPKSDS
//SYSIN    DD DISP=SHR,DSN=CAMAT.PMA.CNTL(REPROJOB)
//*
//********************************************************************
//*  COPY CICS MEASUREMENT LIST CLUSTER -RRDSCPP-
//********************************************************************
//CICPRO1  EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.RRDSCPP,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPRRDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//CICPRO2  EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFCPP),DISP=SHR
//*
//CICPRO3  EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//IN       DD  DSN=CAMAT.PMA.REPRRDS,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.RRDSCPP,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//********************************************************************
//*  COPY CICS MEASUREMENT DATA CLUSTER -KSDSCIC-
//********************************************************************
//CICS1    EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//IN       DD DISP=OLD,DSN=YOUR.APC450.ENV.KSDSCIC
//TEMP     DD DISP=OLD,DSN=CAMAT.PMA.REPKSDS
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//CICS2    EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=CAMAT.PMA.CNTL(DEDEFCIC)
//*
//CICS4    EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD DISP=OLD,DSN=CAMAT.PMA.REPKSDS
//SYSIN    DD DISP=SHR,DSN=CAMAT.PMA.CNTL(REPROCIC)
//*

//********************************************************************
//*  COPY IMS MEASUREMENT LIST CLUSTER -RRDSIPP-
//********************************************************************
//IMSPRO1  EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD  SYSOUT=*
//IN       DD  DSN=YOUR.APC450.ENV.RRDSIPP,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.REPRRDS,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//IMSPRO2  EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(DEDEFIPP),DISP=SHR
//*
//IMSPRO3  EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//IN       DD  DSN=CAMAT.PMA.REPRRDS,DISP=OLD
//TEMP     DD  DSN=CAMAT.PMA.RRDSIPP,DISP=OLD
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//********************************************************************
//*  COPY IMS  MEASUREMENT DATA CLUSTER -KSDSIMS-
//********************************************************************
//IMS1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//IN       DD DISP=OLD,DSN=YOUR.APC450.ENV.KSDSIMS
//TEMP     DD DISP=OLD,DSN=CAMAT.PMA.REPKSDS
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//IMS2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=CAMAT.PMA.CNTL(DEDEFIMS)
//*
//IMS4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD DISP=OLD,DSN=CAMAT.PMA.REPKSDS
//SYSIN    DD DISP=SHR,DSN=CAMAT.PMA.CNTL(REPROIMS)
//*
//********************************************************************
//*  COPY SQL STATEMENT CLUSTER -KSDSSQL-
//********************************************************************
//SQL1     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//IN       DD DISP=OLD,DSN=YOUR.APC450.ENV.KSDSSQL
//TEMP     DD DISP=OLD,DSN=CAMAT.PMA.REPKSDS
//SYSIN    DD  DSN=CAMAT.PMA.CNTL(APCXCREP),DISP=SHR
//*
//SQL2     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=CAMAT.PMA.CNTL(DEDEFSQL)
//*
//SQL4     EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//TEMP     DD DISP=OLD,DSN=CAMAT.PMA.REPKSDS
//SYSIN    DD DISP=SHR,DSN=CAMAT.PMA.CNTL(REPROSQL)
//*

//********************************************************************
//* CONVERT CICS SMF DICTIONARY CLUSTER -KSDSDIC-                    *
//********************************************************************
//DIC     EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DISP=SHR,DSN=CAMAT.PMA.CNTL(DEDEFDIC)
//*
//APCCACND EXEC PGM=APCCACND,REGION=4M
//STEPLIB  DD DISP=SHR,DSN=CAMAT.PMA.CEETLOAD
//APCCD450  DD DISP=SHR,DSN=YOUR.APC450.ENV.KSDSDIC
//APCCD460  DD DISP=SHR,DSN=CAMAT.PMA.KSDSDIC
//SYSUDUMP DD SYSOUT=*
//APCREP   DD SYSOUT=*,BLKSIZE=25600
//APCEREP  DD SYSOUT=*,BLKSIZE=25600
//*
//********************************************************************
//* CONVERT CICS SMF DATA CLUSTER -KSDSCST-                          *
//********************************************************************
//CST     EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DISP=SHR,DSN=CAMAT.PMA.CNTL(DEDEFCST)
//*
//APCCACNC EXEC PGM=APCCACNC,REGION=4M
//STEPLIB  DD DISP=SHR,DSN=CAMAT.PMA.CEETLOAD
//APCCD450  DD DISP=SHR,DSN=YOUR.APC450.ENV.KSDSCST
//APCCD460  DD DISP=SHR,DSN=CAMAT.PMA.KSDSCST
//SYSUDUMP DD SYSOUT=*
//APCREP   DD SYSOUT=*,BLKSIZE=25600
//APCEREP  DD SYSOUT=*,BLKSIZE=25600
//*
//********************************************************************
//*    DELETE REPRO FILES
//********************************************************************
//DEL1     EXEC PGM=IEFBR14
//DELKSDS  DD DSN=CAMAT.PMA.REPKSDS,
//            DISP=(MOD,DELETE),
//            DCB=(LRECL=8189,RECFM=VB,BLKSIZE=8193),
//            SPACE=(CYL,(150,150)),
//            UNIT=SYSDA,
//            VOL=SER=VOL001
//DELRRDS  DD DSN=CAMAT.PMA.REPRRDS,
//            DISP=(MOD,DELETE),
//            DCB=(LRECL=8160,RECFM=FB,BLKSIZE=8160),
//            SPACE=(CYL,(150,150)),
//            UNIT=SYSDA,
//            VOL=SER=VOL001
//*

//********************************************************************
//*    WRITE CONVERT NOTIFY MESSAGES TO INSTALLATION LOG
//********************************************************************
//*
//NOTIFY   EXEC PGM=IEBGENER,COND=(0,NE)
//SYSUT1   DD DISP=SHR,DSN=CAMAT.PMA.CUST(CUST$JOB)
//         DD *
2010/10/29 06:59  #8 CUSTJ450   CONVERT UPGRADED DATA    - EXECUTED
//SYSUT2   DD DISP=SHR,DSN=CAMAT.PMA.CUST(CUST$JOB)
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*

1. Adjust the data set names of the VSAM clusters of the previous 4.5.0 version.
2. Submit the job.

   After the succesful execution of the upgrade job, Step 12 is marked as COMPLETED, as shown following.

    CUSTPT00 ------------------- PMA r85 Customization Dialog ---------------
    COMMAND ===>
   
         Step                                                Status
         ===============================================================
         12 Upgrade                                          COMPLETED