× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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



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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.