Example

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

//FMNIEDIT 'Static PSB edit'
//*
//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 IEB 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 ')

filerc = GETIMS(NEXT USING_VIEW)

 /* Insert an NSTREET segment using SET */
filerc = ISRTIMS('SEGMENT=NSTREET ',
                 ' SET #2=FLOREAT PARK ')
/+
 /*
//* ---------------------------------------------------------------
//* -- 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