Example

Here is an example of a load of an IMS database in DLI mode using a static PSB.

//FMNILOAD 'Static PSB load'
//*
//FILEMAN  EXEC PGM=FMN1IMSB
//STEPLIB  DD DSN=FMN.SFMNMOD1,DISP=SHR
//SYSPRINT DD SYSOUT=*,RECFM=FBA,LRECL=133
//FMNTSPRT DD SYSOUT=*
//FMN1JIN  DD DISP=SHR,DSN=FMN.SFMNSLIB
//FMNIMSIN  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=FMN.IMS.EXTRACT.DJ2E,
$$FILEM     DBDDSN=FMN.IMS.IVP.DBDLIB,
$$FILEM     DBDDSN2=IMSV1210.FMI.DBDLIB,
$$FILEM     DBDMEM=DJ2E,
$$FILEM     IMSID=IF42
 /*
//LOAD     DD DSN=&&FMN1XTSD,DISP=SHR
//IEFRDER  DD DSN=FMN.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=FMN.IMS.IVP.DB.DJ2E,DISP=OLD
//DJ2F DD DSN=FMN.IMS.IVP.DB.DJ2F,DISP=OLD
//DJ3E DD DSN=FMN.IMS.IVP.DB.DJ3E,DISP=OLD
//DJ3F DD DSN=FMN.IMS.IVP.DB.DJ3F,DISP=OLD
//DJ1E DD DSN=FMN.IMS.IVP.DB.DJ1E,DISP=OLD
//DJ1F DD DSN=FMN.IMS.IVP.DB.DJ1F,DISP=OLD
//ENDRC     ENDIF
//*