RE: Maximum size for Varying length field

["Bob cozzi" <cozzi@xxxxxxxxx>]

Oh, I forgot...
You also might want to do this instead:

05 C                   CALLP     CMD(COMMAND:%Len(%TrimR(Command)))


Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Joe Giusto
Sent: Monday, June 02, 2003 5:00 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Maximum size for Varying length field

Set up like this:  (o.k. it's fixed length on this example, somebody help me
with the varying field here)

01  ********************************************************************
02  *  CALLP PROTOTYPES                                                *
03  ********************************************************************
04  * QCMDEXC
05 D
06 D CMD             PR                  EXTPGM('QCMDEXC')
07 D  COMMANDSTR                 1024A   CONST
08 D  COMMANDLENGTH                15P 5 CONST
09 D
10 D COMMAND         S           1024A
11 D LENGTH          S             15P 5 INZ(1024)
12  ********************************************************************
03 C                   EVAL      COMMAND = 'OVRDBF MILUPSI1 SHARE(*YES)'
04 C                              + ' SEQONLY(*NO)'
05 C                   CALLP     CMD(COMMAND:LENGTH)


 -----Original Message-----
<snip>

the
problem is?  You CANNOT pass a variable length field to QCMDEXC
using the CALL/PARM opcodes. It can only be a fixed-length field.
Making it variable length in this context is of no value, but if you
really, really want to use a variable length field, then you MUST
create a prototype for the call to QCMDEXC with each parm being a
CONST value. Then you can pass your varying field without a problem.
But it will continue to fail on the CALL/PARM every time as long as
your parameter is VARYING.




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