Using the DLP#CNV3 utility
Before using the DLP#CNV3 utility
Before you start using the DLP#CNV3 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.
- Customized the SYSTIN control statements to produce the required output.
Code sample - DLP#CNV3 utility
The following code is a sample of the DLP#CNV3 utility:
//DLP#CNV3 JOB (ACCT#),'DLA2DLP',CLASS=A,MSGCLASS=X,
// REGION=0M,NOTIFY=&SYSUID
//* @BMCCHG BQQ6993,MAC DLA TO DLP CONVERSION #Z346022
//* @BMCCHG BQQ7185,MAC HELP FOR ERROR MSGS - DLA TO DLP #Z373587
//*
//*-------------------------------------------------------------------*
//* MEMBER : DLP#CNV3 *
//* *
//* PURPOSE : THIS JOB CAN BE USED TO CONVERT EXISTING DELTA IMS *
//* DELTA LISTS INTO CM IMS TM DELTA LISTS. CM IMS TM *
//* CANNOT USE EXISTING DELTA IMS DELTA LISTS. YOU CAN *
//* SELECTIVELY CONVERT INDIVIDUAL MEMBERS OR CONVERT *
//* AN ENTIRE DELTA IMS DELTA LIST PDS WITH THIS *
//* UTILITY. *
//* *
//* REQUIRED USER *
//* MODIFICATIONS: 1. UPDATE JOBCARD TO REFLECT LOCAL REQUIREMENTS *
//* 2. REVIEW ALL "SET" AND "DD" STATEMENTS TO INCLUDE *
//* CORRECT DATASET NAMES *
//* 3. CUSTOMIZE THE SYSTSIN CONTROL STATEMENTS TO *
//* PRODUCE THE REQUIRED OUTPUT *
//*-------------------------------------------------------------------*
//*
// SET DLADLDSN=DELTA.IMS.DLIST DELTA IMS DELTA LIST <===CHANGE
// SET DLPDLDSN=DELTA.PLUS.DLIST CM IMS TM DELTA LIST <===CHANGE
// SET DLPLDDSN=BMCNODE.DLPLIB CM IMS TM LOAD LIB <===CHANGE
//*
//*-------------------------------------------------------------------*
//* ALLOCATE CM IMS TM DELTA LIST DATASET IF IT DOES NOT EXIST *
//*-------------------------------------------------------------------*
//*
//ALLOCATE EXEC PGM=IEFBR14
//DLPDL DD DSN=&DLPDLDSN, <== CM IMS TM DELTA LIST
// DISP=(MOD,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10,100)),
// DCB=(RECFM=VB,LRECL=516,BLKSIZE=4096)
//*
//*-------------------------------------------------------------------*
//* CONVERT DELTA IMS DELTA LISTS TO CM IMS TM DELTA LISTS *
//*-------------------------------------------------------------------*
//* *
//* UTILITY COMMANDS SYNTAX AND DOCUMENTATION : *
//* ========================================== #Z373587 *
//* *
//* FUNCTION CONVERT,RIMS(XXXX) *
//* PERFORM THE CONVERT FUNCTION. OPTIONALLY, CONVERT(R) CAN BE *
//* SPECIFIED TO INDICATE THAT ANY MEMBERS BY THE SAME NAME THAT *
//* EXIST IN THE OUTPUT DELTA PDS SHOULD BE REPLACED BY THE *
//* MEMBERS CREATED IN THIS EXECUTION OF THE COMMAND. THIS *
//* OVERRIDES THE REPLACE (R) OPERAND SPECIFIED ON THE MEMBER *
//* COMMAND. FUNCTION CONVERT IS A REQUIRED COMMAND. IF RIMS(XXXX) *
//* IS SPECIFIED, STRING XXXX WILL BE PLACED IN THE RESTRICTING *
//* IMS-ID FIELD OF THE OUTPUT MEMBER, EFFECTIVELY OVERRIDING ANY *
//* RESTRICTING IMS-ID PROVIDED BY THE INPUT MEMBER(S). STRING XXXX *
//* MAY CONTAIN MASKING CHARACTER(S) '*' AND/OR '%'. *
//* *
//* MEMBER MEMBER_NAME,RIMS(XXXX) *
//* CONVERT MEMBER_NAME IN THE INPUT PDS TO THE SAME NAME IN THE *
//* OUTPUT PDS. OPTIONALLY, MEMBER_NAME(R) CAN BE SPECIFIED TO *
//* INDICATE THAT IF THE MEMBER CURRENTLY EXISTS IN THE OUTPUT PDS *
//* IT SHOULD BE REPLACED. IF (R) IS NOT SPECIFIED AND THE MEMBER *
//* ALREADY EXISTS, THE CONVERT WILL NOT BE PERFORMED UNLESS CON- *
//* VERT(R) WAS ALSO SPECIFIED. IF RIMS(XXXX) IS SPECIFIED THE *
//* STRING XXXX WILL BE PLACED IN THE RESTRICTING IMS-ID FIELD *
//* OF THE OUTPUT MEMBER EFFECTIVELY OVERRIDING ANY RESTRICTING *
//* IMS-ID PROVIDED BY THE INPUT MEMBER. STRING XXXX MAY CONTAIN *
//* MASKING CHARACTER(S) '*' AND/OR '%'. *
//* *
//* MEMBER MEMBER_NAME,NEWM(NEW_MEMBER_NAME),RIMS(XXXX) *
//* CONVERT MEMBER_NAME IN THE INPUT PDS TO NEW_MEMBER_NAME IN THE *
//* OUTPUT PDS. OPTIONALLY, MEMBER_NAME(R) CAN BE SPECIFIED TO *
//* INDICATE THAT IF THE NEW MEMBER EXISTS IN THE OUTPUT PDS, IT *
//* SHOULD BE REPLACED. IF (R) IS NOT SPECIFIED AND THE NEW MEMBER *
//* EXISTS, THE CONVERT WILL NOT BE PERFORMED UNLESS CONVERT(R) WAS *
//* WAS ALSO SPECIFIED. IF RIMS(XXXX) IS SPECIFIED, STRING XXXX *
//* WILL BE PLACED IN THE RESTRICTING IMS-ID FIELD OF THE NEW *
//* MEMBER, EFFECTIVELY OVERRIDING ANY RESTRICTING IMS-ID PROVIDED *
//* BY THE INPUT MEMBER. STRING XXXX MAY CONTAIN MASKING *
//* CHARACTER(S) '*' AND/OR '%'. *
//* *
//* END *
//* SYNTAX CHECK 'FUNCTION' AND 'MEMBER' COMMANDS. NO CONVERSION IS *
//* PERFORMED. *
//* *
//* RUN *
//* INSTRUCTS THE UTILITY TO PERFORM ANY CONVERSIONS SPECIFIED BY *
//* THE 'FUNCTION' AND 'MEMBER' SUBCOMMANDS *
//* *
//* **NOTE 1: MEMBER_NAME MAY CONTAIN WILDCARD CHARACTERS '%' AND/OR *
//* '*' IN ORDER TO PROCESS ANY MEMBERS WHICH MATCH THE PATTERN *
//* SPECIFIED. *
//* *
//* **NOTE 2: IF NO MEMBER COMMANDS ARE SPECIFIED, ALL MEMBERS IN *
//* THE INPUT PDS WILL BE CONVERTED AND PLACED IN THE OUTPUT PDS. *
//* *
//* **NOTE 3: IF THE UTILITY ENCOUNTERS AN ERROR WITH ANY OF THE *
//* MEMBERS TO BE CONVERTED, NO CONVERSION WILL BE DONE, AND *
//* ABEND U4068 WILL BE ISSUED. *
//* *
//* *
//* GENERAL CONVERSION PROCESSING INFORMATION : *
//* ========================================== *
//* *
//* THE FOLLOWING ELEMENT TYPES ARE SUPPORTED BY THIS UTILITY: *
//* COMMAND, APPLICATION, TRANSACTION, DATABASE, ROUTE CODE, *
//* NODE, LTERM, SUBPOOL, AND COMMENT. *
//* *
//* THE FOLLOWING ELEMENT ACTIONS ARE SUPPORTED BY THIS UTILITY: *
//* ADD, DELETE, REVISE AND RELOAD *
//* *
//* COMMANDS : CM IMS TM COMMANDS ARE CLASSIFIED AS EITHER BEFORE OR *
//* AFTER COMMANDS (SEE CM IMS TM USER'S GUIDE FOR FURTHER *
//* INFORMATION). THE CONVERT UTILITY SETS ALL /STA AND /RST *
//* COMMANDS TO AFTER COMMANDS. ALL OTHER COMMANDS ARE BEFORE *
//* DELTA LIST PROCESSING COMMANDS. *
//* *
//*-------------------------------------------------------------------*
//*
//CONVERT EXEC PGM=IKJEFT01,DYNAMNBR=99,REGION=4M
//STEPLIB DD DISP=SHR,DSN=&DLPLDDSN <== CM IMS TM LOAD LIB
//*
//SYSUT1 DD DISP=SHR,DSN=&DLADLDSN <== DELTA IMS DELTA LIST
//SYSUT2 DD DISP=SHR,DSN=&DLPDLDSN <== CM IMS TM DELTA LIST
//*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE MSGID
DLPUCVT0
FUNCTION CONVERT(R)
RUN
/*
//*
// REGION=0M,NOTIFY=&SYSUID
//* @BMCCHG BQQ6993,MAC DLA TO DLP CONVERSION #Z346022
//* @BMCCHG BQQ7185,MAC HELP FOR ERROR MSGS - DLA TO DLP #Z373587
//*
//*-------------------------------------------------------------------*
//* MEMBER : DLP#CNV3 *
//* *
//* PURPOSE : THIS JOB CAN BE USED TO CONVERT EXISTING DELTA IMS *
//* DELTA LISTS INTO CM IMS TM DELTA LISTS. CM IMS TM *
//* CANNOT USE EXISTING DELTA IMS DELTA LISTS. YOU CAN *
//* SELECTIVELY CONVERT INDIVIDUAL MEMBERS OR CONVERT *
//* AN ENTIRE DELTA IMS DELTA LIST PDS WITH THIS *
//* UTILITY. *
//* *
//* REQUIRED USER *
//* MODIFICATIONS: 1. UPDATE JOBCARD TO REFLECT LOCAL REQUIREMENTS *
//* 2. REVIEW ALL "SET" AND "DD" STATEMENTS TO INCLUDE *
//* CORRECT DATASET NAMES *
//* 3. CUSTOMIZE THE SYSTSIN CONTROL STATEMENTS TO *
//* PRODUCE THE REQUIRED OUTPUT *
//*-------------------------------------------------------------------*
//*
// SET DLADLDSN=DELTA.IMS.DLIST DELTA IMS DELTA LIST <===CHANGE
// SET DLPDLDSN=DELTA.PLUS.DLIST CM IMS TM DELTA LIST <===CHANGE
// SET DLPLDDSN=BMCNODE.DLPLIB CM IMS TM LOAD LIB <===CHANGE
//*
//*-------------------------------------------------------------------*
//* ALLOCATE CM IMS TM DELTA LIST DATASET IF IT DOES NOT EXIST *
//*-------------------------------------------------------------------*
//*
//ALLOCATE EXEC PGM=IEFBR14
//DLPDL DD DSN=&DLPDLDSN, <== CM IMS TM DELTA LIST
// DISP=(MOD,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,10,100)),
// DCB=(RECFM=VB,LRECL=516,BLKSIZE=4096)
//*
//*-------------------------------------------------------------------*
//* CONVERT DELTA IMS DELTA LISTS TO CM IMS TM DELTA LISTS *
//*-------------------------------------------------------------------*
//* *
//* UTILITY COMMANDS SYNTAX AND DOCUMENTATION : *
//* ========================================== #Z373587 *
//* *
//* FUNCTION CONVERT,RIMS(XXXX) *
//* PERFORM THE CONVERT FUNCTION. OPTIONALLY, CONVERT(R) CAN BE *
//* SPECIFIED TO INDICATE THAT ANY MEMBERS BY THE SAME NAME THAT *
//* EXIST IN THE OUTPUT DELTA PDS SHOULD BE REPLACED BY THE *
//* MEMBERS CREATED IN THIS EXECUTION OF THE COMMAND. THIS *
//* OVERRIDES THE REPLACE (R) OPERAND SPECIFIED ON THE MEMBER *
//* COMMAND. FUNCTION CONVERT IS A REQUIRED COMMAND. IF RIMS(XXXX) *
//* IS SPECIFIED, STRING XXXX WILL BE PLACED IN THE RESTRICTING *
//* IMS-ID FIELD OF THE OUTPUT MEMBER, EFFECTIVELY OVERRIDING ANY *
//* RESTRICTING IMS-ID PROVIDED BY THE INPUT MEMBER(S). STRING XXXX *
//* MAY CONTAIN MASKING CHARACTER(S) '*' AND/OR '%'. *
//* *
//* MEMBER MEMBER_NAME,RIMS(XXXX) *
//* CONVERT MEMBER_NAME IN THE INPUT PDS TO THE SAME NAME IN THE *
//* OUTPUT PDS. OPTIONALLY, MEMBER_NAME(R) CAN BE SPECIFIED TO *
//* INDICATE THAT IF THE MEMBER CURRENTLY EXISTS IN THE OUTPUT PDS *
//* IT SHOULD BE REPLACED. IF (R) IS NOT SPECIFIED AND THE MEMBER *
//* ALREADY EXISTS, THE CONVERT WILL NOT BE PERFORMED UNLESS CON- *
//* VERT(R) WAS ALSO SPECIFIED. IF RIMS(XXXX) IS SPECIFIED THE *
//* STRING XXXX WILL BE PLACED IN THE RESTRICTING IMS-ID FIELD *
//* OF THE OUTPUT MEMBER EFFECTIVELY OVERRIDING ANY RESTRICTING *
//* IMS-ID PROVIDED BY THE INPUT MEMBER. STRING XXXX MAY CONTAIN *
//* MASKING CHARACTER(S) '*' AND/OR '%'. *
//* *
//* MEMBER MEMBER_NAME,NEWM(NEW_MEMBER_NAME),RIMS(XXXX) *
//* CONVERT MEMBER_NAME IN THE INPUT PDS TO NEW_MEMBER_NAME IN THE *
//* OUTPUT PDS. OPTIONALLY, MEMBER_NAME(R) CAN BE SPECIFIED TO *
//* INDICATE THAT IF THE NEW MEMBER EXISTS IN THE OUTPUT PDS, IT *
//* SHOULD BE REPLACED. IF (R) IS NOT SPECIFIED AND THE NEW MEMBER *
//* EXISTS, THE CONVERT WILL NOT BE PERFORMED UNLESS CONVERT(R) WAS *
//* WAS ALSO SPECIFIED. IF RIMS(XXXX) IS SPECIFIED, STRING XXXX *
//* WILL BE PLACED IN THE RESTRICTING IMS-ID FIELD OF THE NEW *
//* MEMBER, EFFECTIVELY OVERRIDING ANY RESTRICTING IMS-ID PROVIDED *
//* BY THE INPUT MEMBER. STRING XXXX MAY CONTAIN MASKING *
//* CHARACTER(S) '*' AND/OR '%'. *
//* *
//* END *
//* SYNTAX CHECK 'FUNCTION' AND 'MEMBER' COMMANDS. NO CONVERSION IS *
//* PERFORMED. *
//* *
//* RUN *
//* INSTRUCTS THE UTILITY TO PERFORM ANY CONVERSIONS SPECIFIED BY *
//* THE 'FUNCTION' AND 'MEMBER' SUBCOMMANDS *
//* *
//* **NOTE 1: MEMBER_NAME MAY CONTAIN WILDCARD CHARACTERS '%' AND/OR *
//* '*' IN ORDER TO PROCESS ANY MEMBERS WHICH MATCH THE PATTERN *
//* SPECIFIED. *
//* *
//* **NOTE 2: IF NO MEMBER COMMANDS ARE SPECIFIED, ALL MEMBERS IN *
//* THE INPUT PDS WILL BE CONVERTED AND PLACED IN THE OUTPUT PDS. *
//* *
//* **NOTE 3: IF THE UTILITY ENCOUNTERS AN ERROR WITH ANY OF THE *
//* MEMBERS TO BE CONVERTED, NO CONVERSION WILL BE DONE, AND *
//* ABEND U4068 WILL BE ISSUED. *
//* *
//* *
//* GENERAL CONVERSION PROCESSING INFORMATION : *
//* ========================================== *
//* *
//* THE FOLLOWING ELEMENT TYPES ARE SUPPORTED BY THIS UTILITY: *
//* COMMAND, APPLICATION, TRANSACTION, DATABASE, ROUTE CODE, *
//* NODE, LTERM, SUBPOOL, AND COMMENT. *
//* *
//* THE FOLLOWING ELEMENT ACTIONS ARE SUPPORTED BY THIS UTILITY: *
//* ADD, DELETE, REVISE AND RELOAD *
//* *
//* COMMANDS : CM IMS TM COMMANDS ARE CLASSIFIED AS EITHER BEFORE OR *
//* AFTER COMMANDS (SEE CM IMS TM USER'S GUIDE FOR FURTHER *
//* INFORMATION). THE CONVERT UTILITY SETS ALL /STA AND /RST *
//* COMMANDS TO AFTER COMMANDS. ALL OTHER COMMANDS ARE BEFORE *
//* DELTA LIST PROCESSING COMMANDS. *
//* *
//*-------------------------------------------------------------------*
//*
//CONVERT EXEC PGM=IKJEFT01,DYNAMNBR=99,REGION=4M
//STEPLIB DD DISP=SHR,DSN=&DLPLDDSN <== CM IMS TM LOAD LIB
//*
//SYSUT1 DD DISP=SHR,DSN=&DLADLDSN <== DELTA IMS DELTA LIST
//SYSUT2 DD DISP=SHR,DSN=&DLPDLDSN <== CM IMS TM DELTA LIST
//*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
PROFILE MSGID
DLPUCVT0
FUNCTION CONVERT(R)
RUN
/*
//*
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*