%EQUAL Example

      *
      * Description :·%Equal() Example
      *
      * Syntex      :
      *
      * %Equal(File Name)
      *
      * Output      :·1 - if most recent SetLL found exact match
      *               0 - otherwise
      *=====================================================
      *
     FFile1     IF   E           K Disk

     D EoF             S              1A

     C
      /Free
           SetLL 'R1FD1' File1 ;

           Dsply %Equal(file1) ;             // 1

           SetLL 'ABCDE' File1 ;

           Dsply %Equal(file1) ;             // 0

      /End-Free
     C                   SetOn                                        LR