title: AS400 RPGLE PROGRAM
body: <p>i am trying to delete a record from physical file PFILE which has no keyed field but i don't know why statements in if clause are not working even though i have a record with id=123</p>
  
  <pre><code>0001.00 fPFILE     UF   E             DISK            
  0002.00 DID               S              8P 0         
  0003.00 c                   read      rec             
  0004.00 c                   eval      ID=123          
  0005.00 c     ID            CHAIN     PFILE           
  0006.00 C     EMPID         DSPLY                     
  0007.00 c                   IF        %FOUND()        
  0008.00 C     EMPNAME       DSPLY                     
  0009.00 c                   DELETE    REC             
  0010.00 C     'DELETED'     DSPLY                     
  0011.00 c                   ELSE                      
  0012.00 c     'NOTFOUND'    DSPLY                     
  0013.00 c                   ENDIF                     
  0014.00 C                   SETON
  </code></pre>
  
  <p>This is my PFILE</p>
  
  <pre><code>0001.00                 R REC                                                
  0002.00                   EMPID          7P 0                                
  0003.00                   EMPNAME       15A                                   
  </code></pre>