Dataset is open. Not able to free it from ddname

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

I have tried to get the fileaid a.f.8 output of a copybook thru rexx in foreground. i have got output but @ the end when i tried to free the dataset it throws an error

maxcc = 12
FILE DD01 NOT FREED, DATA SET IS OPEN

Below is the code:
/* Rexx */
Address TSO
"ALLOC FI(SYSLIST) DA('MYTEST.FILEAID.OP') OLD REU"
Say RC
"ALLOC FI(DD01) DA('MYTEST.COPYLIB') SHR REU"
Say RC
"ALLOC FI(SYSIN) DA('MYTEST.SYSIN') SHR REU"
Say RC
"ALLOC FI(SYSPRINT) DA('MYTEST.SYSPRNT') SHR REU"
Say RC
Address Ispexec "LIBDEF ISPTLIB DATASET ID('FILEAID.LOAD')"
Say RC
Address Ispexec "SELECT PGM(FILEAID)"
Say RC
Address TSO
"FREE FI(SYSLIST)"
Say RC
"FREE FI(DD01)"
Say RC
"FREE FI(SYSIN)"
Say RC
"FREE FI(SYSPRINT)"
Say RC
Exit

This error comes only when i include Address Ispexec "SELECT PGM(FILEAID)" this statement

Plz help

Thanks,
Yuge

expat · Posted: Tue Jun 23, 2009 6:30 pm

What are the contents of the SYSIN DD

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

Sysin data:

$$DD01 RLPRINT MEMBER=(COPYCV1)

yugendran · New User Joined: 14 Dec 2007 Posts: 51 Location: indore

I got it

Reason:
All functions require at least one input dataset. Although File-AID/Batch can access 100
datasets in TSO mode, you must explicitly allocate and free any dataset other than DD01
or DD01O. The dataset identifier ($$DDxx) is required only when any dataset other than
DD01 is accessed.

I have used DD20 now its working fine.

Thanks,
yuge

expat · Posted: Tue Jun 23, 2009 7:00 pm

Thank you for posting the solution, it may prove helpfull to others