RE: Réf. : QCMDEXC and SNDMSG

["Bob cozzi" <cozzi@xxxxxxxxx>]

The IBM OS/400 API manual does indicate a 3rd parameter for QCMDEXC.

IGC process control
INPUT;CHAR(3)
The IGC process control instructs the system to accept
double-byte data. The only value supported is IGC.
ICG must be entered using all uppercase letters.
Activation mark

So the original prototype should have been correct, but as long as it is
working now, that's all that matters.

Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of YJacqueline@xxxxxxxxxxxxxx
Sent: Thursday, June 05, 2003 8:57 AM
To: RPG programming on the AS400 / iSeries
Subject: Réf. : QCMDEXC and SNDMSG


Hello,

Try remove     D  dbcsflag                      3A   CONST
          OPTIONS(*NOPASS)
QCMDEXC have 2 Parameter

Try like this :

DQCmdExc          PR                  EXTPGM('QCMDEXC')
D PR_CmdStr                   4096A   CONST OPTIONS(*VARSIZE)
D PR_CmdStrLen                  15P 5 CONST
C                   CALLP     QCmdExc(CmdStr:
C                                     %LEN(%TRIMR(CmdStr)))

Cordialement.

Yannick.Jacqueline
Service Informatique
Tél : 02-31-66-46-69
E-Mail : yjacqueline@xxxxxxxxxxxxxx
Visitez notre site Web à : http://www.guydegrenne.fr/



 

                    fkany@xxxxxxxxxxxxx

                    s.com                     Pour :  RPG400-L@xxxxxxxxxxxx

                    Envoyé par :              cc :

                    rpg400-l-bounces@xx       Objet : QCMDEXC and SNDMSG

                    drange.com

 

 

                    05/06/03 15:32

                    Veuillez répondre à

                    RPG programming on

                    the AS400 / iSeries

 

 






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.






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