We like to know how to set up File Master IMS's EXTRACT function under BMP or DLI environment.
Release : 11.0
Component : FILE MASTER FOR IMS
DLI mode
//EXTRACT EXEC PGM=CAWKBATC,REGION=2M
//STEPLIB DD DSN=FMMVSXX.LOADLIB,
// DISP=SHR
//DFSRESLB DD DSN=IMSSYSXX.SDFSRESL,DISP=SHR
//DFSVSAMP DD DSN=FMIMSXX.PARMLIB(DFSVSAMP),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//EXTRACT DD DSN=FMIMSXX.EXTRACT,DISP=SHR
//DBDLIB DD DSN=IMSSYSXX.DBDLIB,DISP=SHR
//DSNLIST DD DSN=FMIMSXX.DSNLIST,DISP=SHR
//DBDHIDQ DD DSN=FMIMSXX.DBDHIDQ,DISP=SHR
//DBDHIDQI DD DSN=FMIMSXX.DBDHIDQI,DISP=SHR
//SYSIN DD *
EXTRACT DBD(DBDHIDQ),
DBRC(Y)
/*
BMP mode
//EXTRACT EXEC PGM=CAWKBATC,REGION=2M
//STEPLIB DD DSN=FMMVSXX.LOADLIB,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//EXTRACT DD DSN=FMIMSXX.EXTRACT,DISP=SHR
//ENVLIB DD DSN=FMIMSXX.IMSENV,DISP=SHR
//DSNLIST DD DSN=FMIMSXX.DSNLIST,DISP=SHR
//SYSIN DD *
EXTRACT DBD(DBDHIDQ),
ENV(IMSMBMPF)
/*