RE: OVRMSGF and QCMDEXC procedure

Specify the parameter as a fixed length with CONST OPTIONS(*VARSIZE).

The compiler will auto-magically convert the varying length to fixed length.


Charles

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter Dow (ML)
Sent: Friday, August 24, 2007 2:45 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: OVRMSGF and QCMDEXC procedure

Because QCMDEXC does not expect a varying length field as a
parameter -- how do you tell it to skip the length in the 1st
two bytes?

Not that it's a whole lot different:

QCMDEXC(CmdStr:%Len(%trim(CmdStr)));


Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx wrote:

why calculate??? i use varying length fields for creating

the command

string then on the call i just use:

QCMDEXC(CmdStr:%Len(CmdStr));

Thanks,
Tommy Holden



"Peter Dow (ML)" <maillist@xxxxxxxxxxxxxxx> Sent by:
rpg400-l-bounces@xxxxxxxxxxxx
08/24/2007 01:32 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> cc

Subject
Re: OVRMSGF and QCMDEXC procedure






You're way ahead of me then (as usual :-) ). For most things the
QCMDEXC procedure works just fine and it seemed cleaner to let the
procedure calculate the command length, but you're right --

it's not

much and it avoids the occasional scoping problems.

Scott Klement wrote:

I learned this years ago -- and it's why I never wrap

QCMDEXC into a

subprocedure. Granted, it adds one more line of code to

my program,

but

one line won't kill me.

Peter Dow (ML) wrote:

In this situation, the override is only in effect while

control is

in the QCMDEXC procedure. When control returned to the TESTADDR

procedure,

the override was gone. I guess I should of realized this since a
procedure is another entry on the call stack.

--
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 e-mail transmission contains information that is intended to be confidential and privileged. If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful. Please reply to the message immediately by informing the sender that the message was misdirected. After replying, please delete and otherwise erase it and any attachments from your computer system. Your assistance in correcting this error is appreciated.