RE: Unusual error that I cannto figure out

You'll need to check your job log to be sure of what this error is trying to
tell you, but I've experienced that around 90% (just a guess) of the time,
this error is generated by your subfile's relative record number being set
to *Zero or to more than the number of records currently in the subfile...

CJ

 


Jerry L. Feador 
Sr. Programmer/Analyst 
Kia Motors America, Inc. 
(949) 595-5810 



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Douglas W. Palme
Sent: Monday, November 22, 2004 9: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