[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference bulova::decw_jan-89_to_nov-90

Title:DECWINDOWS 26-JAN-89 to 29-NOV-90
Notice:See 1639.0 for VMS V5.3 kit; 2043.0 for 5.4 IFT kit
Moderator:STAR::VATNE
Created:Mon Oct 30 1989
Last Modified:Mon Dec 31 1990
Last Successful Update:Fri Jun 06 1997
Number of topics:3726
Total number of notes:19516

382.0. "Messages to the Session Managers Window?" by LESLIE::LESLIE (Andy ��� Leslie, VMS CSSE Europe) Sat Mar 11 1989 02:13

    Probably been answered before, but...
    
    How can I write messages to the Session Managers Message Window? Is
    there an associated mailbox?
    
    thanks
    
    Andy
T.RTitleUserPersonal
Name		DateLines
382.1MU::PORTERwhat's in a name?Sat Mar 11 1989 13:4030
    
    It's a terminal window!
    
    Here's my code to enable OPCOM messages to the session manager's
    window.   Most of the work is concerned with locating the TWAn:
    device.  You should be able to modify this proc so that it creates
    a job-wide or system-wide logical name equated to 'tw', and then 
    your applications can open channels using the logical name.
    
    
$! Spawned from DECW$LOGIN.COM to set up the session 
$! manager window as an operator terminal
$
$loop:
$ tw = f$getjpi(f$getjpi(0,"owner"),"terminal")
$ if tw .eqs. "" 
$    then 
$ 	wait 00:00:10
$	goto loop
$    endif
$
$ wait 00:00:30	! it seems to take SM a while to be able to handle output
$
$ p = f$setprv("oper,security")                                    
$ assign/user 'tw' sys$command
$ reply/enable
$ q = f$setprv(p)
$
$ exit
382.2thanks...LESLIE::LESLIEAndy ��� Leslie, VMS CSSE EuropeSun Mar 12 1989 08:128
    I'm going to write  little program that writes the time to the dam
    thing.
    
    Because I'm sick of looking at messages and not knowing when they
    occurred!
    
    Yes it's in the wishlist note...
382.3VIA::DESAIJatin DesaiSun Mar 12 1989 21:2118
$!Here is some code to do the same. More expensive and needs share priv
$!but doesn't need a system logical.
$!
$find_sess:                                        
$ pid := 'f$pid(context)'
$ if "_''f$getjpi(pid,"imagname")'" .nes. -
     "''f$logical("sys$common")'[SYSEXE]DECW$SESSION.EXE" 
$    then if context .eq. 0 then exit  ! quit if can't find it
$         goto find_sess
$ endif
$!
$	set proc/priv=share
$	open/write sessmgr _'f$getjpi(pid,"terminal")'
$ 	write sessmgr "Time now: " f$time()
$	close sessmgr
$	set proc/priv=noshare
$!