Re: HELP!!!! -- SYSTEM21

I can only assume you're either passing the order number from a selection screen field or a subfile variable field...? Try changing the key field from ORDN03 to a new field ORDN (7 A)...

Populate the field ORDN with the key value just before you enter the loop...

Having a key field (CONO03) equal to a field in the file your reading (CONO03) could cause you problems if you read with a partial key (L#CONO)...

The "ELSE" clause in that IF condition is unnecessary...

Let us know...
Good luck...
----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
>
> "ERP is not just computers and software, but PEOPLE, PROCESSES and
> FUNCTIONS."
>
> ###########################################
>
> This message has been scanned by F-Secure Anti-Virus for Microsoft
Exchange.
> For more information, connect to http://www.F-Secure.com/
> _______________________________________________
> This is the System 21 Users (SYSTEM21) mailing list
> To post a message email: SYSTEM21@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/system21
> or email: SYSTEM21-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/system21.
>
>

_______________________________________________
This is the System 21 Users (SYSTEM21) mailing list
To post a message email: SYSTEM21@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/system21
or email: SYSTEM21-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/system21.

_________________________________________________________________ Say ?goodbye? to busy signals and slow downloads with a high-speed Internet connection! Prices start at less than $1 a day average. https://broadband.msn.com (Prices may vary by service area.)