Need some help with a WRITE sub routine

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

I have a program that allows a user to write records to a file called 
renotes, three fields - recruiter, notes, and SSN.  The file is keyed on the 
SSN number.

Below is the DDS code for the screen and the program code, the problem is, 
when the user hits the F10 key to write the record it only rights the 
recruiters username and the SSN, it never writes the note field; any help 
would be appeciated:

DDS:

 A          R NOTESENTRY                                        
 A*%%TS  SD  20041126  200354  DPALME      REL-V5R2M0  5722-WDS 
 A                                      CA12(12 'F12=CANCEL')   
 A                                      CA10(10 'F10=UPDATE')   
 A                                  1  4DATE                    
 A                                      EDTCDE(Y)               
 A                                  1 27'RECRUITING NOTES ENTRY'
 A                                      COLOR(WHT)              
 A                                  1 64USER                    
 A                                 11  5'COMMENTS/NOTES:'       
 A            NOTES         75A  B 13  5                        
 A                                 23  6'F12=CANCEL'            
 A                                 23 23'F10=UPDATE'            
 A                                  1  4DATE                    
 A                                      EDTCDE(Y)               
 A                                  1 27'RECRUITING NOTES ENTRY'
 A                                      COLOR(WHT)              
 A                                  1 64USER                    
 A                                 11  5'COMMENTS/NOTES:'       
 A            NOTES         75A  B 13  5                        
 A                                 23  6'F12=CANCEL'            
 A                                 23 23'F10=UPDATE'            



Program Code:

 FRECNOTES  IF A E           K DISK    RENAME(RECNOTES:RECN)
 FRECRUITINGCF   E             WORKSTN                      
 D                SDS                                       
 DRECRUITER              254    263                         
 DSSN              S              9s 0                      
 C     *ENTRY        PLIST                                  
 C                   PARM                    SSN            
 C                   DOU       *IN12 = *ON                  
 C                   EXFMT     NOTESENTRY                   
 C                   SELECT                                 
 C                   WHEN      *IN12 = *ON                  
 C                   EVAL      *INLR = *ON                  
 C                   RETURN                                 
 C                   when      *in10 = *on                  
 C                   exsr      addnote                      
 C                   eval      *in10 = *off                 
 C                   ENDSL                                  
 C                   ENDDO                                  
 C     addnote       begsr                                  
C                   write     RECN                     
C                   eval      *in10 = *off             
C                   reset     *all          notesentry 
C                   endsr