exporting fieldname and fieldlenght

[Nancy Palmquist]

Enrique,

Tried the process and got:

file to store shared processes~1
Memo_Number~16
Date~8

Those are the field names and lengths for the file I used.

Here is the processing that worked:

───────────────────────────────────────────────────────────
   1  -------   -   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: declare num(3,.0);num="1"
   2  -------   -   -   -   -   -   -   -   -   -   -   -
loop   ◄ If: num gt "3"   'set this to highest field number
        Then: goto finish
   3  -------   -   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: gosub saverec
   4  -------   -   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: filex(1)=fieldname(-,num){"~"{fieldlen(-,num)
   5  -------   -   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: num=num+"1";goto loop
   6  -------   -   -   -   -   -   -   -   -   -   -   -
finish ◄ If:
        Then: close filex
   7  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: end
   8  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -
saverec◄ If:
        Then: export ascii filex=(getenv("PFTMP"){"/fields.txt") r=\n
   9  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -
        ◄ If:
        Then: return
  10  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -

Hope that helps.  It is reviewing the current file and I ran this by 
doing a call to the table from one record in input processing.  It would 
run from output, by selecting just one record.

Nancy


-- 
Nancy Palmquist 		MOS & filePro Training Available
Virtual Software Systems	Web Based Training and Consulting	
PHONE: (412) 835-9417		   Web site:  http://www.vss3.com