例

キー値とビューを使用した印刷の例を以下に示します。印刷は、DLI モードで実行され、静的 PSB を使用します。セグメントは TABL 形式で印刷されます。

//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