The Source Code Comparator › Running the Comparator in Stand-alone Mode › JCL › SAMPLE z/OS and OS/390 JCL

SAMPLE z/OS and OS/390 JCL

//JOBNAME  JOB YOUR.JOBCARD.INFORMATION
//JOBLIB   DD DISP=SHR,DSN=usercv.loadlib
//         DD DISP=SHR,DSN=ndvrdb.loadlib
//         DD DISP=SHR,DSN=idms.loadlib
//*
//*********************************************************************
//*
//*  JOB:      SAMPDCMP
//*
//*  PURPOSE:  PRODUCES SOURCE-COMPARISON REPORT FROM NDVRDLVR OUTPUT
//*
//*  STEP:     FUNCTION:
//*  =====     =========
//*
//*  COMPARE   PROGRAM NDVRDCMP DRIVES IDMSDDDL, RHDCMPUT, ETC. TO
//*            COMPARE TARGET SOURCE WITH NDVRDLVR MIGRATION EXPORT
//*            FILE CONTENTS.
//*
//*********************************************************************
//*
//COMPARE  EXEC PGM=NDVRDCMP,REGION=1000K
//SYSCTL   DD DISP=SHR,DSN=idms.sysctl
//SYSIPT   DD DSN=&.&SYSIPT.,SPACE=(TRK,(1,1)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSPCH   DD DSN=&.&SYSPCH.,SPACE=(CYL,(2,2)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//NDVRIN1  DD DSN=&.&NDVRIN1.,SPACE=(CYL,(2,2)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//NDVRIN2  DD DSN=&.&NDVRIN2.,SPACE=(CYL,(2,2)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SORTIN   DD DSN=&.&SORTIN.,SPACE=(CYL,(1,1)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SORTOUT  DD DSN=&.&SORTOUT.,SPACE=(CYL,(1,1)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SORTWK01 DD SPACE=(CYL,(4,4)),UNIT=disk
//SORTWK02 DD SPACE=(CYL,(4,4)),UNIT=disk
//SORTWK03 DD SPACE=(CYL,(4,4)),UNIT=disk
//SORTWK04 DD SPACE=(CYL,(4,4)),UNIT=disk
//********************************************************************
//*   THE FOLLOWING FILE CONCATENATES THE "SOURCE CODE" EXPORT       *
//*   FILES PRODUCED BY NDVRDLVR AT THE SOURCE SYSTEM/DICTIONARY.    *
//********************************************************************
//NDVRSRC  DD DISP=SHR,DSN=user.ndvrdlvr.dsdupd
//         DD DISP=SHR,DSN=user.ndvrdlvr.dscupd
//         DD DISP=SHR,DSN=user.ndvrdlvr.dsuupd
//         DD DISP=SHR,DSN=user.ndvrdlvr.dsmupd
//NDVRLST  DD SYSOUT=*
//NDVRERR  DD SYSOUT=*
//SYSLST   DD DUMMY
//SYSOUT   DD DUMMY
//SYSUDUMP DD DUMMY
//SYSIDMS  DD *
DMCL=dmcl-name
DICTNAME=dictionary-name
Other Optional SYSIDMS Parameters
/*
//NDVRIPT  DD *
   SIGNON
     USER = youruserid PASSWORD = yourpswd
          DICTNAME userdict.
   REPORT CHANGES AND DETAILS.
   COMPARE TYPES = (PROCESS, PROGRAM, ELEMENT, RECORD, SCHEMA,
          SUBSCHEMA, QFILE, TABLE, MODULE, MESSAGE, MAP).
/*