Mike Walter wrote:
> | IF SUBSTR 1.2 of W1 == /++/ & SUBSTR 1.2 OF NEXTLINE \== /++/ THEN JOIN
> 1' ,
JOINCONT does that trick:
... | joincont not leading "++" | ...
and that's how I handle the MCSs once they're by themselves, but it's no
good when each MCS is followed by a text deck or whatever. You have to
find the dot at the end of the MCS to know where it ends.
I guess I'll wind up with a sipping stage that uses FRLABEL to skip to
the start of each MCS, then makes two copies of the records, chopping
quotes and comments out of one copy and then looking for the dot, and
using GATE to pass on the same records from the other copy:
callpipe (end /) *: | data: frlabel ++ | dup: not fanout
| somethingorother | pick substr -1 of w-1 == "."
| last: fanout | stop: gate
/
dup: | stop: | *:
<-- MCS out here
/ last: | take 1 | hole <-- eat the last record
/ data: | *..1: <-- element data out here
Since it's for IBM internal use, I guess PATTERN can handle the quotes
and comments (though my old COMMENT PATTERN doesn't quite fit the bill).
¬R
