OS2.org Site Index - Feedback - Impressum
Sprachauswahl / Choose your Language News Software Hardware Projekte Forum Tipps Links Verschiedenes
Editorial Diskussion HelpDesk Umfrage
[Forum]
in nach (Erweiterte Suche)
[Forum]
( Archiv ) ( Neues Thema )
08.08.2013
Memory Analyse und Systemtuning: Wrapper für ABOVE512 (von Frank Wochatz, 08:47:16) ^
Jemand hatte hier den Tipp zu dem Tool above512 (Hobbes) gegeben (besten Dank!). Ich hab dafür mal ein kleines Tool in Rexx geschrieben, dass die Ausgabe etwas übersichtlicher formatiert, und sich auf den Speicher beschränkt (private memory und shared memory, jeweils unter und über 512), und alle Sekunde den Speicher abfragt und das Ergebnis ausgibt, und damit Veränderungen sofort transparent macht.

Das ist ganz schön um mal zu sehen, welche Programme Speicher ziehen, und ob der nach Programmende auch wieder korrekt freigegeben wird, oder auch zum System-Tuning.

Das Script im Verzeichnis von above512 abspeichern, und starten. Beendet wird es mit CONTROL+C.

Ich weiß nicht, ob above512 in jedem Fall immer korrekte Werte zurück gibt, da das Tool 10 Jahre alt ist. Müßte man ggf. überprüfen. Hier geht es erstmal soweit, zumindest sieht man in jeden Fall relative Veränderungen. Was das Teil macht, wenn der Shared Memory absäuft, konnte ich bislang nicht beoabachten (Mangels SM Problem).

Die Ausgabe in einer Datei loggen geht natürlich auch:
memmon.cmd >logfile.txt

- - - schnipp
/* memmon.cmd - memory monitor */
/* a wrapper for above512 to monitor memory usage */
/* use control+c to stop monitoring */
/* pm = private memory */
/* sm = shared memory */
/* left entries display memory below 512 */
/* right entries display memory above 512 */


out = 0
curline = ""
first_string = ""

call rxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
call SysLoadFuncs


SIGNAL ON HALT /* termine program with CONTROL+C */

do forever

'@ABOVE512 2>nul | rxqueue 2>NUL 1>&2'
call SysSleep 1

do while queued() <> 0
curLine = lineIN( "QUEUE:" )

if out = 0 then do
parse var curLine first_string .
if first_string = "current" then out = 1
else out = 0
end
else do
parse var curline val.1 . val.2 . . . val.3 . val.4 .
say "pm:" val.1 "sm:" val.2 " <---512---> pm:" val.3 "sm:" val.4

out = 0
end

end
end

exit

HALT:
exit

- - - schnapp

[ Leser: 353 ]

Datum Thema
06.01.2017 *

*

Name: * eMail: Benachrichtigung

Mit * markierte Felder müssen ausgefüllt werden !

( Zeige alle Einträge ) ( Zur Startübersicht )
Thema von Leser Datum Zeit
 Memory Analyse und Systemtuning: Wrapper für ABOVE512
Frank Wochatz35308.08.201308:47
 Re: Memory Analyse und Systemtuning: Wrapper für ABOVE512
Wilfried28609.08.201312:11
 Re: Memory Analyse und Systemtuning: Wrapper für ABOVE512
Andi B.28509.08.201315:18
 Re: Memory Analyse und Systemtuning: Wrapper für ABOVE512
Holger30609.08.201317:06
 Re: Memory Analyse und Systemtuning: Wrapper für ABOVE512
Lothar S.26809.08.201319:43
 Re: Memory Analyse und Systemtuning: Wrapper für ABOVE512
Frank Wochatz26209.08.201322:20
 FreeSharedMem.exe
Andreas Schnellbacher26410.08.201311:45
 Re: FreeSharedMem.exe
Frank Wochatz25510.08.201313:31
 3 Tools - 3 Werte
Frank Wochatz25610.08.201314:01
 Re: 3 Tools - 3 Werte
Andreas Schnellbacher24111.08.201311:46
 Re: 3 Tools - 3 Werte
Holger23411.08.201312:33
 Re: 3 Tools - 3 Werte
Frank Wochatz23211.08.201316:01
 Re: 3 Tools - 3 Werte
Frank Wochatz22012.08.201307:04
 Re: 3 Tools - 3 Werte
.20912.08.201312:14
 Re: 3 Tools - 3 Werte
Andreas Schnellbacher19612.08.201321:44
 Re: 3 Tools - 3 Werte
Andi B.19313.08.201311:02
 Re: 3 Tools - 3 Werte
Holger18013.08.201318:17


php.net OpenIT © 1998-2017 by WebTeam OS2.org