Re: HELP!!!! -- SYSTEM21

Please let us know how this mystery ends...

I think Derek is on the right track... Where are you getting the value for the Order Number... Also, the Due Date field will be a field of interest... That IF condition may be part of the problem...

Furthermore, make sure your from and too date ranges make sense...

Just for grins make sure the value of %Eof is reset to off before you get into the loop...

This logical does not look at descending order numbers so that's not it...
But it does only look at last changed date = 999999...

Logical File . . . TTLF3/PMP03L09          Type. . . *LGL  Unique Key NO
Based on File. . . TTLF3/PMP03             Sel/Omit. YES
File Description . Centralised Purchasing Support - Order lines
Field Name  Sequence/Selection Details
                        TTLF3/PMP03 PMR03
CONO03      ASCEND
ORDN03      ASCEND
WHSE03      ASCEND
LINE03      ASCEND
BOSN03      ASCEND
DTLC03      SELECT   EQ +9999999
            OMIT     AL


----Original Message Follows----
From: "Derek Hunt" <derek_hunt@xxxxxxxxxxxxx>
Reply-To: System 21 Users <system21@xxxxxxxxxxxx>
To: "System 21 Users" <system21@xxxxxxxxxxxx>
Subject: Re: [SYSTEM21]   HELP!!!!
Date: Wed, 19 Nov 2003 09:56:03 -0000

Mona

Mona.

from what you say I would investigate the value in the key field ORDN03

If you trying to read for a given order number,
    then ORDN03 must have a valid order number

If you are trying to read all orders greater than a given order number
    then having set the file pointer with the SETLL,
    you should be using L#CONO on the READE statements
         MainKey       SetLl     PMP03L09
         L#Cono       ReadE     PMP03L09

Hope this helps

Derek Hunt
EDI Consultant
www.derekhunt.co.uk

----- Original Message -----
From: "Mona Ferriols" <mon.ferriols@xxxxxxxxxxxxxx>
To: "Jbausers-L (E-mail)" <jbausers-l@xxxxxxxxxxxx>
Sent: Wednesday, November 19, 2003 9:35 AM
Subject: [SYSTEM21] HELP!!!!


> Guys,
>
> I've been knocking my head over this all day and i cant figure out what's
> wrong. Basically, the logical file here wont open when i use the key list
> (but it opens the file if i use L#CONO, but that's not what i need). On
> debug, the thing goes through the SetLL and ReadE then DOW then skips
> everything and EndDos.
>
> Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq....C
> MainKey       KLIST
>               KFLD                    L#CONO
>               KFLD                    ORDN03
>
>    GetOrders     BegSr
>
> MainKey       SetLl     PMP03L09
> MainKey       ReadE     PMP03L09
>
>               DoW       not %Eof
>
>               If        DUED03 >= L#FROMDATE and DUED03<=L#TODATE
>
>               MoveL     CONO03        CONO14
>               MoveL     ITEM03        ITEM14
>               MoveL     DUED03        DUED14
>               Z-Add     OQTY03        OQTY14
>               MoveL     ORDN03        ORDN14
>               MoveL     PDES35        DESC14
>               MoveL     SNAM05        VNDR14
>
>               ExSr      GetPlanner
>
>               Else
>
>               EndIf
>
> MainKey       ReadE     PMP03L09
>
>               EndDo
>
>               EndSr
> Mon Ferriols
> Data Management & Control
> Ionics EMS, Inc. - Plant7
> * (49) 545-9751
> * mon.ferriols@xxxxxxxxxxxxxx
> * www.ionicsgroup.com

_________________________________________________________________ Gift-shop online from the comfort of home at MSN Shopping! No crowds, free parking. http://shopping.msn.com