Re: Procedure PR/PI question

Hi Jack

With that prototype you need to pass a variable that is exactly 128 long, I think. You can't pass an expression or literal value to it. If you want to do the call this way, put CONST on the parameter keywords.

----- Original Message -----
I know I'm a noob. I created a program to write a record to a log file,
code below....

I thought my other programs could use something like

pWrtScaleLog('This is a log entry')

but the compiler says parameter 1 is not valid as pass by reference.

What do I need to change?

Thanks, Jack

D pWrtScaleLog PR extpgm('SCALELOGR')
D 128a
D pWrtScaleLog PI
D LogData 128a

/Free
EXEC SQL
Set option naming=*SYS, commit=*none;
EXEC SQL
INSERT INTO SCALELOG (RECKEY,LOGDATA) VALUES(DEFAULT,:LogData)
;
return;