Example
Here is an example of a load of an IMS database in DLI mode using a static PSB.
//HFMILOAD 'Static PSB load'
//*
//ZDTOOLS EXEC PGM=HFM1IMSB
//STEPLIB DD DSN=HFM.SHFMMOD1,DISP=SHR
//SYSPRINT DD SYSOUT=*,RECFM=FBA,LRECL=133
//HFMTSPRT DD SYSOUT=*
//HFM1JIN DD DISP=SHR,DSN=HFM.SHFMSLIB
//HFMIMSIN DD *
$$FILEM ILB REGNTYPE=DLI,
$$FILEM PSBTYPE=STATIC,
$$FILEM PSBDSN=IMSV1210.FMI.PSBLIB,
$$FILEM PSBMEM=PUPA,
$$FILEM PCBNUM=(3,2,1),
$$FILEM LOADTYPE=2,
$$FILEM LDDSN=HFM.IMS.EXTRACT.DJ2E,
$$FILEM DBDDSN=HFM.IMS.IVP.DBDLIB,
$$FILEM DBDDSN2=IMSV1210.FMI.DBDLIB,
$$FILEM DBDMEM=DJ2E,
$$FILEM IMSID=IF42
/*
//LOAD DD DSN=&&HFM1XTSD,DISP=SHR
//IEFRDER DD DSN=HFM.IMSLOG.D060713.T120159.DJ2E,
// UNIT=SYSALLDA,
// SPACE=(TRK,(20,150),RLSE),
// DCB=(RECFM=VB,LRECL=6140,BLKSIZE=6144),
// DISP=(NEW,DELETE,CATLG)
//* ---------------------------------------------------------------
//* -- Database data sets --
//* ---------------------------------------------------------------
//DJ2E DD DSN=HFM.IMS.IVP.DB.DJ2E,DISP=OLD
//DJ2F DD DSN=HFM.IMS.IVP.DB.DJ2F,DISP=OLD
//DJ3E DD DSN=HFM.IMS.IVP.DB.DJ3E,DISP=OLD
//DJ3F DD DSN=HFM.IMS.IVP.DB.DJ3F,DISP=OLD
//DJ1E DD DSN=HFM.IMS.IVP.DB.DJ1E,DISP=OLD
//DJ1F DD DSN=HFM.IMS.IVP.DB.DJ1F,DISP=OLD
//ENDRC ENDIF
//*