Kbase P17191: Which application table does a given RECID reside in V7/V8 (
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
31/01/2003 |
|
Status: Unverified
GOAL:
Which application table does a given RECID reside in for v7 and v8 (Procedure A)
FACT(s) (Environment):
Progress 7.x
FACT(s) (Environment):
Progress 8.x
FIX:
DEF VAR i AS INTEGER FORMAT ">>>>>>>>>9".
REPEAT:
SET i LABEL "Enter the RECID number reported in the log file.".
OUTPUT TO recid.p.
FOR EACH _file WHERE _file-number > 0:
DO:
PUT "FOR EACH " + _file-name + " WHERE RECID(" + _file-name + ")
= " + STRING(i) + " NO-LOCK:" FORMAT "x(100)" SKIP.
PUT " DISPLAY " + _file-name + " WITH TITLE '" + _file-name +
"'. " FORMAT "x(100)" SKIP.
PUT "END." SKIP.
END.
END.
OUTPUT CLOSE.
OUTPUT TO TERMINAL.
DISPLAY "Looking for record with RECID of " + STRING(i) FORMAT
"X(75)" WITH FRAME x.
RUN recid.p.
END.