HP3000-L Archives

July 1999, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: account size sampling
From:
Bob Comeau <[log in to unmask]>
Reply To:
Bob Comeau <[log in to unmask]>
Date:
Fri, 9 Jul 1999 12:48:07 -0300
Content-Type:
text/plain
Parts/Attachments:
text/plain (26 lines) 
An all MPE solution:

FILE SAVEUSE;CIR;REC=-80,1,F,ASCII;DISC=1,1,1
IF FINFO("SAVELOG","EXISTS") = FALSE THEN
 BUILD SAVELOG;REC=-40,,F,ASCII;DISC=10000
ENDIF
FILE SAVELOG=SAVELOG,OLD
COMMENT *** To terminate cleanly build a file called "DIENOW"
COMMENT *** in the appropriate group and account
WHILE FINFO("DIENOW","EXISTS") = FALSE DO
  DISKUSE /HPSPOOL >*SAVEUSE
  INPUT LASTLINE <SAVEUSE
  ECHO !HPDATEF !HPTIMEF ![STR(LASTLINE,1,10)]>>*SAVELOG
  PAUSE 60
ENDWHILE
PURGE DIENOW

Generates a file that looks like (can be accessed between iterations)
:print savelog
FRI, JUL  9, 1999 12:41 PM      20480
FRI, JUL  9, 1999 12:42 PM      20480
FRI, JUL  9, 1999 12:43 PM      20480
FRI, JUL  9, 1999 12:44 PM      20736
...
Bob (I'm done playing now) Comeau

ATOM RSS1 RSS2