Acquiring tablenames for all tables in a storage area

[emurdock]

Hi Guys:

I am relatively new to Progress and know nothing about 4GL and very little about the VST's. What I would like to do is to build a script that can dynamically acquire the names of all of the tables in a storage area in order to perform some tablemoves.
Is there a VST or a combination of VST's that I can use? Is there any way to find out which tables belong to a specific storage area short of a table analysis?

Thanks,
E

 

[Norman Biggar]

Try this

 FOR EACH _Area NO-LOCK
  WHERE _Area-Name EQ "[i]My_Area[/i]",
EACH _StorageObject NO-LOCK
  WHERE _StorageObject._Area-Number EQ _Area._Area-Number
  AND   _StorageObject._Object-Type EQ 1,
FIRST _File NO-LOCK
  WHERE _File._File-Number EQ _StorageObject._Object-Number:
 
  DISPLAY _File._File-Name.
END.

 

[emurdock]

Try this

 FOR EACH _Area NO-LOCK
  WHERE _Area-Name EQ "[i]My_Area[/i]",
EACH _StorageObject NO-LOCK
  WHERE _StorageObject._Area-Number EQ _Area._Area-Number
  AND   _StorageObject._Object-Type EQ 1,
FIRST _File NO-LOCK
  WHERE _File._File-Number EQ _StorageObject._Object-Number:
 
  DISPLAY _File._File-Name.
END.

That seems to be the trick. Thanks for your help.

Emurdock