Pat Shugart wrote:

> Michael,
>
> You've pretty much got it nailed. But, you asked for our help,
> so........
>
> Let's make this a command file instead (easy to implement and test!)
>
> <TEXT SNIPPED>
>
> ------------------
> UDC
> ------------------
> search
> input searchstr;prompt="Enter search string "
> mpex.pub.vesoft
> print @.forms.myacct;search=caseless "searchstr";num
> print @.job.myacct;search=caseless "searchstr";num
> print @.prod.myacct;search=caseless "searchstr";num
> print @.pub.myacct;search=caseless "searchstr";num
> print @.source.myacct;search=caseless "searchstr";num
> ****
> ------------------
>
> GySgt Michael J. Riley
> [log in to unmask]

I did something like this at my last job, but I didn't have the pleasure
of using MPEX.


COMMENT--- THIS PROGRAM READS A FILE LIST (FLIST) AND
COMMENT--- DETERMINES IF IT IS A EDITOR FILE OR READABLE FILE
COMMENT--- AND PRINTS OUT THE FIRST 20 LINES OF TEXT. USED FOR
COMMENT--- DOCUMENTATION PURPOSES
COMMENT--- WRITTEN 01/21/91 by RICK CLARK
COMMENT---  first list files:  LISTF,6 > FLIST
COMMENT---  then run redirecting FLIST:  PFILE <FLIST
FILE T;DEV=110,4
SETVAR PRINTIT_EOF FINFO("FLIST",19)
SETVAR PRINTIT_CURR_REC_NO 0
WHILE PRINTIT_CURR_REC_NO < PRINTIT_EOF DO
 INPUT  PRINTIT_FILE_NAME
 SETVAR PRINTIT_REC_TYPE FINFO("!PRINTIT_FILE_NAME",-9)
 IF PRINTIT_REC_TYPE = 1052
    ECHO PRINTING !PRINTIT_FILE_NAME
    SETVAR PRINTIT_CURR_REC_NO !PRINTIT_CURR_REC_NO + 1
    PRINT !PRINTIT_FILE_NAME;OUT=*T;START=1;END=20
 ENDIF
ENDWHILE
EOD


Rick Clark                    GO TRIBE!!!!!!!
P/A for WW&R
Cleveland, Ohio