//DSQ1EINV EXEC PGM=IKJEFT01,TIME=1440,DYNAMNBR=30,REGION=4096K
The sample includes the load libraries for ISPF, ISPF-PDF, QMF, DB2 UDB for OS/390, and GDDM. Not all of these libraries need to appear in the STEPLIB statement. Some can be allocated later through a CLIST. Before you start QMF, a CLIST can allocate the ISPF and QMF libraries as ISPLLIB data sets.
If you are running with ISPF, you can make the STEPLIB allocation with the ISPF ISPLLIB DD statement.
If you plan to run concurrent versions of QMF with different plan IDs on the same DB2 UDB for OS/390 database, you cannot use the same QMF load library in the same procedure. The following list indicates the load module library names for QMF versions.
//********************************************************** //* PROGRAM LOAD LIBRARIES * //********************************************************** //STEPLIB DD DSN=QMF720.SDSQEXIT,DISP=SHR * QMF MODULES * // DD DSN=QMF720.SDSQLOAD,DISP=SHR * QMF MODULES * // DD DSN=ISR.V4R1M0.ISRLOAD,DISP=SHR * PDF MODULES * Opt. for // non-ISPF users // DD DSN=ISP.V4R1M0.ISPLOAD,DISP=SHR * ISPF MODULES * Opt. for // non-ISPF users // DD DSN=DSN710 .SDSNEXIT,DISP=SHR * DB2 MODULES * // DD DSN=DSN710 .SDSNLOAD,DISP=SHR * DB2 MODULES * // DD DSN=GDDM230.SADMMOD,DISP=SHR * GDDM MODULES *
Use the DDNAME established by your installation for the TSO search order for execs. This search order is affected by settings in the TSO defaults modules IRXTSPRM and IRXISPRM, the TSO EXECUTIL command, and the TSO ALTLIB command. If you do not know your installation's search order for REXX EXECs, allocate SDSQEXCE to both SYSEXEC and SYSPROC.
//********************************************************** //* DATASETS USED BY TSO * //********************************************************** //SYSPROC DD DSN=SYS2.CLIST,DISP=SHR * CLIST Library // DD DSN=QMF720.SDSQCLTE,DISP=SHR //SYSEXEC DD DSN=SYS2.EXEC,DISP=SHR // DD DSN=QMF720.SDSQEXCE,DISP=SHR //SYSHELP DD DSN=SYS1.HELP,DISP=SHR //EDT DD DSN=&EDIT,UNIT=SYSDA,SPACE=(1688,(40,12))
ISPF libraries are optional. If you use ISPF-related functions, allocate these libraries.
//********************************************************** //* DATASETS USED BY ISPF * //********************************************************** //ISPPLIB DD DSN=QMF720.SDSQPLBE,DISP=SHR * Panel libraries // DD DSN=ISR.V4R1M0.ISRPLIB,DISP=SHR // DD DSN=ISP.V4R1M0.ISPPLIB,DISP=SHR //ISPMLIB DD DSN=QMF720.SDSQMLBE,DISP=SHR * Message Libraries // DD DSN=ISR.V4R1M0.ISRMLIB,DISP=SHR // DD DSN=ISP.V4R1M0.ISPMLIB,DISP=SHR //ISPSLIB DD DSN=QMF720.SDSQSLBE,DISP=SHR * ISPF Skeleton Libraries // DD DSN=ISR.V4R1M0.ISRSLIB,DISP=SHR // DD DSN=ISP.V4R1M0.ISPSLIB,DISP=SHR //ISPTLIB DD DSN=ISR.V4R1M0.ISRTLIB,DISP=SHR * Table Input Libraries // DD DSN=ISP.V4R1M0.ISPTLIB,DISP=SHR //ISPPROF DD UNIT=SYSDA,SPACE=(TRK,(9,1,4)), * User's ISPF Profile Library // DCB=(LRECL=80,BLKSIZE=8800,RECFM=FB,DSORG=PO)
These are allocated to ddnames beginning with ADM.
Allocate separate libraries for users who want to save their own chart forms. Create the new library with a DD statement like this:
//DSQUCFRM DD DSN=aaaaaaaa,DISP=(NEW,CATLG), // UNIT=xxxx,VOL=SER=yyyy, // SPACE=(400,(200,50,25)), // DCB=(LRECL=400,BLKSIZE=400,RECFM=F)
Provide the DSN, UNIT, VOL, and SPACE parameters, but do not change the DCB parameters.
//ADMCDATA DD DSN=xxxx,DISP=(NEW,CATLG), // UNIT=xxxx,SPACE=(TRK,(5,1,10)), // DCB=(RECFM=F,LRECL=400,BLKSIZE=400,DSORG=PO)
//********************************************************** //* QMF/GDDM DATA SETS * //********************************************************** //ADMGGMAP DD DSN=QMF720.DSQMAPE,DISP=SHR * GDDM Map Group //ADMCFORM DD DSN=QMF720.DSQCHART,DISP=SHR * QMF-Supplied Chart Forms //DSQUCFRM DD DSN=aaaaaaa,DISP=SHR * Saves User-Defined ICUFORMS //ADMCDATA DD DSN=xxxx,DISP=SHR //ADMGDF DD DSN=xxxx,DISP=SHR //ADMSYMBL DD DSN=xxxx,DISP+SHR
Data sets DSQDEBUG, DSQUDUMP, and SYSUDUMP all currently default to a printer. You can tailor the definition to send the information instead to a data set.
DSQUDUMP, DSQDEBUG, and DSQPRINT all require a DCB parameter. For DSQPRINT, add 1 to LRECL for the print control character.
//********************************************************** //* DATASETS USED BY QMF * //********************************************************** //DSQPNLE DD DSN=QMF720DSQPNLE,DISP=SHR * Panel Definition File //DSQPRINT DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330) * Print Output //DSQDEBUG DD SYSOUT=A,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210) * Trace Output //DSQEDIT DD UNIT=SYSVIO,DCB=(RECFM=FBA,LRECL=79,BLKSIZE=4029), * Edit Transfer File // DISP=NEW,SPACE=(CYL,(1,1)) //DSQUDUMP DD SYSOUT=A,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=1632) * Snap Dump Output //SYSUDUMP DD SYSOUT=A //DSQSPILL DD DSN=&&SPILL,DISP=(NEW,DELETE), * User's Spill File // UNIT=SYSVIO,SPACE=(CYL,(1,1),RLSE), // DCB=(RECFM=F,LRECL=4096,BLKSIZE=4096)