Re: Calling a production and test service program...

[Robert Rogerson <rrogerson@xxxxxxxxxxx>]

Thanks Jon.


On 1/11/2017 12:58 PM, Jon Paris wrote:
> First - you can't library qualify a procedure name like this - it is just a procedure name - not a qualified object name as you have tried to use it. I'm actually surprised that the compiler accepted it and it apparently failed during the link phase.
>
> The only way I can think of to be able to test two procs with the same name but from different service programs is to use procedure pointers and use APIs to obtain the pointers. Problem with this approach is that the logic to set up the call in the test rig would be different from that required in your production code.
>
> A simpler option would be to create a program that uses the old service program and passes the request parms and results to a second program compiled to use the new version. Have that second program (or I guess the first one) compare the results.
>
>
> Jon Paris
>
> www.partner400.com
> www.SystemiDeveloper.com
>
> > On Jan 11, 2017, at 12:42 PM, Robert Rogerson <rrogerson@xxxxxxxxxxx> wrote:
> >
> > Hi All,
> >
> > I'm try to compare the results of calling a modified procedure in a service program in my library against the results from the same (named) procedure in a service program in the production library.
> >
> > I was trying
> >
> >      d oldPhotoRequired...
> >      d                 pr              N   extproc(oldproc)
> >      d  in_podtl                           likeds(podtl_T) const
> >
> >      d newPhotoRequired...
> >      d                 pr              N   extproc(newproc)
> >      d  in_podtl                           likeds(podtl_T) const
> >
> >      d oldproc         c                   const('CANLIB/-
> >      d WHS0000S(PHOTOREQUIRED)')
> >      d newproc         c                   const('RROGERSON/-
> >      d WHS0000S(PHOTOREQUIRED)')
> >
> > but I get compile errors
> >
> > Definition not found for symbol 'RROGERSON/WHS0000S(PHOTOREQUIRED)'.
> > Definition not found for symbol 'CANLIB/WHS0000S(PHOTOREQUIRED)'.
> >
> > I'm sure it should be easy to specify the two prototypes but the solution is eluding me.
> >
> > Any help would be appreciated.
> >
> > Thanks,
> >
> > Rob
> >
> >
> > --
> > This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxx for any subscription related questions.
> >
> > Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD