home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rxpmpapi.zip
/
rxpmptst.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-07-24
|
8KB
|
194 lines
/* Rexx */
call RxFuncAdd 'RxDCFLoadFuncs', 'RXPMPAPI', 'RxDCFLoadFuncs'
call RxDCFLoadFuncs
res = RxDCFVerify()
if res then
say "OK!"
else
say "not ok!"
/*
res = RxPMPShutDown()
if res then
SAY "Shutdown OK"
else
SAY "No shutdown"
*/
res = RxDCFUserDefined("Works!")
SAY "UserDefined returned" res
res = RxDCFVerify()
if res then
say "OK!"
else
say "not ok!"
/*
res = RxDCFGetStats('myVar.', 'stem2.')
*/
res = RxDCFGetStats('myVar.')
SAY "GetStats returned" res
if res = 'DCF_NO_ERROR' then do
say "Version " myVar.pmpVersion
say "StartTime" myVar.pmpStartTime
say "HPFS386? " myVar.hpfs32ActInd
say "OS20MEMU?" myVar.memActInd
say "mmos2? " myVar.mmActInd
say "net? " myVar.netActInd
say "LoggedOn?" myVar.netLogonInd
say "LPT1 Mon? " myVar.lpt1ActInd
say "LPT2 Mon? " myVar.lpt2ActInd
say "LPT3 Mon? " myVar.lpt3ActInd
say "Spool? " myVar.spoolActInd
say "UpdateTime " myVar.upDateTime
say "Sys Uptime (sec) " myVar.upTimeSecs
say "Inet connect (sec)" myVar.inetTimeSecs
say "Net workstation id" myVar.netWSId
say "Net user id" myVar.netUserId
say "Net domain id" myVar.netDomainId
say "Net server id" myVar.netServerId
say "net req in (bytes)" myVar.netIn
say "net req out (byte)" myVar.netOut
say "LPT1 I/O tot bytes" myVar.lpt1TotIO
say "LPT1 I/O tot msec " myVar.lpt1TotTime
say "LPT1 total jobs " myVar.lpt1TotJobs
say "LPT2 I/O tot bytes" myVar.lpt2TotIO
say "LPT2 I/O tot msec " myVar.lpt2TotTime
say "LPT2 total jobs " myVar.lpt2TotJobs
say "LPT3 I/O tot bytes" myVar.lpt3TotIO
say "LPT3 I/O tot msec " myVar.lpt3TotTime
say "LPT3 total jobs " myVar.lpt3TotJobs
say "Net drives online" myVar.drivesOnline
say "Drive 1 " myVar.drive1
say "Drive 1 Offline? " myVar.drive1OffLine
say "Drive 1 Size (byt)" myVar.drive1Size
say "Drive 1 Free (byt)" myVar.drive1Free
say "Drive 2 " myVar.drive2
say "Drive 2 Offline? " myVar.drive2OffLine
say "Drive 2 Size (byt)" myVar.drive2Size
say "Drive 2 Free (byt)" myVar.drive2Free
say "Drive 3 " myVar.drive3
say "Drive 3 Offline? " myVar.drive3OffLine
say "Drive 3 Size (byt)" myVar.drive3Size
say "Drive 3 Free (byt)" myVar.drive3Free
say "Drive 4 " myVar.drive4
say "Drive 4 Offline? " myVar.drive4OffLine
say "Drive 4 Size (byt)" myVar.drive4Size
say "Drive 4 Free (byt)" myVar.drive4Free
say "Drive 5 " myVar.drive5
say "Drive 5 Offline? " myVar.drive5OffLine
say "Drive 5 Size (byt)" myVar.drive5Size
say "Drive 5 Free (byt)" myVar.drive5Free
say "Drive 6 " myVar.drive6
say "Drive 6 Offline? " myVar.drive6OffLine
say "Drive 6 Size (byt)" myVar.drive6Size
say "Drive 6 Free (byt)" myVar.drive6Free
say "battery life (%) " myVar.batFreePct
say "Swp Res (bytes) " myVar.swpAllocReserved
say "Swp Init (bytes) " myVar.swpAllocInit
say "Swp Fil Now (byte)" myVar.swpAlloc
say "Swp Free (byte)" myVar.swpFree
say "Swp Free (%) " myVar.swpFreePct
say "Swp Free " myVar.swpFreeGph
say "Swp Used (byte)" myVar.swpUsed
say "Swp Used (%) " myVar.swpUsedPct
say "Swp Used " myVar.swpUsedGph
say "Phys ram (bytes) " myVar.ramPhys
say "Virt ram tot (byt)" myVar.totVirt
say "Vram Free (bytes)" myVar.vramFree
say "Vram Free (%) " myVar.vramFreePct
say "Vram Free " myVar.vramFreeGph
say "Vram Used (bytes)" myVar.vramUsed
say "Vram Used (%) " myVar.vramUsedPct
say "Vram Used " myVar.vramUsedGph
say "Ram Res (bytes)" myVar.ramRes
say "Ram Res (%) " myVar.ramResPct
say "Ram Res " myVar.ramResGph
say "Ram swappable (by)" myVar.ramSwap
say "Ram swappable (%) " myVar.ramSwapPct
say "Ram swappable " myVar.ramSwapGph
say "Ram free (bytes)" myVar.ramFree
say "Ram free (%) " myVar.ramFreePct
say "Ram free " myVar.ramFreeGph
say "Ram used (bytes)" myVar.ramUsed
say "Ram used (%) " myVar.ramUsedPct
say "Ram used " myVar.ramUsedGph
say "CPU Magnified (%) " myVar.cpuMagPct
say "CPU Average (%) " myVar.cpuAvgPct
say "CPU Idle (%) " myVar.cpuIdlePct
say "CPU Current (%) " myVar.cpuCurrPct
say "CPU current " myVar.cpuCurrGph
say "Open windows " myVar.winCount
say "Open files " myVar.fileCount
say "Threads " myVar.tidCount
say "OS Ver " myVar.osVer
say "Processors " myVar.cpuCnt
say "userDefined " myVar.UserDefined
say "Swap evt count " myVar.eventSwpGrowCnt
say "Last Swap evt Amt " myVar.eventSwpGrowLAmt
say "Last Swap evt Time" myVar.eventSwpGrowLTime
say "CPU Avg evt Count " myVar.eventCpuAvgCnt
say "CPU Avg evt Amt " myVar.eventCpuAvgLAmt
say "CPU Avg evt Time " myVar.eventCpuAvgLTime
say "VRAM evt Count " myVar.eventVRamFreeCnt
say "VRAM evt Amt (byt)" myVar.eventVRamFreeLAmt
say "VRAM evt Time " myVar.eventVRamFreeLTime
say "Drive 1 evt Cnt " myVar.eventDrive1Cnt
say "Drive 1 evt Amt " myVar.eventDrive1LAmt
say "Drive1 evt Time " myVar.eventDrive1LTime
say "Drive 2 evt Cnt " myVar.eventDrive2Cnt
say "Drive 2 evt Amt " myVar.eventDrive2LAmt
say "Drive2 evt Time " myVar.eventDrive2LTime
say "Drive 3 evt Cnt " myVar.eventDrive3Cnt
say "Drive 3 evt Amt " myVar.eventDrive3LAmt
say "Drive3 evt Time " myVar.eventDrive3LTime
say "Drive 4 evt Cnt " myVar.eventDrive4Cnt
say "Drive 4 evt Amt " myVar.eventDrive4LAmt
say "Drive4 evt Time " myVar.eventDrive4LTime
say "Drive 5 evt Cnt " myVar.eventDrive5Cnt
say "Drive 5 evt Amt " myVar.eventDrive5LAmt
say "Drive5 evt Time " myVar.eventDrive5LTime
say "Drive 6 evt Cnt " myVar.eventDrive6Cnt
say "Drive 6 evt Amt " myVar.eventDrive6LAmt
say "Drive6 evt Time " myVar.eventDrive6LTime
say "Battery evt Cnt " myVar.eventBatFreeCnt
say "Battery evt Amt " myVar.eventBatFreeLAmt
say "Battery evt Time " myVar.eventBatFreeLTime
say "Swap free evt Amt " myVar.eventSwpFreeLAmt
say "Swap free evt Cnt " myVar.eventSwpFreeCnt
say "Swap free evt Time" myVar.eventSwpFreeLTime
say "Ram free evt Cnt " myVar.eventRamFreeCnt
say "Ram free evt Amt " myVar.eventRamFreeLAmt
say "Ram free evt Time" myVar.eventRamFreeLTime
say "# procs " myVar.pidCount
/*
say "Other # procs " stem2.0
do i = 1 to stem2.0
say 'Array idx:' i
say ' PID ' stem2.i.pid
say ' PPID' stem2.i.ppid
say ' SID ' stem2.i.sid
say ' TYPE' stem2.i.type
say ' RAM TOT' stem2.i.ramSizeTot
say ' RAM RES' stem2.i.ramSizeRes
say ' 32 bit?' stem2.i.mmt32bit
say ' Mod Hnd' stem2.i.modHandle
say ' Threads' stem2.i.tidCount
say ' Sem Cnt' stem2.i.semCount
say ' Mod Cnt' stem2.i.modCount
say ' Shm Cnt' stem2.i.shrCount
say ' Max pri' stem2.i.maxClass
say ' Str Tim' stem2.i.startTime
say ' CPU pct' stem2.i.cpuPct
say ' Run cnt' stem2.i.runCnt
say ' Exe nam' stem2.i.exeName
end /* do */
*/
end /* Do */
else
call RxDCFDropFuncs