From: miguel.laiz on
On 12 Mar, 18:08, "William M. Klein" <wmkl...(a)nospam.netcom.com>
wrote:
> I am checking with some IBM sources on this, but one POSSIBLE solution would be
> to use an SMS storage class that automatically does what you want. (I think SMS
> can handle RLSE - but I *know* it can put your dataset on "temporary" storage)
>
> --
> Bill Klein

Hi Bill K,

first of all, my apologies for taking so long to comment on your
feedback. Long overdue vacation and trying deadlines came between my
initial question.

So far, I've managed to get the file I create to be BLOCKED by adding
the BLOCK CONTAINS 0 CHARACTERS clause in the program to the FD
descriptor.

I know that all the file attributes could probably be managed through
SMS and STORCLAS, MGMTCLAS and DATACLAS keywords. The documentation
says that they are supported. And that is what your answer, Bill, also
mentions. My problem is that the client I'm currently working for has
added a coupling between the second level in the DSN-name and a
MANAGEMENT class. So for example P211.DEL1.ABCD would create a file
that expires after 31 days and is deleted. In this example could be
DELx where x represents different expiry dates. I fully understand
that this is shop dependant.

The problem is that I can't seem to specify a DSN-name and also a
DATACLAS attribute in the string used as data with my environment-
variable to create a file. It is totally ignored. I thought that
DATACLAS would override it somehow. In the long run if I want to play
by the shop rules the only way might be to create a new set of DSN-
name levels (as
DEL in the example) but all have the BLOCKING set and the RELEASE of
unused allocated space.



I'm thinking of maybe calling using IKJTSOEV and then IKJEFTSR with a
ALLOC and FREE would be another way to go. I think there is BLOCK and
RLSE keywords that would let me save a lot of space when creating
small and large datasets.

Any thoughts, anyone?

Cheers
Miguel

From: Anne - Marie Jensen on
On 12 Mar., 12:06, migge...(a)gmail.com wrote:
> This is my first post and I hope you can bear with me since english is
> not my
> native language. Thank you in advance!
>
> Cheers,
> Miguel
>
> Background info:
> z/OS version 01.07.01
> IBM Enterprise COBOL for z/OS version 3.4.0
>
> Enterprise COBOL for z/OS, Version 3 Release 4 Publications
> http://www-306.ibm.com/software/awdtools/cobol/zos/library/
> Language Reference Manual
> http://publibfp.boulder.ibm.com/epubs/pdf/igy3lr31.pdf
>
> This is regarding file allocation from a COBOL program using a an
> environmental
> variable in the SELECT ... ASSIGN TO clause. That is, input and/or
> output
> from a COBOL program to a data set whose name has been dynamically
> obtained.
>

Hej.
Sorry to be so late with an answer.

In Zos there is a built in module, that you can call called BPXWDYN.
I have used it a lot, and it is wery easy.

Look here: http://www.google.dk/search?hl=da&q=bpxwdyn&meta=lr%3Dlang_da%7Clang_en%7Clang_no%7Clang_sv

Just be sertain, that the input parameter you send to this module, is
null terminated (x('00')).

If you want, i can send you som examples of how to use it.

Best regards
Anne - Marie