Using IBM Application Development Tools for z/OS and OS/390

564 Using IBM Application Development Tools for z/OS and OS/390

File Manager IMS IVP databases installation

The IVP sample uses the classic IMS database definition and load, as shown in Example B-2.

Example: B-2 FMN1IVP in FMN310.SFMNSAM1

//********************************************************************

//* *

//* FMN1IVP JOB *

//* *

//* This job creates and loads the databases required for *

//* the Installation Verification Process for FM/IMS *

//* *

//* This job can be rerun anytime after the installation *

//* *

//********************************************************************

//********************************************************************

//* *

//* Instream PROCS *

//* *

//********************************************************************

//DBDGEN PROC MBR=TEMPNAME,SOUT=*,RGN=0M,

// IMS='IMS',BIBI='DAVINR1.FMN310',FMN='FMN310'

//C EXEC PGM=ASMA90,REGION=&RGN,

// PARM='OBJECT,NODECK,NODBCS'

//SYSLIB DD DSN=&IMS..MACLIB,DISP=SHR

//SYSLIN DD UNIT=SYSDA,DISP=(,PASS),

// SPACE=(80,(100,100),RLSE),

// DCB=(BLKSIZE=80,RECFM=F,LRECL=80)

//SYSPRINT DD SYSOUT=&SOUT,DCB=BLKSIZE=1089,

// SPACE=(121,(300,300),RLSE,,ROUND)

//SYSUT1 DD UNIT=SYSDA,DISP=(,DELETE),

// SPACE=(CYL,(10,5))

//SYSIN DD DISP=SHR,

// DSN=&FMN..SFMNSAM1(FMN1&MBR)

//L EXEC PGM=IEWL,PARM='XREF,LIST',

// COND=(0,LT,C),REGION=120K

//SYSLIN DD DSN=*.C.SYSLIN,DISP=(OLD,DELETE)

//SYSPRINT DD SYSOUT=&SOUT,DCB=BLKSIZE=1089,

// SPACE=(121,(90,90),RLSE)

//SYSLMOD DD DISP=SHR,

// DSN=&BIBI..DBDLIB(D&MBR)

//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),

// SPACE=(1024,(100,10),RLSE),DISP=(,DELETE)

// PEND

//********************************************************************

//PSBGEN PROC MBR=TEMPNAME,SOUT=*,RGN=0M,

// IMS='IMS',BIBI='DAVINR1.FMN310',FMN='FMN310'

//C EXEC PGM=ASMA90,REGION=&RGN,

// PARM='OBJECT,NODECK,NODBCS'

//SYSLIB DD DSN=&IMS..MACLIB,DISP=SHR

//SYSLIN DD UNIT=SYSDA,DISP=(,PASS),

// SPACE=(80,(100,100),RLSE),

// DCB=(BLKSIZE=80,RECFM=F,LRECL=80)

//SYSPRINT DD SYSOUT=&SOUT,DCB=BLKSIZE=1089,

// SPACE=(121,(300,300),RLSE,,ROUND)

//SYSUT1 DD UNIT=SYSDA,DISP=(,DELETE),

// SPACE=(CYL,(10,5))

//SYSIN DD DISP=SHR,

// DSN=&FMN..SFMNSAM1(FMN1&MBR)

Appendix B. Database generation samples 565

//L EXEC PGM=IEWL,PARM='XREF,LIST',

// COND=(0,LT,C),REGION=120K

//SYSLIN DD DSN=*.C.SYSLIN,DISP=(OLD,DELETE)

//SYSPRINT DD SYSOUT=&SOUT,DCB=BLKSIZE=1089,

// SPACE=(121,(90,90),RLSE)

//SYSLMOD DD DISP=SHR,

// DSN=&BIBI..PSBLIB(P&MBR)

//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),

// SPACE=(1024,(100,10),RLSE),DISP=(,DELETE)

// PEND

//********************************************************************

//*

//ASSEM PROC MBR=TEMPNAME,SMP='IMS',

// IMS='IMS',BIBI='DAVINR1.FMN310',FMN='FMN310'

//C EXEC PGM=ASMA90,PARM='OBJECT,NODECK'

//SYSPRINT DD SYSOUT=*

//SYSLIB DD DISP=SHR,DSN=&SMP..GENLIB

// DD DISP=SHR,DSN=&SMP..GENLIBA

// DD DISP=SHR,DSN=&SMP..GENLIBB

// DD DISP=SHR,DSN=SYS1.MACLIB

//SYSLIN DD UNIT=3390,DISP=(,PASS,DELETE),SPACE=(CYL,(1,1)),

// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)

//SYSUT1 DD UNIT=3390,DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1))

//SYSUT2 DD UNIT=3390,DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1))

//SYSUT3 DD UNIT=(3390,SEP=(SYSLIB,SYSUT1,SYSUT2)),

// DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1))

//SYSIN DD DSN=&FMN..SFMNSAM1(FMN1&MBR.A),DISP=SHR

//*

//L EXEC PGM=IEWL,

// PARM='XREF,LIST',COND=(0,LT,C)

//SYSPRINT DD SYSOUT=*

//SYSLIN DD DISP=(OLD,DELETE,DELETE),

// DSN=*.C.SYSLIN,VOL=REF=*.C.SYSLIN

// DD DDNAME=SYSIN

//RESLIB DD DISP=SHR,DSN=&IMS..RESLIB

//SYSLMOD DD DISP=SHR,DSN=&BIBI..LOADLIB

//SYSUT1 DD UNIT=(3390,SEP=(SYSLMOD,SYSLIN)),

// DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1))

//SYSIN DD DSN=&FMN..SFMNSAM1(FMN1&MBR.B),DISP=SHR

// PEND

//********************************************************************

//*

//DBLOAD PROC DB=,VOL=SMS001,

// IMS='IMS',BIBI='DAVINR1.FMN310',FMN='FMN310'

//LOAD EXEC PGM=DFSRRC00,PARM='DLI,P&DB.A,P&DB.C,,,,,,,,,,,N,N'

//STEPLIB DD DSN=&IMS..RESLIB,DISP=SHR

// DD DSN=&IMS..RESLIB,DISP=SHR

// DD DSN=&BIBI..LOADLIB,DISP=SHR

//DFSRESLB DD DSN=&IMS..RESLIB,DISP=SHR

// DD DSN=&IMS..RESLIB,DISP=SHR

//IMS DD DSN=&BIBI..DBDLIB,DISP=SHR

// DD DSN=&BIBI..PSBLIB,DISP=SHR

//SYSPRINT DD SYSOUT=*

//DFSURWF1 DD DSN=&BIBI..DFSURF1.D&DB.E,DISP=(,CATLG),

// DCB=(BLKSIZE=1008,LRECL=900,RECFM=VB),

// VOL=SER=&VOL,SPACE=(CYL,(2,2),RLSE),UNIT=3390

//DFSURCDS DD DSNAME=&BIBI..RLCDS,DISP=SHR

//DFSVSAMP DD DSNAME=&FMN..SFMNSAM1(FMN1IVPB),DISP=SHR

//DFSCTL DD DSNAME=&FMN..SFMNSAM1(FMN1IVPA),DISP=SHR

//DATAIN DD DSNAME=&FMN..SFMNSAM1(FMN1&DB.D),DISP=SHR

566 Using IBM Application Development Tools for z/OS and OS/390

// PEND

//*********************************************************************

//*

//********************************************************************

//* *

//* Step 1: Allocate all Datasets neccessary for the IVP *

//* *

//********************************************************************

//*

//CLOUT EXEC PGM=IDCAMS,COND=(0,NE)

//SYSPRINT DD SYSOUT=*

//SYSIN DD *

DELETE DAVINR1.FMN310.DB.DJ2E CLUSTER PURGE

DELETE DAVINR1.FMN310.DB.DJ2F CLUSTER PURGE

DELETE DAVINR1.FMN310.DB.DJ1F CLUSTER PURGE

DELETE DAVINR1.FMN310.DB.DJ3F CLUSTER PURGE

DELETE DAVINR1.FMN310.DB.DJ1E NONVSAM SCRATCH

DELETE DAVINR1.FMN310.DB.DJ3E NONVSAM SCRATCH

DELETE DAVINR1.FMN310.RLCDS NONVSAM SCRATCH

DELETE DAVINR1.FMN310.DFSURF1.DJ1E NONVSAM SCRATCH

DELETE DAVINR1.FMN310.DFSURF1.DJ2E NONVSAM SCRATCH

DELETE DAVINR1.FMN310.DFSURF1.DJ3E NONVSAM SCRATCH

DELETE DAVINR1.FMN310.DFSURF3 NONVSAM SCRATCH

DELETE DAVINR1.FMN310.DFSURIDX NONVSAM SCRATCH

DELETE DAVINR1.FMN310.OUTIDX1 NONVSAM SCRATCH

DELETE DAVINR1.FMN310.LOADLIB NONVSAM SCRATCH

DELETE DAVINR1.FMN310.DBDLIB NONVSAM SCRATCH

DELETE DAVINR1.FMN310.PSBLIB NONVSAM SCRATCH

DELETE DAVINR1.FMN310.CRITERIA NONVSAM SCRATCH

DELETE DAVINR1.FMN310.TEMPLATE NONVSAM SCRATCH

DELETE DAVINR1.FMN310.VIEW NONVSAM SCRATCH

SET MAXCC=0

/*

//*

//CLDEF EXEC PGM=IDCAMS,COND=(0,NE)

//SYSPRINT DD SYSOUT=*

//SYSIN DD *

DEFINE CL (NAME (DAVINR1.FMN310.DB.DJ2E) -

NIXD RECSZ(2041 2041) -

TRK(1,1) VOL(SMS001) FSPC(10,10) -

REUSE SHR(3,3) SPEED CISZ(2048))

DEFINE CL (NAME (DAVINR1.FMN310.DB.DJ2F) -

IXD KEYS(18 5) RECSZ(24,24) -

TRK(1,1) VOL(SMS001) FSPC(10,10) -

REUSE SHR(3,3) SPEED) -

DATA (CISZ(1024))

DEFINE CL (NAME (DAVINR1.FMN310.DB.DJ1F) -

IXD KEYS(20 5) RECSZ(26,26) -

TRK(1,1) VOL(SMS001) FSPC(10,10) -

REUSE SHR(3,3) SPEED) -

DATA (CISZ(1024))

DEFINE CL (NAME (DAVINR1.FMN310.DB.DJ3F) -

IXD KEYS (28 1) RECSZ(58,58) -

Appendix B. Database generation samples 567

TRK(6,1) VOL(SMS001) FSPC(10,10) -

REUSE SHR(3,3) SPEED) -

DATA (CISZ(2048))

/* ALLOCATE OSAM DATASETS */

ALLOC DSN('DAVINR1.FMN310.DB.DJ1E') -

RECFM(F,B,S) LRECL(4096) BLKSIZE(4096) -

DSORG(PS) NEW CATALOG SPACE(1 1) TRACK -

VOL(SMS001) UNIT(3390)

ALLOC DSN('DAVINR1.FMN310.DB.DJ3E') -

RECFM(F,B,S) LRECL(4096) BLKSIZE(4096) -

DSORG(PS) NEW CATALOG SPACE(1 1) CYL -

VOL(SMS001) UNIT(3390)

/*

//* ALLOCATE PARTITIONED DATASETS

//*

//ALLOC8 EXEC PGM=IEFBR14,COND=(0,NE)

//LOADLIB DD DSN=DAVINR1.FMN310.LOADLIB,

// VOL=SER=SMS001,DISP=(,CATLG),

// DCB=(RECFM=U,BLKSIZE=6144),

// UNIT=3390,SPACE=(TRK,(5,1,20))

//DBDLIB DD DSN=DAVINR1.FMN310.DBDLIB,

// VOL=SER=SMS001,DISP=(,CATLG),

// DCB=(RECFM=U,BLKSIZE=6144),

// UNIT=3390,SPACE=(TRK,(5,1,20))

//PSB1IB DD DSN=DAVINR1.FMN310.PSBLIB,

// VOL=SER=SMS001,DISP=(,CATLG),

// DCB=(RECFM=U,BLKSIZE=6144),

// UNIT=3390,SPACE=(TRK,(5,1,20))

//CRITERIA DD DSN=DAVINR1.FMN310.CRITERIA,

// VOL=SER=SMS001,DISP=(,CATLG),

// UNIT=3390,SPACE=(TRK,(1,1,20)),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)

//TEMPLATE DD DSN=DAVINR1.FMN310.TEMPLATE,

// VOL=SER=SMS001,DISP=(,CATLG),

// UNIT=3390,SPACE=(TRK,(1,1,20)),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)

//VIEW DD DSN=DAVINR1.FMN310.VIEW,

// VOL=SER=SMS001,DISP=(,CATLG),

// UNIT=3390,SPACE=(TRK,(1,1,20)),

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)

/*

//*

//********************************************************************

//* *

//* Step 1: Assemble load programs *

//* *

//********************************************************************

//*

//PJ1A EXEC PROC=ASSEM,MBR=J1

//PJ2A EXEC PROC=ASSEM,MBR=J2

//PJ3A EXEC PROC=ASSEM,MBR=J3

//*

//********************************************************************

//* *

//* Step 2: DBDGEN *

//* *

//********************************************************************

568 Using IBM Application Development Tools for z/OS and OS/390

//*

//DJ1E EXEC PROC=DBDGEN,MBR=J1E

//DJ1F EXEC PROC=DBDGEN,MBR=J1F

//DJ1G EXEC PROC=DBDGEN,MBR=J1G

//DJ2E EXEC PROC=DBDGEN,MBR=J2E

//DJ2F EXEC PROC=DBDGEN,MBR=J2F

//DJ2G EXEC PROC=DBDGEN,MBR=J2G

//DJ3E EXEC PROC=DBDGEN,MBR=J3E

//DJ3F EXEC PROC=DBDGEN,MBR=J3F

//DJ3G EXEC PROC=DBDGEN,MBR=J3G

//*

//********************************************************************

//* *

//* Step 3: PSBGEN *

//* *

//********************************************************************

//*

//PUPA EXEC PROC=PSBGEN,MBR=UPA

//PUPG EXEC PROC=PSBGEN,MBR=UPG

//PUPP EXEC PROC=PSBGEN,MBR=UPP

//PUPR EXEC PROC=PSBGEN,MBR=UPR

//PJ1C EXEC PROC=PSBGEN,MBR=J1C

//PJ2C EXEC PROC=PSBGEN,MBR=J2C

//PJ3C EXEC PROC=PSBGEN,MBR=J3C

//*

//********************************************************************

//* *

//* Step 5: DFSURPR0 - Pre-reorg utility, *

//* Preparation for the resolve of Logical Relationship *

//* and Secondary Indexes *

//* *

//********************************************************************

//*

//PREREO EXEC PGM=DFSRRC00,PARM='ULU,DFSURPR0',COND=(0,NE)

//STEPLIB DD DSN=IMS.RESLIB,DISP=SHR

// DD DSN=IMS.RESLIB,DISP=SHR

//IMS DD DSN=DAVINR1.FMN310.DBDLIB,DISP=SHR

//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=1200

//DFSURCDS DD DSN=DAVINR1.FMN310.RLCDS,DISP=(,CATLG),

// UNIT=3390,VOL=SER=SMS001,DCB=(BLKSIZE=1600),

// SPACE=(CYL,1)

//SYSIN DD *,DCB=BLKSIZE=80

DBIL=DJ1E

DBIL=DJ2E

DBIL=DJ3E

/*

//*

//********************************************************************

//* *

//* STEP 6: DBLOAD - Load DJ1E, DJ2E, DJ3E Databases *

//* *

//********************************************************************

//*

//J1LOAD EXEC DBLOAD,DB=J1,COND=(0,NE)

//DJ1E DD DSN=DAVINR1.FMN310.DB.DJ1E,DISP=SHR

//DJ1F DD DSN=DAVINR1.FMN310.DB.DJ1F,DISP=SHR

//*

//J2LOAD EXEC DBLOAD,DB=J2,COND=(0,NE)

//DJ2E DD DSN=DAVINR1.FMN310.DB.DJ2E,DISP=SHR

//DJ2F DD DSN=DAVINR1.FMN310.DB.DJ2F,DISP=SHR