Kbase P58962: How to retrieve the field names from the fld# that dbtool ou
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
11/12/2003 |
|
Status: Unverified
GOAL:
How to retrieve the field name from a particular table from the fld# that dbtool outputs?
GOAL:
How to determine the field name from the #fld output of dbtool.
FIX:
Program prompts for a table name, displays the table number, prompts for the #fld value from dbtool and displays the field name.
def var iName like _file-name no-undo.
def var iNumber like _Field-Physpos.
set iName.
find first _file
where _file-name = iName no-lock no-error.
if avail _file then display _file._file-number.
else display "No table found".
FOR EACH _file
where _file._file-name = iName:
set iNumber.
FOR EACH _field OF _file
where _field._Field-Physpos = iNumber:
DISPLAY _Field-Name _Field-Physpos.
END.
END.