Re: Session or device error -- RPG400-L

You're not showing if you are turning *In30 off... I would change to

Eval    *In30 = RRN > 0

And get rid of the IF statement altogether.


Try our New Country Benedicts -- Breakfast with a Bob Evans twist!



                                                                           
             "Joseph                                                       
             Pascoguin"                                                    
             <joe.pascoguin@ho                                          To 
             tmail.com>                rpg400-l@xxxxxxxxxxxx               
             Sent by:                                                   cc 
             rpg400-l-bounces@                                             
             midrange.com                                          Subject 
                                       Re: Session or device error         
                                                                           
             08/22/2006 09:03                                              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




DATABASE FEEDBACK:

Relative Record Number . . . . . . . . :   6


ILE RPG/400 FORMATTED DUMP

CUSNO                 PACKED(5,0)          00001.           '00001F'X
CUSPH                 PACKED(10,0)         0000000000.      '00000000000F'X
CUSST                 CHAR(2)              '  '             '4040'X
RRN                   PACKED(4,0)          0000.            '00000F'X

In my program Iam controlling
0030.00 C                   IF        RRN>0
0031.00 C                   EVAL      *IN30=*ON
0032.00 C                   ENDIF
0033.00 C                   ENDSR
        ****************** End of data ************* with 30 for  SFLDSP...



Warm Regards,
JoeP

From: "Jim Franz" <jfranz@xxxxxxxxxxxx>
Reply-To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Session or device error
Date: Tue, 22 Aug 2006 08:46:28 -0400

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

jim

----- Original Message -----
From: "Joseph Pascoguin" <joe.pascoguin@xxxxxxxxxxx>
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

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.



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


_________________________________________________________________
FREE pop-up blocking with the new MSN Toolbar - get it now!
http://toolbar.msn.click-url.com/go/onm00200415ave/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.