12 Sep
2012
12 Sep
'12
3:29 p.m.
I'm trying to read multiple lines of input and concatenate them into one string,
separated by CRLF's.
This is the code I have:
GetPayload.
MOVE " " TO Payload.
Move " " TO EditLine.
PERFORM UNTIL EditLine = "."
DISPLAY "> " WITH NO ADVANCING
ACCEPT EditLine
STRING Payload DELIMITED BY SIZE
x"0a0d" DELIMITED BY SIZE
EditLine DELIMITED BY SIZE
INTO NewPayload
END-STRING
MOVE NewPayload TO Payload
END-PERFORM.
Nothing seems to happen, however. Any ideas?
Sampsa