Example procedure to monitor Temporary Progress File growth.
This procedure is for informative purposes. Additional support for this code is not covered by Progress Technical Support and can be customized to requirement.
DEFINE VARIABLE ifilename AS CHARACTER FORMAT "x(64)" LABEL "File".
DEFINE VARIABLE attr-list AS CHARACTER FORMAT "x(4)" LABEL "Attributes".
FORM ifilename WITH ROW 20 FRAME b.
DEF VAR search-dir AS CHAR VIEW-AS FILL-IN FORMAT "x(50)".
DEFINE TEMP-TABLE TEMP-FILES
FIELD TFILE AS CHAR FORMAT "x(40)" LABEL "File Name"
FIELD TSIZE AS INT FORMAT "zzz,zzz,zzz,zzz,zz9" LABEL "Size"
INDEX T-size TSIZE tfile DESC.
DEFINE QUERY q1 FOR temp-files.
DEFINE BROWSE b1
QUERY q1 DISPLAY TFILE TSIZE WITH SEPARATORS 22 DOWN.
DEFINE BUTTON MyBUTTON LABEL "Reopen Query".
DEFINE FRAME myframe search-dir b1 mybutton WITH THREE-D SIDE-LABELS.
ON "choose" OF mybutton
DO:
FOR EACH temp-files:
DELETE temp-files.
END.
INPUT FROM OS-DIR(search-dir).
REPEAT:
SET ifilename WITH FRAME b.
FILE-INFO:FILE-NAME = ifilename.
IF ifilename BEGINS "srt"
OR ifilename BEGINS "lbi"
OR ifilename BEGINS "dbi"
OR ifilename BEGINS "rcd"
THEN DO:
CREATE temp-files.
tfile = ifilename.
tsize = FILE-INFO:FILE-SIZE.
END.
END.
HIDE FRAME b NO-PAUSE.
INPUT CLOSE.
OPEN QUERY q1 FOR EACH temp-files.
END.
APPLY "choose" TO mybutton.
ENABLE b1 mybutton search-dir WITH FRAME myframe.
WAIT-FOR CLOSE OF THIS-PROCEDURE.
