Example

Here is an example of the generated JCL for initializing a HDAM/OSAM database without logical relations or secondary indexes. You can also initialize such databases and all necessary JCL will be generated.

//* ---------------------------------------------------------------
//*
//*       Delete/Define Database Data Sets
//*
//* ---------------------------------------------------------------
//*
//PSDELETE EXEC PGM=IEFBR14
//HDOU DD DSN=FMN.IMS.HDOU,
//            DISP=(OLD,DELETE)
//*
//PSALLOC  EXEC PGM=IEFBR14
//HDOU DD DSN=FMN.IMS.HDOU,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(1,1)),
//            DCB=(RECFM=FBS,LRECL=2048,BLKSIZE=2048),
//            DSORG=PS,
//            MGMTCLAS=MCFM,
//            UNIT=3390,
//            STORCLAS=SCFM
 /*
//*
//* ---------------------------------------------------------------
//*
//*       LOAD - INSERT DUMMY RECORDS
//*
//* ---------------------------------------------------------------
//*
//TESTRC    IF (RC LE 4) THEN
//FILEMAN  EXEC PGM=FMN1IMSB
//STEPLIB  DD DSN=FMN.SFMNMOD1,DISP=SHR
//SYSPRINT DD SYSOUT=*,RECFM=FBA,LRECL=133
//FMNTSPRT DD SYSOUT=*
//FMN1JIN  DD DSN=FMN.SFMNSLIB,DISP=SHR
//SYSTERM  DD SYSOUT=*
//FMNIMSIN  DD *
$$FILEM DIB DIBTYPE=INSERT,
$$FILEM     DBDDSN=FMN.IMS.IVP.DBDLIB,
$$FILEM     DBDMEM=HDOU,
$$FILEM     IMSID=IF52
 /*
//IEFRDER DD DUMMY
//* ---------------------------------------------------------------
//* -- Database datasets                                         --
//* ---------------------------------------------------------------
//HDOU DD DSN=FMN.IMS.HDOU,DISP=SHR
//ENDRC     ENDIF
//*
//* ---------------------------------------------------------------
//*
//*       DELETE DUMMY RECORDS
//*
//* ---------------------------------------------------------------
//*
//TESTRC    IF (RC LE 4) THEN
//FILEMAN  EXEC PGM=FMN1IMSB
//STEPLIB  DD DSN=FMN.SFMNMOD1,DISP=SHR
//SYSPRINT DD SYSOUT=*,RECFM=FBA,LRECL=133
//FMNTSPRT DD SYSOUT=*
//FMN1JIN  DD DSN=FMN.SFMNSLIB,DISP=SHR
//SYSTERM  DD SYSOUT=*
//FMNIMSIN  DD *
$$FILEM DIB DIBTYPE=DELETE,
$$FILEM     DBDDSN=FMN.IMS.IVP.DBDLIB,
$$FILEM     DBDMEM=HDOU,
$$FILEM     IMSID=IF52
 /*
//IEFRDER  DD DSN=&&LOGD,
//       UNIT=SYSALLDA,
//       SPACE=(TRK,(20,20),RLSE),
//       DCB=(RECFM=VB,LRECL=6140,BLKSIZE=6144),
//       DISP=(NEW,DELETE,DELETE)
//* ---------------------------------------------------------------
//* -- Database data sets                                        --
//* ---------------------------------------------------------------
//HDOU DD DSN=FMN.IMS.HDOU,DISP=SHR
//*
//ENDRC     ENDIF