HECnet

hecnet@lists.dfupdate.se

15556 discussions

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

by sampsa＠mac.com

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

12 years, 8 months

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

by sampsa＠mac.com

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

12 years, 8 months

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

by Paul_Koning＠Dell.com

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

12 years, 8 months

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

by sampsa＠mac.com

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

12 years, 8 months

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

by sampsa＠mac.com

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

12 years, 8 months

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

by drb＠msu.edu

Nothing seems to happen, however. I assume you don't mean that literally. De

12 years, 8 months

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

by sampsa＠mac.com

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

12 years, 8 months

Beta User Mode DECnet Router Available For Testing

by robert.jarratt＠ntlworld.com

OK, there are two new changesets. One to fix the missing update and one to fix the warnings on format strings. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner-hecnet at Update.UU.SE] On Behalf Of Mark Wickens Sent: 09 September 2012 08:13 To: hecnet at Update.UU.SE; mark at wickensonline.co.uk Subject: Re: [HECnet] Beta User Mode DECnet Router Available For Testing Rob, I had a go compiling version 15891 <https://route20.codeplex.com/SourceControl/changeset/15891> of the source code under Ubuntu 12.04. I downloaded and built version 1.3.0 of libpcap. I got the following compiler error. Are there some changes you need to commit to the repository? Regards, Mark. <https://route20.codeplex.com/SourceControl/changeset/15891>msw at x60: ~/Downloads/Main/Route20$ OS_CCDEFS="-I/usr/local/include" OS_LDFLAGS="-L/usr/local/lib" make cc - I . -I/usr/local/include adjacency.c area_forwarding_database.c area_routing_database.c circuit.c decision.c decnet.c dns.c eth_circuit.c eth_decnet.c eth_init_layer.c eth_pcap.c eth_sock.c forwarding.c forwarding_database.c init_layer.c linux.c messages.c node.c packet.c route20.c routing_database.c socket.c timer.c update.c -o route20 - L/usr/local/lib -lpcap circuit.c: In function 'CircuitCreateEthernetPcap': circuit.c:65:9: error: 'struct circuit' has no member named 'nextLevel1Node' circuit.c: In function 'CircuitCreateEthernetSocket': circuit.c:84:9: error: 'struct circuit' has no member named 'nextLevel1Node' decision.c: In function 'DumpHeading': decision.c:214:2: warning: format not a string literal and no format arguments [-Wformat-security] decision.c:222:2: warning: format not a string literal and no format arguments [-Wformat-security] decision.c:230:2: warning: format not a string literal and no format arguments [-Wformat-security] linux.c: In function 'Log': linux.c:157:6: warning: format not a string literal and no format arguments [-Wformat-security] update.c: In function 'ProcessCircuitLevel1Update': update.c:82:25: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:86:53: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:89:50: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:100:10: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:100:37: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:102:16: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:105:9: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:105:36: error: 'circuit_t' has no member named 'nextLevel1Node' make: *** [route20] Error 1 On 09/09/12 00:07, Rob Jarratt wrote: The source code has been updated on CodePlex to fix both issues. It now generates level 1 routing messages, so will work correctly if you have level 1 routers in your area. It also handles unreachable nodes in its own area correctly now. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Rob Jarratt Sent: 08 September 2012 16:43 To: hecnet at Update.UU.SE Subject: RE: [HECnet] Beta User Mode DECnet Router Available For Testing I have already realised that there is at least one deficiency. If you have any Level 1 routers in your area then it isn't going to work properly because it doesn't send out Level 1 Routing messages (but it does process the ones it receives). I have also had a report that when nodes in my area are not reachable, you get a timeout instead of an "unreachable" error. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Rob Jarratt Sent: 08 September 2012 14:12 To: hecnet at Update.UU.SE Subject: RE: [HECnet] Beta User Mode DECnet Router Available For Testing If you want to try routing directly to me, my config is jarratt.dyndns.org:4711. I will need to know your details for the link to work. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Brian Hechinger Sent: 08 September 2012 12:35 To: hecnet at Update.UU.SE Subject: Re: [HECnet] Beta User Mode DECnet Router Available For Testing Excellent! I'll download and play when I have some free time!! -brian On Sep 8, 2012, at 4:04, "Rob Jarratt" <robert.jarratt at ntlworld.com> wrote: I have published everything up on CodePlex now. Here is the link: https://route20.codeplex.com/ Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Brian Hechinger Sent: 08 September 2012 00:38 To: hecnet at Update.UU.SE Subject: Re: [HECnet] Beta User Mode DECnet Router Available For Testing Ok, but where do we find the source? :) -brian On 9/7/2012 6:36 PM, Rob Jarratt wrote: I am ready for a couple of people to try out the user mode DECnet router I have been writing. Is anyone interested in trying it out? You will need to be able to compile C code and have pcap or winpcap installed. Here is an extract from the README: User Mode DECnet Router Readme ============================== This program is a DECnet router that implements version 2.0 of the DECnet routing specification found here: http://linux-decnet.sourceforge.net/docs/route20.txt Features -------- 1. Runs on Windows either as a Windows Service, or as a console program. 2. Runs on Linux as a daemon. 3. Full routing capability, so it avoids broadcasting all routing messages to entire network and kills looping packets. 4. Supports Ethernet (using pcap/winpcap). 5. Supports Johnny's bridge. 6. Can be extended to support other kinds of circuit (Cisco and Multinet might be examples, not tried). 7. Does dynamic DNS updates without blocking. Limitations ----------- 1. Only tested on Windows Server 2003 and Raspberry Pi running Debian. 2. Does not support Phase III nodes. 3. Although it can be configured as a Level 1 node, Level 1 is not fully supported. It has only been tested as a Level 2 (area router) node. 4. Limited testing on Raspberry Pi. 5. Performance not tested. 6. Not tested with multiple ethernets. 7. Limited testing with multiple bridges. Regards Rob -- http://www.wickensonline.co.uk http://declegacy.org.uk http://retrochallenge.net https://twitter.com/#!/%40urbancamo

12 years, 8 months

Beta User Mode DECnet Router Available For Testing

by robert.jarratt＠ntlworld.com

You are right, there seem to be some changes missing in the repository. Let me check and sort it out. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner-hecnet at Update.UU.SE] On Behalf Of Mark Wickens Sent: 09 September 2012 08:13 To: hecnet at Update.UU.SE; mark at wickensonline.co.uk Subject: Re: [HECnet] Beta User Mode DECnet Router Available For Testing Rob, I had a go compiling version 15891 <https://route20.codeplex.com/SourceControl/changeset/15891> of the source code under Ubuntu 12.04. I downloaded and built version 1.3.0 of libpcap. I got the following compiler error. Are there some changes you need to commit to the repository? Regards, Mark. <https://route20.codeplex.com/SourceControl/changeset/15891>msw at x60: ~/Downloads/Main/Route20$ OS_CCDEFS="-I/usr/local/include" OS_LDFLAGS="-L/usr/local/lib" make cc - I . -I/usr/local/include adjacency.c area_forwarding_database.c area_routing_database.c circuit.c decision.c decnet.c dns.c eth_circuit.c eth_decnet.c eth_init_layer.c eth_pcap.c eth_sock.c forwarding.c forwarding_database.c init_layer.c linux.c messages.c node.c packet.c route20.c routing_database.c socket.c timer.c update.c -o route20 - L/usr/local/lib -lpcap circuit.c: In function 'CircuitCreateEthernetPcap': circuit.c:65:9: error: 'struct circuit' has no member named 'nextLevel1Node' circuit.c: In function 'CircuitCreateEthernetSocket': circuit.c:84:9: error: 'struct circuit' has no member named 'nextLevel1Node' decision.c: In function 'DumpHeading': decision.c:214:2: warning: format not a string literal and no format arguments [-Wformat-security] decision.c:222:2: warning: format not a string literal and no format arguments [-Wformat-security] decision.c:230:2: warning: format not a string literal and no format arguments [-Wformat-security] linux.c: In function 'Log': linux.c:157:6: warning: format not a string literal and no format arguments [-Wformat-security] update.c: In function 'ProcessCircuitLevel1Update': update.c:82:25: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:86:53: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:89:50: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:100:10: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:100:37: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:102:16: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:105:9: error: 'circuit_t' has no member named 'nextLevel1Node' update.c:105:36: error: 'circuit_t' has no member named 'nextLevel1Node' make: *** [route20] Error 1 On 09/09/12 00:07, Rob Jarratt wrote: The source code has been updated on CodePlex to fix both issues. It now generates level 1 routing messages, so will work correctly if you have level 1 routers in your area. It also handles unreachable nodes in its own area correctly now. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Rob Jarratt Sent: 08 September 2012 16:43 To: hecnet at Update.UU.SE Subject: RE: [HECnet] Beta User Mode DECnet Router Available For Testing I have already realised that there is at least one deficiency. If you have any Level 1 routers in your area then it isn't going to work properly because it doesn't send out Level 1 Routing messages (but it does process the ones it receives). I have also had a report that when nodes in my area are not reachable, you get a timeout instead of an "unreachable" error. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Rob Jarratt Sent: 08 September 2012 14:12 To: hecnet at Update.UU.SE Subject: RE: [HECnet] Beta User Mode DECnet Router Available For Testing If you want to try routing directly to me, my config is jarratt.dyndns.org:4711. I will need to know your details for the link to work. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Brian Hechinger Sent: 08 September 2012 12:35 To: hecnet at Update.UU.SE Subject: Re: [HECnet] Beta User Mode DECnet Router Available For Testing Excellent! I'll download and play when I have some free time!! -brian On Sep 8, 2012, at 4:04, "Rob Jarratt" <robert.jarratt at ntlworld.com> wrote: I have published everything up on CodePlex now. Here is the link: https://route20.codeplex.com/ Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Brian Hechinger Sent: 08 September 2012 00:38 To: hecnet at Update.UU.SE Subject: Re: [HECnet] Beta User Mode DECnet Router Available For Testing Ok, but where do we find the source? :) -brian On 9/7/2012 6:36 PM, Rob Jarratt wrote: I am ready for a couple of people to try out the user mode DECnet router I have been writing. Is anyone interested in trying it out? You will need to be able to compile C code and have pcap or winpcap installed. Here is an extract from the README: User Mode DECnet Router Readme ============================== This program is a DECnet router that implements version 2.0 of the DECnet routing specification found here: http://linux-decnet.sourceforge.net/docs/route20.txt Features -------- 1. Runs on Windows either as a Windows Service, or as a console program. 2. Runs on Linux as a daemon. 3. Full routing capability, so it avoids broadcasting all routing messages to entire network and kills looping packets. 4. Supports Ethernet (using pcap/winpcap). 5. Supports Johnny's bridge. 6. Can be extended to support other kinds of circuit (Cisco and Multinet might be examples, not tried). 7. Does dynamic DNS updates without blocking. Limitations ----------- 1. Only tested on Windows Server 2003 and Raspberry Pi running Debian. 2. Does not support Phase III nodes. 3. Although it can be configured as a Level 1 node, Level 1 is not fully supported. It has only been tested as a Level 2 (area router) node. 4. Limited testing on Raspberry Pi. 5. Performance not tested. 6. Not tested with multiple ethernets. 7. Limited testing with multiple bridges. Regards Rob -- http://www.wickensonline.co.uk http://declegacy.org.uk http://retrochallenge.net https://twitter.com/#!/%40urbancamo

12 years, 8 months

Beta User Mode DECnet Router Available For Testing

by mark＠wickensonline.co.uk

Rob, I had a go compiling version 15891 <https://route20.codeplex.com/SourceControl/changeset/15891> of the source code under Ubuntu 12.04. I downloaded and built version 1.3.0 of libpcap. I got the following compiler error. Are there some changes you need to commit to the repository? Regards, Mark. <https://route20.codeplex.com/SourceControl/changeset/15891>msw at x60:~/Downloads/Main/Route20$ OS_CCDEFS="-I/usr/local/include" OS_LDFLAGS="-L/usr/local/lib" make cc -I . -I/usr/local/include adjacency.c area_forwarding_database.c area_routing_database.c circuit.c decision.c decnet.c dns.c eth_circuit.c eth_decnet.c eth_init_layer.c eth_pcap.c eth_sock.c forwarding.c forwarding_database.c init_layer.c linux.c messages.c node.c packet.c route20.c routing_database.c socket.c timer.c update.c -o route20 -L/usr/local/lib -lpcap circuit.c: In function CircuitCreateEthernetPcap : circuit.c:65:9: error: struct circuit has no member named nextLevel1Node circuit.c: In function CircuitCreateEthernetSocket : circuit.c:84:9: error: struct circuit has no member named nextLevel1Node decision.c: In function DumpHeading : decision.c:214:2: warning: format not a string literal and no format arguments [-Wformat-security] decision.c:222:2: warning: format not a string literal and no format arguments [-Wformat-security] decision.c:230:2: warning: format not a string literal and no format arguments [-Wformat-security] linux.c: In function Log : linux.c:157:6: warning: format not a string literal and no format arguments [-Wformat-security] update.c: In function ProcessCircuitLevel1Update : update.c:82:25: error: circuit_t has no member named nextLevel1Node update.c:86:53: error: circuit_t has no member named nextLevel1Node update.c:89:50: error: circuit_t has no member named nextLevel1Node update.c:100:10: error: circuit_t has no member named nextLevel1Node update.c:100:37: error: circuit_t has no member named nextLevel1Node update.c:102:16: error: circuit_t has no member named nextLevel1Node update.c:105:9: error: circuit_t has no member named nextLevel1Node update.c:105:36: error: circuit_t has no member named nextLevel1Node make: *** [route20] Error 1 On 09/09/12 00:07, Rob Jarratt wrote: The source code has been updated on CodePlex to fix both issues. It now generates level 1 routing messages, so will work correctly if you have level 1 routers in your area. It also handles unreachable nodes in its own area correctly now. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner-hecnet at Update.UU.SE] On Behalf Of Rob Jarratt Sent: 08 September 2012 16:43 To: hecnet at Update.UU.SE Subject: RE: [HECnet] Beta User Mode DECnet Router Available For Testing I have already realised that there is at least one deficiency. If you have any Level 1 routers in your area then it isn't going to work properly because it doesn't send out Level 1 Routing messages (but it does process the ones it receives). I have also had a report that when nodes in my area are not reachable, you get a timeout instead of an "unreachable" error. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Rob Jarratt Sent: 08 September 2012 14:12 To: hecnet at Update.UU.SE Subject: RE: [HECnet] Beta User Mode DECnet Router Available For Testing If you want to try routing directly to me, my config is jarratt.dyndns.org:4711. I will need to know your details for the link to work. Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Brian Hechinger Sent: 08 September 2012 12:35 To: hecnet at Update.UU.SE Subject: Re: [HECnet] Beta User Mode DECnet Router Available For Testing Excellent! I'll download and play when I have some free time!! -brian On Sep 8, 2012, at 4:04, "Rob Jarratt" <robert.jarratt at ntlworld.com> wrote: I have published everything up on CodePlex now. Here is the link: https://route20.codeplex.com/ Regards Rob -----Original Message----- From: owner-hecnet at Update.UU.SE [mailto:owner- hecnet at Update.UU.SE] On Behalf Of Brian Hechinger Sent: 08 September 2012 00:38 To: hecnet at Update.UU.SE Subject: Re: [HECnet] Beta User Mode DECnet Router Available For Testing Ok, but where do we find the source? :) -brian On 9/7/2012 6:36 PM, Rob Jarratt wrote: I am ready for a couple of people to try out the user mode DECnet router I have been writing. Is anyone interested in trying it out? You will need to be able to compile C code and have pcap or winpcap installed. Here is an extract from the README: User Mode DECnet Router Readme ============================== This program is a DECnet router that implements version 2.0 of the DECnet routing specification found here: http://linux-decnet.sourceforge.net/docs/route20.txt Features -------- 1. Runs on Windows either as a Windows Service, or as a console program. 2. Runs on Linux as a daemon. 3. Full routing capability, so it avoids broadcasting all routing messages to entire network and kills looping packets. 4. Supports Ethernet (using pcap/winpcap). 5. Supports Johnny's bridge. 6. Can be extended to support other kinds of circuit (Cisco and Multinet might be examples, not tried). 7. Does dynamic DNS updates without blocking. Limitations ----------- 1. Only tested on Windows Server 2003 and Raspberry Pi running Debian. 2. Does not support Phase III nodes. 3. Although it can be configured as a Level 1 node, Level 1 is not fully supported. It has only been tested as a Level 2 (area router) node. 4. Limited testing on Raspberry Pi. 5. Performance not tested. 6. Not tested with multiple ethernets. 7. Limited testing with multiple bridges. Regards Rob -- http://www.wickensonline.co.uk http://declegacy.org.uk http://retrochallenge.net https://twitter.com/#!/%40urbancamo

12 years, 8 months

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

HECnet