Using the DLP#CNV1 utility

To use the CM IMS TM conversion process, you must first use the DLP#CNV1 utility.

Use this utility to:

Convert the existing DELTA IMS global options (DLA$GBL0) members to CM IMS TM (DLP$GBL0) global options members.
Convert the existing DELTA IMS keyword table members to CM IMS TM view profile members.
Copy the installation-supplied sample member to a CM IMS TM variable definition data set.
Create a report of data sets in the IMSID options.

Important

A standalone utility DLP#UTL7 is also provided to create this report. Refer to the topic Using-the-DLP-UTL7-utility.

Before using the DLP#CNV1 utility

Before you start using the DLP#CNV1 utility, ensure that you have:

Updated the job card for each utility in accordance with your environment and what it requires.
Reviewed all SET and DD statements to include the correct data set names.
Checked that the PARM keyword value is either ALL, DLP, or DLA for the IMSLIST step. (The default value is ALL.)

Code sample - DLP#CNV1 utility

The following code is a sample of the DLP#CNV1 utility:

//DLP#CNV1 JOB (ACCT#),'DLA2DLP',CLASS=A,MSGCLASS=X,
// REGION=0M,NOTIFY=&SYSUID
//* @BMCCHG BQQ6993,MAC DLA TO DLP CONVERSION                  #Z346022
//*
//*-------------------------------------------------------------------*
//* MEMBER       : DLP#CNV1                                           *
//*                                                                   *
//* PURPOSE      : THIS JOB IS USED TO:                               *
//*                1. CONVERT EXISTING DELTA IMS GLOBAL OPTIONS       *
//*                   MEMBER TO CM IMS TM GLOBAL OPTIONS MEMBER       *
//*                2. CONVERT EXISTING DELTA IMS KEYWORD TABLE        *
//*                   MEMBERS TO CM IMS TM VIEW PROFILE MEMBERS       *
//*                3. COPY INSTALLATION SUPPLIED SAMPLE MEMBER        *
//*                   TO CM IMS TM VARIABLE DEFINITION DATASET        *
//*                4. CREATE A REPORT OF DATASETS IN THE IMSID        *
//*                   OPTIONS                                         *
//*                                                                   *
//* REQUIRED USER                                                     *
//* MODIFICATIONS: 1. UPDATE JOBCARD TO REFLECT LOCAL REQUIREMENTS    *
//*                2. REVIEW ALL "SET" AND "DD" STATEMENTS TO INCLUDE *
//*                   CORRECT DATASET NAMES                           *
//*                3. THE PARM MUST SPECIFY ALL, DLP OR DLA FOR STEP *
//*                   IMSLIST. THE DEFAULT VALUE IS ALL               *
//*-------------------------------------------------------------------*
//*                                                                   *
// EXPORT SYMLIST=*
// SET DLAOPDSN=DELTA.IMS.OPTIONS    DELTA IMS OPTIONS LIB   <===CHANGE
// SET DLPOPDSN=DELTA.PLUS.OPTIONS   CM IMS TM OPTIONS LIB   <===CHANGE
//*
// SET DLPVPDSN=DELTA.PLUS.VPROFILE CM IMS TM VIEW PROF LIB <===CHANGE
// SET DLPVDDSN=DELTA.PLUS.VARDEFN   CM IMS TM VAR DEFN LIB <===CHANGE
//*
// SET DLPLDDSN=BMCNODE.DLPLIB       CM IMS TM LOAD LIB      <===CHANGE
// SET DLPPLDSN=BMCNODE.DLPPLIB      CM IMS TM PANEL LIB     <===CHANGE
// SET DLPSPDSN=BMCNODE.DLPSAMP      CM IMS TM SAMP LIB      <===CHANGE
//*
//*-------------------------------------------------------------------*
//*        ALLOCATE THE DATASETS IF IT DOES NOT EXIST                 *
//*-------------------------------------------------------------------*
//*
//ALLOCATE EXEC PGM=IEFBR14
//DLPON    DD DSN=&DLPOPDSN,                  <== CM IMS TM OPTIONS LIB
//            DISP=(MOD,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(5,10,65)),
//            DCB=(LRECL=0,BLKSIZE=32760,RECFM=U,DSORG=PO)
//*
//DLPVP    DD DSN=&DLPVPDSN,                <== CM IMS TM VIEW PROF LIB
//            DISP=(MOD,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(5,10,25)),
//            DCB=(LRECL=255,BLKSIZE=27998,RECFM=VB,DSORG=PO)
//*
//DLPVD    DD DSN=&DLPVDDSN,                 <== CM IMS TM VAR DEFN LIB
//            DISP=(MOD,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(CYL,(5,10,25)),
//            DCB=(LRECL=255,BLKSIZE=27998,RECFM=VB,DSORG=PO)
//*
//*-------------------------------------------------------------------*
//* CONVERT DELTA IMS GLOBAL OPTIONS TO CM IMS TM GLOBAL OPTIONS     *
//*                                                                   *
//* Syntax: CONVERT DLA GLOBAL dlalib dlplib vplib vdlib rep         *
//*                    dlalib   = DLA OPTIONS DATASET NAME            *
//*                    dlplib   = DLP OPTIONS DATASET NAME            *
//*                    vplib    = DLP VIEW PROFILE DATASET NAME       *
//*                    vdlib    = DLP VARIABLE DEFN DATASET NAME      *
//*                    rep      = REPLACE | NOREPLACE                 *
//*-------------------------------------------------------------------*
//*
//CONVGLBL EXEC PGM=IKJEFT01,DYNAMNBR=99
//ISPLLIB DD DISP=SHR,DSN=&DLPLDDSN             <== CM IMS TM LOAD LIB
//ISPPLIB DD DISP=SHR,DSN=&DLPPLDSN            <== CM IMS TM PANEL LIB
/*
//ISPMLIB DD DISP=SHR,DSN=ISP.SISPMENU                   <== CHECK DSN
//ISPSLIB DD DISP=SHR,DSN=ISP.SISPSENU                   <== CHECK DSN
//ISPTLIB DD DISP=SHR,DSN=ISP.SISPTENU                   <== CHECK DSN
/*
//ISPPROF DD RECFM=FB,LRECL=80,SPACE=(TRK,(2,2,2))
//ISPLOG   DD SYSOUT=*,RECFM=FB,LRECL=133
/*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
/*
//SYSTSIN DD *,SYMBOLS=JCLONLY
PROFILE PREFIX(&SYSUID)
ISPSTART CMD(DLPEXEC CONVERT DLA GLOBAL +
         '&DLAOPDSN' +
         '&DLPOPDSN' +
         '&DLPVPDSN' +
         '&DLPVDDSN' +
         REPLACE)
/*
//*
//*-------------------------------------------------------------------*
//* CONVERT DLA KEYWORD TABLE MEMBERS TO DLP VIEW PROFILE MEMBERS    *
//*-------------------------------------------------------------------*
//*
//* -MEMBER NAMES MAY SPECIFY ANY NUMBER OF PERCENT SIGNS (%) AND     *
//* ASTERISKS(*). A PERCENT SIGN REPRESENTS A SINGLE CHARACTER      *
//* AND AN ASTERISK REPRESENTS ZERO OR MORE CHARACTERS.              *
//*                                                                   *
//* -ONLY SYSUT1 MEMBERS BEGINNING WITH 'DDCKWT' OR 'DLAKWT' ARE      *
//* SELECTED FOR CONVERSION.                                         *
//*                                                                   *
//* -TO REPLACE AN EXISTING MEMBER(S) IN THE OUTPUT VIEW PROFILE DATA *
//* SET, USE (R) AT THE END OF THE MEMBER NAME(S).                   *
//*                                                                   *
//* -SYSIN DD *                                                      *
//*   DLAKWT99                                                        *
//*   DLAKWT*                                                         *
//*   DDCKWT44(R)                                                     *
//*   DDCKWT*                                                         *
//*   D%%KWT*(R)                                                      *
//*-------------------------------------------------------------------*
//*
//CONVKWT EXEC PGM=DLPUCVKX
//STEPLIB DD DISP=SHR,DSN=&DLPLDDSN             <== CM IMS TM LOAD LIB
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1   DD DISP=SHR,DSN=&DLAOPDSN         <== DELTA IMS KEY WORD LIB
//SYSUT2   DD DISP=SHR,DSN=&DLPVPDSN        <== CM IMS TM VIEW PROF LIB
//*
//SYSIN DD *
D%%KWT*(R)
/*
//*
//*-------------------------------------------------------------------*
//*        COPY SAMPLE MEMBER TO VARIABLE DEFINITION DATASET          *
//*-------------------------------------------------------------------*
//*
//COPYVD   EXEC PGM=SORT
//SORTIN   DD DISP=SHR,DSN=&DLPSPDSN(DLPVDSMP)   <== CM IMS TM SAMP LIB
//SORTOUT DD DISP=SHR,DSN=&DLPVDDSN(DLPVDSMP)   <== CM IMS TM VAR DEFN
//SYSOUT   DD SYSOUT=*                               LIB
//SYSIN    DD *
  SORT FIELDS=COPY
  OUTFIL FNAMES=SORTOUT,FTOV
/*
//*
//*-------------------------------------------------------------------*
//*        CREATE A REPORT OF DATASETS IN THE IMSID OPTIONS           *
//*-------------------------------------------------------------------*
//*
//IMSLIST EXEC PGM=DLPULIOP,PARM=('DLA')         <== ALL OR DLA OR DLP
//STEPLIB DD DISP=SHR,DSN=&DLPLDDSN             <== CM IMS TM LOAD LIB
//*
//SYSUT1   DD DISP=SHR,DSN=&DLAOPDSN         <== DELTA IMS OPTIONS LIB
//*
//SYSUT2   DD SYSOUT=*                               <== OUTPUT REPORT
//*
//SYSPRINT DD SYSOUT=*
//*
******************************** Bottom of Data ***********************

Using the DLP#CNV1 utility

Before using the DLP#CNV1 utility

Code sample - DLP#CNV1 utility

BMC AMI Change Manager for IMS TM 3.0

On this page