[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: Need to get all _files for all Connected DBs

[JonathanWilson]

The following gives all the tablenames... have needed to do this in the past... DEFINE VARIABLE hTblQ AS HANDLE NO-UNDO. DEFINE VARIABLE lValidQ AS LOGICAL NO-UNDO. DEFINE VARIABLE hTblHdl AS HANDLE NO-UNDO. DEFINE VARIABLE iDBCount AS INTEGER NO-UNDO. DEFINE TEMP-TABLE ttFile NO-UNDO field ttDBName AS CHAR field ttTblName AS CHAR. DbLoop: DO iDBCount = 1 TO NUM-DBS ON ERROR UNDO, RETURN ERROR: CREATE QUERY hTblQ. CREATE BUFFER hTblHdl FOR TABLE LDBNAME(iDBCount) + "._file". hTblQ:ADD-BUFFER(hTblHdl) NO-ERROR. lValidQ = hTblQ:QUERY-PREPARE("FOR EACH _file WHERE _tbl-type = 'T' BY _file-number"). hTblQ:QUERY-OPEN NO-ERROR. TableLoop: REPEAT ON ERROR UNDO, RETURN ERROR: hTblQ:GET-NEXT. IF hTblQ:QUERY-OFF-END THEN LEAVE TableLoop. create ttFile. assign ttFile.ttDBName = LDBNAME(iDBCount) ttFile.ttTblName = hTblHdl:BUFFER-FIELD("_file-name"):BUFFER-VALUE. END. /*TableLoop*/ END. /*iDBCount*/ for each ttFile no-lock: disp ttDBName ttTblName. end.

Continue reading...