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.

//HFMIPRNT 'Static PSB Print'
//*
//ZDTOOLS EXEC PGM=HFM1IMSB
//STEPLIB DD DSN=HFM.SHFMMOD1,DISP=SHR
//SYSPRINT DD SYSOUT=*,RECFM=FBA,LRECL=133
//HFMTSPRT DD SYSOUT=*
//HFM1JIN DD DISP=SHR,DSN=HFM.SHFMSLIB
//HFMIMSIN DD *
$$FILEM IPR REGNTYPE=DLI,
$$FILEM     PSBTYPE=STATIC,
$$FILEM     PSBDSN=HFM.IMS.IVP.PSBLIB,
$$FILEM     PSBMEM=PUPA,
$$FILEM     PCBNUM=(3,2,1),
$$FILEM     DBDDSN=HFM.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=HFM.IMS.VIEW(DJ2E#V1),DISP=SHR
//REPORT DD SYSOUT=*
//KEYSFILE DD DSN=HFM.XKEY.DJ2E,DISP=SHR
//* ---------------------------------------------------------------
//* -- Database data sets --
//* ---------------------------------------------------------------
//DJ2E DD DSN=HFM.IMS.IVP.DB.DJ2E,DISP=SHR
//DJ2F DD DSN=HFM.IMS.IVP.DB.DJ2F,DISP=SHR
//DJ3E DD DSN=HFM.IMS.IVP.DB.DJ3E,DISP=SHR
//DJ3F DD DSN=HFM.IMS.IVP.DB.DJ3F,DISP=SHR
//DJ1E DD DSN=HFM.IMS.IVP.DB.DJ1E,DISP=SHR
//DJ1F DD DSN=HFM.IMS.IVP.DB.DJ1F,DISP=SHR