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=*

Get SAP on DB2 Universal Database for OS/390 and z/OS: Multiple Components in One Database (MCOD) now with O’Reilly online learning.

O’Reilly members experience live online training, plus books, videos, and digital content from 200+ publishers.