Hi
Yes. I am trying to create a DATACLAS and associated rules that will
provide a set of default
characteristics for a DSORG=PS file.
If DSORG=PS must be used in the JCL, We need change a lot of JCL.
Is there other method to do it without using DSORG=PS in the JCL?
Thanks a lot!
Jason Cai
---------------------------------------------------------------
Hi
Thanks your answers.
I am sorry that I just came back by holiday
Today I submit the following JCL:
//ALOCHSKP EXEC PGM=IEFBR14
//MESSAGE DD DSN=ABSP.CEB.TEST9,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(4096,(10,10)),
// DCB=(LRECL=300,BLKSIZE=27900,RECFM=FB)
Below is the output: Data class . . . . . : DCSTD
Data Set Name . . . . : ABSP.CEB.TEST9
General Data Current Allocation
Management class . . : **None** Allocated blocks . : 2
Storage class . . . : SCSTAND Allocated extents . : 1
Volume serial . . . : BD3A20
Device type . . . . : 3390
Data class . . . . . : DCSTD
Organization . . . : PS Current Utilization
Record format . . . : FB Used blocks . . . . : 0
Record length . . . : 300 Used extents . . . : 0
Block size . . . . : 27900
1st extent blocks . : 2
Secondary blocks . : 10 Dates
Data set name type : Creation date . . . : 2011/04/07
SMS Compressible. . : NO Referenced date . . : ***None***
Expiration date . . : ***None***
Then I submit the other JCL below:
//ALOCHSKP EXEC PGM=IEFBR14
//MESSAGE DD DSN=ABSP.CEB.TEST8,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(4096,(10,10)),DSORG=PS,
// DCB=(LRECL=300,BLKSIZE=27900,RECFM=FB)
The output is below:Data class . . . . . : DCPS
Data Set Name . . . . : ABSP.CEB.TEST8
General Data Current Allocation
Management class . . : **None** Allocated blocks . : 10
Storage class . . . : SCSTAND Allocated extents . : 1
Volume serial . . . : BD3A31
Device type . . . . : 3390
Data class . . . . . : DCPS
Organization . . . : PS Current Utilization
Record format . . . : FB Used blocks . . . . : 0
Record length . . . : 300 Used extents . . . : 0
Block size . . . . : 27900
1st extent blocks . : 10
Secondary blocks . : 10 Dates
Data set name type : Creation date . . . : 2011/04/07
SMS Compressible. . : NO Referenced date . . : ***None***
Expiration date . . : ***None***
My question:
When I allocate a dataset using PGM=IEFBR14 with SPACE=(4096,(10,10)),
Could the parm of space ask system to allocate a PS dataset?
Why do we must use DSORG=PS in the JCL?
For LRECL=0 and BLKSIZE=0
I submit the following JCL
//ALOCHSKP EXEC PGM=IEFBR14
//MESSAGE DD DSN=ABSP.CEB.TEST7,DISP=(NEW,CATLG,DELETE),
// UNIT=3390,SPACE=(4096,(10,10)),DCB=PATTERN
the PATTERN is allocted by the jcl below
/D0 DD DSN=PATTERN,DISP=(NEW,CATLG),UNIT=3390,
// DCB=(LRECL=0,BLKSIZE=0),
// VOL=SER=BD3WK1,SPACE=(TRK,(0,0,0))
Thanks a lot!
Jason Cai
On 4/1/2011 18:36, Ron Hawkins wrote:
> I am 033x tomorrow!
>
>> -----Original Message-----
>> From: IBM Mainframe Discussion List [mailto:[email protected]] On
> Behalf Of
>> Scott Ford
>> Sent: Friday, April 01, 2011 2:35 PM
>> To: [email protected]
>> Subject: Re: [IBM-MAIN] DATACLASS
>>
>> NowI get it, thanks my man...btw I was 60 last august
>>
>> Sco
>> Ron,
>>
>> NowI get it, thanks my man...btw I was 60 last august
>>
>> Scott J Ford
>>
>>
>>
>>
>>
>> ________________________________
>> From: Ron Hawkins<[email protected]>
>> To: [email protected]
>> Sent: Fri, April 1, 2011 5:25:30 PM
>> Subject: Re: DATACLASS
>>
>> Scott,
>>
>> I may be older then.
>>
>> The JCL is pretty much run of the mill placeholder allocation. It's a
> pretty
>> common practice to pre-allocate your space like this. Some shops add the
> DCB
>> info in the IEFBR14 and some shops add it on the step that opens the file.
>> It doesn't really matter 'cause it is just space. We used to fill our RVAs
>> and Icebergs with 100s of these.
>>
>> And it may not be obvious, but LRECL=0 is really saying LRECL is missing,
>> just like BLKSIZE=0 which is used all the time. The JCL and ISPF 3.2 don't
>> ask for these LRECL and BLKSIZE to be zero, it just they are displayed as
>> zero because nothing has actually been specified.
>>
>> Now this may be a wild arsed guess, but I think Jason is trying to create
> a
>> DATACLAS and associated rules that will provide a set of default
>> characteristics for a DSORG=PS file. The ACS routine he provided is not
>> working for the IEFBR14 because the DSORG is null. I'm still not certain
>> that ISPF is opening the file as described by Ted, but I do believe that
>> ISPF is adding DSORG=PS even though it is not requested - there's nowhere
>> for you to actually specify the DSORG in ISPF 3.2.
>>
>> This is the non-SMS allocation from the JCL from the OP.
>>
>> . Data Set Information
>> .
>> . Command ===>
>> .
>> .
>> .
>> . Data Set Name . . . . : HAWKINS.CEB.TEST
>> .
>> .
>> .
>> . General Data Current Allocation
>> .
>> . Management class . . : **None** Allocated tracks . : 1
>> .
>> . Storage class . . . : **None** Allocated extents . : 1
>> .
>> . Volume serial . . . : PE1USA
>> .
>> . Device type . . . . : 3390
>> .
>> . Data class . . . . . : **None**
>> .
>> . Organization . . . : NONE Current Utilization
>> .
>> . Record format . . . : ? Used tracks . . . . : 0
>> .
>> . Record length . . . : 0 Used extents . . . : 0
>> .
>> . Block size . . . . : 0
>> .
>> . 1st extent tracks . : 1
>> .
>> . Secondary blocks . : 10 Dates
>> .
>> . Data set name type : Creation date . . . : 2011/04/01
>> .
>> . Referenced date . . :
> ***None***
>> .
>> . Expiration date . . :
> ***None***
>> .
>>
>> Ron
>>
>>
>>> -----Original Message-----
>>> From: IBM Mainframe Discussion List [mailto:[email protected]] On
>> Behalf Of
>>> Scott Ford
>>> Sent: Friday, April 01, 2011 1:09 PM
>>> To: [email protected]
>>> Subject: Re: [IBM-MAIN] DATACLASS
>>>
>>> I went back and read the original post...Its not clean what
>>> Ron,
>>>
>>> I went back and read the original post...Its not clean what Jason is
>> doing, I
>>> see the IEFBR14 and it is wrong JCL wise...but what is this dataset's
>>> attributes
>>> or is it being modelled after another dataset.....Maybe I am getting old
>>> dude..I
>>> also saw his ISPF 3.2 ...never have I allocated a dataset as LRECL = 0
>>> and BLKSIZE = 0 , and of
>>>
>>> course forget reading it ..what is he trying to do here..?
>>>
>>> Scott J Ford
>>>
>>>
>>>
>>>
>>>
>>> ________________________________
>>> From: Ron Hawkins<[email protected]>
>>> To: [email protected]
>>> Sent: Fri, April 1, 2011 2:48:55 PM
>>> Subject: Re: DATACLASS
>>>
>>> Scott,
>>>
>>> The IEFBR14 example from the original post is one example of a program
>> that
>>> would allocate such a dataset.
>>>
>>> Ron
>>>
>>>
>>>
>>>> -----Original Message-----
>>>> From: IBM Mainframe Discussion List [mailto:[email protected]] On
>>> Behalf Of
>>>> Scott Ford
>>>> Sent: Friday, April 01, 2011 11:17 AM
>>>> To: [email protected]
>>>> Subject: Re: [IBM-MAIN] DATACLASS
>>>>
>>>> A lrecl = and blksize = and recfm = , IMHO i wou
>>>> Guys:
>>>>
>>>> A lrecl = 0 and blksize = 0 and recfm = u , IMHO i would have thought
>> you
>>> need
>>>> a
>>>> lrecl or blksize, how many programs fo you know would allocate such a
>>>> dataset..
>>>> I dont know of many...
>>>>
>>>>
>>>> Scott J Ford
>>> ----------------------------------------------------------------------
>>> 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
>>>
>>>
>>>
>>>
>>>
>>> ----------------------------------------------------------------------
>>> 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
>> ----------------------------------------------------------------------
>> 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
>>
>>
>>
>>
>>
>> ----------------------------------------------------------------------
>> 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
> ----------------------------------------------------------------------
> 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
>
To be young again...Enjoy!
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
