Re: Session or device error

In the dump, what is the value of the rrn field?

jim

To: <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, August 22, 2006 8:40 AM
Subject: Session or device error

Good Morning All,

I wrote a simple Load-all subfile program SFR001 to access CUSTOMER file.

I wrote the same program(same load all) by giving different name SFR001A to

access same CUSTOMER.
When I call SFR001A it is throwing the error " Session or device error
occurred in file SFD001 (C G D F)."
I took D to see dump, the one statement that attracted me is as below
Message Identifier . . . . . . . . . . :   CPF5021
            Incorrect relative record number or field selection error.

In the additional message information by F1 , I can seen below


Message ID . . . . . . :   RNQ1255       Severity . . . . . . . :   99
Message type . . . . . :   Inquiry

Date sent . . . . . . : 08/22/06 Time sent . . . . . . : 08:30:43

Message . . . . :   Session or device error occurred in file SFD001 (C G D
F).
Cause . . . . . :   RPG procedure SFR001A in program PASCOJ/SFR001A at
 statement *INIT detected a session or device error.  Recovery may be
 possible. Examine the major/minor return code value to determine the
 specific error that occurred. If the major return code is 82 then the
error
 occurred while acquiring a session or device. If the major return code is
83
 then the error occurred during an I/O operation and the session or device
is
 still active.

Can some one advise why the second program(SFR001A) is throwing this
exception, though it is same as that of SFR001?
Thank you all,

JoeP

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.