exporting fieldname and fieldlenght

[Enrique Arredondo]

----- Original Message ----- 
From: "Jeff Harrison" <jeffaharrison at yahoo.com>
To: "Enrique Arredondo" <henry at vegena.net>; <filepro-list at seaslug.org>
Sent: Friday, April 22, 2005 11:10 AM
Subject: Re: exporting fieldname and fieldlenght


> 
> --- Enrique Arredondo <henry at vegena.net> wrote:
>> Hi ,
>> 
>> What syntax should I need to use so that this works
>> ? Right now it doesn't 
>> like the rr dummy inside the functions.
>> 
>> 
>> loop if :
>>       then: rr=rr+"1"
>>       if : rr gt "166"
>>       then: end
>>       if :
>>       then: saverec
>>       if :
>>       then: filex(1)=fieldname(rr){"~"{fieldlen(rr)
>>       if :
>>       then: close filex;goto loop
>> 
>> saverec   if :
>>    then: export ascii filex="fields.txt" r=\n
>>            if :
>>            then: return
>> 
>> 
>>
> 
> I see a few problems here.  In this case your
> fieldname and fieldlen functions should read as
> follows:
> fieldname(-,rr)
> fieldlen(-,rr)
> 
> Also, you should not be closing the export within your
> loop.  Close it after all of your exporting has been
> completed (before the "end").  Also, you missed the
> gosub statement before "saverec", and you should not
> have the export file name in quotes.
> 
> Good Luck!
> 
> Jeff Harrison
> jeffaharrison at yahoo.com

Guess what output this process :

Dummy field~25~
Dummy field~25~
Dummy field~25~
Dummy field~25~
Dummy field~25~
Dummy field~25~

etc..... Instead of the 166 fields.  ARGGH

Is there a Plan "B" ?