I have an interesting problem using the FINFO command with message files.
We have several msg files being written to using Netbase.
In the past we would check the current EOF of these message files and when
then reached a certain number of records we would do something.
Recently this process is not working correctly.  Look at the example below.
In it I do a listf of all the files in Queue.Netbase.  The miitem file shows
52,999 records on the first pass.  I then set a variable "MI" using the
finfo command with the 'EOF' option.  The variable comes back with the value
of  1.
I then quickly do a couple of redo's.  Even though the number of records in
the miitem file have decreased by 144 records the variable remains at 1.

Why doesn't finfo work when there are multiple accessors to a file?  Is
there a work around using MPEX or a different variable?

:L2 @.QUEUE.NETBASE
ACCOUNT=  NETBASE     GROUP=  QUEUE

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

MIITEM  *        8187W  VBM      52999      31007   1  1984448  * 32

:SETVAR MI FINFO('MIITEM.QUEUE.NETBASE','EOF')
:SHOWVAR MI
MI = 1

:DO-2

ACCOUNT=  NETBASE     GROUP=  QUEUE

FILENAME  CODE  ------------LOGICAL RECORD-----------  ----SPACE----
                  SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

MIITEM  *        8187W  VBM      52855      31007   1  1984448  * 32

:DO-2
:SETVAR MI FINFO('MIITEM.QUEUE.NETBASE','EOF')
:SHOWVAR MI
MI = 1


Larry A. Barnes
Systems Administrator - HP3000
Coldwater Creek Inc.
Voice: 208 265-3927
Fax:   208 265-3203
Cell:  208 610-0127
E-mail page:
  mailto:[log in to unmask]
http://www.coldwatercreek.com

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