RE: Best way for numeric parms

Sorry and Thanks All,

 I just have WAY to much going on.
 I feel like a "Push-me Pull-me"

PLEASE IGNORE my posts from earlier. After breathing........And a locked
door.....

Original problem they tried to fix with 15 5 parms is fixed by me now to
correct the
parm length of P$LIN# from hard coded 3S 0 in PO0001 to 3P 0 like in
PO0002.(Original data dec gone)
Removed all the other code for 155. Forget z-add or eval comments all were
FREAK outs from statement
number being given wrong, should have not listen and looked myself.

Similar problems in parms of other programs(50 plus).
 Plus ones like the eval X = 12 with x=1S0.

Client changed and
Client put in live. *** Note without testing ***

So I get phone call.And hostile CFO.

Now since earlier -Door locked.. Sign says- "it will be fixed when fixed"

Thanks again,

Bill H.



-----Original Message-----
From: Barbara Morris [mailto:bmorris@ca.ibm.com]
Sent: Friday, October 25, 2002 2:04 PM
To: rpg400-l@midrange.com
Subject: Re: Best way for numeric parms


"Hopkins, Bill" wrote:
> ...
> I can fix but was looking for a "best way" to handle this.
> He has changed to this in multi programs. Now I'm stuck
> cleaning up. But would rather do it right than patch up.
>
>

Bill, in my opinion, the best way to handle this is not to touch the
program at all.  Especially since there are other existing calling
program around.  Instead, just deal with the SBMJOB problem by adding a
command to the program.

For P00002, use this source:

   cmd prompt('Call P00002')
   parm co   type(*dec)  len(2 0) prompt('whatever')
   parm plt  type(*dec)  len(2 0) prompt('whatever')
   parm iloc type(*dec)  len(3 0) prompt('whatever')
   parm po   type(*dec)  len(6 0) prompt('whatever')
   parm item type(*char) len(15)  prompt('whatever')
   parm lin  type(*dec)  len(2 0) prompt('whatever')

===> crtcmd mylib/p00002 pgm(p00002) prdlib(mylib)

Now, you can still call the program the normal way from other programs,
and for SBMJOB, instead of this:

   SMBJOB cmd(call p00002 parm(&co &plt &iloc &po &item &lin))

Do this:

   SMBJOB cmd(p00002 &co &plt &iloc &po &item &lin)
or
   SMBJOB cmd(p00002 co(&co) plt(&plt) iloc(&iloc) po(&po) +
             item(&item) lin(&lin))


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.