IIRC there was no screen section support in VAX COBOL.
Perhaps this can be a good excuse to learn the SMG$ RTL routines...
Jordi Guillaumes i Pons
Barcelona - Catalunya - Europa
El 12/09/2012, a les 17:10, Sampsa Laine <sampsa at mac.com> va escriure:
Tried to compile my little program on GORVAX but it has problems with the SCREEN SECTION that works on the AXP version..
I'm thinking I must have an old compiler or something. Anyone know what the latest is?
Anyone have a kit?
Sampsa
Oleg Safiullin wrote:
Sampsa Laine wrote:
Turns out I got version COBOL057.
Is there something newer out there?
COBOL_Compiler_57.zip;1
You have latest one.
Turns out I got version COBOL057.
Is there something newer out there?
Sampsa
On 12 Sep 2012, at 18:10, Sampsa Laine wrote:
Tried to compile my little program on GORVAX but it has problems with the SCREEN SECTION that works on the AXP version..
I'm thinking I must have an old compiler or something. Anyone know what the latest is?
Anyone have a kit?
Sampsa
Tried to compile my little program on GORVAX but it has problems with the SCREEN SECTION that works on the AXP version..
I'm thinking I must have an old compiler or something. Anyone know what the latest is?
Anyone have a kit?
Sampsa
On Sep 12, 2012, at 9:57 AM, Sampsa Laine wrote:
By the way, the project I'm working on (just to practice my COBOL + DCL) is a little VMS-based conferencing / email system.
Try it by logging in as CBLBRD on CHIMPY. The username / password for the board is hecnet / test.
Sampsa
I'm trying to remember if DEC ever put out interesting applications that were written in Cobol. I'm not sure. I do remember a friend of mine who wrote an expression parser (RPN generator) in Cobol. Or maybe RPG? I'm not sure that's possible.
I do remember that the first release of VAX Notes was written in PL/I and started out as an exercise in learning PL/I for the author (Len Kawell).
paul
By the way, the project I'm working on (just to practice my COBOL + DCL) is a little VMS-based conferencing / email system.
Try it by logging in as CBLBRD on CHIMPY. The username / password for the board is hecnet / test.
Sampsa
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
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