H DFTACTGRP(*NO) ACTGRP(*NEW)

     FDROPDOWND CF   E             WorkStn Handler('UNIVERSAL(HANDLER)')
     FPRODP     IF   E           K Disk

      /FREE

        Write HEADER;
        Read PROD;
        DoW Not %EOF();
          PrName = PNAME;
          PrId = PRID;
          Write DETAIL;
          Read PROD;
        EndDo;
        Write FOOTER;

        *InLr = *On;

      /END-FREE