MVSFORUMS.com

[jim haire]

I have a COBOL program which writes multiple jobs to the Internal Reader. I would like to save one copy of each JCL run to individual members of a PDS.

Before I run each set of JCL on the Internal Reader, I perform a dynamic allocation of the output file using the BPXWDYN program. These members do not exist, but the PDS does exist.

I call BPXWDYN the first time using:

Code:

ALLOC DD(OAUDTJCL) DSN(dataset-name(member1)) OLD REUSE

I display the return code, which is 0.

I then do a COBOL OPEN OUTPUT statement of the AUDIT-JCL-FILE (whose DDNAME is OAUDTJCL). I write JCL lines to this file and the Internal Reader. I then close the AUDIT-JCL-FILE.

After I close the file, I then attempt to free the file by calling BPXWDYN:

Code:

FREE DSN(dataset-name(member1)) DD(OAUDTJCL)

I display the return code which is also 0. The Internal reader job works as expected and dataset-name(member1) contains the JCL that was just run.

I then try to reallocate another member in the same PDS using similar logic.

Code:

ALLOC DD(OAUDTJCL) DSN(dataset-name(member2)) OLD REUSE

This fails in BPXWDYN with a 032P error.

I also get the following error message:

Quote:

THERE WAS AN UNSUCCESSFUL OPEN OR CLOSE OF FILE OAUDTJCL IN PROGRAM program-name AT RELATIVE LOCATION X'1316'. NEITHER FILE STATUS NOR AN ERROR DECLARATIVE WERE SPECIFIED. THE STATUS CODE WAS 96.

The error related to this is NO DD Statement for the file .

I have tried a number of combinations including not FREEING the file and just allocating the 2nd file, changing the order of processes (freeing the file before closing), etc. No combination seems to work.

Is it possible to dynamically allocate files and point to different physical output files assigned to the same DDNAME during a single run of a job?

[kolusu]

[jim haire]

Thank you Kolusu. This worked perfectly!

One more question. After my final allocation and processing, should I attempt a "FREE" or will the termination of the COBOL program do that for me?

Thanks again!

[kolusu]