Is there a way to turn off the free=close bit



High Level Assembler(HLASM) for MVS & VM & VSE

Is there a way to turn off the free=close bit

Postby jdechirico » Wed Apr 02, 2025 7:31 pm

Hi

I have a long-running application that closes and then reopens a dataset, which is fine. The problem occurs when a user decides to code FREE=CLOSE on the DD statement in the JOB's JCL.

Needless to say, when the application tried to reopen the dataset, the FREE=CLOSE function had removed the DDNAME from the TIOT and all related control blocks from the system.

There appears to be a bit in the DSAB and SIOT related to FREE=CLOSE. Is there a supported way to turn those bits off prior to issuing the close for the dataset?

A ZOS macro IEFDDSRV that implies that it can modify allocation information, but it is not very well documented as to what is required for the MODIFY=ALLOCATION request.

Does anyone have any experience with the IEFDDSRV function or know of other supported ways to prevent ZOS from performing the FREE=CLOSE when a dataset is closed?

Thanks in advance for any assistance that is offered.

JD
jdechirico
 
Posts: 2
Joined: Mon Mar 01, 2021 10:51 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Is there a way to turn off the free=close bit

Postby sergeyken » Wed Apr 02, 2025 8:08 pm

jdechirico wrote:The problem occurs when a user decides to code FREE=CLOSE on the DD statement in the JOB's JCL.


I believe if the user decided to code ANY parameters, either in DD statement, or in another program code, he must be aware of the consequences of his changes.

In such manner, a user can change hundreds, or thousands of different options, flags, or values. It is not possible for administration to programmatically fix hundreds of possible user's "decisions" except strict requirements to the user not to use unneeded, or harmful parameters, options, or flags in his coding.
Javas and Pythons come and go, but JCL and SORT stay forever.
User avatar
sergeyken
 
Posts: 455
Joined: Wed Jul 24, 2019 10:12 pm
Has thanked: 8 times
Been thanked: 40 times


Return to Assembler

 


  • Related topics
    Replies
    Views
    Last post