SpyderByte.com: OpenVMS.org dcl.OpenVMS.org de.OpenVMS.org fr.OpenVMS.org Tru64.org
Island Computers


   
Home About/Contact Search Archive Mobile Submit Procedure Sponsorship/Advertising
More Links
Printer friendly version
Share this story

dcl.OpenVMS.org
Admin: Ken Farmer
About: DCL (Digital Command Language) related news and procedures archive.


Navigation
Search Procedures
Post a Procedure
Documentation
Training
Vendors

Features
Bob Gezelter Articles:
Pitfalls of F$LOCATE & other Func
Logical Names (Part 5)
Logical Names (Part 4)
Report from the 1st OpenVMS Technical Symposium (Part 1)
Logical Names (Part 3)
Logical Names (Part 2)
Logical Names (Part 1)


RSS/RDF Feeds
OpenVMS.org (RSS 2.0)
dcl.OpenVMS.org (RSS 0.91)


Top 5 Stories
DCL_CHECK (7)
Free.com (2)
SHOW_PAGEFILE (7)
Repeat.com (6)
SHOW_BG (7)



Latest Procedures & News

memv2
Labadie, Tuesday March 21 2006 @ 05:47AM EST
$ in :== write sys$output
$ ! 6 read in Vms 7.2-1
$ ! 4 read in Vms 7.3-2
$ Version = F$Extract(1,999,f$edit(f$getsyi("version"),"TRIM"))-"."-"-"
$ Arch = F$Extract(0,1,F$getsyi("Arch_name"))
$ on warning then $ exit
$ gosub 'Arch''Version'
$!
$ exe$gl_mchkerrs = F$Edit(F$Element(0,":",F$Element(1,"=",f$trnlnm("mchk")))-"F
FFFFFFF.","Trim,Collapse")
$ exe$gl_mchkerrs =%X'exe$gl_mchkerrs'
$ exe$gl_memerrs =  F$Edit(F$Element(0,":",F$Element(1,"=",f$trnlnm("mem")))-"FF
FFFFFF.","Trim,Collapse")
$ exe$gl_memerrs = %X'exe$gl_memerrs'
$ pms$gl_npagdynexpf =  F$Edit(F$Element(0,":",F$Element(1,"=",f$trnlnm("npagdyn
f")))-"FFFFFFFF.","Trim,Collapse")
$ pms$gl_npagdynexpf = %X'pms$gl_npagdynexpf'
$ pms$gl_npagdynexps =  F$Edit(F$Element(0,":",F$Element(1,"=",f$trnlnm("npagdyn
s")))-"FFFFFFFF.","Trim,Collapse")
$ pms$gl_npagdynexps = %X'pms$gl_npagdynexps'
$ mchk=F$CVUI(0,16,F$FAO("!AD",2,EXE$GL_MCHKERRS))
$ memerr=F$CVUI(0,16,F$FAO("!AD",2,EXE$GL_MEMERRS))
$ npagdynf=F$CVUI(0,16,F$FAO("!AD",2,PMS$GL_NPAGDYNEXPF))
$ npagdyns=F$CVUI(0,16,F$FAO("!AD",2,PMS$GL_NPAGDYNEXPS))
$ in f$fao("there is !SL CPU errors and !SL memory errors",mchk,memerr)
$ in f$fao("there is !SL Npagedyn pool expansion failures",npagdynf)
$ in f$fao("there is !SL Npagedyn pool expansion successes",npagdyns)
$ ! cleaning
$ deas/job mem
$ deas/job mchk
$ deas/job npagdynf
$ deas/job npagdyns
$ exit
$!
$ A83:
$ A82:
$ A732:
$ pipe ( in "sh symb exe$gl_mchkerrs" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p -
; read sys$pipe p ; def /nolog/job  mchk &p )
$  pipe ( in "sh symb exe$gl_memerrs" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
def /nolog/job  mem &p )
$  pipe ( in "sh symb pms$gl_npagdynexpf" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
def /nolog/job npagdynf &p )
$  pipe ( in "sh symb pms$gl_npagdynexps" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
def /nolog/job npagdyns &p )
$ return
$!
$ A721:
$ A73:
$  pipe ( in "sh symb exe$gl_mchkerrs" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p -
; read sys$pipe p ; read sys$pipe p ; read sys$pipe p -
; def /nolog/job  mchk &p )
$  pipe ( in "sh symb exe$gl_memerrs" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
read sys$pipe p ; read sys$pipe p ; -
def /nolog/job  mem &p )
$  pipe ( in "sh symb pms$gl_npagdynexpf" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
read sys$pipe p ; read sys$pipe p ; def /nolog/job npagdynf &p )
$  pipe ( in "sh symb pms$gl_npagdynexps" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
read sys$pipe p ; read sys$pipe p ; def /nolog/job npagdyns &p )
$ return
$!
$ V73:
$ pipe ( in "sh symb exe$gl_mchkerrs" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p -
; read sys$pipe p ; def /nolog/job  mchk &p )
$  pipe ( in "sh symb exe$gl_memerrs" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
def /nolog/job  mem &p )
$  pipe ( in "sh symb pms$gl_npagdynexpf" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
def /nolog/job npagdynf &p )
$  pipe ( in "sh symb pms$gl_npagdynexps" ) | ana/sys | -
(read sys$pipe p ; read sys$pipe p ; read sys$pipe p ; -
def /nolog/job npagdyns &p )
$ return

< SYSTEM_REPORT.COM | Google.com >

-->


Mailing Lists
OpenVMS.org News:
(Low volume newsletter)
Subscribe | Unsubscribe
OpenVMS.org Alerts:
(Security & Patch Alerts)
Subscribe | Unsubscribe

Sponsors | Affiliates

Island Computers



Virtual VAX & Alpha

HoffmanLabs.com

The OpenVMS Consultant


Interested in Advertising? Click here...

Friends of VMS
Encompass (HP Customer Community):
United States
Canada
Australia
Encompasserve
OpenVMS Hobbyist
Other Sites:
8-Cubed
Aaron's OpenVMS Hobbyist Blog
Arne Vajh°j
Deathrow Public OpenVMS Cluster
DJE Systems
Hunter Goatley
Ian Miller
Itanium Solutions Alliance
Syltrem VMS Page (French)
Kednos PL/I
OpenVMSPlanet.org
OpenVMS Rocks
Preatorian.net
Retrobeep
SYSMGR Blog
VAMP
Vaxination
XDelta


Add, edit, report problems here...

OpenVMS Webring

OpenVMS Webring

Prev

Random

Next

Prev5

List

Next5



Home About & Contact Search Archive Mobile Submit Procedure Sponsorship & Advertising

     Copyright © 2003-2006 SCORSE, LLC
OpenVMS® is a trademark of HP
All other trademarks are those of their owners.
    
 SpyderByte.com ;Technical Portals