Operations › Performing the EXTRACT and LOAD Steps--USVEXEC › z/OS JCL

z/OS JCL

 //USVEXEC JOB  job-card-parameters
 //*
 //EXTRACT  EXEC PGM=USVXTRC,REGION=1024K
 //*
 //STEPLIB  DD  DSN=your.dbx.loadlib,DISP=SHR
 //         DD  DSN=your.idms.loadlib,DISP=SHR
 //SYSCTL   DD  DSN=your.idms.sysctl,DISP=SHR
 //EXTRACTS DD  DSN=your.dbx.extracts,DISP=(NEW,CATLG,DELETE),
 //             UNIT=disk,VOL=SER=volser,
 //             SPACE=(CYL,(primary,secondary))
 //COMMFILE DD  DSN=your.dbx.commfile,DISP=(NEW,CATLG,DELETE),
 //             UNIT=disk,VOL=SER=volser,SPACE=(TRK,1)
 //SYNTAX   DD  DSN=your.dbx.syntax,DISP=(NEW,CATLG,DELETE),
 //             UNIT=disk,VOL=SER=volser,SPACE=(TRK,1)
 //SYSPRINT DD  SYSOUT=a
 //SYSLST   DD  SYSOUT=a
 //SYSUDUMP DD  SYSOUT=a
 //*
 //SYSIPT   DD  *
  PROCESS,USERID=userid,SPECNAME=selection-criteria-specification-name,
          [SIGNONID=dictionary-userid,]
          [PASSWORD=dictionary-password,]
          [TRANSSUB=transient-or-target-subschema-name,]
          [SRCSUB=source-subschema-name,]
          [SRCDMCL=source-dmcl-name,]
          [SRCDICTNAME=source-dictionary-name,]
          [SRCDICTNODE=source-dictionary-node-name,]
          [SRCDBNAME=source-db-or-segment-name,]
          [SRCDBNODE=source-db-node-name,]
          [USEREXIT=user-exit-module-name,]
          [NOCOMPARE]
 /*
 //*
 //PUNCHSUB EXEC PGM=IDMSDDDL, REGION=1024K,
 //         COND=((5,LT,EXTRACT))
 //*********************************************************************
 //*PUNCHSUB - Punch the target-subschema to a work-file based upon    *
 //*           values from previous step.                                  *
 //*********************************************************************
 //STEPLIB  DD  DSN=your.idms.loadlib,DISP=SHR
 //SYSLST   DD  SYSOUT=a
 //SYSCTL   DD  DSN=your.idms.sysctl,DISP=SHR
 //SYSPCH   DD  DSN=&.&SUBPCH.,DISP=(,PASS),UNIT=DISK,
 //             SPACE=(TRK,(10,5)),DCB=(BLKSIZE=80,LRECL=80,RECFM=F)
 //SYSIPT   DD  DSN=your.dbx.syntax,DISP=(OLD,DELETE,DELETE)
 /*
 //ALTERSUB EXEC PGM=USVSUBZ,REGION=1024K,PARM='NOSPIE/',
 //         COND=((5,LT,EXTRACT),(5,LT,PUNCHSUB))
 //*********************************************************************
 //*ALTERSUB - Alter the target subschema contents and create a        *
 //*           transient working copy of the target-subschema.             *
 //*********************************************************************
 //STEPLIB  DD  DSN=your.dbx.loadlib,DISP=SHR
 //INPUT    DD  DSN=&.&SUBPCH.,DISP=(OLD,PASS)
 //COMMFILE DD  DSN=your.dbx.commfile,DISP=(OLD,KEEP)
 //SYSLST   DD  SYSOUT=a
 //CAIOUT   DD  SYSOUT=a
 //SYSPRINT DD  SYSOUT=a
 //OUTPUT   DD  DSN=&.&ALTSUB.,DISP=(NEW,PASS),UNIT=DISK,
 //             SPACE=(TRK,(10,5)),DCB=(BLKSIZE=80,LRECL=80,RECFM=F)
 /*
 //*
 //*
 //LOADSUB  EXEC PGM=IDMSDDDL,REGION=1024K,
 //         COND=((5,LT,EXTRACT),(5,LT,PUNCHSUB),(0,NE,ALTERSUB))
 //*********************************************************************
 //*LOADSUB - Add the transient-subschema to the target dictionary     *
 //*          node using IDMSDDDL.                                         *
 //*********************************************************************
 //STEPLIB  DD  DSN=your.idms.loadlib,DISP=SHR
 //SYSIPT   DD  DSN=&.&ALTSUB.,DISP=(OLD,PASS)
 //SYSLST   DD  SYSOUT=a
 //SYSCTL   DD  DSN=your.idms.sysctl,DISP=SHR
 //SYSPCH   DD  DUMMY
 /*
 //*
 //LOAD     EXEC PGM=USVLOAD,REGION=1536K,
 //         COND=((5,LT,EXTRACT),(5,LT,PUNCHSUB),(0,NE,ALTERSUB),
 //         (5,LT,LOADSUB))
 //*
 //*    You can run the load against an existing database, although
 //*    unexpected problems may arise if an attempt is made to add duplicate
 //*    records to the database and the attempt is not prevented by the
 //*    DUPLICATES NOT ALLOWED option while doing this. Otherwise, run the
 //*    FORMAT Utility
 //*    against the target database prior to executing this
 //*
 //*    There is no parameter statement for this step.  Processing is
 //*    controlled by information read from the EXTRACTS and COMMFILE
 //*    files.
 //*
 //*
 //STEPLIB  DD  DSN=your.dbx.loadlib,DISP=SHR
 //         DD  DSN=your.idms.loadlib,DISP=SHR
 //SYSCTL   DD  DSN=your.idms.sysctl,DISP=SHR
 //EXTRACTS DD  DSN=your.dbx.extracts,DISP=SHR
 //WORKFILE DD  UNIT=disk,VOL=SER=volser,
 //             SPACE=(CYL,(primary,secondary))
 //SORTWK01 DD  UNIT=disk,SPACE=(CYL,(primary,secondary))
 //SORTWK02 DD  UNIT=disk,SPACE=(CYL,(primary,secondary))
 //SORTWK03 DD  UNIT=disk,SPACE=(CYL,(primary,secondary))
 //SORTMSG  DD  SYSOUT=a
 //SYSPRINT DD  SYSOUT=a
 //SYSLST   DD  SYSOUT=a
 //SYSUDUMP DD  SYSOUT=a
 //COMMFILE DD  DSN=your.dbx.commfile,DISP=SHR
 //SYNTAX   DD  DSN=your.dbx.syntax,DISP=SHR
 /*
 //*
 //DELTSUB  EXEC PGM=IDMSDDDL,REGION=1024K,
 //         COND=((5,LT,EXTRACT),(5,LT,PUNCHSUB),(0,NE,ALTERSUB),
 //         (5,LT,LOADSUB),EVEN)
 //*********************************************************************
 //*DELTSUB - Remove the transient-subschema from the target dictionary*
 //*          node using IDMSDDDL.                                         *
 //*********************************************************************
 //STEPLIB  DD  DSN=your.idms.loadlib,DISP=SHR
 //SYSIPT   DD  DSN=your.dbx.syntax,DISP=(OLD,DELETE,DELETE)
 //SYSLST   DD  SYSOUT=a
 //SYSCTL   DD  DSN=your.idms.sysctl,DISP=SHR
 //SYSPCH   DD  DUMMY
 //