On 11 Jul 2020 08:52:59 -0700, in bit.listserv.ibm-main
(Message-ID:<[email protected]>)
[email protected] (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 [email protected] with the message: INFO IBM-MAIN
