Re: QCMDEXC and SNDMSG

["Carsten Flensburg" <flensburg@xxxxxxxxxx>]

Hello,

If you check out the joblog I think you'll see that the TOUSER keyword is
the problem - try spelling the keyword TOUSR in stead.

Best regards,
Carsten Flensburg

----- Original Message -----
From: <fkany@xxxxxxxxxxxxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Thursday, June 05, 2003 3:32 PM
Subject: QCMDEXC and SNDMSG


>
> I've worked on this all day yesterday and can't see why the CALLP to
QCMDEXC won't work.  The call keeps failing.  Can anybody with
> more experience working with QCMDEXC see why it keeps failing?
>
> TIA,
>
> Frank
>
>     *
>      D RUNCMD          PR                  EXTPGM('QCMDEXC')
>      D  AS400CMD5                  3000A   CONST OPTIONS(*VARSIZE)
>      D  CMDLENGTH5                   15P 5 CONST
>      D  dbcsflag                      3A   CONST OPTIONS(*NOPASS)
>
>      D AS400CMD4       S           3000A
>      D CMDLENGTH4      S             15P 5
>
>      D SNDMSG          C                   'SNDMSG MSG('
>      D TOUSER          C                   ') TOUSER(FKANY)'
>
>
>      C                   EVAL      AS400CMD4  = SNDMSG + '''FAILED''' +
TOUSER
>      C                   CALLP
RUNCMD(AS400CMD4:%LEN(%TRIMR(AS400CMD4)))