Database Transportability › VRM Node and Access Transport Program › VRM Node and Access Extract JCL

VRM Node and Access Extract JCL

The following is a SASSDT62 execution JCL sample:

//*-------------------------------------------------------------------*
//*                                                                   *
//*      'SAMPLE DATABASE TRANSPORTABILITY JOB'
//*                                                                   *
//*-------------------------------------------------------------------*
//SORTIT  EXEC PGM=SORT,REGION=2048K
//SYSOUT    DD SYSOUT=A
//SYSPRINT  DD SYSOUT=A
//SORTIN    DD DSN=ca7.VRMXREFS,DISP=SHR
//SORTOUT   DD DSN=&&VRMXREFS,
//             DISP=(NEW,PASS),
//             SPACE=(TRK,(5,5)),UNIT=SYSDA,
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SORTWK01  DD UNIT=VIO,SPACE=(CYL,(10,10))
//SORTWK02  DD UNIT=VIO,SPACE=(CYL,(10,10))
//SORTWK03  DD UNIT=VIO,SPACE=(CYL,(10,10))
//SYSIN     DD *
  SORT FIELDS=(1,66,CH,A)
//VRMDBT2  EXEC PGM=SASSDT62,REGION=4096K,
//    PARM='REPORT',COND=(04,LT)
//STEPLIB  DD DISP=SHR,DSN=user-defined-CA-7-loadlib
//DT62INPT DD DSN=&&VRMXREFS,DISP=(OLD,PASS)
//CA7RSRC  DD DSN=ca7.vrm.database,DISP=SHR
//DT62NODE DD DSN=ca7.DT62NODE,
//     DISP=(NEW,CATLG,DELETE),
//     UNIT=SYSDA,
//     SPACE=(CYL,(5,2),RLSE),
//     DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//DT62XPWD DD DSN=ca7.DT62XPWD,
//     DISP=(NEW,CATLG,DELETE),
//     UNIT=SYSDA,
//     SPACE=(CYL,(5,2),RLSE),
//     DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSUDUMP DD SYSOUT=*
//NODEREPT DD SYSOUT=*,DCB=BLKSIZE=133
//NMTCHRPT DD SYSOUT=*,DCB=BLKSIZE=133
//NODPREPT DD SYSOUT=*,DCB=BLKSIZE=133
//OWNPREPT DD SYSOUT=*,DCB=BLKSIZE=133