Re: Procedure PR/PI question

Not clear what you are trying to do here. Are you calling an external
program to write the message or
calling a procedure to write the message.

If calling external program.

d pWriteScaleLog...
d pr ExtPgm('SCALELOGR')
d PR_InScaleMessage...
d 128a Const
/Free

pWrtScaleLog('This is a log entry')

If creating a procedure.

d pWriteScaleLog...
d pr
d PR_InScaleMessage...
d 128a Value

p pWriteScaleLog...
p e
d pi
d InScaleMessage...
d 128a Value
/Free

Exec Sql Set option naming=*SYS, commit=*none;
Exec Sql Insert INTO SCALELOG
(RECKEY,LOGDATA)
VALUES(DEFAULT,:InScaleMessage)
// Note always check SqlState after insert.
;
return;


On Thu, Apr 25, 2013 at 6:03 PM, Jack Tucky <jacktucky@xxxxxxxxx> wrote:

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;

--
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.