Dynamic Service Pgm Call - Passing parms

I have successfully implemented code to make dynamic calls to service
programs, or to bind at runtime; but my parms that I pass come across as
jeeeuuunk.  By junk I mean that I am reading something else's memory.  None
of my information that I specify on the dynamic call makes it to the sub
procedure.  I am assuming that it is possible to dynamically call a service
program _and_ pass it values, but let me know if that is not true.  I don't
need to %Alloc the memory before I make the call do I, that doesn't seem
right?  I have included the supporting source if anyone can give me some
hints.  BTW, thanks to the archives and Barbara Morris for getting me this
far ;-)


-----------------------TESTACTSP--------------------------------------------
------
     H DFTACTGRP(*NO)
     H BNDDIR('MYBND')

      /Copy QSource,ObjectCp

     D myDS            DS                  Qualified Inz
     D  field1                       30A
     D  field2                       30A
     D  field3                       30A 
     
     D callPgm         Pr                  LikeDS(myDS)
     D                                     ExtProc(procPtr)
     D  pArch                              LikeDS(myDS)

     D procPtr         S               *   ProcPtr
      /Free

       myDS.field1 = 'IN';
       myDS.field2 = 'IN';
       myDS.field3 = 'IN';
     
       procPtr = Object_actSubProc('ACTSPSV': 'ACTIVATEME');
       myDS = callPgm(myDS);
      
       *InLR = *On;                   
      
      /End-Free  



--------------------ACTSPFN-------------------------------------------------
---
     H NoMain

     D ActivateMe      Pr                  LikeDS(myDS)
     D  pDS                                Value LikeDS(myDS) 

     D myDS            DS                  Qualified Inz
     D  field1                       30A
     D  field2                       30A
     D  field3                       30A
     
      //--------------------------------------
      // @Author - Aaron Bartell
      // @Usage - ds = ActivateMe(myDS);
      //--------------------------------------
     P ActivateMe      B                   Export
     D ActivateMe      PI                  LikeDS(myDS)
     D  pDS                                Value LikeDS(myDS)
     
     D outDS           DS                  LikeDS(myDS) Inz
      /Free

       outDS.field1 = 'Out' + pDS.field1;        
       outDS.field2 = 'Out' + pDS.field2;        
       outDS.field3 = 'Out' + pDS.field3;        
       Return outDS;
     
      /End-Free
     P ActivateMe      E 

-------------------ACTSPSV--------------------------------------------------
----
             StrPgmExp    PgmLvl(*Current)
               Export     Symbol(ActivateMe)
             EndPgmExp  
----------------------------------------------------------------------------
----








---------------------------------OBJECTFN-----------------------------------
--------
     H NOMAIN
      /Copy QSource,ObjectCp 
 
      //--------------------------------------------------------------
      // @Usage:
      // @Author: Aaron Bartell
      // @Desc: Activate a sub procedure.
      // @Created:
      // @Modified:
      //--------------------------------------------------------------
     P Object_actSubProc...
     P                 B                   Export
     D Object_actSubProc...
     D                 PI              *   ProcPtr
     D  pSrvPgmName                  10A   Value
     D  pProcName                    50A   Value
      //
      // Data Structure to set object data
      //
     D obj             DS                  Qualified
     D  type                          2A   Inz(X'0203')
     D  name                         30A
     D  reqAuth                       2A   Inz(X'0000')

     D sysPtr          S               *   ProcPtr
     D procPtr         S               *   ProcPtr
     D actMark         S             10I 0 Inz
     D procNameLen     S             10I 0 Inz

      //
      // Local Prototypes
      //
     D rslvSp2         Pr                  ExtProc('_RSLVSP2')
     D  pSysPtr                            Like(sysPtr)
     D  pObj                               LikeDS(obj)

     D actBndPgm       Pr                  ExtProc('QleActBndPgm')
     D  pSysPtr                            Like(sysPtr)
     D  pActMark...
     D                                     Like(actMark)
     D  pActInfo                     10A   Options(*Omit)
     D  pActInfoLen                   5I 0 Options(*Omit)
     D  pErrCd                       10A   Options(*Omit)

     D getExp          Pr                  ExtProc('QleGetExp')
     D  pActMark...
     D                                     Like(actMark)
     D  pExpNbr                       5I 0 Options(*Omit)
     D  pProcNameLen                       Like(procNameLen)
     D  pProcName                          Like(pProcName)
     D  pProcPtr                           Like(procPtr)
     D  pExpType                      5I 0 Options(*Omit)
     D  pErrCd                       10A   Options(*Omit)

      /Free

       // Get system pointer to the service program:
       obj.name = pSrvPgmName;
       rslvSp2(sysPtr: obj);
       actBndPgm(sysPtr: actMark: *Omit: *Omit: *Omit);

       // Then, get a pointer to the procedure:
       procNameLen = %CheckR(' ':pProcName);
       getExp(
         actMark: *Omit: procNameLen: pProcName: procPtr: *Omit: *Omit);

       Return procPtr;

      /End-Free
     P Object_actSubProc...
     P                 E 

-------------------ObjectCp-------------------------------------------------
----
     D Object_actSubProc...
     D                 Pr              *   ProcPtr
     D  pSrvPgmName                  10A   Value
     D  pProcName                    50A   Value 

-------------------ObjectSv-------------------------------------------------
----
             StrPgmExp PgmLvl(*Current)
               Export     Symbol(Object_actSubProc)
             EndPgmExp