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

z/VSE JCL

 * SS JOB JNM=USVEXEC
 // JOB USVEXEC
 *
 // OPTION LOG,PARTDUMP
 *     **** CREATE A SYSIDMS PARAMETER FILE  *****
 // UPSI  1
 // DLBL     SYSIDMS,'work.file.SYSIDMS',0,SD
 // EXTENT   SYS041,volserw,,,rel-trk-blk,1
 // ASSGN    SYS041,DISK,VOL=volserw,SHR
 // EXEC     DITTO
 $$DITTO CSQ FILEOUT=SYSIDMS
 *
 * SYSIDMS parameters for target dictionary
 *
 /*
 /&
 // UPSI   a
 // ASSGN  SYS006,SYSLST
 *
 *  *** CORE IMAGE LIBRARY FOR PRODUCT
 // DLBL   tool,'tool.corelib'
 // EXTENT ,volserc
 // DLBL   idms,'idms.corelib'
 // EXTENT ,volserc
 // LIBDEF PHASE,SEARCH=(tool.sublib,idms.sublib),TEMP
 *
 *  *** DBX EXTRACT FILE
 // DLBL   EXTRACT,'dbx.extracts',99/365,SD
 // EXTENT SYS010,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS010,DISK,VOL=volserw,SHR
 *
 *  *** DBX COMMUNICATION FILE
 // DLBL   COMMFIL,'dbx.commfile',99/365,SD
 // EXTENT SYS015,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS015,DISK,VOL=volserw,SHR
 *
 *  *** IDD SYNTAX FILE
 // DLBL   SYNTAX,'dbx.syntax',99/365,SD
 // EXTENT SYS016,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS016,DISK,VOL=volserw,SHR
 *
 *  *** INPUT
 // ASSGN  SYSIPT,SYSRDR
 *  SYSCTL FILE
 *
 // DLBL   SYSCTL,'your.sysctl.file',,SD
 // EXTENT SYS000,volser,,,rel-trk-blk,1
 // ASSGN  SYS000,DISK,VOL=volser,SHR
 // DLBL   SYSIDMS,'#SYSIPT',0,SD
 // EXEC   USVXTRC,SIZE=(USVXTRC,400K)
 *
 * SYSIDMS parameters
 /*
  PROCESS,USERID=userid,SPECNAME=selection-criteria-specification-name,
          SIGNONID=dictionary-userid,
          PASSWORD=dictionary-password,
          TRANSSUB=transient-subschema-name,
          TRANSDMCL=transient-dmcl-name
 /*
 *  PUNCHSUB step.  Punch the target subschema from the dictionary
 *
 // DLBL   IJSYSPH,'dbx.syspch',99/365,SD
 // EXTENT SYSPCH,volserw,,,rel-trk-blk,amount
    ASSGN  SYSPCH,DISK,VOL=volserw,SHR
 // DLBL   IJSYSIN,'dbx.syntax',0,SD
 // EXTENT SYSIPT,volserw,,,rel-trk-blk,amount
    ASSGN  SYSIPT,DISK,VOL=volserw,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volserw
 // ASSGN   SYS041,DISK,VOL=volserw,SHR
 // DLBL   SYSCTL,'your.sysctl.file',,SD
 // EXTENT SYS000,volser,,,rel-trk-blk,1
 // ASSGN  SYS000,DISK,VOL=volser,SHR
 // EXEC   IDMSDDDL,SIZE=512K
    CLOSE  SYSIPT,SYSRDR
    CLOSE  SYSPCH,xxx
 *
 *  ALTERSUB step.  Alter the target subschema and create a transient
 *                  working copy of the target subschema.
 *
 // DLBL   INPUT,'dbx.syspch',0,SD
 // EXTENT SYS017,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS017,DISK,VOL=volserw,SHR
 // DLBL   OUTPUT,'dbx.transsub',99/365,SD
 // EXTENT SYS018,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS018,DISK,VOL=volserw,SHR
 // DLBL   COMMFIL,'dbx.commfile',0,SD
 // EXTENT SYS016,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS016,DISK,VOL=volserw,SHR
 // DLBL   SYSCTL,'your.sysctl.file',,SD
 // EXTENT SYS000,volser,,,rel-trk-blk,1
 // ASSGN  SYS000,DISK,VOL=volser,SHR
 // ASSGN  SYS012,SYSLST
 // EXEC   USVSUBZ,SIZE=AUTO
 /*
 *
 *  LOADSUB step.  Add the transient subschema to the target dictionary
 *
 // DLBL   IJSYSIN,'dbx.transsub',0,SD
 // EXTENT SYSIPT,volserw,,,rel-trk-blk,amount
    ASSGN  SYSIPT,DISK,VOL=volserw,SHR
 // ASSGN  SYSPCH,IGN
 // DLBL   SYSCTL,'your.sysctl.file',,SD
 // EXTENT SYS000,volser,,,rel-trk-blk,1
 // ASSGN  SYS000,DISK,VOL=volser,SHR
 // DLBL    SYSIDMS,'work.file.SYSIDMS'
 // EXTENT  SYS041,volserw
 // ASSGN   SYS041,DISK,VOL=volserw,SHR
 // EXEC   IDMSDDDL,SIZE=512K
    CLOSE  SYSIPT,SYSRDR
 /*
 *  LOAD step.  Add the extracted records to the target database
 *
 // DLBL   EXTRACT,'dbx.extracts',0,SD
 // EXTENT SYS010,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS010,DISK,VOL=volserw,SHR
 // DLBL   WORKFIL,'dbx.workfile',99/365,SD
 // EXTENT SYS011,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS011,DISK,VOL=volserw,SHR
 // DLBL   COMMFIL,'dbx.commfile',0,SD
 // EXTENT SYS016,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS016,DISK,VOL=volserw,SHR
 // DLBL   SYNTAX,'dbx.syntax',0,SD
 // EXTENT SYS016,volserw,,,rel-trk-blk,amount
 // ASSGN  SYS016,DISK,VOL=volserw,SHR
 // DLBL   SORTWK1,'SORT.WORK1',0,SD
 // EXTENT SYS001
 // ASSGN  SYS001,DISK,VOL=volserw,SHR
 // DLBL   SORTWK2,'SORT.WORK2',0,SD
 // EXTENT SYS002
 // ASSGN  SYS002,DISK,VOL=volserw,SHR
 // DLBL   SORTWK3,'SORT.WORK3',0,SD
 // EXTENT SYS003
 // ASSGN  SYS003,DISK,VOL=volserw,SHR
 // DLBL   SORTWK4,'SORT.WORK4',0,SD
 // EXTENT SYS004
 // ASSGN  SYS004,DISK,VOL=volserw,SHR
 // ASSGN  SYS006,SYSLST
 // DLBL   SYSCTL,'your.sysctl.file',,SD
 // EXTENT SYS000,volser,,,rel-trk-blk,1
 // ASSGN  SYS000,DISK,VOL=volser,SHR
 // DLBL   SYSIDMS,'#SYSIPT',0,SD
 // EXEC   USVLOAD,SIZE=(AUTO,400K)
 *
 * SYSIDMS parameters
 /*
 *  DELETSUB step.  Delete the transient subschema from the dictionary
 *
 // ASSGN  SYSPCH,IGN
 // DLBL   IJSYSIN,'dbx.syntax',0,SD
 // EXTENT SYSIPT,volserw,,,rel-trk-blk,amount
    ASSGN  SYSIPT,DISK,VOL=volserw,SHR
 // DLBL   SYSCTL,'your.sysctl.file',,SD
 // EXTENT SYS000,volser,,,rel-trk-blk,1
 // ASSGN  SYS000,DISK,VOL=volser,SHR
 // DLBL   SYSIDMS,'work.file.SYSIDMS'
 // EXTENT SYS041,volserw
 // ASSGN  SYS041,DISK,VOL=volserw,SHR
 // EXEC   IDMSDDDL,SIZE=512K
    CLOSE  SYSIPT,SYSRDR
 /*
 //*
 /&
 * SS EOJ