/**
      * \brief Run Remote Unit Test
      *
      * This program executes the passed unit test. For execution the
      * unit test service programs must be in the library list.
      *
      * \author Mihael Schmidt
      * \date   19.10.2010
      */

     H DftActGrp(*No) ActGrp(*new) BndDir('MY_BND_DIR')

      *-------------------------------------------------------------------------
      * PEP
      *-------------------------------------------------------------------------
     D main            PR                  extpgm('RUNUNITEST')
     D   userspace                         likeds(object_t) const
     D   testSuite                         likeds(object_t) const
     D   returnValue                 10I 0
     D main            PI
     D   userspace                         likeds(object_t) const
     D   testSuite                         likeds(object_t) const
     D   returnValue                 10I 0


      *-------------------------------------------------------------------------
      * Prototypen
      *-------------------------------------------------------------------------
     D rpgunit_runTestSuite...
     D                 PR            10I 0 extproc('rpgunit_runTestSuite')
     D   userspace                         likeds(object_t) const
     D   testSuite                         likeds(object_t) const
      *
      /copy RPGUNITY1,TEMPLATES


      /free
       returnValue = rpgunit_runTestSuite(userspace : testSuite);

       *inlr = *on;
       return;
      /end-free