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('QMF720.DSQCLSTE,'",
    "'DSN.DSNCLIST')"
 "ALLOC FI(SYSEXEC) SHR REUSE ",
  "DA('QMF720.SDSQEXCE')"
 "ALLOC FI(ISPLLIB) SHR REUSE ",
  "DA('QMF720.SDSQLOAD,'",
    "'ADM.GDDM.GDDMLOAD,'",
    "'DSN.DSNLOAD')"
"ALLOC FI(DSQPNLE) DA('QMF710.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('QMF720.DSQMAPE') SHR REUSE"
"ALLOC FI(ADMCFORM) DA('QMF720.DSQCHART') SHR REUSE"
"ALLOC FI(DSQUCFRM) DA('QMF720.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 ........       */