Running your REXX programs

You can run your REXX program in TSO by writing a program similar to the one shown here:

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