/* REXX */
/* TRACE R */
MSGSTAT = MSG('OFF') /* TURN TSO/E MESSAGES OFF */
/* **************************************************************
* DATE CREATED: 3-MAR-00
* DATE LAST MODIFIED:
*
* ORIGINAL AUTHOR: ProTech Professional Services
* REXX EXEC = ALLOC
* PURPOSE = ALLOCATE A DATASET.
*
*
*   INPUT ARGUMENT = DATASET NAME
*****************************************************************
*/
/* GET NAME OF DATASET CONTAINING THE JCL */
PARSE UPPER ARG INDSN .
DQUOTE = ''
QUOTE  = ''''
JCLDATA = DQUOTE]]QUOTE]]INDSN]]QUOTE]]DQUOTE

/* CHECK IF DATA DATASETS EXIST, IF SO DO NOT ALLOCATE*/
IF SYSDSN(JCLDATA) = 'OK'
THEN CALL EXITCOM

/* ELSE ALLOCATE*/
ALLOCATE:
"ALLOC DA("JCLDATA") SPACE(10,10) DSORG(PS) LRECL(80),
BLKSIZE(9040) RECFM(F,B)"
CALL EXITCOM

/* EXIT WITH/OUT RETURN CODE */
EXITCOM:
          EXIT

_