Kbase P70039: 4GL procedure to monitor temporary files growth
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
07/07/2008 |
|
Status: Unverified
GOAL:
4GL procedure to monitor temporary files growth
FACT(s) (Environment):
Progress 9.x
OpenEdge 10.x
All Supported Operating Systems
FIX:
Example procedure to monitor Temporary Progress File growth.
This procedure is for informative purpose. Additional support for it is not covered by Progress Technical Support.
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.