Tom,

How about setting up a Operator menu using a combination of IPUT
commands and Vesoft with the commands that you want to give them access
to? We do this for printing functions for certain users....


*HEADER {termpos(0,0)}{termclear()}
*HEADER {termpos (2,7)}  ********************************************
*HEADER {termpos (2,38)}*******************
*HEADER {termpos (3,26)} OPERATOR FUNCTIONS
*HEADER {termpos (4,7)}  ********************************************
*HEADER {termpos (4,38)}*******************
*HEADER
*START
    setvar spldev "@"
*CAPTIONL {termpos (7,10)} !MENUOPTION. LIST ALL REPORT FILES
    cls
    spoolf @;seleq=[dev=LPDET];show
    echo
    input NXTPAGE;PROMPT="PRESS RETURN FOR REPORT MENU"
*CAPTIONL {termpos (8,10)} !MENUOPTION. LIST ALL RUNNING JOBS
    cls
    showjob job=@j
    echo
    input NXTPAGE;PROMPT="PRESS RETURN FOR REPORT MENU"
*CAPTIONL {termpos (9,10)} !MENUOPTION. DELETE REPORT FILE
    echo {termpos(0,0)}{termclear()}
    echo {termpos (2,8)} ********************************************
    echo {termpos (2,38)}*******************
    echo {termpos (3,26)} DELETE REPORT FILES
    echo {termpos (4,8)} ********************************************
    echo {termpos (4,38)}*******************
    spoolf @;seleq=[[log in to unmask] and dev=!spldev];show
    echo
       input SPOOLNBR;PROMPT="Enter spool id number to delete #O"
       deletespoolfile #O!SPOOLNBR
*CAPTIONL {termpos (10,10)} !MENUOPTION. ALTER REPORT PRINTER
    echo {termpos(0,0)}{termclear()}
    echo {termpos (2,8)} ********************************************
    echo {termpos (2,38)}*******************
    echo {termpos (3,26)} ALTER REPORT PRINTER
    echo {termpos (4,8)} ********************************************
    echo {termpos (4,38)}*******************
    spoolf @;seleq=[[log in to unmask] and dev=!spldev];show
    echo
    input SPOOLNBR;PROMPT="Enter spool id number to alter  #O"
    input DEVNBR;PROMPT="Enter new printer number Printer="
    altspoolfile #O!SPOOLNBR;dev=!DEVNBR
*CAPTIONL {termpos (11,10)} !MENUOPTION. ALTER REPORT OUTPUT PRIORITY
    echo {termpos(0,0)}{termclear()}
    echo {termpos (2,8)} ********************************************
    echo {termpos (2,38)}*******************
    echo {termpos (3,26)} ALTER REPORT OUTPUT PRIORITY
    echo {termpos (4,8)} ********************************************
    echo {termpos (4,38)}*******************
    spoolf @;seleq=[[log in to unmask] and dev=!spldev];show
    echo
    input SPOOLNBR;PROMPT="Enter spool id number to alter  #O"
    input PRINBR;PROMPT="Enter new output priority PRI="
    altspoolfile #O!SPOOLNBR;pri=!PRINBR
*CAPTIONL {termpos (12,10)} !MENUOPTION. ALTER REPORT COPIES
    echo {termpos(0,0)}{termclear()}
    echo {termpos (2,8)} ********************************************
    echo {termpos (2,38)}*******************
    echo {termpos (3,26)} ALTER REPORT COPIES
    echo {termpos (4,8)} ********************************************
    echo {termpos (4,38)}*******************
    spoolf @;seleq=[[log in to unmask] and dev=!spldev];show
    echo
    input SPOOLNBR;PROMPT="Enter spool id number to alter  #O"
    input COPNBR;PROMPT="Enter new number of copies  ="
    altspoolfile #O!SPOOLNBR;copies=!COPNBR
*CAPTIONL {termpos (13,10)} !MENUOPTION. SUSPEND SPOOLER
    echo {termpos(0,0)}{termclear()}
    echo {termpos (2,8)} ********************************************
    echo {termpos (2,38)}*******************
    echo {termpos (3,26)} SUSPEND SPOOLER
    echo {termpos (4,8)} ********************************************
    echo {termpos (4,38)}*******************
    echo
    input SPOOLNBR;PROMPT="Enter device number to suspend"
    spooler dev=!spoolnbr;suspend;nokeep;offset=1
*CAPTIONL {termpos (14,10)} !MENUOPTION. RESUME SPOOLER
    echo {termpos(0,0)}{termclear()}
    echo {termpos (2,8)} ********************************************
    echo {termpos (2,38)}*******************
    echo {termpos (3,26)} RESUME SPOOLER
    echo {termpos (4,8)} ********************************************
    echo {termpos (4,38)}*******************
    echo
    input SPOOLNBR;PROMPT="Enter device number to resume "
    spooler dev=!spoolnbr;resume
*CAPTIONL {termpos (15,10)} !MENUOPTION. PRINT REPORT TO SCREEN
    echo {termpos(0,0)}{termclear()}
    echo {termpos (2,8)} ********************************************
    echo {termpos (2,38)}*******************
    echo {termpos (3,26)} PRINT REPORT TO SCREEN
    echo {termpos (4,8)} ********************************************
(93/142) Continue?
    echo {termpos (4,38)}*******************
    echo
    spoolf @;seleq=[[log in to unmask] and dev=!spldev];show
    input SPOOLNBR;PROMPT="Enter spool id number to view #O "
    PR !spoolnbr
    input DUMMY;PROMPT="Press enter to return to menu"
*CAPTIONL {termpos (16,10)} !MENUOPTION. CHANGE DEVICE
    echo {termpos(0,0)}{termclear()}
    echo {termpos (2,8)} ********************************************
    echo {termpos (2,38)}*******************
    echo {termpos (3,26)} CHANGE CURRENT DEVICE - (DEFAULT IS ALL)
    echo {termpos (4,8)} ********************************************
    echo {termpos (4,38)}*******************
    echo
    echo Current device is !spldev
    input spldev;PROMPT="Enter new device number (@ = all) "
    input DUMMY;PROMPT=New device number is  !spldev
*CAPTIONL {termpos (17,10)} !MENUOPTION. SPS COMMAND
    setvar do_cmd "q"
    while do_cmd <> "E"
       SPS ?
       INPUT do_cmd;PROMPT="Enter SPS command "
       XEQ SPS !do_cmd
       INPUT do_cmd;PROMPT="Press ENTER to continue"
    endwhile
*CAPTIONL {termpos (18,10)} !MENUOPTION. COND/UNCOND PRINTER
    input cond_printer;PROMPT="Enter printer device number "
    input cond_uncond;PROMPT="Enter 'C' to cond, 'U' to uncond "
    if cond_uncond = "C" then
       cond !cond_printer
    else
       uncond !cond_printer
    endif
    echo {termpos (2,8)} ********************************************



Rick Clark
Senior Analyst
WW&R
Cleveland, Ohio


Tom Hula wrote:
>
> Our shop basically doesn't have an operator, per se.  Everyone goes in
> and out of the computer room to get reports, print forms.  Occasionally,
> I have a problem with the nightly backup where the tape drive burps and
> won't load a tape properly or perhaps someone will accidentally unload
> the backup tape or (most rarely) the person loading the tape may have
> the read/write tab set the wrong way.  The net affect is that people
> begin to arrive in the morning and they can log on but they can't do
> anything because store has all the files locked up waiting for a tape.
>
> Now, this would not be a huge problem if they would just call me
> immediately to have me take care of the problem.  Unfortunately, a
> few of them know just enough MPE to get them into trouble, like the
> LIMIT command, for instance.  Their attempts to "fix" the problem
> just end up creating more problems for me.  And anyway, I don't want
> end user type people taking it upon themselves to fool around with
> system parameters like that.
>
> Now, most people can't even get to the MPE prompt, since I use
> Vesoft security and menus.  The problem is really the operator
> console.  They need access to it to print forms, so I would like
> to limit access to certain commands that I know are a problem.
>
> I know I could set up a system-wide udc command to dummy out the
> commands I want to limit access to.  It seems like there was then a
> simple way to get around this so I can have access but I don't recall
> what it was.  Could someone please remind me?
>         Tom Hula
>         Victor S. Barnes Company