RE: Junk Passed 32 on 3000A parm

[Scott Klement <klemscot@xxxxxxxxxxxx>]

Hi Bill,

This code won't actually solve the problem, at least not while you've
still got the %len(%trim(cmd)) in your code.   Sure, you now know where
the end of your string is, but you're not using that to set the length
that's passed to QCMDEXC. :)

The data that comes after "ENDCMD" is still going to be garbage, so unless
ENDCMD is always in positions 2995-3000 of the "cmd" string, your call to
%trim() will always face the chance of picking up "garbage."  (It's
actually not garbage, but rather it's memory that you aren't supposed to
be using)

A better solution (IMHO) than searching for some string would be creating
a *CMD as a front-end to your program.  Something like this should work:

          CMD        PROMPT('MY COMMAND')
          PARM       KWD(CMD) TYPE(*CHAR) LEN(3000) +
                       PROMPT('Command to run')

Now, the operating system knows that it needs to allocate 3000 chars to
use as the parameter, so you won't get the "garbage" that you were getting
before.

At any rate, this question has been asked and answered many times before.
Search the archives or the FAQ, and you'll find lots of ways to work
around the issue.

Good Luck


On Thu, 6 Nov 2003, Bill Hopkins wrote:
> D cmd             S           3000A
> D pos             S              5U 0
>
> c     *entry        plist
> c                   parm                    cmd
> C                   Eval      pos = %scan('ENDCMD':cmd)
> C                   Eval      cmd = %replace(' ':cmd:pos:2999)
> C                   CallP     ExecuteCommand(cmd:%len(%trim
> C                             (cmd)))
> C                   eval      *inlr = *on
> C                   return