Réf. : QCMDEXC and SNDMSG

[YJacqueline@xxxxxxxxxxxxxx]

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.