THE RPGIV LIBRARY

Home Contributions qrpglesrc qcpysrc

      *===========================================================*
      * Activate Service Program, return Activation Mark
     DActSrvPgm        PR            10I 0
     D SrvPgm                        10A   value
     D Lib                           10A   value
      *===========================================================*
      * Return procptr to ProcName
     DRtvSrvPgmProc@   PR              *   procptr opdesc
     D ActMark                       10I 0 value
     D ProcName                   32767A   const options(*VARSIZE)
      *===========================================================*