Internal Reader  Submitting Jobs using IEBGENER http://www.simotime.com

Introduction
(Next) (Previous) (Return-to-Top)

This suite of programs will describe how to submit a second job to the internal reader from within the currently running job. A small sequential file is created by the second JCL member.

The source code, data sets and documentation are provided in a single zipped file called INTRDR01.ZIP. This zipped file may be downloaded from the SimoTime Web site. In the Windows environment the file names have file extensions. If the JCL member is uploaded to a ZOS Mainframe from the Windows and Micro Focus environment the file extension is dropped.

Sample JCL
(Next) (Previous) (Return-to-Top)

This example contains two (2) JCL members. The first JCL member uses IEBGENER to submit a job to the internal reader. This is a specialized use of IEBGENER.

The second JCL member uses IEBGENER to create a sequential file and is submitted by the first job.

Primary JCL Member to Submit a Job to the Internal Reader
(Next) (Previous) (Return-to-Top)

The following mainframe JCL (INTRDRJ1.JCL) uses IEBGENER to submit a job to the Internal Reader. The IEBGENER utility is commonly used to copy one sequential data set to another. The file to be copied is SYSUT1 and the output file is SYSUT2. A member of a partitioned data set (PDS) can be used as a sequential data set. When SYSUT1 is a PDS Member that contains JCL statements and SYSUT2 is SYSOUT=(,INTRDR) the JCL member is copied to the internal reader (or submitted to the internal reader).

//INTRDRJ1 JOB SIMOTIME,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2010 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Text   - Post the next JOB to the Internal Reader using IEBGENER.
//* Author - SimoTime Enterprises
//* Date   - January 24, 1996
//*
//* This job uses a function of IEBGENER and INTRDR to submit a job
//* from this job to the Internal Reader.
//*
//* This set of programs will run on a mainframe under MVS or on a
//* Personal Computer with Windows and Micro Focus Mainframe Express
//* or ES/MTO.
//*
//* *******************************************************************
//* Step 1 of 1, Post the next JOB to the Internal Reader...
//*
//INTRDRS1 EXEC  PGM=IEBGENER
//*
//* SYSUT1 references a PDS Member containing JCL Statements
//* Sysut2 references SYSOUT that references the Internal Reader
//* The result is a copy (or submit) of JCL to the Internal Reader
//* :....1....:....2....:....3....:....4....:....5....:....6....:....7.
//SYSUT1   DD  DSN=SIMOTIME.PDS.JCL(INTRDRJ2),
//         DISP=SHR
//SYSUT2   DD  SYSOUT=(,INTRDR)
//*
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY

Secondary JCL Member to Create a Sequential File
(Next) (Previous) (Return-to-Top)

The following mainframe JCL (INTRDRJ2.JCL) is used to copy records (from an instream string of records defined by SYSUT1) to an output file that is defined by SYSUT2. This is a common use of IEBGENER. In this suite of sample programs this JCL member is submitted to the Internal Reader from the Primary JCL member described in the preceding section of this document.

//INTRDRJ2 JOB SIMOTIME,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2010 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Text   - Create a Sequential Data Set on disk using IEBGENER.
//* Author - SimoTime Enterprises
//* Date   - January 24, 1996
//*
//* The first job step (CLEANUP) will delete any previously created
//* file. The second job step (INTRDRS2) will create a new file.
//*
//* This set of programs will run on a mainframe under MVS or on a
//* Personal Computer with Windows and Micro Focus Mainframe Express.
//*
//* *******************************************************************
//* Step   1   Delete any previously created file...
//*
//CLEANUP EXEC PGM=IEFBR14
//SYSUT2   DD  DSN=SIMOTIME.DATA.INTRDRD1,DISP=(MOD,DELETE,DELETE),
//             STORCLAS=MFI,
//             SPACE=(TRK,5),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS)
//*
//* *******************************************************************
//* Step   2   Create and populate a new QSAM file...
//*
//INTRDRS2 EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  DUMMY
//*
//* SYSUT1 defines the instream records that will be copied to SYSUT2
//* :....1....:....2....:....3....:....4....:....5....:....6....:....7.
//SYSUT1   DD  *
INTRDR Test Record 001
INTRDR Test Record 002
/*
//SYSUT2   DD  DSN=SIMOTIME.DATA.INTRDRD1,
//             DISP=(NEW,CATLG,DELETE),
//             STORCLAS=MFI,
//             SPACE=(TRK,5),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS)
//

Summary
(Next) (Previous) (Table-of-Contents)

The purpose of this suite of programs is to describe how to submit a second job from within the currently running job. A small sequential file is created by the second JCL member.

Software Agreement and Disclaimer
(Next) (Previous) (Table-of-Contents)

Permission to use, copy, modify and distribute this software for any non-commercial purpose and without fee is hereby granted, provided the SimoTime copyright notice appear on all copies of the software. The SimoTime name or Logo may not be used in any advertising or publicity pertaining to the use of the software.

SimoTime Enterprises makes no warranty or representations about the suitability of the software for any purpose. It is provided "AS IS" without any express or implied warranty, including the implied warranties of merchantability, fitness for a particular purpose and non-infringement. SimoTime Enterprises shall not be liable for any direct, indirect, special or consequential damages resulting from the loss of use, data or projects, whether in an action of contract or tort, arising out of or in connection with the use or performance of this software.

Downloads and Links to Similar Pages of Interest
(Next) (Previous) (Table-of-Contents)

You may download this at http://www.simotime.com/sim4dzip.htm#dzipintrdr01 or view the complete list of SimoTime Examples at http://www.simotime.com/sim4dzip.htm .

This document describes how to use a  COBOL program to submit jobs  to the Internal Reader (INTRDR) .

This document provides a quick summary of the  File Status Key  for VSAM data sets and QSAM files.

Check out  The JCL Connection  for more mainframe JCL examples.

To review all the information available on this site start at  The SimoTime Home Page .

Glossary of Terms
(Next) (Previous) (Table-of-Contents)

Check out  The SimoTime Glossary  for a list of terms and definitions used in the documents provided by SimoTime.

Comments or Suggestions
(Next) (Previous) (Table-of-Contents)

If you have any questions, suggestions or comments please call or send an e-mail to: helpdesk@simotime.com

About SimoTime Enterprises
(Next) (Previous) (Table-of-Contents)

Founded in 1987, SimoTime Enterprises is a privately owned company. We specialize in the creation and deployment of business applications using new or existing technologies and services. We have a team of individuals that understand the broad range of technologies being used in today's environments. This includes the smallest thin client using the Internet and the very large mainframe systems. There is more to making the Internet work for your company's business than just having a nice looking WEB site. It is about combining the latest technologies and existing technologies with practical business experience. It's about the business of doing business and looking good in the process. Quite often, to reach larger markets or provide a higher level of service to existing customers it requires the newer Internet technologies to work in a complementary manner with existing corporate mainframe systems. Whether you want to use the Internet to expand into new market segments or as a delivery vehicle for existing business functions simply give us a call or check the web site at http://www.simotime.com