Kbase P15307: 4GL example on how to get a schema (table & field) report of
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
18/03/2003 |
|
Status: Unverified
GOAL:
4GL example on how to get a schema (table & field) report of connected DB's
FIX:
The following code needs to be separated in two programs.
PROGRAM1.P
==========
DEF VAR x AS CHAR.
DEF VAR i AS INTEGER.
DO i = 1 TO NUM-DBS:
x = LDBNAME (i).
CREATE ALIAS "DICTDB" FOR DATABASE VALUE (x).
DISPLAY x LABEL "Database name: ".
RUN PROGRAM2.P.
END.
PROGRAM2.P
==========
FOR EACH dictdb._field, EACH dictdb._file WHERE RECID (_file) = _field._fil
BREAK BY (_file-name).
IF SUBSTRING (_file-name,1,1) = "_" THEN NEXT.
ELSE DO:
IF FIRST-OF (_file-name) THEN
DISPLAY _file-name FORMAT "X(20)" _field-name.
ELSE DISPLAY _field-name.
END.
END.