[Info-vax] Command Procedure Pipe output to a variable

[Arne Vajhøj]

On 9/2/2021 11:36 AM, HCorte wrote:
> Thanks thats whant I needed, gona use LIB$SPAWN to run my command procedure and after get the symbol use LIB$GET_SYMBOL as suggested.

I think you will need logical!

$ type tf1.com
$ z == "ABC"
$ exit
$ type tf1.for
       program tf1
       character*256 s
       integer*4 slen
       call lib$spawn('@tf1')
       call lib$get_symbol('z', s, slen)
       write(*,*) s(1:slen)
       end
$ for tf1
$ link tf1
$ run tf1
$ z == "ABC"
$ exit

$ type tf2.com
$ def/nolog/job z "ABC"
$ exit
$ type tf2.for
       program tf2
       character*256 s
       integer*4 slen
       call lib$spawn('@tf2')
       call lib$get_logical('Z', s, slen)
       write(*,*) s(1:slen)
       end
$ for tf2
$ link tf2
$ run tf2
$ def/nolog/job z "ABC"
$ exit
ABC

Arne