HP3000-L Archives

September 2004, 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:
From:
"Emerson, Tom" <[log in to unmask]>
Reply To:
Emerson, Tom
Date:
Thu, 9 Sep 2004 10:59:49 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (35 lines)
> -----Original Message-----
> Behalf Of Mike Hornsby
> 
>  >Since fixing the problem with the program would require 
> >work, [...] This program produces thousands
> >of lines of messages, so redirecting the output into a temp 
> file is not a favored solution.
> 
> You could try using a using a circular file to limit the size 

while this does limit the size, it always runs the risk that any "unwanted" [unexpected] output could push the "interesting bits" off the top of the file.

Normally, I'd suggest MPEX's ;SEARCH= parameter to the %PRINT command, but I believe it was stated that MPEX is not available.

In that case, you DO have "the shell" :)  which includes a good-old standby "grep".

If you don't want to go through the hassle of starting up the entire shell for what may only be one or two useful lines of data, you can run it directly from the MPE side like this:

988/COREDEV/TEMPTE:run grep.hpbin.sys;info="DB-PARM";stdin=BUGGER.SOURCE

008600     MOVE  "010000010000"  TO DB-PARM.
009100     MOVE  "020000010000"  TO DB-PARM.
009600     MOVE  "030000010000"  TO DB-PARM.
011000     MOVE  "010000020000"  TO DB-PARM.
011500     MOVE  "020000020000"  TO DB-PARM.
012000     MOVE  "030000020000"  TO DB-PARM.

END OF PROGRAM
988/COREDEV/TEMPTE:

you could redirect this to yet another file for further analisys, or you could test the variable CJCW for a value of 0 or 1 -- 0 indicates one or more lines were found [success], 1 means no lines found [failure].

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

ATOM RSS1 RSS2