adding next record with '0'

[koti shiva <shivakk4u@xxxxxxxxxxx>]

Hi all,
  now i am able to insert values in the PF  but the problem is while exit  its 
adding a blank record to the PF.
   
  TIA
Shiva Shanker        
   
   
   
  Hi all,
>    
>   When i am trying to insert a value into a physical file through 
disply file its updateing as '0'
>    
>   bellow is the code, any body can help me out.....
>    
>   RPG Code
>   0002.00 FSTUDENT   IF A E             DISK        
> 0003.00 FSTDNTDSP  CF   E             WORKSTN     
> 0004.00 C                   DOW       *IN03=*OFF  
> 0005.00 C                   EXFMT     DSTUDENT    
> 0006.00 C                                         
> 0007.00 C                   EVAL      DSID = SID  
> 0008.00 C                   WRITE     STUDREC     
> 0009.00 C                                         
> 0010.00 C                   enddo                 
> 0011.00 C                   return                 
>    
>   PF code
>   0002.00      A          R STUDREC             
> 0003.00      A            SID            3S 0 
>    
>   Dsply file 
>                                           CA03(03 'F3=EXIT')       
>  A                                                               
>  A          R DSTUDENT                                           
>  A                                  5  5'ENTER THE STUDENT ID : '
>  A            DSID           3S 0I  5 35                         
>  A                                 22 20'F3=EXIT'        
>    
>   TIA
>   Shiva Shanker        


                                
---------------------------------
 Here's a new way to find what you're looking for - Yahoo! Answers 
Send FREE SMS to your friend's mobile from Yahoo! Messenger Version 8. Get it 
NOW