Binyamin Dissen wrote:
>I am referring to the function where you type C on a line that has the
overlay
>data and then OO/OO on the group of lines that you wish to overlay. The
only
>dependence on the data on the OO lines is that it will not replace a
>non-blank.
I've used XEDIT since it was released, KEDIT equally, and neither has this
direct analog. I have also never actually *WANTED* it, which is not to
dismiss your requirement-just to note that it may not be that common.
In any case, as Shmuel writes, a user macro would do it.
XCOL might also; that's a toolkit I know I used about 1% of.
So you want this (b = blank):
Origin line: XXXbbXXX
Target line: YbYYbYbY
and the result is:
YXYYbYXY
?
If so, try the following, not extensively tested, only overlays a single
line (could be made to handle block overlays):
/*
PREFIXO
K -- Kopy prefix subcommand
O -- Overlay prefix subcommand
Designed to be used with:
COMMAND SET PREFIX SYNONYM K PREFIXO
COMMAND SET PREFIX SYNONYM O PREFIXO
*/
arg p f l rest
if f = 'CLEAR' | p <> 'PREFIX' then exit
parse source . . . . . pcmd .
if index('KO', pcmd) = 0 then signal EXIT
'EXTRACT /LINE/'
'COMMAND LOCATE :'l
'EXTRACT /CURLINE/'
if pcmd = 'K' then signal Kopy
address command 'GLOBALV SELECT PREFIXO GET KOPY KOPIED'
if kopied <> 1 then signal NotKopied
'COMMAND OVERLAY' kopy
signal EXIT
Kopy:
kopy = curline.3
kopied = 1
address command 'GLOBALV SELECT PREFIXO PUT KOPY KOPIED'
signal EXIT
NotKopied:
'COMMAND EMSG No Kopied line'
rc = 5
Exit:
if rc = 0 | rc = 1 then exit
'COMMAND SET PENDING ERROR' pcmd rest
exit
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
