IBM Mainframe Forum

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

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"')"

?

'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.

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?

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"

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