Kbase 13075: Code to get file information with large schema.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/05/1998 |
|
Code to get file information with large schema.
DEF VAR i AS INTEGER.
DEF VAR n AS INTEGER.
DEF VAR c AS CHAR.
SET i LABEL "Enter the RECID number reported in the log file.".
FOR EACH _file WHERE _file-number > 0:
c = "rec" + STRING(n, "99999") + ".p" .
n = n + 1.
OUTPUT TO VALUE(c).
DO:
DISPLAY " FOR EACH " + _file-name +
" WHERE RECID(" + _file-name + ") = " +
string(i) + " NO-LOCK:" FORMAT "x(75)".
DISPLAY "MESSAGE '" + _file-name + "'." FORMAT "x(75)" .
DISPLAY "DISPLAY " + _file-name + ". " FORMAT "x(75)" .
display "END.".
END.
OUTPUT CLOSE.
END.
OUTPUT TO TERMINAL.
DISPLAY "Looking for record with RECID of " + string( i)
format "X(75)" with frame x .
DO WHILE n > 0:
n = n - 1.
c = "rec" + STRING(n, "99999") + ".p" .
RUN VALUE(c).
END.
Progress Software Technical Support Note # 13075