Running your programs in TSO without ISPF
After your COBOL program compiles successfully, you can run it with JCL without ISPF.
Run the COBOL compiler
and linkage editor in TSO without
ISPF by writing a program similar to the CLIST shown here:
PROC 0
CONTROL ASIS
/************************************************************/
/* Note: QMF, Db2, GDDM and COBOL 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 samCOBOL
EXIT CODE(0)