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 ParmItem ProdActMC;
            ReadE ParmItem ProdActMC;

            DoW Not %Eof;

               Hits = Hits + 1;

            ReadE ParmItem ProdActMC;
            EndDo;

               Clear Item;
               Item = ParmItem;
               Write Pfr;

            *InLr = *On;