Example

Here is an example of a Print using key values and a view. The Print is run in DLI mode and uses a static PSB. The segments are printed in TABL format.

//FMNIPRNT 'Static PSB Print'
//*
//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 IPR REGNTYPE=DLI,
$$FILEM     PSBTYPE=STATIC,
$$FILEM     PSBDSN=FMN.IMS.IVP.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=IFA2,
$$FILEM     RESLIB1=IMSVA10.IFA2.SDFSRESL,
$$FILEM     RESLIB2=IMSVA10.IFA2.USERLIB,
$$FILEM     DBRC=IMS,
$$FILEM     IRLM=N,
$$FILEM     DFSVSAMP=IMSVA10.IFB2.PROCLIB,
$$FILEM     VSMPMEM=DFSVSMDB,
$$FILEM     VIEW=Y,
$$FILEM     KEYPRT=Y,
$$FILEM     PRTFORM=TABL
/*
//VIEWDD   DD DSN=FMN.IMS.VIEW(DJ2E#V1),DISP=SHR
//REPORT DD SYSOUT=*
//KEYSFILE DD DSN=FMN.XKEY.DJ2E,DISP=SHR
//* ---------------------------------------------------------------
//* -- 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