Assistance in writing new / updating existing records

["D.W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx>]

I have written a program where the user enters an account number, then
the program loosk for a record and if it finds one displays the
information on a second display file....that part of this works just
fine....the user can then change any information and with a press of the
F10 key the record should be updated, or added if it does not
exist.....this is the problem.  I will give the code below of the RPGLE
program, if anyone wants to see the relevant display file dds I will be
happy to give that as well, but I can tell you it has an ACCTNO,
DESCRIP, STATUS, CLASS field which are the same names as the fields in
the physical file.

Any help or suggestons would be appreciated....running it in debug mode
has not yielded any answers thus far.

Douglas


FCHRTACCTS UF A E           K DISK    RENAME(CHRTACCTS:ACCTS)
FCWSCREEN01CF   E             WORKSTN                        
C                   EXFMT     EDTCHRTACT                     
C                   DOU       *IN12                          
C                   SELECT                                   
C                   WHEN      *IN12                          
C                   EVAL      *INLR = *ON                    
C                   RETURN                                   
C                   WHEN      *IN10                          
C     ACCTNO        CHAIN     ACCTS                          
C                   UPDATE    ACCTS                          
C                   EXFMT     EDTCHRTACT                     
C                   ENDSL                                    
C     ACCTNO        CHAIN     ACCTS                          
C                   IF        %FOUND                         
C                   EXFMT     EDTCHRTAC1                     
C                   ENDIF                                    
C                   ENDDO