Re: Procedure PR/PI question

[Alan Campin <alan0307d@xxxxxxxxx>]

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.