|
Thank you guys for all the suggestions (Cris especially), Turns out i have another SR that resets the pointer. Works fine now. Mona -----Original Message----- From: system21-request@xxxxxxxxxxxx [mailto:system21-request@xxxxxxxxxxxx] Sent: Thursday, November 20, 2003 2:01 AM To: system21@xxxxxxxxxxxx Subject: SYSTEM21 Digest, Vol 1, Issue 628 Send SYSTEM21 mailing list submissions to system21@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/system21 or, via email, send a message with subject or body 'help' to system21-request@xxxxxxxxxxxx You can reach the person managing the list at system21-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of SYSTEM21 digest..." Today's Topics: 1. HELP!!!! (Mona Ferriols) 2. Re: HELP!!!! (Derek Hunt) 3. Re: HELP!!!! (Greg Staton) 4. Re: [SYSTEM21] HELP!!!! (Jeff Klipa) ---------------------------------------------------------------------- message: 1 date: Wed, 19 Nov 2003 17:35:34 +0800 from: Mona Ferriols <mon.ferriols@xxxxxxxxxxxxxx> 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/ ------------------------------ message: 2 date: Wed, 19 Nov 2003 09:56:03 -0000 from: "Derek Hunt" <derek_hunt@xxxxxxxxxxxxx> subject: Re: [SYSTEM21] HELP!!!! 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. > > ------------------------------ message: 3 date: Wed, 19 Nov 2003 08:15:00 -0500 (GMT-05:00) from: Greg Staton <statongreg@xxxxxxxxxxxxx> subject: Re: [SYSTEM21] HELP!!!! Mona, Is the key sequence for ORDN03 descending? If so, the SETLL will behave the opposite of what you would think. In other words, your setll could be setting the DB pointer past the desired ORDN03 instead of before. Hope this helps, Greg -----Original Message----- From: Mona Ferriols <mon.ferriols@xxxxxxxxxxxxxx> Sent: Nov 19, 2003 4:35 AM To: "Jbausers-L (E-mail)" <jbausers-l@xxxxxxxxxxxx> 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. ------------------------------ message: 4 date: Wed, 19 Nov 2003 17:50:21 +0000 from: "Jeff Klipa" <jklipa@xxxxxxxxxxx> subject: Re: [SYSTEM21] HELP!!!! 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 ------------------------------ _______________________________________________ This is the System 21 Users (SYSTEM21) digest 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. End of SYSTEM21 Digest, Vol 1, Issue 628 **************************************** ########################################### This message has been scanned by F-Secure Anti-Virus for Microsoft Exchange. For more information, connect to http://www.F-Secure.com/
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.
midrange.com
