|
View previous topic :: View next topic
|
| Author |
Message |
Vkp321
New User
Joined: 05 Jan 2009
Posts: 56
Location: Dublin
|
|
|
|
Hi,
I am using a procedure to write file in rexx, providing the file name from calling program.
CRTFILE:
"ALLOC FI(XXOUT) DA('"OUTFILE"') MOD REUSE SPACE(2,2) LRECL("LRL")
BLKSIZE(27998) RECFM(V,B)"
"EXECIO" LOT.0 "DISKW XXOUT (STEM LOT."
"FREE FI(XXOUT)"
Getting the following error
DATA SET ******* NOT FREED, DATA SET IS OPEN
FILE XXOUT NOT FREED, DATA SET IS OPEN
Please let me know your inputs |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
| Back to top |
|
|
Vkp321
New User
Joined: 05 Jan 2009
Posts: 56
Location: Dublin
|
|
|
|
Thank you.
I have used below lines and it is working fine
"EXECIO 0 DISKW XXOUT (FINIS)" |
|
| Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon
|
|
|
|
You could have done it all in 1 command.
"EXECIO" LOT.0 "DISKW XXOUT (STEM LOT. FINIS" |
|
| Back to top |
|
|
|
|
