Kbase P165581: Sample 4GL code to monitor if a variable extent is growing.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
30/06/2010 |
|
Status: Unverified
GOAL:
Sample 4GL code to monitor if a variable extent is growing.
GOAL:
Sample ABL code to monitor if a variable extent is growing.
FACT(s) (Environment):
All Supported Operating Systems
OpenEdge 10.1x
OpenEdge 10.2x
FIX:
DEFINE VARIABLE holder AS CHARACTER NO-UNDO.
DEFINE VARIABLE slashtype AS CHARACTER NO-UNDO.
IF OPSYS = "WIN32" THEN
slashtype = "~\".
ELSE
slashtype = "~/".
PAUSE 2 BEFORE-HIDE.
REPEAT:
FOR EACH _areaextent
WHERE (_extent-type = 5 OR _extent-type = 6)
no-lock:
IF num-entries(_extent-path, slashtype) > 0 THEN
ASSIGN
holder = entry(num-entries(_extent-path, slashtype), _extent-path, slashtype)
.
ELSE
ASSIGN
holder = _extent-path
.
FOR EACH _actiofile WHERE index(_iofile-filename,holder) > 0 AND _iofile-extends > 0.
DISP _iofile-extends _extent-path FORMAT "x(60)" WITH SIDE-LABELS.
END.
END.
END.