HP3000-L Archives

April 2009, 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:
Reply To:
Date:
Mon, 13 Apr 2009 10:06:23 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (75 lines)
Sounds like MPEX might be the best option, unless you want to write a 
small wrapper. In a similar situation I used the AIF routines to change 
logon to the DB Creator, for example:
COBOL:
 01  WS-LOGON-DESC                       VALUE SPACES.
     05  WS-LD-JOB-NAME      PIC  X(16).
     05  WS-LD-ACCT-NAME     PIC  X(16).
     05  WS-LD-ACCT-PASS     PIC  X(16).
     05  WS-LD-USER-NAME     PIC  X(16).
     05  WS-LD-USER-PASS     PIC  X(16).
     05  WS-LD-GROUP-NAME    PIC  X(16).
     05  WS-LD-GROUP-PASS    PIC  X(16).
 01  WS-ERR PIC S9(4) COMP VALUE 0.
 01  WS-ERR-MSG PIC X(80) VALUE SPACES.
*
* running as MANAGER.SYS, no passwords required
*
     INITIALIZE WS-LOGON-DESC WS-ERR WS-ERR-MSG.
     MOVE "J3KDIAG" TO WS-LD-JOB-NAME.
     MOVE "MANAGER" TO WS-LD-USER-NAME.
     MOVE "J3K"     TO WS-LD-ACCT-NAME.
     MOVE "PUB"     TO WS-LD-GROUP-NAME.
     CALL "CHGLOGON" USING WS-LOGON-DESC WS-ERR WS-ERR-MSG.
     IF WS-ERR <> 0
      DISPLAY "UNABLE TO CHANGE LOGON"
      DISPLAY WS-ERR-MSG
      CALL INTRINSIC "QUIT" USING \3\ END-CALL

<< At this point I think you can start DBUTIL as a child process with 
stdin pointing to your 'show db all exit' commands. >>



The CHGLOGON routine is written in PASCAL by Brian Donaldson, he sent a 
copy to me, I'm sure he would mind if I sent you a copy, Brian?. I can 
also send you an MPE 7.0 binary version in an XL file.


Walter J. Murray wrote:
> Greetings,
>
> I am looking for a way to permit ordinary users (programmers and support
> staff) to see who is using a TurboIMAGE database, and what locks are in
> effect and are pending--the information you would see with DBUTIL using
> SHOW ... USERS and SHOW ... LOCKS or SHOW ... ALL.
>
> I have to work within these constraints:  (1) Can't let them log on with
> SM capability.  (2) Can't let them log on as the database creator.  (3)
> Can't reveal the password on the MPEX GOD program.  (4) Can't reveal the
> password on DBUTIL.
>
> Any suggestions?  Any utility to do this?
>
> My best idea so far is to set up a command file that would use the MPEX
> %WITHCAPS command to grant SM capability temporarily, then run DBUTIL.
>
> Walter  
>
> Walter J. Murray
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>   


-- 
Michael Anderson,
J3k Solutions
Sr.Systems Programmer/Analyst
832.515.3868

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

ATOM RSS1 RSS2