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)



WIN AN RX2660 ~THE GREAT INTEGRITY GIVE AWAY !!!

All you have to do is send us an email at sales@islandco.com with exactly : " I want an HP Integrity rx2660 for free" in the subject line.
It must include your name, company, telephone no. and of course email address in the body.
By entering in this free prize drawing, you agree to receive special deals by email from Island Computers. Email addresses will be tested for validity.

You get the chance to win this free (Overseas must pay shipping which we will subsidize to a point - $600 maximum)

HP Integrity rx2660
Montvale 2 Core 1.67Ghz(4 thread) CPU
32GB Memory (8 x 4GB Kits)
4 x 146GB SAS 10KRPM Disk with RAID P400 Controller
VGA and Serial Consoles DVD-ROM/CDRW

Set up and ready for OpenVMS 8.4

We will do a prize drawing and the winner will be announced directly and on OpenVMS.org on August 10th 2014.
Hurry... you have 30 days.. Thanks Y'all...

 

 

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