Learn JCL-TSO-SCRIPTS with Real Code Examples

Updated Nov 27, 2025

Introduction & Fundamentals Setup & Configuration Architecture & Deep Internals Performance & Security Development Workflow Learning & Career Growth Business & Strategy Examples

Code Sample Descriptions

JCL Script - Run a COBOL Program

//RUNJOB   JOB (ACCT),'COBOL RUN',CLASS=A,MSGCLASS=X
//STEP1    EXEC PGM=MYCOBOL
//STEPLIB  DD DSN=MY.LOAD.LIB,DISP=SHR
//SYSOUT   DD SYSOUT=*
//INFILE   DD DSN=MY.INPUT.DATA,DISP=SHR
//OUTFILE  DD DSN=MY.OUTPUT.DATA,DISP=NEW,CATLG,SPACE=(CYL,(1,1))

A simple JCL job that compiles and runs a COBOL program with dataset allocation.

Let’s Try →

TSO CLIST Script - Allocate Dataset

PROC 0 DSNAME
    ALLOCATE DATASET('&DSNAME') NEW SPACE(1,1) TRACKS
    LISTCAT ENTRIES('&DSNAME')

A TSO CLIST script that allocates a dataset for a user session.

Let’s Try →

TSO REXX Script - Automated Job Submission

ADDRESS TSO "SUBMIT 'USER.JCL(MYJOB)'"
IF RC <> 0 THEN
    SAY "Job submission failed with RC=" RC
ELSE
    SAY "Job submitted successfully."

A TSO REXX script that submits a JCL job and checks return code.

Let’s Try →

Learn JCL-TSO-SCRIPTS with Real Code Examples

Updated Nov 27, 2025

Introduction & Fundamentals Setup & Configuration Architecture & Deep Internals Performance & Security Development Workflow Learning & Career Growth Business & Strategy Examples

Code Sample Descriptions

JCL Script - Run a COBOL Program

//RUNJOB   JOB (ACCT),'COBOL RUN',CLASS=A,MSGCLASS=X
//STEP1    EXEC PGM=MYCOBOL
//STEPLIB  DD DSN=MY.LOAD.LIB,DISP=SHR
//SYSOUT   DD SYSOUT=*
//INFILE   DD DSN=MY.INPUT.DATA,DISP=SHR
//OUTFILE  DD DSN=MY.OUTPUT.DATA,DISP=NEW,CATLG,SPACE=(CYL,(1,1))

A simple JCL job that compiles and runs a COBOL program with dataset allocation.

Let’s Try →

TSO CLIST Script - Allocate Dataset

PROC 0 DSNAME
    ALLOCATE DATASET('&DSNAME') NEW SPACE(1,1) TRACKS
    LISTCAT ENTRIES('&DSNAME')

A TSO CLIST script that allocates a dataset for a user session.

Let’s Try →

TSO REXX Script - Automated Job Submission

ADDRESS TSO "SUBMIT 'USER.JCL(MYJOB)'"
IF RC <> 0 THEN
    SAY "Job submission failed with RC=" RC
ELSE
    SAY "Job submitted successfully."

A TSO REXX script that submits a JCL job and checks return code.

Let’s Try →