Path: news.eternal-september.org!eternal-september.org!feeder3.eternal-september.org!weretis.net!feeder8.news.weretis.net!usenet.goja.nl.eu.org!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail
Date: Sun, 1 Jun 2025 19:27:48 -0400
MIME-Version: 1.0
User-Agent: Mozilla Thunderbird
Subject: Re: Upcoming time boundary events
Newsgroups: comp.os.vms
References: <100fp4v$1nmtf$1@dont-email.me> <100omli$3t023$1@dont-email.me>
 <100qdop$6q13$1@dont-email.me> <100qg5t$3jb0$1@dont-email.me>
 <1014ad8$2jurh$1@dont-email.me> <m9pqvoFnrcsU1@mid.individual.net>
 <874ix3np14.fsf@atr2.ath.cx> <m9sc6fFnrcsU2@mid.individual.net>
 <mn.f24a7e95dd606c32.104627@invalid.skynet.be> <101cbrq$gbr1$2@dont-email.me>
 <mn.fad87e9512caa697.104627@invalid.skynet.be>
 <101ffbn$1b0s5$1@dont-email.me> <101flk5$12l3d$1@dont-email.me>
 <683b5cee$0$684$14726298@news.sunsite.dk>
Content-Language: en-US
From: =?UTF-8?Q?Arne_Vajh=C3=B8j?= <arne@vajhoej.dk>
In-Reply-To: <683b5cee$0$684$14726298@news.sunsite.dk>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Lines: 42
Message-ID: <683ce1f4$0$693$14726298@news.sunsite.dk>
Organization: SunSITE.dk - Supporting Open source
NNTP-Posting-Host: bec9020f.news.sunsite.dk
X-Trace: 1748820468 news.sunsite.dk 693 arne@vajhoej.dk/70.172.216.99:54976
X-Complaints-To: staff@sunsite.dk

On 5/31/2025 3:47 PM, Arne Vajhøj wrote:
> The context was:
> 
> ####                                                 and
> #### transparent task to task communication ?
> 
> ### and task to task->INETD.
> 
> So I assume that we are talking about how to rewrite
> something like:
> 
> $ open/read f 0::"task=something"
> $ read f line
> $ close f
> $ exit

Or to provide a complete example:

$ typ add.com
$ open/read/write f sys$net
$ read f num1
$ num1 = f$integer(num1)
$ read f num2
$ num2 = f$integer(num2)
$ numres = num1 + num2
$ numres = f$string(numres)
$ write f numres
$ close f
$ exit
$ typ tst.com
$ open/read/write f 0"myusername mypassword"::"task=add.com"
$ write f "123"
$ write f "456"
$ read f res
$ close f
$ write sys$output res
$ exit
$ @tst
579

Arne