Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!cbatt!ucbvax!psuvaxg.BITNET!przemek
From: przemek@psuvaxg.BITNET.UUCP
Newsgroups: mod.computers.vax
Subject: reassignment in VMS
Message-ID: <8702031053.AA07822@jade.berkeley.edu>
Date: Tue, 3-Feb-87 05:48:22 EST
Article-I.D.: jade.8702031053.AA07822
Posted: Tue Feb  3 05:48:22 1987
Date-Received: Wed, 4-Feb-87 02:31:23 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 23
Approved: info-vax@sri-kl.arpa



My (FORTRAN) program  writes graphics to the tektronics terminal.
It does so by assigning a channel to something and QIOW to this channel:

        int2 = sys$assign('ugdevice',ddacn,,)           ! hook for file output
        if(.not. int2) int2 = sys$assign('tt',ddacn,,)  ! if not file, terminal
.........
        sys$qiow(,%val(ddacn),.....)

Now, when I 'assign a.a ugdevice', it bypasses first sys$assign (int2 is appa-
rently non-zero, second assign takes place, with the effect that output goes
to the terminal (tt)). If I 'assign dua0:[pzk]a.a ugdevice', the ddacn channel
is assigned to (probably) dua0:[pzk]a.a , but now the sys$qiow returns non-zero
status.
Could anybody explain this to me?
My goal is to redirect the output of the program to the file.
I am relatively new to VMS, so please don't say it should be obvious :^)



                                przemek@psuvaxg.bitnet
                                psuvax1!gondor!przemek