Promotion Support Facilities › NDVRDLVR Definition Delivery › NDVRDLVR Sample 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:      SAMPDLVR
//*
//*  PURPOSE:  PRODUCES ALL MIGRATION OUTPUTS FROM SENDING SYSTEM.
//*
//*  STEP:     FUNCTION:
//*  =====     =========
//*
//*  DELIVERY  PROGRAM NDVRDLVR DRIVES IDMSDDDL, RHDCMPUT, ETC. TO
//*            GENERATE DATA STREAMS FOR EXECUTABLE/SOURCE MIGRATION.
//*
//*********************************************************************
//*
//DELIVERY EXEC PGM=NDVRDLVR,REGION=1200K
//SYSCTL   DD DISP=SHR,DSN=idms.sysctl
//NDVRENI  DD DISP=SHR,DSN=user.ndvrdsel.dseno
//SYSIPT   DD DSN=&.&SYSIPT.,SPACE=(CYL,(5,5)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//SYSPCH   DD DSN=&.&SYSPCH.,SPACE=(CYL,(5,5)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//NDVRUT1  DD DSN=&.&NDVRUT1.,SPACE=(CYL,(5,5)),DISP=(NEW,DELETE),
//            UNIT=disk,DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
//********************************************************************
//*   THE FOLLOWING FILES NEEDED FOR EXPORT PROCESSING (EITHER TYPE) *
//********************************************************************
//*** ADSA STATEMENTS ***            (SMALL)
//NDVRAGEN DD DSN=user.ndvrdlvr.dsagen,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** DCMT VARY COMMANDS  ***        (SMALL)
//NDVRDVAR DD DSN=user.ndvrdlvr.dsdvar,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** ADD ENTITY STATEMENTS  ***     (LARGE)
//NDVRDUPD DD DSN=user.ndvrdlvr.dsdupd,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(CYL,(5,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** ADD LOAD MODULES STMTS ***     (LARGE)
//NDVRDLOD DD DSN=user.ndvrdlvr.dsdlod,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(CYL,(5,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//********************************************************************
//*   THE FOLLOWING FILES NEEDED FOR EXPORT SOURCE PROCESSING ONLY   *
//********************************************************************
//*** ADSOBCOM SYNTAX STMTS ***      (SMALL)
//NDVRDGEN DD DSN=user.ndvrdlvr.dsdgen,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** SCHEMA DELETE STMTS ***        (SMALL)
//NDVRCDEL DD DSN=user.ndvrdlvr.dscdel,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** ADD SCHEMA STMTS ***           (LARGE)
//NDVRCUPD DD DSN=user.ndvrdlvr.dscupd,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(CYL,(5,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** DELETE SUBSCHEMA STMTS ***     (SMALL)
//NDVRUDEL DD DSN=user.ndvrdlvr.dsudel,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** ADD SUBSCHEMA STMTS ***        (LARGE)
//NDVRUUPD DD DSN=user.ndvrdlvr.dsuupd,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(CYL,(5,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** DELETE MAP  STMTS ***          (SMALL)
//NDVRMDEL DD DSN=user.ndvrdlvr.dsmdel,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** GENERATE MAP STMTS ***         (SMALL)
//NDVRMGEN DD DSN=user.ndvrdlvr.dsmgen,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** ADD MAP SYNTAX STMTS ***       (LARGE)
//NDVRMUPD DD DSN=user.ndvrdlvr.dsmupd,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(CYL,(5,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//********************************************************************
//*   THE FOLLOWING FILES NEEDED FOR CA-E/OS/390 ELEMENTS ONLY.      *
//*   IF CA-E/DB - CA-E/OS/390 BRIDGE NOT USED, SPECIFY THESE FILES  *
//*   WITH DD DUMMY                                                  *
//********************************************************************
//*** SOURCE TRANSFER STMTS ***      (SMALL)
//NDVRSCL1 DD DSN=user.ndvrdlvr.dsscl1,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//*** TARGET TRANSFER STMTS ***      (SMALL)
//NDVRSCL2 DD DSN=user.ndvrdlvr.dsscl2,DISP=(,CATLG,DELETE),
//            UNIT=disk,VOL=SER=volser,SPACE=(TRK,(1,5),RLSE),
//            DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)
//NDVRLST  DD SYSOUT=*
//NDVRERR  DD SYSOUT=*
//SYSLST   DD SYSOUT=*
//SYSUDUMP DD DUMMY
//SYSIDMS  DD *
DMCL=dmcl-name
DICTNAME=dictionary-name
Other Optional SYSIDMS Parameters
/*
//NDVRIPT  DD *
   SIGNON
     USER = youruserid PASSWORD = yourpswd
          DICTNAME userdict.
   IDMS USER =  idduserid PASSWORD = iddpswd.
   EXPORT SOURCE FORM.
   MODE = EXECUTE.
/*