exporting fieldname and fieldlenght

[Enrique Arredondo]

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