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