topic Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal in Operating System - OpenVMS

How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Heinz W Genhart — Fri, 22 Jun 2007 06:49:16 GMT

Hi community

does somebody know how to do a

$ SET DISPLAY/CREATE/NODE= /TRANSPORT= /SERVER= /SCREEN=

in a language like C or Pascal ?

Regards

Geni

Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Steve-Thompson — Fri, 22 Jun 2007 07:26:50 GMT

Hi Heinz
It's Friday and I'm just out the door, but..

sys$examples ... [.decw] has a few C programs in it.

Any good?

Steven

Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Walter Miller_1 — Fri, 22 Jun 2007 07:46:28 GMT

A simple way is to use the C run-time function "system".

#include

int system (const char *string);

This passes the string to the host environment to be executed by the command processor.

Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Heinz W Genhart — Fri, 22 Jun 2007 07:58:20 GMT

Steve: There is no example for this

Walter: There is a possibility to the oposite (SHOW DISPLAY) with a QIO and a undocumented IO$_SENSEMODE | IO$M_WS_DISPLAY.

I Would prefere a solution with a qio or another system_service

Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Ian Miller. — Fri, 22 Jun 2007 08:09:19 GMT

have a look at create_decterm.c and .com in
http://h71000.www7.hp.com/freeware/freeware40/srh_examples/

Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Fekko Stubbe — Fri, 22 Jun 2007 09:01:40 GMT

I have some code that asks for the values (in fortran)
c
c the below values should be in $iodef
c but in fortran they are not there so
c I define them myself.
c
integer*4 decw$c_ws_dsp_node
parameter (decw$c_ws_dsp_node=1)
integer*4 decw$c_ws_dsp_transport
parameter (decw$c_ws_dsp_transport=2)
integer*4 decw$c_ws_dsp_server
parameter (decw$c_ws_dsp_server=3)
integer*4 decw$c_ws_dsp_screen
parameter (decw$c_ws_dsp_screen=4)
integer*4 io$m_ws_display
parameter (io$m_ws_display=64)
c
c First try the DECW$DISPLAY
c
istat= sys$assign('decw$display',chan,,,)
if(istat) then
c
c decw$display exists, so now get it
c THis code gets the value, but if you
c replace the sensmode with setmode, it
c should set it
c
opcode = io$_sensemode .or. io$m_ws_display
c
c Get transportname
c
istat = sys$qiow(%val(EFN$C_ENF),%val(chan),%val(opcode),iosb,,,
1 %ref(transportname),%val(len(transportname)),
1 %val(decw$c_ws_dsp_transport),,,)
if(istat) istat = iosb.wstatus
c
c I assume you can translate to c
c You need 4 qios to set all elements
c

Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Hoff — Fri, 22 Jun 2007 10:17:40 GMT

Allocate and open a channel to WSA0:, and toss an IO$_SETMODE [masked with whatever the WS arguments] at the WSAu: cloned device, and off you go.

If you're creating a process and seeking to have it use DECwindows to display output, you can pass in the WSAu: device into the created process. LOGINOUT looks at the I/O channels to decide what its target is; toss the WSAu: cloned device at all three arguments; input, output and error.

I'll post an article on this topic over at the new HoffmanLabs site later today.

Stephen Hoffman
HoffmanLabs LLC

Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Hoff — Fri, 22 Jun 2007 14:00:54 GMT

Article and C code (SENSEMODE, not SETMODE) posted to http://64.223.189.234/node/375

Re: How to do a SET DISPLAY/CREATE/NODE=/TRANSPORT=/SERVER=/SCREEN= in C or Pascal

Heinz W Genhart — Sun, 24 Jun 2007 08:10:58 GMT

Hi Fekko and Hoff

Thanks a lot. I will be able to solve the problem now by using SETMODE instead of sensemode. I wrote a hack to test it and it seems that this is working well.

Thanks

Geni