🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: bit.listserv.xedit-l
Article #796

Re: JOIN

#796
From: Otto Stolz
Date: Tue, 28 Apr 1992 10:40
26 lines
2112 bytes
On Mon, 27 Apr 1992 09:08:58 EST Jean-Luc RICHETIN said in XEDIT-L:
> when i use a join subcommand, when [...] this line is spilled [...]
> how it's possible that this new line start for example at column 10.

You can try to understand the JOIN XEDIT program (535 lines of REXX code)
and to modify it according to your needs. JOIN is invoked if you issue
the JOIN command; it is also called from SPLTJOIN XEDIT (which, in turn,
is normally assigned to the PF11 key).

JOIN XEDIT takes any alignment of the following line into account when
the ALIGN option is specified; it should be possible to learn from this
part of the code how to align the spilled line.

JOIN XEDIT uses the CREPLACE command to do the actual joining; CREPLACE
returns RC=3 when a spill has occurred. The problem is that there are
three CRPLACE commands in JOIN XEDIT, and you probaly will have to
understand all of the 535 lines to decide where to mend it, and how.
My bets are, that you will have to mend the JOINSUB subroutine around
line 257, but I have not the time to look into JOIN XEDIT, thoroughly.

(All quoted line numbers refer to VM/HPO Rel. 5 with APARs VM26530,
VM29638, VM31533, VM33225, and VM38151 applied; your mileage may vary.)

Happy hacking,
                    Otto Stolz <RZOTTO@DKNKURZ1.Bitnet>
                               <RZOTTO@nyx.uni-konstanz.de>
Technical Details
Message-ID: <XEDIT-L%92042807243461@OHSTVMA.IRCC.OHIO-STATE.EDU>
Path: arc1-ca.pugleaf.net!sparky!uunet!paladin.american.edu!auvm!DKNKURZ1.BITNET!RZOTTO

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10c92b,aab8a96e39bbf45a
X-Google-Attributes: gid10c92b,public
X-Google-ArrivalTime: 1992-04-28 03:40:09 PST
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Path: arc1-ca.pugleaf.net!sparky!uunet!paladin.american.edu!auvm!DKNKURZ1.BITNET!RZOTTO
X-Acknowledge-To: <RZOTTO@DKNKURZ1>
Message-ID: <XEDIT-L%92042807243461@OHSTVMA.IRCC.OHIO-STATE.EDU>
Newsgroups: bit.listserv.xedit-l
Date:         Tue, 28 Apr 1992 12:40:09 +0200
Sender:       VM System Editor List <XEDIT-L@UGA.BITNET>
From:         Otto Stolz <RZOTTO@DKNKURZ1.BITNET>
Subject:      Re: JOIN
Comments: To: Jean-Luc RICHETIN <RICHETIN@FRNSAE11.BITNET>
In-Reply-To:  Your message of Mon, 27 Apr 1992 09:08:58 EST
Lines: 26