FProdActMC IF   E           K DISK
     FResults   O    E             DISK

     D ParmItem        S                   Like(ACItem)

     C     *Entry        Plist
     C                   Parm                    ParmItem

     C                   Move      *Date         DateEnt

      /Free

            SetLL *LoVal ProdActMC;
            Read ProdActMC;

            DoW Not %Eof;

            Select;

              When ParmItem = ACItem;
                 Hits = Hits + 1;

              Other;
                 NoHits = NoHits + 1;

            EndSl;

            Read ProdActMC;
            EndDo;

               Clear Item;
               Item = ParmItem;
               Write Pfr;

            *InLr = *On;