RNX1215 error

[WP]

I'm getting an RNX1215 error in a UAT system and I can't get access to the box to debug it!!

Anyone know what this error alludes to?

W

WP

http://www.neptune400.com

 

[Mercury2]

yep
[tt]
Message ID . . . . . . . . . : RNX1215
Message file . . . . . . . . : QRNXMSG
Library . . . . . . . . . : QSYS

Message . . . . : OPEN was issued to opened file &7.
Cause . . . . . : RPG procedure &1 in program &3/&2 attempted to open file
&7 which was already open.
Recovery . . . : Contact the person responsible for program maintenance to
determine the cause of the problem.
[/tt]

 

[flapeyre]

To avoid such an error, if your files are USROPN:

     If Not %OPEN(Filename); 
       Open Filename;        
     Endif;

-- Francis
I'd like to change the world, but I can't find the source code.

 

[flapeyre]

WP,

For future reference, next time you get a run-time error in an RPGLE program, this is (I'm assuming) what Mercury2 did:

DSPMSGD RANGE(RNX1215) MSGF(QRNXMSG)

If it's a system message, and not a compiler message, leave off the MSGF parameter; it will default to QCPFMSG.

When I get a run-time error, I will answer with a 'D'; the dump listing that's created will tell me the state of the program (and the values of any variables) at the time the error happens.

-- Francis
I'd like to change the world, but I can't find the source code.

 

[WP]

Thanks guys. Much appreciated. Been a while since I had to do this stuff.

Yeah I'm trying to open an open file but I guess the real issue is why is being left open!

3 programs down the stack and two service programs ... it's been a long debugging day.

W

WP

http://www.neptune400.com