Running in TSO without ISPF
After your PL/I program is assembled successfully, you can run it without ISPF.
Run your program in TSO without
ISPF by writing a program similar to the CLIST shown here:
PROC 0
CONTROL ASIS
/************************************************************/
/* Note: QMF, Db2, GDDM and PL/I load libraries must be */
/* allocated before running this CLIST. */
/* Name of QMF load library is "QMF1310.SDSQLOAD". */
/************************************************************/
/* Specify attribute list for dataset allocations */
/************************************************************/
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)
/************************************************************/
/* Datasets used by TSO */
/************************************************************/
ALLOC FI(SYSPROC) DA('QMF1310.SDSQCLTE')
ALLOC FI(SYSEXEC) DA('QMF1310.SDSQEXCE')
/************************************************************/
/* QMF/GDDM Datasets */
/************************************************************/
ALLOC FI(ADMGGMAP) DA('QMF1310.SDSQMAPE') SHR REUSE
ALLOC FI(ADMCFORM) DA('QMF1310.DSQCFORM') SHR REUSE
ALLOC FI(DSQUCFRM) DA('QMF1310.DSQUCFRM') SHR REUSE
ALLOC FI(ADMSYMBL) DA('ADM.GDDMSYM') SHR REUSE
ALLOC FI(ADMGDF) DA('ADM.GDDM.CHARTLIB') SHR REUSE
ALLOC FI(ADMDEFS) DA('ADM.GDDM.NICKNAME') SHR REUSE
/************************************************************/
/* Datasets used by QMF */
/************************************************************/
ALLOC FI(DSQPRINT) SYSOUT(X) USING(PRINTDCB)
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 FI(DSQEDIT) NEW UNIT(SYSDA) USING(EDITDCB)
ALLOC FI(DSQPNLE) DA('QMF1310.DSQPNLE') SHR REUSE
/************************************************************/
/* Start your program using TSO CALL command */
/************************************************************/
CALL sampPLI
EXIT CODE(0)