Darth,
Try this (the first when statement).
WHEN (&DCEXTEND_DSN)
DO
IF (&SIZE GE 40000KB) THEN
DO
- - - -
SELECT
- - - -
WHEN (&DSORG NE 'PO' AND &DSORG NE 'VS')
DO
SET &DATACLAS = 'DCEXTEND'
WRITE 'DCN0900 ' &DSN ' ' &PGM ' ' &DSORG ' '
&DATACLAS
EXIT
END
OTHERWISE
DO
SET &DATACLAS = 'DCSTDFLT'
WRITE 'DCN1000 ' &DSN ' ' &PGM ' ' &DSORG ' '
&DATACLAS
EXIT
END
My SMS experience is that directory blocks in space allocation will cause
DSORG to be completed as "PO" and DEFINE or VSAM in JCL will see DSORG set
to "VS". That means whatever is leftover, is "PS". I think this is what
someone meant by checking what it isn't.
Ron
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Darth Keller
> Sent: Wednesday, February 20, 2008 1:50 PM
> To: [email protected]
> Subject: Re: [IBM-MAIN] A Blank DSORG
>
> Tom Marchant sent this earlier today:
>
> From the Storage Administration Reference:
>
> "If you do not specify a Recorg value for data sets with a data class,
> assigned
> either by JCL or ACS routine, the DSORG defaults to either physical
> sequential
> (PS) or partitioned organization (PO)."
> --
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
