THE RPGIV LIBRARY

Home Contributions qrpglesrc qcpysrc

      *****************************************************************
     D Example1        pr

      *---------------------------------------------------------------*
      *    This program activates service program SRVPGM1, which has
      *    procedure Proc1.
      *    A pointer to Proc1 is then recovered, and Proc1 is executed.
      *
      *    Note that SRVPGM1 needn't be listed as a BNDSRVPGM when
      *    this program is created.
      *---------------------------------------------------------------*
      
      /COPY QCPYSRC,Activator

     D Example1        pi

     D ActMark         s             10i 0
     D Proc1           pr                  extproc(Proc1@)
     D Proc1@          s               *   procptr

     C                   eval      ActMark=ActSrvPgm('SRVPGM1'
     C                                              :'*LIBL')
     C                   eval      Proc1@=RtvSrvPgmProc@(ActMark
     C                                                  :'Proc1')
     C                   callp     Proc1


     C                   eval      *INLR=*ON
     C                   return
      *****************************************************************