Database Load (Step 2)

CA IDMS DLI Transparency JCL › Load Utility JCL › Database Load (Step 2)

Database Load (Step 2)

The JCL to load the DL/I data in the CA IDMS/DB database is shown below:

Central Version

Database Load (Step 2) (z/OS)

//LOAD  EXEC PGM=IDMSDLRC,PARM='LOAD,IDMSDLLD,ipsbname'
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//        DD DSN=ipsb.loadlib,DISP=SHR
//sysctl DD DSN=idms.sysctl,DISP=SHR
//SYSOUT DD SYSOUT=A
//SYSLST DD SYSOUT=A
//SYSPRINT  DD SYSOUT=A
//SYS001 DD DSN=unloaded.dli.data,
//    UNIT=TAPE,VOL=SER=nnnnnn,DISP=OLD
//SYS003 DD DSN=step2.workfile,
//              UNIT=TAPE,DISP=(NEW,KEEP),
//    DCB=(RECFM=FB,LRECL=288,BLKSIZE=5760)
//

idms.loadlib	data set name of the CA IDMS DLI Transparency load library
ipsb.loadlib	data set name of the IPSB load library
idms.sysctl	data set name of the SYSCTL file
ipsbname	name of the IPSB load module
nnnnnn	volume serial identifier for the tape/disk volume
step2.workfile	logical workfile output by the load
sysctl	ddname of the SYSCTL file
unloaded.dli.data	data set name of the unloaded DL/I data

Local Mode

To execute the load process in local mode, remove the SYSCTL statement and replace with the following:

//dictdb DD DSN=idms.dictdb 
//sysjrnl DD DSN=idms.tapejrnl,DISP=(NEW,KEEP),UNIT=tape
//userdb DD DSN=user.userdb,DISP=SHR

idms.dictdb	data set name of the data dictionary
idms.tapejrnl	data set name of the tape journal file
dictdb	ddname of the data dictionary
sysjrnl	ddname of the tape journal file
tape	symbolic device type for the tape journal file
user.userdb	data set name of the user database
userdb	ddname of the user database

Central Version

Database Load (Step 2) (z/VSE)

Note: Use this Load utility JCL if the IDMSDLPC is included in the IDMSDLRC linkedit.

// JOB
// LIBDEF *,SEARCH=(idms.library,user.library)
// DLBL fileid,'idms.database',,DA
// EXTENT SYS018,nnnnnn
// ASSGN SYS018,DISK,VOL=nnnnnn,SHR
// TLBL SYS001,'sorted.dli.data'
// ASSGN SYS001,nnn
// TLBL  SYS003,'logical.workfile'
// ASSGN SYS003,nnn
// EXEC  IDMSDLRC
sysidms parameter statements
/*
LOAD,IDMSDLLD,ipsbname
/*
/DMCL=ipsbname
/*

idms.library	data set name of the DLI Transparency library
user.library	name of the library that contains the IPSB and SUBSCHEMA modules
fileid	DMCL database file assignment
idms.database	name of the CA IDMS database file
nnnnnn	volume serial number of the disk unit
sorted.dli.data	name of the tape data set that contains the sorted CALC DLI data
logical.workfile	name of the data set that will receive data concerning logical relationships
nnn	cuu address of the tape unit
ipsbname	name of the LOAD IPSB (Interface PSB with processing options of 'LOAD')
dmclname	name of CA IDMS DMCL module

Note: This LOAD utility JCL is for use if IDMSDLPC is not included in IDMSDLRC.

// JOB
// LIBDEF *,SEARCH=(idms.library,user.library)
// DLBL fileid,'idms.database',,DA
// EXTENT SYS018,nnnnnn
// ASSGN SYS018,DISK,VOL=nnnnnn,SHR
// TLBL SYS001,'sorted.dli.data'
// ASSGN SYS001,nnn
// TLBL  SYS003,'logical.workfile'
// ASSGN SYS003,nnn
// EXEC IDMSDLRC,PARM='LOAD,IDMSDLLD,ipsbname
sysidms parameter statements
/*
LOAD,IDMSDLLD,ipsbname
/*
/DMCL=dmclname
/*

idms.library	data set name of the DLI Transparency library
user.library	name of the library that contains the IPSB and SUBSCHEMA modules
fileid	DMCL database file assignment
idms.database	name of the CA IDMS database file
nnnnnn	volume serial number of the disk unit
sorted.dli.data	name of the tape data set that contains the sorted CALC DLI data
logical.workfile	name of the data set that will receive data concerning logical relationships
nnn	cuu address of the tape unit
ipsbname	name of the LOAD IPSB (Interface PSB with processing options of 'LOAD')
dmclname	name of CA IDMS DMCL module

Local Mode JCL

To execute the load process in local mode, remove the UPSI statement and insert the following after the ASSGN statement:

// DLBL  dictdb,'idms.dictdb'
// EXTENT sys015,nnnnnn,1,,SSSS,LLLL
// ASSGN sys015,dddd,VOL=nnnnnn,SHR
// TLBL  journal,'idms.tapejrnl'
// ASSGN SYS009,X'ttt'
// DLBL  userdb,'user.userdb',,DA
// EXTENT sys018,nnnnnn,1,,SSSS,LLLL
// ASSGN sys018,dddd,VOL=nnnnnn,SHR

idms.dictdb	file-id of the data dictionary
idms.tapejrnl	data set name of the tape journal file
dddd	device assignment for the disk file
dictdb	filename of the data dictionary
journal	filename of the tape journal
nnnnnn	volume serial number
sys018	logical-unit assignment of the user database
sys015	logical-unit assignment of the data dictionary
ttt	channel-unit assignment of the journal file
user.userdb	file-id of the user database
userdb	name of the user database