*
      * Check if Qualified Records Exist EDI Processing
      *
      **------------------------------------------------------------------------

     d ValidRecs       S             10  0

     c     *entry        plist
     c                   parm                    ValidRecs

      /free

        exec sql
             select count(*)   into :ValidRecs
               from  F47046
               where SYEDSP = ' ';

        *inlr = *on;

      /end-free