Using the DLP#CNV2 utility
Before using the DLP#CNV2 utility
Before you start using the DLP#CNV2 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.
- Changed the "VVVVVV" value to the actual DASD VOLSER value to be used.
- Ensured that the space allocation meets your local requirements.
Code sample - DLP#CNV2 utility
The following code is a sample of the DLP#CNV2 utility:
//DLP#CNV2 JOB (ACCT#),'DLA2DLP',CLASS=A,MSGCLASS=X,
// REGION=0M,NOTIFY=&SYSUID
//* @BMCCHG BQQ6993,MAC DLA TO DLP CONVERSION #Z346022
//*
//*-------------------------------------------------------------------*
//* MEMBER : DLP#CNV2 *
//* *
//* PURPOSE : THIS JOB IS USED TO: *
//* 1. CONVERT EXISTING DELTA IMS ID OPTIONS MEMBER *
//* TO CM IMS TM IMS ID OPTIONS MEMBER *
//* 2. ALLOCATE AND FORMAT THE CM IMS TM HISTORY AND *
//* LOG DATASETS *
//* 3. CONVERT DELTA IMS LOG DATSETS TO CM IMS TM LOG *
//* DATASETS/HISTORY DATASETS *
//* *
//* REQUIRED USER *
//* MODIFICATIONS: 1. UPDATE JOBCARD TO REFLECT LOCAL REQUIREMENTS *
//* 2. REVIEW ALL "SET" AND "DD" STATEMENTS TO INCLUDE *
//* CORRECT DATASET NAMES *
//* 3. CHANGE "VVVVVV" TO THE DASD VOLSER TO BE USED *
//* 4. ENSURE THAT THE SPACE ALLOCATION MEETS LOCAL *
//* REQUIREMENTS *
//* 5. ALSO ENSURE THAT THE NEWLY CREATED HISTORY AND *
//* LOG DATASETS HAVE ENOUGH SPACE ALLOCATION THAT *
//* IS SIMILAR TO OR GREATER THAN THE EXISTING *
//* DELTA IMS LOG DATASETS *
//* *
//*-------------------------------------------------------------------*
//* *
// EXPORT SYMLIST=*
// SET DLAOPDSN=DELTA.IMS.OPTIONS DELTA IMS OPTIONS LIB <===CHANGE
// SET DLPOPDSN=DELTA.PLUS.OPTIONS CM IMS TM OPTIONS LIB <===CHANGE
//*
//*
// SET DLPHLQDS=HLQ LOG/HISTORY DSN HLQ <===CHANGE
// SET DLPIMSID=IIII IMS ID TO BE CONVERTED <===CHANGE
// SET DLPSUFH1=HIST1 (MAX CHAR 8) HISTORY FILE1 SUFFIX <===CHANGE
// SET DLPSUFH2=HIST2 (MAX CHAR 8) HISTORY FILE2 SUFFIX <===CHANGE
// SET DLPSUFL1=LOG1 (MAX CHAR 8) LOG FILE1 SUFFIX <===CHANGE
// SET DLPSUFL2=LOG2 (MAX CHAR 8) LOG FILE2 SUFFIX <===CHANGE
//*
// SET DLPLDDSN=BMCNODE.DLPLIB CM IMS TM LOAD LIB <===CHANGE
// SET DLPPLDSN=BMCNODE.DLPPLIB CM IMS TM PANEL LIB <===CHANGE
//*
//*
//*-------------------------------------------------------------------*
//* ALLOCATE THE CM IMS TM OPTIONS DATASET 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,5,65)),
// DCB=(LRECL=0,BLKSIZE=32760,RECFM=U,DSORG=PO)
//*
//*-------------------------------------------------------------------*
//* CONVERT DELTA IMS ID OPTIONS TO CM IMS TM ID OPTIONS *
//*-------------------------------------------------------------------*
//* *
//* Syntax: CONVERT DLA IMSID dlalib dlplib hlq imsid suffix1 *
//* suffix2 suffix3 suffix4 rep *
//* dlalib = DLA OPTIONS DATASET NAME *
//* dlplib = DLP OPTIONS DATASET NAME *
//* hlq = HIGH LEVEL QUALIFIER *
//* imsid = IMS ID *
//* suffix1 = LOG1 SUFFIX *
//* suffix2 = LOG2 SUFFIX *
//* suffix3 = HISTORY1 SUFFIX *
//* suffix4 = HISTORY2 SUFFIX *
//* rep = REPLACE | NOREPLACE *
//*-------------------------------------------------------------------*
//*
//CONVIMSI 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 IMSID +
'&DLAOPDSN' +
'&DLPOPDSN' +
&DLPHLQDS +
&DLPIMSID +
&DLPSUFL1 +
&DLPSUFL2 +
&DLPSUFH1 +
&DLPSUFH2 +
REPLACE)
/*
//*
//*-------------------------------------------------------------------*
//* ALLOCATE HISTORY FILES *
//*-------------------------------------------------------------------*
//*
//HISTALLO EXEC PGM=IEFBR14
//*
//PRIHIST DD DISP=(MOD,CATLG,DELETE),RECFM=FB,VOL=SER=VVVVVV,
// UNIT=DISK,DCB=(LRECL=1024,BLKSIZE=20480,DSORG=PS),
// SPACE=(CYL,(10)),DSN=&DLPHLQDS..&DLPIMSID..&DLPSUFH1
//*
//SECHIST DD DISP=(MOD,CATLG,DELETE),RECFM=FB,VOL=SER=VVVVVV,
// UNIT=DISK,DCB=(LRECL=1024,BLKSIZE=20480,DSORG=PS),
// SPACE=(CYL,(10)),DSN=&DLPHLQDS..&DLPIMSID..&DLPSUFH2
//*
//*-------------------------------------------------------------------*
//* FORMAT HISTORY FILES *
//*-------------------------------------------------------------------*
//*
//HISTUTIL EXEC PGM=IKJEFT01,
// PARM=DLPGUTL0,DYNAMNBR=16,REGION=4M
//*
//STEPLIB DD DISP=SHR,DSN=&DLPLDDSN <== CM IMS TM LOAD LIB
// DD DISP=SHR,DSN=&DLPOPDSN <== CM IMS TM OPTIONS LIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSTSIN DD *,SYMBOLS=JCLONLY
FORMAT &DLPIMSID HISTORY
END
/*
//*-------------------------------------------------------------------*
//* ALLOCATE LOG DATASETS *
//*-------------------------------------------------------------------*
//*
//LOGALLO EXEC PGM=IEFBR14
//*
//PRILOG DD DISP=(MOD,CATLG,DELETE),RECFM=FB,VOL=SER=VVVVVV,
// UNIT=DISK,DCB=(LRECL=512,BLKSIZE=10240,DSORG=PS),
// SPACE=(CYL,(10)),DSN=&DLPHLQDS..&DLPIMSID..&DLPSUFL1
//*
//SECLOG DD DISP=(MOD,CATLG,DELETE),RECFM=FB,VOL=SER=VVVVVV,
// UNIT=DISK,DCB=(LRECL=512,BLKSIZE=10240,DSORG=PS),
// SPACE=(CYL,(10)),DSN=&DLPHLQDS..&DLPIMSID..&DLPSUFL2
//*
//*-------------------------------------------------------------------*
//* FORMAT LOG FILES *
//*-------------------------------------------------------------------*
//*
//LOGUTIL EXEC PGM=IKJEFT01,
// PARM=DLPGUTL0,DYNAMNBR=16,REGION=4M
//*
//STEPLIB DD DISP=SHR,DSN=&DLPLDDSN <== CM IMS TM LOAD LIB
// DD DISP=SHR,DSN=&DLPOPDSN <== CM IMS TM OPTIONS LIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSTSIN DD *,SYMBOLS=JCLONLY
FORMAT &DLPIMSID LOG
END
/*
//*-------------------------------------------------------------------*
//* CONVERT DELTA IMS LOG DATSETS TO CM IMS TM LOG DATASETS *
//* *
//* Syntax: CONVERT DLA LOG dlalib dlplib imsid rep format *
//* dlalib = DLA OPTIONS DATASET NAME *
//* dlplib = DLP OPTIONS DATASET NAME *
//* imsid = IMS ID *
//* rep = REPLACE | NOREPLACE *
//* format = FORMAT
//*-------------------------------------------------------------------*
//*
//CONVLOG1 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 LOG +
'&DLAOPDSN' +
'&DLPOPDSN' +
&DLPIMSID +
REPLACE +
FORMAT)
/*
//*
******************************** Bottom of Data ***********************
// REGION=0M,NOTIFY=&SYSUID
//* @BMCCHG BQQ6993,MAC DLA TO DLP CONVERSION #Z346022
//*
//*-------------------------------------------------------------------*
//* MEMBER : DLP#CNV2 *
//* *
//* PURPOSE : THIS JOB IS USED TO: *
//* 1. CONVERT EXISTING DELTA IMS ID OPTIONS MEMBER *
//* TO CM IMS TM IMS ID OPTIONS MEMBER *
//* 2. ALLOCATE AND FORMAT THE CM IMS TM HISTORY AND *
//* LOG DATASETS *
//* 3. CONVERT DELTA IMS LOG DATSETS TO CM IMS TM LOG *
//* DATASETS/HISTORY DATASETS *
//* *
//* REQUIRED USER *
//* MODIFICATIONS: 1. UPDATE JOBCARD TO REFLECT LOCAL REQUIREMENTS *
//* 2. REVIEW ALL "SET" AND "DD" STATEMENTS TO INCLUDE *
//* CORRECT DATASET NAMES *
//* 3. CHANGE "VVVVVV" TO THE DASD VOLSER TO BE USED *
//* 4. ENSURE THAT THE SPACE ALLOCATION MEETS LOCAL *
//* REQUIREMENTS *
//* 5. ALSO ENSURE THAT THE NEWLY CREATED HISTORY AND *
//* LOG DATASETS HAVE ENOUGH SPACE ALLOCATION THAT *
//* IS SIMILAR TO OR GREATER THAN THE EXISTING *
//* DELTA IMS LOG DATASETS *
//* *
//*-------------------------------------------------------------------*
//* *
// EXPORT SYMLIST=*
// SET DLAOPDSN=DELTA.IMS.OPTIONS DELTA IMS OPTIONS LIB <===CHANGE
// SET DLPOPDSN=DELTA.PLUS.OPTIONS CM IMS TM OPTIONS LIB <===CHANGE
//*
//*
// SET DLPHLQDS=HLQ LOG/HISTORY DSN HLQ <===CHANGE
// SET DLPIMSID=IIII IMS ID TO BE CONVERTED <===CHANGE
// SET DLPSUFH1=HIST1 (MAX CHAR 8) HISTORY FILE1 SUFFIX <===CHANGE
// SET DLPSUFH2=HIST2 (MAX CHAR 8) HISTORY FILE2 SUFFIX <===CHANGE
// SET DLPSUFL1=LOG1 (MAX CHAR 8) LOG FILE1 SUFFIX <===CHANGE
// SET DLPSUFL2=LOG2 (MAX CHAR 8) LOG FILE2 SUFFIX <===CHANGE
//*
// SET DLPLDDSN=BMCNODE.DLPLIB CM IMS TM LOAD LIB <===CHANGE
// SET DLPPLDSN=BMCNODE.DLPPLIB CM IMS TM PANEL LIB <===CHANGE
//*
//*
//*-------------------------------------------------------------------*
//* ALLOCATE THE CM IMS TM OPTIONS DATASET 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,5,65)),
// DCB=(LRECL=0,BLKSIZE=32760,RECFM=U,DSORG=PO)
//*
//*-------------------------------------------------------------------*
//* CONVERT DELTA IMS ID OPTIONS TO CM IMS TM ID OPTIONS *
//*-------------------------------------------------------------------*
//* *
//* Syntax: CONVERT DLA IMSID dlalib dlplib hlq imsid suffix1 *
//* suffix2 suffix3 suffix4 rep *
//* dlalib = DLA OPTIONS DATASET NAME *
//* dlplib = DLP OPTIONS DATASET NAME *
//* hlq = HIGH LEVEL QUALIFIER *
//* imsid = IMS ID *
//* suffix1 = LOG1 SUFFIX *
//* suffix2 = LOG2 SUFFIX *
//* suffix3 = HISTORY1 SUFFIX *
//* suffix4 = HISTORY2 SUFFIX *
//* rep = REPLACE | NOREPLACE *
//*-------------------------------------------------------------------*
//*
//CONVIMSI 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 IMSID +
'&DLAOPDSN' +
'&DLPOPDSN' +
&DLPHLQDS +
&DLPIMSID +
&DLPSUFL1 +
&DLPSUFL2 +
&DLPSUFH1 +
&DLPSUFH2 +
REPLACE)
/*
//*
//*-------------------------------------------------------------------*
//* ALLOCATE HISTORY FILES *
//*-------------------------------------------------------------------*
//*
//HISTALLO EXEC PGM=IEFBR14
//*
//PRIHIST DD DISP=(MOD,CATLG,DELETE),RECFM=FB,VOL=SER=VVVVVV,
// UNIT=DISK,DCB=(LRECL=1024,BLKSIZE=20480,DSORG=PS),
// SPACE=(CYL,(10)),DSN=&DLPHLQDS..&DLPIMSID..&DLPSUFH1
//*
//SECHIST DD DISP=(MOD,CATLG,DELETE),RECFM=FB,VOL=SER=VVVVVV,
// UNIT=DISK,DCB=(LRECL=1024,BLKSIZE=20480,DSORG=PS),
// SPACE=(CYL,(10)),DSN=&DLPHLQDS..&DLPIMSID..&DLPSUFH2
//*
//*-------------------------------------------------------------------*
//* FORMAT HISTORY FILES *
//*-------------------------------------------------------------------*
//*
//HISTUTIL EXEC PGM=IKJEFT01,
// PARM=DLPGUTL0,DYNAMNBR=16,REGION=4M
//*
//STEPLIB DD DISP=SHR,DSN=&DLPLDDSN <== CM IMS TM LOAD LIB
// DD DISP=SHR,DSN=&DLPOPDSN <== CM IMS TM OPTIONS LIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSTSIN DD *,SYMBOLS=JCLONLY
FORMAT &DLPIMSID HISTORY
END
/*
//*-------------------------------------------------------------------*
//* ALLOCATE LOG DATASETS *
//*-------------------------------------------------------------------*
//*
//LOGALLO EXEC PGM=IEFBR14
//*
//PRILOG DD DISP=(MOD,CATLG,DELETE),RECFM=FB,VOL=SER=VVVVVV,
// UNIT=DISK,DCB=(LRECL=512,BLKSIZE=10240,DSORG=PS),
// SPACE=(CYL,(10)),DSN=&DLPHLQDS..&DLPIMSID..&DLPSUFL1
//*
//SECLOG DD DISP=(MOD,CATLG,DELETE),RECFM=FB,VOL=SER=VVVVVV,
// UNIT=DISK,DCB=(LRECL=512,BLKSIZE=10240,DSORG=PS),
// SPACE=(CYL,(10)),DSN=&DLPHLQDS..&DLPIMSID..&DLPSUFL2
//*
//*-------------------------------------------------------------------*
//* FORMAT LOG FILES *
//*-------------------------------------------------------------------*
//*
//LOGUTIL EXEC PGM=IKJEFT01,
// PARM=DLPGUTL0,DYNAMNBR=16,REGION=4M
//*
//STEPLIB DD DISP=SHR,DSN=&DLPLDDSN <== CM IMS TM LOAD LIB
// DD DISP=SHR,DSN=&DLPOPDSN <== CM IMS TM OPTIONS LIB
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//SYSTSIN DD *,SYMBOLS=JCLONLY
FORMAT &DLPIMSID LOG
END
/*
//*-------------------------------------------------------------------*
//* CONVERT DELTA IMS LOG DATSETS TO CM IMS TM LOG DATASETS *
//* *
//* Syntax: CONVERT DLA LOG dlalib dlplib imsid rep format *
//* dlalib = DLA OPTIONS DATASET NAME *
//* dlplib = DLP OPTIONS DATASET NAME *
//* imsid = IMS ID *
//* rep = REPLACE | NOREPLACE *
//* format = FORMAT
//*-------------------------------------------------------------------*
//*
//CONVLOG1 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 LOG +
'&DLAOPDSN' +
'&DLPOPDSN' +
&DLPIMSID +
REPLACE +
FORMAT)
/*
//*
******************************** Bottom of Data ***********************
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*