Article View: borland.public.vdbase.data.sql
Article #1523Re: TOO MANY NESTED DO/UDF
From: Joe Yuzamas
Date: Fri, 19 Dec 1997 00:00
Date: Fri, 19 Dec 1997 00:00
54 lines
2366 bytes
2366 bytes
Bowen
The code presented was the actual code. The only part missing is the tables
and the following code that gets executed before that given in the first
part of the thread;
LOCAL soPrjNr, oAm, oAmt, oIAmt, oInt
OPEN DATABASE FMPROJ
SET DATABASE TO FMPROJ
soPrjNr = NEW ARRAY()
SELECT FY,PONR FROM 'C:\PONRCONV\PROJ.DBF'
DO WHILE .NOT. EMPTY(FY)
soPrjNr.Add(1)
soPrjNr[soPrjNr.Size] = FY+'-'+PONR
SKIP
ENDDO
Close DATABASES
.
.
.
This program has no form input. This code loads the array soPrjNr with
project order numbers from the PROJ.DBF table to be looked up in the AMEND
table and calculates the INT_AMOUNT to be updated in the AMEND table. The
code reads and updates 600 records in the AMEND table before giving the
error. I have found that if I set the from value in the for..next to the
next array sub-script after the failure, the program will complete the
table. This will complete the calculations, but does not answer the
question as to why the error. It almost appears when methods for the array
class are executed VDB looses count of open UDFs. I would really like to
know as I am real fond of loops. If it would help, I could attach tables
with code and email to you. I would appreciate the help.
--
Joe < jyuzamas@wrdiss1.robins.af.mil or jyuzamas@sprynet.com >
Bowen Moursund <teamb@opto-pps.com> wrote in article
<67bujb$cj78@forums.borland.com>...
>
> Joe Yuzamas wrote in message
> <01bd0afe$ef069980$1030f489@jyuzamas.robins.af.mil>...
> >Have a very intresting problem. While executing the following code....
>
> Joe - Maybe if you post a testable turnkey example, a newsgroup
contributor
> will do so, and perhaps have a suggestion.
> __
> Bowen Moursund (TeamB)
> bowen.NOSPAM@nerds.com
> http://www.mindspring.com/~bowenm/datatech.htm
>
>
Technical Details
Message-ID:
<01bd0c89$7e952b80$1030f489@jyuzamas.robins.af.mil>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<01bd0afe$ef069980$1030f489@jyuzamas.robins.af.mil> <67bujb$cj78@forums.borland.com>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: ff5a1,249488cfdabe46c3 X-Google-Attributes: gidff5a1,public From: "Joe Yuzamas" <jyuzamas@wrdiss1.robins.af.mil> Subject: Re: TOO MANY NESTED DO/UDF Date: 1997/12/19 Message-ID: <01bd0c89$7e952b80$1030f489@jyuzamas.robins.af.mil> X-Deja-AN: 308581906 References: <01bd0afe$ef069980$1030f489@jyuzamas.robins.af.mil> <67bujb$cj78@forums.borland.com> Organization: U.S. Air Force Newsgroups: borland.public.vdbase.data.sql