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