[HECnet] Slightly OT - How to concatenate multi line strings in DEC COBOL

[Sampsa Laine]

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