Figure 1 shows sample JCL to run the COBOL program. The program ENVCOBRX resides in IBMUSER.LOAD. Because neither the program nor the REXX exec that the program executes requires input, the JCL allocates SYSTSIN to a dummy data set. TSO/E uses the SYSTSPRT file to output messages issued by the REXX exec. Program DISPLAY statements send program error messages to the SYSOUT file.

//IBMUSERA JOB 'IKJTSOEV SAMPLE1',MSGLEVEL=(1,1),TIME=2,
//           CLASS=A,MSGCLASS=H
//*
//DOTSO    EXEC PGM=ENVCOBRX
//STEPLIB  DD   DSN=IBMUSER.LOAD,DISP=SHR
//SYSPROC  DD   DSN=IBMUSER.TSOENV.CLIST,DISP=SHR
//SYSTSPRT DD   SYSOUT=*
//SYSTSIN  DD   DUMMY
//SYSOUT   DD   SYSOUT=*

Figure 2 shows sample JCL to run the assembler program. The program ENVTSCMD resides in IBMUSER.LOAD. Because the program does not use SYSTSIN for input, the JCL allocates SYSTSIN to a dummy data set. The program redirects output for the TSO/E command invocation to MYPRTDD, which is allocated to a data set. The program sends all other TSO/E output is sent to the SYSTSPRT file.

//IBMUSERA JOB 'IKJTSOEV SAMPLE1',MSGLEVEL=(1,1),TIME=2,
//           CLASS=A,MSGCLASS=H
//*
//DOTSO    EXEC PGM=ENVTSCMD
//STEPLIB  DD   DSN=IBMUSER.LOAD,DISP=SHR
//SYSPROC  DD   DSN=IBMUSER.TSOENV.CLIST,DISP=SHR
//SYSTSPRT DD   SYSOUT=*
//SYSTSIN  DD   DUMMY
//MYPRTDD  DD   SYSOUT=*
//SYSOUT   DD   SYSOUT=*