Re: Junk Passed 32 on 3000A parm

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

/snip
For variable-length fields, %SIZE returns the total number of bytes 
occupied by the field (two bytes longer than the declared maximum length). 
%LEN this function sets the current length of a variable-length field 
(dropping blanks off end)
/end snip

Thanks 
Bill Hopkins






"Booth Martin" <Booth@xxxxxxxxxxxx>
Sent by: rpg400-l-bounces+bhopkins=libertyhardware.com@xxxxxxxxxxxx
11/06/2003 02:44 PM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: Junk Passed 32 on 3000A parm


1) What is the difference between %len & %size? 
 
2) Here is how Hans said to do it: Define your cmdstr in the PI thingy, 
not
the PR thingy.
 
P doCmd b
D doCmd pi
D cmdstr 1000a const varying
.. your code (less the cmdstr line!)
P doCmd e
 
 
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: 11/6/2003 1:22:36 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Junk Passed 32 on 3000A parm
 
Got ask this off list. Someone was trying to test out PR of qcmdexc. Wants
to do something like this to see how it works.
But because parm is over 32A it has junk in the 3000A. Say he sends in
SBMJOB command or something. Any way to get around this. I build my
command strings in code so don't have this problem. Any comments on
solution. He's learning I'm always learning.
 
Thanks
Bill Hopkins
 
d ExecuteCommand PR ExtPgm('QCMDEXC')
d cmdstr Like(Cmd) Const Options(*Varsize)
d cmdLen 15P 5 Const
d cmdOpts 3A Const Options(*NOPASS)
 
D cmd S 3000A
 
c *entry plist
c parm cmd
 
c CallP ExecuteCommand(cmd:%len(%trim(cmd))
c eval *inlr = *on
c return
_______________________________________________
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.