Previous Topic: Load Utility JCLNext Topic: Database Load (Step 2)

CA IDMS DLI Transparency JCL › Load Utility JCL › Preload CALC Processing (Step 1)

Preload CALC Processing (Step 1)

The JCL to perform CALC processing and preload sorting on the unloaded DL/I data is shown below:

Preload CALC Processing (Step 1, Part 1) (z/OS)

//CALC  EXEC PGM=IDMSDLRC,PARM='CALC,IDMSDLLD,ipsbname'
//STEPLIB DD DSN=idms.loadlib,DISP=SHR
//        DD DSN=ipsb.loadlib,DISP=SHR
//SYSOUT DD SYSOUT=A
//SYSLST DD SYSOUT=A
//SYSPRINT  DD  SYSOUT=A
//SYS001 DD DSN=unloaded.dli.data,DISP=OLD
//SYS002 DD DSN=unsorted.dli.calc.data,
//    UNIT=TAPE,DISP=(NEW,KEEP)
//
//

idms.loadlib

data set name of the CA IDMS DLI Transparency load library

ipsb.loadlib

data set name of the IPSB load library

ipsbname

name of the IPSB load module

unloaded.dli.data

data set name of the unloaded DL/I data

unsorted.dli.calc.data

data set name of the unsorted DL/I CALC data

PreLoad CALC Processing (Step 1, Part 1) (z/VSE)

// JOB
// LIBDEF *,SEARCH=(idms.library,user.library)
// DLBL fileid,'idms.database',,DA
// EXTENT SYS018,nnnnnn
// ASSGN SYS018,DISK,VOL=nnnnnn,SHR
// TLBL  SYS001,'unloaded.dli.data'
// ASSGN SYS001,nnn
// TLBL  SYS002,'unsorted.dli.data'
// ASSGN SYS002,nnn
// EXEC IDMSDLRC
sysidms parameter statements
/*
CALC,IDMSDLLD,ipsbname
/*
DMCL=dmclname
/*

idms.library

data set name of the CA IDMS DLI Transparency library

user.library

name of the load library that contains the IPSB and SUBSCEHEMA modules.

fileid

DCML database file assignment

idms.database

name of the CA IDMS database file

nnnnnn

volume serial number of the disk unit

unloaded.dli.data

name of the tape data set that contains the HD UNLOAD DLI data

unsorted.dli.data

name of the tape data set that contains the CALC DLI data output

nnn

cuu address of the tape unit

ibsbname

name of the LOAD IPSB (Interface PSB with processing options of 'LOAD')

dmclname

name of the CA IDMS DMCL module

 


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

idms.library

data set name of the CA IDMS DLI Transparency library

user.library

name of the load library that contains the IPSB and SUBSCEHEMA modules.

fileid

DCML database file assignment

idms.database

name of the CA IDMS database file

nnnnnn

volume serial number of the disk unit

unloaded.dli.data

name of the tape data set that contains the HD UNLOAD DLI data

unsorted.dli.data

name of the tape data set that contains the CALC DLI data output

nnn

cuu address of the tape unit

ibsbname

name of the LOAD IPSB (Interface PSB with processing options of 'LOAD')

dmclname

name of the CA IDMS DMCL module

PreLoad CALC Sort (Step 1, Part 2) (z/OS)

//SORT  EXEC  SORT
//SORTIN DD DSN=unsorted.calc.dli.data,DISP=OLD,UNIT=TAPE
//SORTOUT DD DSN=sorted.calc.dli.data,DISP=OLD,UNIT=TAPE
//SORTWK01 DD UNIT=DISK,SPACE=(CYL,(n),,CONTIG)
//SORTWKO2 DD UNIT=DISK,SPACE=(CYL,(n),,CONTIG)
//SORTWK03 DD UNIT=DISK,SPACE=(CYL,(n),,CONTIG)
//SYSIN  DD *
SORT  FIELDS=(20,4,BI,D,24,4,BI,A)
/*
//

n

number of cylinders for space allocation

sorted.calc.dli.data

data set name of the sorted DL/I CALC data

unsorted.calc.dli.data

data set name of the unloaded DL/I CALC data (from Step 1, Part 1)

Note: This step requires that you use your own sort/merge facility.

PreLoad CALC Sort (Step1, Part 2) (z/VSE)

// TLB  SORTIN1,'unsorted.dli.data',,SD
// ASSGN SYS001,nnn
// TLBL SORTOUT,'sorted.dli.data',,SD
// ASSGN SYS002,nnn
// DLBL SORTWK1,'work.file1',,SD
// EXTENT SYS003,nnnnnn,1,0,ssss,llll
// ASSGN SYS003,DISK,VOL=nnnnnn,SHR
// DLBL SORTWK2,'workfile2',,SD
// EXTENT SYS004,1,0,ssss,llll
// ASSGN SYS004,DISK,VOL=nnnnnn,SHR
// DLBL SORTWK3,'work.file3',,SD
// EXTENT SYS005,ERES00,1,0,ssss,llll
// ASSGN SYS005,DISK,VOL=nnnnnn,SHR
// EXEC SORT
   SORT FIELDS=(20,4,BI,D,24,4,BI,A),FILES=1,WORK=3
   RECORD TYPE=V
   INPFIL BLKSIZE=8000
   OUTFIL BLKSIZE=8000
/*
//

unsorted.dli.data

data set name of the file created by the CALC processing step

sorted.dli.data

data set name of the sorted workfile produced by this sort step

nnn

cuu address of the tape unit

nnnnnn

volume serial number of the disk unit

work.file1

file id of the 1st SORT work file

work.file2

file id of the 2nd SORT work file

work.file3

file id of the 3rd SORT work file

logical.workfile

name of the data set that will receive data concerning logical relationships

ssss

starting track in disk extent

llll

number of tracks required for the disk file