Setting up QMF to run in native OS/390 as a batch job

Allow your users to start QMF in native OS/390 as a batch job by creating JCL that defines where the spill file is, where the panels are stored, the file names of the panels, and the names and locations of other tables and QMF objects.

To issue a QMF command, specify the name of an initial QMF procedure. In Figure 39, the name of the procedure is I=X, where X is the name of the QMF procedure.

QMF starts and runs procedure X. When procedure X completes, QMF terminates. The QMF return code is returned in register 15. You can test it using the standard JCL condition code testing.

Figure 39. JCL to run a QMF procedure in native OS/390 batch

//RUNQMF  EXEC PGM=DSQQMFE,PARM='M=B,I=X,P=QMF720,S=DSN'
//*********************************************************
//*     Program load libraries
//*********************************************************
//STEPLIB  DD DSN=QMF720.SDSQLOAD,DISP=SHR
//         DD DSN=DSN720.SDSNEXIT,DISP=SHR
//         DD DSN=DSN720.SDSNLOAD,DISP=SHR
//         DD DSN=GDDM.GDDMLOAD,DISP=SHR
//*********************************************************
//*     QMF/GDDM maps
//*********************************************************
//ADMGGMAP DD DSN=QMF720.DSQMAPE,DISP=SHR
//*********************************************************
//*     Datasets used by QMF                       *
//***********************************************************
//DSQPRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//DSQDEBUG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=122,BLKSIZE=1210)
//DSQUDUMP DD SYSOUT=*,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=1632)
//DSQSPILL DD DSN=&&SPILL,DISP=(NEW,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(100),RLSE),
// DCB=(RECFM=F,LRECL=4096,BLKSIZE=4096)

If you are running QMF in native OS/390, data set names that are used in QMF procedures must be fully qualified. The TSO prefix and suffix are not available in native OS/390.