Once long ago someone wanted to be able to view reports on a
screen, and being to poor to buy a program to do that I cooked
up the following VESOFT menu.

Since I'm certain that some lines will wrap-around, I
double-spaced them all.  Just delete the blank lines.

I tried to keep it as generic as possible.  So the reason
I chose a 9 day select window is because our site saves all
SPOOL files lower than the OUTFENCE and all SPSAVED SPOOL
files for 9 days.  Then they are purged and saved off to
tape.

The blob next to the ECHO command is an ESCAPE character,
just put it back if it doesn't translate.  The escape
sequence is HP standard, so it works in MINISOFT and
REFLECTION also.

If someone does a control-y out of a screen print, they
are left in 132 column mode, hence choice #3.  It also
forces 80 columns when complete, hence choice #4.

Tracy M. Johnson
TRW Automotive Electronics
Sensors & Components

-------------------------------------------------

*start

comment ENTER YOUR OWN HEADER INFORMATION HERE.

*CAPTIONL ?TERMPOS(7,15)? !MENUOPTION. List daily reports for the ?HPACCOUNT? account.

PROMPT INTEGER dayn = "How many days old is the report (0 = Today; Max is 9)  :";DEFAULT="0"

PROMPT STRING  rep  = "Enter a specific report to look for or leave blank     :";DEFAULT="@"

PROMPT STRING  job  = "Enter a specific job name to look for or leave blank   :";DEFAULT=""

IF "?job?" = "" THEN

%  FILTER "SHOWOUT [log in to unmask](SPOOL.READYDATE=TODAY-?dayn?)", ;PAGE=21

ELSE

%  FILTER "SHOWOUT [log in to unmask](SPOOL.READYDATE=TODAY-?dayn? AND SPOOL.JSNAME MATCHES '?job?')", ;PAGE=21

ENDIF

PROMPT INTEGER spn  = "To view one of the above, enter it's number (or press Return to exit):";DEFAULT=0

IF "?spn?" <> "0" THEN

  ECHO &w6f132X

  FILE P=$STDLIST;REC=-134

%  PRINTO #O?spn?;OUT=*P;PAGE=21

  RESET P

  PROMPT STRING cr = "Press RETURN to continue."

  ECHO &w6f80X

ENDIF

*CAPTIONL ?TERMPOS(9,15)? !MENUOPTION. View a report found on previous menu.

PROMPT INTEGER spn  = "Enter a spool file number (can be found from previous menu):";DEFAULT=0

IF "?spn?" <> "0" THEN

  ECHO &w6f132X

  FILE P=$STDLIST;REC=-134

%  PRINTO #O?spn?;OUT=*P;PAGE=21

  RESET P

  PROMPT STRING cr = "Press RETURN to continue."

  ECHO &w6f80X

ENDIF

*CAPTIONL ?TERMPOS(11,15)? !MENUOPTION. Reset screen size to 80 columns.

ECHO &w6f80X

*CAPTIONL ?TERMPOS(13,15)? !MENUOPTION. Reset screen size to 132 columns.

ECHO &w6f132X

*header ?termpos(20,6)? You are logged on as #S?hpjobnum? ?hpjobname?,?hpuser?.?hpaccount?,
?hpgroup?