Kbase P17197: Which application table does a given RECID reside in for v7 and v8 (Proc. B)
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
15/10/2008 |
|
Status: Verified
GOAL:
Which application table does a given RECID reside in for v7 and v8 (Procedure B)
FACT(s) (Environment):
Progress 7.x
Progress 8.x
FIX:
This procedure uses an include file called check.i.
/* check.i */
IF CAN-FIND( {1} WHERE RECID({1}) = {2}) THEN
DISPLAY "Record with recid {2} found in table:" SKIP "{1}".
The actual procedure is the following code:
/* procedureb.p */
DEFINE VARIABLE i AS INTEGER FORMAT ">>>>>>>>>9".
REPEAT:
SET i LABEL "Enter the RECID number reported in the log file.".
FOR EACH _file WHERE _file-number > 0:
RUN check.i _file-name VALUE(i).
END.
END.
/*END OF PROCEDURE B */