Internal Reader – COBOL and JCL

What is an internal reader? The INTRDR is an IBM-reserved name identifying the internal reader. The system places the output records for the internal reader into a buffer in your address space. When this buffer is full, JES places the contents on the spool. Later, JES retrieves the new job from the spool.

How to give the internal reader in JCL…

//ddname DD SYSOUT=(class,INTRDR)

The data which is coming from COBOL is written to the spool in the ‘class” as we specified. The class can be ‘A or B or C etc.

When the Spool fulls and encounters the last statement /*EOF, the statements in the internal reader will be processed.

If JCL statements are there in the Internal reader, then, JOB will be submitted.

Some of the end statements:

/*EOF
This control statement delimits the job in the data set and makes it eligible for immediate processing.

/*DEL
This control statement cancels the job in the data set and schedules it for immediate output processing. The output consists of any JCL submitted, followed by a message indicating that the job was deleted before execution.

/*PURGE
For JES2 only, this control statement cancels the job in the data set and schedules it for purge processing; no output is produced for the job.

/*SCAN
For JES2 only, this control statement requests that JES2 only scan the job in the data set for JCL errors. The job is not to be executed.

The internal reader will get input from either JCL or from the COBOL module. See the flow chart given below

Application of internal reader sample JCL

In this JCL, job cards read from sysin card and writes into ineternal reader. When the last statement is /*EOF, it submits job to spool.

In the below JCL class is ‘M’

//SRINIMFA   JOB D58JTH,HIGGIE
//GENER    EXEC PGM=IEBGENER
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=A,DEST=NODE1
//SYSUT2   DD SYSOUT=(M,INTRDR)
//SYSUT1   DD DATA
 //SRINIMFB   JOB D58JTH,HIGGIE,MSGLEVEL=(1,1)
 //REPORTA   EXEC PGM=SUMMARY
 //OUTDD1    DD SYSOUT=*
 //INPUT     DD DSN=REPRTSUM,DISP=OLD
 //SRINIMFC   JOB D58JTH,HIGGIE,MSGLEVEL=(1,1)
 //REPORTB   EXEC PGM=SUMMARY
 //OUTDD2    DD SYSOUT=*,DEST=NODE2
 //INPUT     DD DSN=REPRTDAT,DISP=OLD
 /*EOF

The detailed explanation for the above sample internal reader JCL.

• SRINIMFA executes program IEBGENER.
• Program IEBGENER reads SRINIMFB and SRINIMFC from in-stream data set SYSUT1 and writes them to sysout data set SYSUT2, which is submitted to the internal reader.
• The message class for SRINIMFB and SRINIMFC is ‘M’, the SYSOUT class specified on DD statement SYSUT2.
• The message class for sysout data set OUTDD1 is ‘M’ because SYSOUT=* is
  coded.
• The /*EOF statement specifies that the preceding jobs are to be sent
  immediately to JES for input processing.

Sample JCL submit data from COBOL program to internal reader

//SUBMITS1 EXEC PGM=CBLINTR1
//STEPLIB  DD  DSN=SRINIMF.DEMO.LOADLIB1,DISP=SHR
//JCLINPUT DD  DSN=SRINIMF.PDS.JCL(UVBR00J1),DISP=SHR
//SUBTORDR DD  SYSOUT=(A,INTRDR)
//SYSOUT   DD  SYSOUT=*
//