REXX EXECIO error while trying to GET or PUT a record

[Halka]

I am getting an error
The input or output file INFILE1 is not allocated. It cannot be opened for I/O.
EXECIO error while trying to GET or PUT a record.
FILE INFILE1 NOT FREED, IS NOT ALLOCATED

my code is

DSN_NAME = 'BDLT.USTRI.REXX.SB853.TOOLS'
DSNN = DSN_NAME||'('||SPACE('CPY')||')'
"ALLOCATE DDN(INFILE1) DSN('"DSNN"')"

/* IN THE SRCH JCL, REPLACE THE EXISTING SRCH STRING WITH USER INPUT */
IF RC = 0 THEN
"EXECIO * DISKR INFILE1 (FINIS STEM INREC."
"FREE F(INFILE1)"
end

please help

[MrSpock]

What does your output from a runtime TRACE look like, especially for this section of code:

DSN_NAME = 'BDLT.USTRI.REXX.SB853.TOOLS'
DSNN = DSN_NAME||'('||SPACE('CPY')||')'
"ALLOCATE DDN(INFILE1) DSN('"DSNN"')"

?

[Halka]

'CPY' is a member in the pds 'BDLT.USTRI.SB853.TOOLS' and it is a JCL. In that I'm seraching for all the files in that. The problem is I'm getting the error FILE INFILE1 IS NOT FREED. I had given the statement "FREE F(INFILE1)" . I dont know why it is giving that error again. I'll be really thankful if you could help me.

[Halka]

this is the error i'm getting.......

EXECIO error while trying to GET or PUT a record.
FILE INFILE1 NOT FREED, IS NOT ALLOCATED

its a very urgent requirement....... could you pls help me?

[MrSpock]

I would've like to have seen the TRACE, but anyway, it would certainly appear that the TSO ALLOCATE command is failing. I think one problem is that there's no disposition specified for the dataset. Since it's a PDS, you might want to change the statement to:

"ALLOCATE DDN(INFILE1) DSN('"DSNN"') SHR REUSE"

[Halka]

I tried with SHR REUSE also it was not working. Sometimes it will work, sometimes not. it'll show file in use.