Re: Setll and Reade not working as esxpected....

Scott,
(Maybe the invoiceIn or dunsnbrIn parameter is longer than 32A?)

The input parameters are defined as follows:

d Main pr Extpgm('ACP0074R')
d invoiceIn...
d Like(invoice) const
d dunsnbrIn...
d Like(dunsnbr) const

And in the DDS for EDII810JH
A R EDII810JHR
A TEXT('810 Incoming Invoice
A Intermediate JBA Header')

A INVOICE 22A TEXT('Invoice Number')
A DUNSNBR 80A TEXT('Duns Number')

So yes the dunsnumber is longer than 32A. Does this make a difference?
When I call the program (from the command line for testing) I enter:
call acp0074R ('0091560147' '2492294020200')

I then do a Setll and Reade with invoiceIn and dunsnbrIn.

Thanks Scott, I did some searching and it sounds like the problem is on the
duns number exceeding 32A. I'm going to create a command wrapper to see if
that doesn't fix the problem (I think it should) and report back on my
findings.

Thanks to all that responded,

Rob

On Tue, Jun 1, 2010 at 5:20 PM, Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>wrote:

Maybe the invoiceIn or dunsnbrIn parameter is longer than 32A?

Or perhaps instead of passing blanks, the caller didn't pass the
parameters at all?

Can you provide more information about how these parameters are defined,
and how values are assigned to them? Or better yet, can you show us
how to reproduce the problem?


On 6/1/2010 3:55 PM, Robert Rogerson wrote:

I added the rc to check the values of %Equal() and %Eof() while in debug.
When I pass an invoice and dunsnumber from the file and debug the program
the %Equal() after the Setll has a value of '0' indicating an exact

match

was not found. I check the file and yes the record does exist. I also
tested this with SQL adding the invoice number and dunsnumber passed to

the

program and the record was returned.

I'm stumped...any ideas?

--
This is the RPG programming on the IBM i / System i (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.