RE: Help with call command QCMDEXC

Also:

If you set it up as a prototype, you don't have to break out of FREE to
execute it.
********************************************************************** 
** Prototype for API QCMDEXC                                           
D ExecCommand     PR                  ExtPgm('QCMDEXC')                
D  CommandTxt                  256A                                    
D  CommandLen                   15P 5                                  

COMMAND='CLRPFM (SCCINVEN/SCINV25DF)';
Length = %Len(%Trim(Command));        
CALLP ExecCommand(COMMAND : LENGTH);  


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Wiant
Sent: Wednesday, March 15, 2006 2:49 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Help with call command QCMDEXC

QCMDEXC also requires an argument for the length of the command you want
to execute. It needs to be defined as a 15 5 packed field. The contents
of that field need to be the length of the command string.
So something like

Cmd         S      128A   Inz('<your command here')
CmdLen      S       15  5 

Eval CmdLen = %Len(%Trim(%Cmd))
Call QCMDEXC
        Parm            Cmd
        Parm            CmdLen

I think that should help

JPW

 

The bitterness of poor quality remains long after low pricing is
forgotten! 

 

Cautillo, Leon M.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Willie J. Moore
Sent: Thursday, 16 March 2006 8:37
To: rpg400-l@xxxxxxxxxxxx
Subject: Help with call command QCMDEXC


I have a program that I want to use the 'QCMDEXC' command.
When I try to call it I get the following error:
 "Cannot resolve to object qcmdexc. Type and Subtype X'0201' Authority
X'0000'."

Here is a copy of the program:
Dparms            DS                                                
Dcmd                      1    255                                  
 /free                                                              
       cmd = 'RNM OBJ(''/pdf/2.pdf'') NEWOBJ(''test.pdf'')';        
 /end-free                                                          
C                   call      'qcmdexc'                             
C                   PARM                    cmd                     
C                   seton                                        lr 

Any help or pointers would be appreciated.

William Moore....

--
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 message was scanned for compliance with Foodstuffs email policies
######################################################################
This message has been sent from Foodstuffs (Auckland) Limited
("Foodstuffs").

The information contained in this message and or attachments 
is intended only for the person or entity to which it is 
addressed and may contain confidential and/or privileged 
material. Any review, retransmission, dissemination or other 
use of, or taking of any action in reliance upon, this 
information by persons or entities other than the intended 
recipient is prohibited. If you received this in error, 
please contact the sender and delete the material from any 
system and destroy any copies.

The views and opinions expressed in this message may be those
of the individual and not necessarily those of Foodstuffs, 
and are not given or endorsed by it.

Please note that this communication does not designate an 
information system for the purposes of the Electronic 
Transactions Act 2002.