Example

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

FMNIBRWS 'Static PSB browse'
//*
//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 IBB REGNTYPE=DLI,
$$FILEM     PSBTYPE=STATIC,
$$FILEM     PSBDSN=IMSV1210.FMI.PSBLIB,
$$FILEM     PSBMEM=PUPA,
$$FILEM     PCBNUM=(3,2,1),
$$FILEM     DBDDSN=FMN.IMS.IVP.DBDLIB,
$$FILEM     DBDDSN2=IMSV1210.FMI.DBDLIB,
$$FILEM     DBDMEM=DJ2E,
$$FILEM     IMSID=IF42,
$$FILEM     PROC=*
filerc = VIEWIMS('TPLDSN=FMN.IMS.IVP.TEMPLATE')
filerc = VIEWPOSN('POSSEGM=NSTREET ',
                 'SEGMENT=SUBURB #SUBURB-NAME=CITY BEACH ',
                 'SEGMENT=NSTREET #2=FLOREAT BEACH ')

Do while filerc=0
   filerc = GETIMS(NEXT USING_VIEW)
   PRINT(INREC,TABL)
END

/+
 /*
//* ---------------------------------------------------------------
//* -- Database data sets                                        --
//* ---------------------------------------------------------------
//DJ2E DD DSN=FMN.IMS.IVP.DB.DJ2E,DISP=SHR
//DJ2F DD DSN=FMN.IMS.IVP.DB.DJ2F,DISP=SHR
//DJ3E DD DSN=FMN.IMS.IVP.DB.DJ3E,DISP=SHR
//DJ3F DD DSN=FMN.IMS.IVP.DB.DJ3F,DISP=SHR
//DJ1E DD DSN=FMN.IMS.IVP.DB.DJ1E,DISP=SHR
//DJ1F DD DSN=FMN.IMS.IVP.DB.DJ1F,DISP=SHR