SAP on DB2 Universal Database for OS/390 and z/OS: Multiple Components in One Database (MCOD)

180 SAP on DB2 UDB for OS/390 and z/OS: Multiple Components in One Database (MCOD)

JCL to load metadata tables into the target system

In Example B-14, we provide the JCL to load the metadata tables into the target

system.

Example: B-14 JCL to load metadata tables into the target system

//SAPRES2A JOB (999,POK),'DB2LOAD ',CLASS=A,MSGCLASS=T,

// NOTIFY=&SYSUID,TIME=1440,REGION=0M

/*JOBPARM SYSAFF=SC49,L=9999

// JCLLIB ORDER=(DB7TU.PROCLIB)

//*

//* NAME OWNER T DB NAME TS NAME

//* ZMCOD_STOGROUP SAPR3 T U000X42M ZMCODXS

//* ZMCOD_TABLESPACE SAPR3 T U020X8AV ZMCODXTX

//* ZMCOD_TABLES SAPR3 T U010X16F ZMCODXT

//* ZMCOD_INDEXES SAPR3 T U010XT5B ZMCODXIX

//* ZMCOD_DATABASE SAPR3 T U010X6P3 ZMCODXDX

//*

//HERE EXEC PGM=IEFBR14

//*

//* SYSREC CONTAINS THE DATA

//* SYSPUNCH CONTAINS THE LOAD STATEMENTS

//* - ASSUMES TABLE IS EMPTY, OTHERWISE ALTER SYSPUNCH TO BE

//* RESUME NO REPLACE YES

//STEPSG EXEC DSNUPROC,PARM='DB7T,DSNTEX'

//SYSPRINT DD SYSOUT=*

//SYSREC DD DSN=SAPRES4.UNLOAD.SYSREC.STOG,DISP=SHR

//SYSIN DD DSN=SAPRES4.UNLOAD.SYSPUNCH.STOG,DISP=SHR

//SYSUT1 DD DSN=SAPRES4.UNLOAD.SYSUT1.STOG,

// DISP=(MOD,DELETE,CATLG),

// UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND)

//SORTOUT DD DSN=SAPRES4.UNLOAD.SORTOUT.STOG,

// DISP=(MOD,DELETE,CATLG),

// UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND)

//*

//STEPDB EXEC DSNUPROC,PARM='DB7T,DSNTEX'

//SYSPRINT DD SYSOUT=*

//SYSREC DD DSN=SAPRES4.UNLOAD.SYSREC.DATABASE,DISP=SHR

//SYSIN DD DSN=SAPRES4.UNLOAD.SYSPUNCH.DATABASE,DISP=SHR

//SYSUT1 DD DSN=SAPRES4.UNLOAD.SYSUT1.DATABASE,

// DISP=(MOD,DELETE,CATLG),

// UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND)

//SORTOUT DD DSN=SAPRES4.UNLOAD.SORTOUT.DATABASE,

// DISP=(MOD,DELETE,CATLG),

// UNIT=SYSDA,SPACE=(4000,(20,20),,,ROUND)

//*

//STEPTS EXEC DSNUPROC,PARM='DB7T,DSNTEX'

//SYSPRINT DD SYSOUT=*