|
midrange.com
Have you tested the program within debug to see what the values of the 4
parameters are?
Alan Shore
NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"Douglas W.
Palme"
<dpalme@xxxxxxxxx To
om> RPG programming on the AS400 /
Sent by: iSeries <rpg400-l@xxxxxxxxxxxx>
rpg400-l-bounces+ cc
alanshore=nbty.co
m@xxxxxxxxxxxx Subject
RE: Passing Parms
10/27/2005 02:43
PM
Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>
I thought of that, two copies of the same prg out there and I looked, there
is only one instance of the program.....
On Thu, 27 Oct 2005 13:12:35 -0500 (Central Standard Time), Booth Martin
wrote
> I would bet doughnuts to jelly beans that in the end you will say
> *duh* and realize the two programs are almost exactly alike, but not
> quite, and that difference will eat you up.
>
> Another remote possibility is that you are not using the program
> that you think you are? Is there a wrkobj for your program higher
> in your library list that you have overlooked?
>
> ---------------------------------
> Booth Martin
> http://www.martinvt.com
> ---------------------------------
> -------Original Message-------
>
> From: RPG programming on the AS400 / iSeries
> Date: 10/27/05 12:59:27
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Passing Parms
>
> I am befuddled because it is exactly like another prog I have and it
> works
fine in that one.
>
> On Thu, 27 Oct 2005 11:06:20 -0500, Bob Cozzi wrote
> > Douglas,
> > I just wrote a short test program, and it worked fine, no problems.
> > Called it like this:
> > call test1 parm('02/01/2005' '01/31/2006' 'med' 'air')
> >
> > This is the code...
> > H OPTION(*NODEBUGIO:*SRCSTMT) BNDDIR('XTOOLS')
> > /INCLUDE QCPYSRC,UTILS
> > D FromDate s 10A
> > D ToDate s 10A
> > D Range s 3A
> > D class s 3A
> >
> > C eval *INLR = *ON
> > C *ENTRY PLIST
> > C parm fromDate
> > C parm toDate
> > C parm
> > range C parm
> > class
> >
> > C callp WrtJoblog(FromDate +
> > todate+Range+Class)
> >
> > -Bob Cozzi
> > www.RPGxTools.com
> > RPG xTools - Enjoy programming again.
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
bounces@xxxxxxxxxxxx]
> > On Behalf Of Douglas W. Palme
> > Sent: Thursday, October 27, 2005 9:02 AM
> > To: RPG programming on the AS400 / iSeries
> > Subject: Re: Passing Parms
> >
> > Actually the four parms are being passed have a field length of 10,
> > 10, 3, 3
> >
> > and I am passing the following:
> >
> > '02/01/2005'
> > '01/31/2006'
> > 'med'
> > 'air'
> >
> > On Thu, 27 Oct 2005 07:54:49 -0400, Buck wrote
> > > > Odds are one of the parms is defined
> > > > as more than 30 bytes and you're
> > > > passing in less than 30 characters
> > > > from the command line (via "CALL"
> > > > I would guess).
> > >
> > > There's a FAQ that talks about this sort of thing.
> > > http://faq.midrange.com Search on the word garbage.
> > > --buck
> > > --
> > > 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.
> >
> > If you bought it, it was hauled by a truck - somewhere, sometime.
> >
> > --
> > 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.
> >
> > --
> > 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.
>
> If you bought it, it was hauled by a truck - somewhere, sometime.
>
> --
> 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.
>
> .
> --
> 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.
If you bought it, it was hauled by a truck - somewhere, sometime.
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
