Re: QCMDEXC and SNDMSG

["@riadne software" <pete@xxxxxxxxxxxxxxxxxxxxx>]

Classic this. You get so hung up on getting the RPG syntax right, you miss
the simple thing. The SNDMSG parameter is TOUSR not TOUSER. Check your job
log.

Pete
----- Original Message -----
From: <fkany@xxxxxxxxxxxxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Thursday, June 05, 2003 2: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)))
>
> _______________________________________________
> This is the RPG programming on the AS400 / 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.
>
>
>