error on new record

[Mike Fedkiw]

filepro 5.0.09

I thought I was writing a simple process to duplicate some records in 
one file with a couple adjustments to the new record but nothing's ever 
that simple I suppose.

I'm just going to post the processing here instead of trying tyo explain 
it I guess, its only ten lines and I had a paragraph explaining it.

I don't know why it even says indexP because after seeing that come up 
as an error, I deleted the indexP to see if it made any difference but 
it didn't. Also I'm not too sure if this makes any difference but the 
copy from and to are the same file with different aliases.

Also, it doesn't error out right away, it actually processes 3300 or so 
records before the error..


*** A System Error Has Occurred ***

On File: /filepro/invoicep/index.P

Output Processing
Line Number: 7

lookup newp = invoicep  r=free  -e
^
Invalid argument



=====================here's the actual processing=================
   1  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If: 10 ne "0177"
        Then: end
   2  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If: (21 ne "1") and (21 ne "6")
        Then: end
   3  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: ky(16,*,g)="10001381"&17
   4  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: lookup invp = invoicep  k=ky   i=A -nx
   5  -------   -   -   -   -   -   -   -   -   -   -
notp   ◄ If: not invp
        Then: close invp;end
   6  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If: invp(15)&invp(11) ne ky
        Then: close invp;end
   7  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: lookup newp = invoicep  r=free  -e
   8  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: copy invp to newp
   9  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: newp(15)="10002850";newp(16)="0177"
  10  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: newp(17)="FISH BOWL NORWICH NEW"
  11  -------   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: write newp;;getnext invp;goto notp
  12  -------   -   -   -   -   -   -   -   -   -   -



Mike.