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



which raise an interesting question as why the 5250 has to error that out.  If 
there is no data, just don't display it.  Never understand why we need SFLDSP 
and SFLDSPCTL keywords.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Lim Hock-Chai
Sent: Monday, November 22, 2004 11:42 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Unusual error that I cannto figure out


The error is likely to cause by program did not load any record to subfile but 
indicator that control the SFLDSP keyword is on.

Try to load a record to the subfile or turnoff the indicator the control 
SFLDSP.  Looking at you subfile control you might need to use a different 
indicator for SFLDSP and SFLDSPCTL.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
Sent: Monday, November 22, 2004 11:19 AM
To: RPG programming on the AS400 / iSeries
Subject: Unusual error that I cannto figure out


I am working with subfiles and thought I had this down, but unfortunately I am 
getting an unusual error message when I try to run the program.  Here is the 
dds for the subfile and the program that is calling it. 

All I am trying to do at the moment is display the subfile to the screen.

The error message is the following, which I have never seen before:

Job 182784/DPALME/QPADEV0010 started on 11/22/04 at 11:45:21 in subsystem BA
Session or device error occurred in file SUBFILE (C G D F).                 

Application error.  RNX1255 unmonitored by JDEAL at statement 0000000014,...

Any suggestions or comments would be appreciated.

Douglas


DDS:
 A*%%TS  SD  20041122  114708  DPALME      REL-V5R2M0  5722-WDS            
 A*%%EC                                                                    
 A                                      DSPSIZ(24 80 *DS3)                 
 A          R RECSFL                    SFL                                
 A*%%TS  SD  20041122  114708  DPALME      REL-V5R2M0  5722-WDS            
 A            NOTES         75   B  3  5                                   
 A          R RECCTL                    SFLCTL(RECSFL)                     
 A*%%TS  SD  20041122  114708  DPALME      REL-V5R2M0  5722-WDS            
 A                                      CA03(03)                           
 A  51                                  SFLDSP                             
 A  51                                  SFLDSPCTL                          
 A  52                                  SFLCLR                             
 A                                      SFLSIZ(0016)                       
 A                                      SFLPAG(0015)                       
 A                                  1 24'THIS IS THE CONTROL RECORD HEADER'

PGM:

 *program: subfiler                                      
Fsubfile   CF   E             workstn                    
F                                     sfile(recsfl:rrn)  
Drrn              s              3  0                    
C                   DOU       *IN03                      
C                   EVAL      *IN52 = *ON                
C                   WRITE     RECCTL                     
C                   EVAL      *IN52 = *OFF               
C                   EVAL      *IN51 = *ON                
C                   EXFMT     RECCTL                     
C                   ENDDO                                
C                   EVAL      *INLR = *ON                

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

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.