//PDSCRTJ3 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 JCLLIB tells the mainframe where to look for PROCs.
//*
//* The JCL member executes the 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.
//*
//*********************************************************************
//*
//PROCLIB  JCLLIB ORDER=MFI01.SIMOPROD.JCLPROC1
//*
//* *******************************************************************
//* Step   1 of 3  Create a PDS using SET and EXEC
//*
//         SET DSNAME=MFI01.SIMOPROD.TEMP01
//STEPJ01  EXEC PDSCRTP3
//*
//* *******************************************************************
//* Step   2 of 3  Create a PDS using EXEC and DSNAME substitution
//*
//STEPJ02  EXEC PDSCRTP3,DSNAME=MFI01.SIMOPROD.TEMP02
//*
//* *******************************************************************
//* Step   3 of 3  Create a PDS using EXEC and DSNAME substitution
//*
//STEPJ03  EXEC PDSCRTP3,DSNAME=MFI01.SIMOPROD.TEMP03
//*