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 *
|