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.

//FMNIXTRT 'Static PSB extract'
//*
//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 IXB 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     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=FMN.XKEY.DJ2E,DISP=SHR
//UNLOAD DD DSN=FMN.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=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