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

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