Re: Driving me nuts!

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

Mark

I saw that, but have been hit lately with so much of this kind of thing, 
that it seems best to do the %trim and %len stuff.

OP did use EVAL, not MOVEL, so it SHOULD have padded to the full 2000 
with blanks. But I guess I just get nervous about this stuff at time - heh!

Back to vacation!
Vern

M. Lazarus wrote:
> Vern,
>
>   The command value in the example is a variable, not a constant 
> (CONST keyword not withstanding.
>
>   -mark
>
>
> At 12/30/08 01:46 PM, you wrote:
>   
> > Shannon - you might have got hit by a problem with literals when calling
> > programs - you have 2000 as the length - might have junk somewhere in
> > that length - after the command you are trying to run.
> >
> > The fact it works now is just luck, IMO.
> >
> > Shannon ODonnell wrote:
> >     
> > > Right. I know it should generate an error. That's why I coded it with the
> > > CALLP(e) rather than CALLP.
> > >
> > > But my point was that this same code used to run fine and on multiple
> > > systems but now it was generating the error in my original 
> > >       
> > message and I was
> >     
> > > trying to figure out why it would do that now when it never did before.
> > >
> > > However..logging off and back on again seemed to resolve it so I don't know
> > > why this happened in the first place.
> > >
> > > Thanks for your responses everyone!
> > >
> > >
> > >
> > > -----Original Message-----
> > > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > > On Behalf Of rob@xxxxxxxxx
> > > Sent: Tuesday, December 30, 2008 9:55 AM
> > > To: RPG programming on the IBM i / System i
> > > Subject: Re: Driving me nuts!
> > >
> > > It should generate an error, but it won't hard halt.  Remove the error
> > >
> > >      D cmd             PR                  ExtPgm('QCMDEXC')
> > >      D   command                   2000A   const
> > >      D   length                      15P 5 const
> > >      d CmdString       s           2000A
> > >      D ErrStatus       S              5s 0
> > >
> > >       /free
> > >        *inlr=*on;
> > >        monitor;
> > >          callp cmd(CmdString : 2000);
> > >          on-error 202;
> > >            // Use the associated api for RCVMSG to remove the message from
> > > the
> > >            // joblog.
> > >            // ...
> > >        ENDMON;
> > >
> > > Rob Berendt
> > >       
>
>