pdscrtj4.jcl

//PDSCRTJ4 JOB SIMOTIME,ACCOUNT,CLASS=1,MSGCLASS=0,NOTIFY=CSIP1
//* *******************************************************************
//*                   This program is provided by:                    *
//*                    SimoTime Enterprises, LLC                      *
//*           (C) Copyright 1987-2005 All Rights Reserved             *
//*             Web Site URL:   http://www.simotime.com               *
//*                   e-mail:   helpdesk@simotime.com                 *
//* *******************************************************************
//*
//* Subject: Define a PDS using the IEFBR14 with a DD Statement
//* Author:  SimoTime Enterprises
//* Date:    January 1,1998
//*
//* The JCL member executes the instream PROC called PDSCRTP3 and
//* passes a fully qualified data set name (DSN) via the symbolic name
//* called DSNAME and referenced in the PROC as &DSNAME.
//*
//*********************************************************************
//* The instream PROC for creating a PDS. The Data Set Name (&DSNAME)
//* is provided by the job step that EXECs the PROC.
//*
//PDSCRTP3 PROC
//PDSCRTS1 EXEC PGM=IEFBR14
//TEMPLIB1 DD  DISP=(NEW,CATLG),DSN=&DSNAME,
//             STORCLAS=MFI,
//             SPACE=(TRK,(45,15,50)),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PO)
//         PEND
//*
//* *******************************************************************
//* Step   1 of 3  Create a PDS using SET and EXEC
//*
//         SET DSNAME=SIMOTIME.DEMO.TEMP01
//STEPJ41  EXEC PDSCRTP3
//*
//* *******************************************************************
//* Step   2 of 3  Create a PDS using EXEC and DSNAME substitution
//*
//STEPJ42  EXEC PDSCRTP3,DSNAME=SIMOTIME.DEMO.TEMP02
//*
//* *******************************************************************
//* Step   3 of 3  Create a PDS using EXEC and DSNAME substitution
//*
//STEPJ43  EXEC PDSCRTP3,DSNAME=SIMOTIME.DEMO.TEMP03
//*