%Found Example

      * Program     :·FoundR
      * Description :·%Found() Example
      *
      * Syntex      :
      *
      * %Found { File Name }
      *
      * Output      :·1 : if most recent relevent operation
      *                   chain,delete,setll, setgt found a match
      *               0 : otherwise
      *
      *=====================================================
      *
     FFile1     IF   E           K Disk
     D

     C
      /Free
          Chain 'R1FD1' Rcd1 ;
          Dsply  %Found(File1) ;       // 1

          Chain 'R2FD1' Rcd1 ;
          Dsply  %Found ;              // 1

          Chain 'ABCDE' Rcd1 ;
          Dsply  %Found ;              // 0

      /End-Free
     C                   SetOn                                        LR