INTRDR — Submitting a Job from a Job

Overview

How to use INTRDR (Internal Reader) to submit a secondary job from within a primary job execution on a mainframe system.

First Job (Submitter)

//VNDJ29G JOB (D0B9D,DEV),'VNDJ29 SAC',
//          MSGCLASS=T,CLASS=S,NOTIFY=&SYSUID
//*
//STEP1    EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//DD1      DD DSN=VNDJ29.SAC.PS1,
//            DISP=MOD,RECFM=FB,LRECL=5000,
//            UNIT=SYSDA,SPACE=(TRK,(2,2)),BLKSIZE=50000
//STEP2    EXEC PGM=IEBGENER,COND=(0,NE)
//SYSIN    DD DUMMY
//SYSUT1   DD DSN=VNDJ29.JCL(JCL2),DISP=SHR
//SYSUT2   DD SYSOUT=(*,INTRDR)
//SYSPRINT DD SYSOUT=*

The key element is SYSOUT=(*,INTRDR) which routes the output to the internal reader, triggering automatic job submission.

Triggered Job

//JCL2    JOB (D0B9D,DEV),'VNDJ29 SAC',
//          MSGCLASS=T,CLASS=S,NOTIFY=&SYSUID
//*
//STEP1    EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//DD1     DD DSN=VNDJ29.SAC.PS2,DISP=MOD,RECFM=FB,LRECL=50,
//        UNIT=SYSDA,SPACE=(TRK,(2,2)),BLKSIZE=500

This secondary job executes automatically when submitted through the INTRDR mechanism from the primary job.