I figured it out, had to do with the DELIMITED BY SIZE issue - the old buffer was
overwriting the whole new one, thus nothing was ever being stored.
I added a delimiter literal and it works now, code looks like this if interested (||||) is
the delimiter:
GetPayload.
MOVE "||||" TO Payload.
Move " " TO EditLine.
PERFORM UNTIL EditLine = "."
DISPLAY "> " WITH NO ADVANCING
ACCEPT EditLine
MOVE Payload TO PreviousPayload
STRING PreviousPayload DELIMITED BY "||||"
CRLF DELIMITED BY SIZE
EditLine DELIMITED BY SIZE
"||||" DELIMITED BY SIZE
INTO NewPayload
END-STRING
MOVE NewPayload TO Payload
END-PERFORM.
DISPLAY "<EOT>".
On 12 Sep 2012, at 16:35, Dennis Boone wrote:
Nothing seems to happen, however.
I assume you don't mean that literally.
De
Show replies by date