Keven brings up a good point.

The first 2 half-words in a detail label record contain the high water mark.
Remember however, that you need to know the blocking factor of the dataset,
extract the leftmost 24 bits of the first 2 half-words of the userlabel and
multiply them together (the bf and the 24 bit value).  Then you add the
value contained in the 8 rightmost bits of the first 2 half-words.  That
value will be the high water mark.  I will have to think about how to get
the blocking factor in MPE.

Denys

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Miller, Keven
Sent: Friday, December 09, 2005 11:03 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] Was "Ouput results to a File" now DB INFO

HighWaterMark is kept in the DETAIL dataset file's file labels.
I was going to say that you need a privmode program to open
the file and read the labels, but....


As creator of the file
:setvar label FINFO ( "TESTDB02", "FIRST USER LABEL" )
Not sure where to go from here, but you can see 2 integers
in the label by
:echo !label >out
:fcopy from=out;to=;hex;char

HP31900A.05.02 FILE COPIER (C) HEWLETT-PACKARD CO. 1990

OUT RECORD 0 (%0, #0)

0000: 0000 0004 0000 03E4 0000 0000 0000 0000 ................
0008: SAME: TO 0080-1

OUT RECORD 1 (%1, #1)


Keven

Craig Lalley wrote:
> :help dbcheker
> USER DEFINED COMMAND FILE:  Can anyone get the HIGHWATERMARK without MPEX?

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *