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

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

On 3/29/2018 10:55 PM, Dan wrote:

Compile of the following fails due to RNF7535 (The type and attributes of
parameter 1 do not match those of the prototype.)

I have stripped out a lot of the irrelevant code so that the compile
generates the same error. Variable DataToHash apparently doesn't match the
type and attributes of the first parameter, labeled "InputData", to the
hash procedure.

What am I missing?

**free
ctl-opt dftactgrp(*no);

dcl-s DataToHash varchar( 16773000);

dcl-pr hash extproc('Qc3CalculateHash');
InputData char( 16773000) options(*varsize);
LengthOfInputData int( 10);
end-pr;

dcl-s inputlen int( 10);

// stripped code that "builds" DataToHash

inputlen = %len(%trim( DataToHash));
hash( DataToHash: inputlen );
*inlr = *on;

- Dan