Re: RNF7535: varchar not compatible with options(*varsize)?

Jon's correct...

Qc3CalculateHash() takes a char(*) as the first parm, you can't change the
prototype to varchar and get the right results.

You need to change DataToHash to char.

Or you could leave it varchar and use this proto

dcl-pr hash extproc('Qc3CalculateHash');
InputData pointer value;
LengthOfInputData int( 10);
//did you realize you're missing a lot more parms?
end-pr;

hash(%addr(DataToHash:*DATA):%len(DataToHash);

Charles


On Thu, Mar 29, 2018 at 11:28 PM, Dan<dan27649@xxxxxxxxx> wrote:

Thanks Mark!

I changed the first parm in the prototype to varchar and now it works like
a charm.

On the inputlen statement, I simply got rid of the %trim altogether, since
DateToHash is varchar.

- Dan


On Fri, Mar 30, 2018 at 12:56 AM, mlazarus<mlazarus@xxxxxxxxxxxx> wrote:

Dan,

You're passing a varying character field to a fixed length parm, as
defined in the prototype. Options(*varsize) allows you to pass

differently

sized variables of the same type, in this case it would be a fixed length
field, without the compiler complaining. An easy fix would be to add

Const

to the prototype. Then the compiler would adjust it for you. Or make

the

parm in the prototype varying (varchar).

Just a note on the other part of the code. This statement:

inputlen = %len(%trim( DataToHash));

gets the length of the fully trimmed variable, yet you're passing an
untrimmed version:

hash( DataToHash: inputlen );

So if you have leading blanks you'll get the hash based on a value with
leading blanks, but ignoring the trailing characters, for the number of
leading blanks. You're probably looking for %TrimR() instead of %Trim().

-mark

--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://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