On 11 Jul 2020 08:52:59 -0700, in bit.listserv.ibm-main
(Message-ID:<3911683753066856.wa.paulgboulderaim....@listserv.ua.edu>)
0000000433f07816-dmarc-requ...@listserv.ua.edu (Paul
Gilmartin) wrote:
/* Not making a non-continued line a special case,
I'd simplify the loop to: */
signal on novalue /* Always! */
data = ''
do i = 1 to in.0
parse value in.i with l 72 c 73 .
data = data''l
if c = ' ' then do
say data
data = ''
end
end i
if c = ' ' then exit 0
say data
exit 4 /* ended with a continuation */
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN