DB2 graphic QMF Version 8

Running your programs under TSO in z/OS

You can run your REXX program by writing a program similar to the following example:

Figure 68. REXX program to run your program in TSO
 /*****************************************************************/
 /* Issue TSO Allocates for QMF Product                           */
 /*****************************************************************/
 Address TSO
 
 "ATTR PRINTDCB LRECL(133) RECFM(F B A) BLKSIZE(1330)"
 "ATTR DEBUGDCB LRECL(80) RECFM(F B) BLKSIZE(3120)"
 "ATTR UDUMPDCB LRECL(125) RECFM(V B A) BLKSIZE(1632)"
 "ATTR EDITDCB LRECL(79) RECFM(F B A) BLKSIZE(4029)"
 "ALLOC FI(SYSPROC) SHR REUSE ",
  "DA('QMF810.DSQCLSTE,'",
    "'DSN.DSNCLIST')"
 "ALLOC FI(SYSEXEC) SHR REUSE ",
  "DA('QMF810.SDSQEXCE')"
 "ALLOC FI(ISPLLIB) SHR REUSE ",
  "DA('QMF810.SDSQLOAD,'",
    "'ADM.GDDM.GDDMLOAD,'",
    "'DSN.DSNLOAD')"
"ALLOC FI(DSQPNLE) DA('QMF810.DSQPNLE') SHR REUSE"
"ALLOC FI(DSQPRINT) SYSOUT USING(PRINTDCB)"
"ALLOC FI(SYSPRT) SYSOUT(X) LRECL(132) RECFM(FBA) BLKSIZE(132)"
"ALLOC FI(DSQDEBUG) SYSOUT(X) USING(DEBUGDCB)"
"ALLOC FI(DSQUDUMP) SYSOUT(X) USING(UDUMPDCB)"
"ALLOC FI(DSQSPILL) NEW UNIT(SYSDA) SPACE(1,1) TRACKS"
"ALLOC DDNAME(DSQEDIT) UNIT(SYSDA) NEW USING(EDITDCB)"
"ALLOC FI(ADMDEFS)  DA('ADM.GDDM.NICKNAME') SHR REUSE"
"ALLOC FI(ADMGGMAP) DA('QMF810.DSQMAPE') SHR REUSE"
"ALLOC FI(ADMCFORM) DA('QMF810.DSQCHART') SHR REUSE"
"ALLOC FI(DSQUCFRM) DA('QMF810.DSQUCFRM') SHR REUSE"
"ALLOC FI(ADMGDF)   DA('GDDM.ADMGDF') SHR REUSE"
"ALLOC FI(ADMSYMBL) DA('ADM.GDDM.GDDMSYM') SHR REUSE"
 
/* The beginning of your REXX program .....    */
.
.
.
/* The end of your REXX program ........       */


Go to the previous page Go to the next page

Downloads | Library | Support | Support Policy | Terms of use | Feedback
Copyright IBM Corporation 1982,2004 Copyright IBM Corporation 1982, 2004
timestamp Last updated: March, 2004