Output no matter what's happening (-RO not Working)
Mike Fedkiw
mikefedkiwfp at aol.com
Sun Aug 3 17:47:42 PDT 2014
There's only ten records in each of the files. I number them 0-9 for the dept or class assignment. I'll add a default if it somehow fails the dept or class lookup but there's checks before saving an inventory record and you couldn't save unless the dept and class are currently assigned.
I just don't get is why it works without the -ro flag and not with it but somethings definitely going on when I see the processing slowing down and then ultimately stopping when I try to use it.
Mike
On Aug 3, 2014, "Richard D. Williams" <richard at appgrp.net> wrote:
>Mike,
>
>I do not know your data situations, but the first thing I see is you do
>
>not have any option if
>your "dept" or "class" lookups fail.
>
>If for some reason you have data that is not a match in one of these
>instants, your program has not where to go.
>
>Try this approach:
>
>10 ------- - - - - - - - - - - - - - - -
>-
> ? If:
> Then: lookup dept k=22 i=A -nx
>11 ------- - - - - - - - - - - - - - - -
>-
> ? If: dept
> Then: dp(15,*,g)=dept(2)
>12 ------- - - - - - - - - - - - - - - -
>-
> ? If:
> Then: lookup class k=23 i=A -nx
>13 ------- - - - - - - - - - - - - - - -
>-
> ? If: class
> Then: cl(15,*,g)=class(2)
>14 ------- - - - - - - - - - - - - - - -
>-
>
>
>Then simply review to see if you are missing the expected values for
>"dp" and/or "cl".
>
>Richard
>
>On 8/3/2014 1:33 PM, Mike Fedkiw wrote:
>> Although it's kind of a long post, this is the exact processing table
>> that stops running when I use the -RO flag
>>
>> Mike
>>
>>
>> 1 ------- - - - - - - - - - - - - - -
> - -
>> start ? If:
>> Then: kn="";wa=""
>> 2 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 118 eq "y"
>> Then: end
>> 3 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 77 eq "y"
>> Then: end
>> 4 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 47 eq ""
>> Then: end
>> 5 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: oh(6,.0,g)=97
>> 6 ------- - - - - - - - - - - - - - -
> - -
>> ? If: oh lt "0"
>> Then: oh="0"
>> 7 ------- - - - - - - - - - - - - - -
> - -
>> ? If: (6 gt "") and (7 gt "") and (8 gt "") and (9 gt "")
>> Then: ua(15,*,g)=6&"-"&7&"-"&8&"-"&9
>> 8 ------- - - - - - - - - - - - - - -
> - -
>> ? If: '(6 gt "") and (7 gt "") and (8 gt "") and (9 gt "")
>> Then: 'ub(12,*,g)=6&7&8&9
>> 9 ------- - - - - - - - - - - - - - -
> - -
>> ? If: '(7 gt "") and (8 gt "")
>> Then: 'uc(10,*,g)=7&"-"&8
>> 10 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: lookup dept k=22 i=A -nx
>> 11 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: dp(15,*,g)=dept(2)
>> 12 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: lookup class k=23 i=A -nx
>> 13 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: cl(15,*,g)=class(2)
>> 14 ------- - - - - - - - - - - - - - -
> - -
>> ? If: sn eq "0"
>> Then: sn(9,*,g)=""
>> 15 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: sn=18
>> 16 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: hl="";qt=chr("34")
>> 17 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: im=qt{"Image"{qt
>> 18 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 73 eq "u"
>> Then: in(30,alldn,g)=4&"/"&4&"_"{8{".jpg"
>> 19 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 73 eq "u"
>> Then: hl="http://fedko.biz/v500/Images/"{in
>> 20 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 73 eq "m"
>> Then: in=4&"/"&4&"_"{15{".jpg"
>> 21 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 73 eq "m"
>> Then: hl="http://fedko.biz/v500/Images/"{in
>> 22 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 73 eq "s"
>> Then: in=4&"/"&4&"_"{18{".jpg"
>> 23 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 73 eq "s"
>> Then: hl="http://fedko.biz/v500/Images/"{in
>> 24 ------- - - - - - - - - - - - - - -
> - -
>> ? If: 73 eq ""
>> Then: hl=""
>> 25 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: gosub getvend
>> 26 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: export multi invfile=c:\export\invyfile.slk
>> 27 ------- - - - - - - - - - - - - - -
> - -
>> ? If: xx eq ""
>> Then: gosub once;xx(1,*,g)="y";goto start
>> 28 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(1)=3
>> 29 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(2)=4
>> 30 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(3)=kn
>> 31 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(4)=wa
>> 32 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(5)=1
>> 33 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(6)=16
>> 34 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(7)=34
>> 35 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(8)=dp
>> 36 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(9)=cl
>> 37 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(10)=8 'upc 5
>> 38 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(11)=7&8 'upc 10
>> 39 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(12)=6&7&8&9 'upc 12
>> 40 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(13)=ua 'upc edit
>> 41 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(14)=15
>> 42 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(15)=sn
>> 43 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(16)=28
>> 44 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(17)=32
>> 45 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(18)=47
>> 46 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(19)=57
>> 47 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(20)=61
>> 48 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(21)=65
>> 49 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(22)=69
>> 50 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(23)=36
>> 51 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(24)=oh
>> 52 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(25)=hl
>> 53 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: end
>> 54 ------- - - - - - - - - - - - - - -
> - -
>> once ? If:
>> Then: invfile(1)="Vend_Internal"
>> 55 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(2)="Vend_Code"
>> 56 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(3)="Vend_Key_Name"
>> 57 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(4)="Vend_Web_Add"
>> 58 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(5)="PN_Internal"
>> 59 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(6)="Fedko_No"
>> 60 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(7)="U/M"
>> 61 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(8)="Dept"
>> 62 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(9)="Class"
>> 63 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(10)="UPC_5"
>> 64 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(11)="UPC_10"
>> 65 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(12)="UPC_12"
>> 66 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(13)="UPC_Edit"
>> 67 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(14)="Mfg_No"
>> 68 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(15)="Sap_No"
>> 69 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(16)="Description"
>> 70 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(17)="Net_Item"
>> 71 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(18)="List_Sell"
>> 72 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(19)="Price_A"
>> 73 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(20)="Price_B"
>> 74 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(21)="Price_C"
>> 75 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(22)="Price_D"
>> 76 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(23)="Sell_Mult"
>> 77 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(24)="On_Hand"
>> 78 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: invfile(25)="Image_link"
>> 79 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: return
>> 80 ------- - - - - - - - - - - - - - -
> - -
>> getvend? If:
>> Then: lookup vend k=3 i=A -nx
>> 81 ------- - - - - - - - - - - - - - -
> - -
>> ? If: not vend
>> Then: return
>> 82 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: kn=vend(11)
>> 83 ------- - - - - - - - - - - - - - -
> - -
>> ? If: vend(37) gt ""
>> Then: wa=vend(37)
>> 84 ------- - - - - - - - - - - - - - -
> - -
>> ? If:
>> Then: return
>>
>>
>> On 8/1/2014 10:23 AM, Kenneth Brody wrote:
>>> On 7/31/2014 7:02 PM, FilePro List wrote:
>>> [...]
>>>> Anyhow, I changed the output line to say this and it took a whole
>three
>>>> seconds to run through every record without any issues.
>>>>
>>>> \fp\dreport invy -f expIslk -y none -z none -a -u -ro
>>>>
>>>>
>>>> There's not much processing going on here and without the -ro flag
>it
>>>> only takes about 15 seconds to run
>>> [...]
>>>
>>> Well, if it runs in only 3 seconds w/o processing, but runs slower
>and
>>> slower (until it eventually "stops altogether") with processing,
>then
>>> it's obviously something in the processing that's doing it.
>>>
>>> You say "not much processing", but you don't tell us what it is, so
>we
>>> can't even venture a guess beyond "there's *something* in the
>>> processing that's causing it".
>>>
>>> P.S. Could you please change your e-mail user name from "FilePro
>List"
>>> to something more meaningful for the rest of us?
>>>
>> _______________________________________________
>> Filepro-list mailing list
>> Filepro-list at lists.celestial.com
>> Subscribe/Unsubscribe/Subscription Changes
>> http://mailman.celestial.com/mailman/listinfo/filepro-list
>>
>>
>>
-- Sent with K-@ Mail - the evolution of emailing.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.celestial.com/pipermail/filepro-list/attachments/20140803/6130ed15/attachment.html
More information about the Filepro-list
mailing list