Carlo H. Francisco
Member
Hello Guys,
How to find this table, where does this table created? The system is too big.
How to find this table, where does this table created? The system is too big.
DEFINE VARIABLE vCount AS INTEGER NO-UNDO.
DEFINE VARIABLE vFileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE vFileType AS CHARACTER NO-UNDO.
DEFINE VARIABLE vFullPath AS CHARACTER NO-UNDO.
DEFINE VARIABLE vTableList AS CHARACTER NO-UNDO.
DEFINE STREAM sImport.
DEFINE STREAM sExport.
OUTPUT STREAM sExport TO "C:\Temp\ProgsContainingTable.txt".
INPUT STREAM sImport FROM OS-DIR("C:\Progress\Progs").
REPEAT:
IMPORT STREAM sImport vFileName vFullPath vFileType.
IF INDEX(vFileType, "F") > 0 AND vFileName MATCHES "*~~.r" THEN DO:
ASSIGN RCODE-INFO:FILE-NAME = vFullPath
vTableList = RCODE-INFO:TABLE-LIST.
IF vTableList MATCHES "*table_crb*" THEN
PUT STREAM sExport vFileName SKIP.
END.
END.
INPUT STREAM sImport CLOSE.
OUTPUT STREAM sExport CLOSE.
Thanks Mr. Tom,
Where will I put this code? In a procedure?
I am looking for table_crb.