Example

Here is an example of an Extract using key values and criteria. The Extract is run in DLI mode and uses a static PSB.

//HFMIXTRT 'Static PSB extract'
//*
//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 IXB 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     CRITERIA=Y,
$$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     LKUNIT=CYL,
$$FILEM     LKPQTY=20,
$$FILEM     LKSQTY=20,
$$FILEM     RKUNIT=CYL,
$$FILEM     RKPQTY=20,
$$FILEM     RKSQTY=20,
$$FILEM     KEYEXT=Y
/*
//REPORT DD SYSOUT=*
//KEYSFILE DD DSN=HFM.XKEY.DJ2E,DISP=SHR
//UNLOAD DD DSN=HFM.IMS.EXTRACT.DJ2E,
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(1,1,0),RLSE),
// DCB=(RECFM=VB,LRECL=00150,BLKSIZE=0)
//* ---------------------------------------------------------------
//* -- 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