Hello Joe,

Am 10.07.2020 um 12:29 schrieb Joe Monk <joemonk64@...>:

Great! How would you like to send me the $100.00 you owe me for the domain renewal charges?

The renewal doesn't work, apparently. The domain itself isn't enough: There has to be a DNS hosting the zone, and a web server hosting the content.

If you want, I can provide a primary and secondary DNS for the zone, pointing to my site, for free. So, the money isn't wasted.

Contact me privately if you want to go that way.

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

Hi,

I have released version 1, release 8.3 of RPF.
Most of the changes are the interfaces of RPF with LIBRARIAN and Panvalet.
The major change is a new interface with Rick Fochtman's? ARCHIVER.
Now you have the possibility to Archive members and/or data sets in a single VSAM archive.

You need to install ARCHIVER. I have made some little enhancements in Archiver.
You need this version. This version of ARCHIVER can be found on the Updates page of
cbttape.org, file 147.

You can find RPF on

Cheers,
Rob

Hello,

Am 09.07.2020 um 13:55 schrieb Patrik Schindler <poc@...>:

I was reaching out by telephone to Volker Bandke today, to ask for permission but could not reach him (answering machine). I assume he's okay with me preserving the knowlede and content he created.

Just for the record: My assumption was correct. He called back just now and I have his permission.

On request of David Trout, I deleted the sub-pages once maintained by him and set a link to his current page.

Further cleanup will happen in the next time. Nearly 200 dead links (internal and external) need to be dealt with. If anybody encounters a dead link, please write on which page it was found and (if possible) where to find the information currently. Even a valid link to archive.org is welcome.



:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

Generating a sequential file with 400001 dates and their attributes to validate the code against an equivalent GNUCOBOL implementation and a GNUCOBOL/C combo implementation.?This is not an apples-to-apples comparison since my MVS 3.8J is running in a Docker container on a Synology DS1618+, and I'm comparing it to natively-compiled GNUCOBOL running on Ryzen 5 3600 and native C with a GNUCOBOL driver. Hercules runs roughly twice as fast on the Ryzen 5 3600 versus DS1618+. The original purpose was not performance, it was validation.

The punchline is that MVT COBOL runs in 30 seconds, GNUCOBOL takes 6 seconds, and the GNUCOBOL/C combination takes 1 second. I'm continuing to use DYNALOAD on MVS. So, very roughly, you can hand-wave a 2:1 ratio between using MVT under all those layers and GNUCOBOL. It really is amazing what you could do in 1972.

MVT COBOL:

   NAME      SSI       SIZE   TTR   ALIAS-OF AC -- -- -- -ATTRIBUTES -- -- --- 
. DIV              2K 000410 000016          00 FO EP0                         
. DIVMOD           2K 0004E8 00001D          00 FO EP0                         
. FTL              2K 000520 000612          00 FO EP0                         
. GTL              2K 000778 00061A          00 FO EP0                         
. ISLEAP           2K 0005E0 000024          00 FO EP0                         
. JERM             5K 0012F8 00070D          00 FO EP0                         
. LTF              2K 000528 000328          00 FO EP0                         
. LTG              3K 000A98 000411          00 FO EP0                         
. VALDATE          2K 0005F8 000402          00 FO EP0                         
  **END**         18K 004420 000715             MODIFIED                       

IEF373I STEP /JERM    / START 20192.0011
IEF374I STEP /JERM    / STOP  20192.0011 CPU    0MIN 30.45SEC SRB    0MIN 00.25SEC VIRT    52K SYS   180K
**
*     2. Jobstep of job: DEFTLY      Stepname: JERM        Program name: JERM       Executed on 10.07.20 from 00.11.21 to 00.11.52 *
*         elapsed time  00:00:30,74                      CPU-Identifier:  TK4-           Page-in:      0                           *
*             CPU time  00:00:30,70               Virtual Storage used:     52K         Page-out:      0                           *
*           corr. CPU:  00:00:30,70   CPU time has been corrected by  1 / 1,0  multiplier                                          *
*                                                                                                                                  *
*     I/O Operation                                                                                                                *
*     Number of records read via DD * or DD DATA:      0                                                                           *
*     183.......0 181.......0 183....3101 DMY.......0                                                                              *
*                                                                                                                                  *
*                                          Charge for step (w/o SYSOUT):         51,16                                             *
**
IEF375I  JOB /DEFTLY  / START 20192.0011
IEF376I  JOB /DEFTLY  / STOP  20192.0011 CPU    0MIN 30.46SEC SRB    0MIN 00.25SEC

The file produced is:

+01472-12-09 344 1 -00046774
+01472-12-10 345 2 -00046773
+01472-12-11 346 3 -00046772
+01472-12-12 347 4 -00046771
+01472-12-13 348 5 -00046770
+01472-12-14 349 6 -00046769
+01472-12-15 350 0 -00046768
+01472-12-16 351 1 -00046767
+01472-12-17 352 2 -00046766
+01472-12-18 353 3 -00046765
+01472-12-19 354 4 -00046764
+01472-12-20 355 5 -00046763
+01472-12-21 356 6 -00046762
+01472-12-22 357 0 -00046761
+01472-12-23 358 1 -00046760
+01472-12-24 359 2 -00046759
+01472-12-25 360 3 -00046758
+01472-12-26 361 4 -00046757
...

?

I don't know how I first concluded that the MVT COBOL compiler did not support ELSE. To set the record straight, it supports nested IF/ELSE.

004200 PROCEDURE DIVISION USING LS-PARM-IN LS-PARM-OUT.
004300 0100-MAIN.
004400     MOVE ILY-YEAR TO FDM-X.
004500     MOVE C4 TO FDM-Y.
004600     CALL 'DYNALOAD' USING MB-DIVMOD MB-DIVMOD-IN MB-DIVMOD-OUT.
004700     IF FDM-MOD IS NOT ZERO
004800         MOVE 'N' TO ILY-LEAP
004900     ELSE
005000         MOVE C400 TO FDM-Y
005100         CALL 'DYNALOAD' USING MB-DIVMOD MB-DIVMOD-IN
005200                               MB-DIVMOD-OUT
005300         IF FDM-MOD = 100 OR FDM-MOD = 200 OR FDM-MOD = 300
005400             MOVE 'N' TO ILY-LEAP
005500         ELSE
005600             MOVE 'Y' TO ILY-LEAP.
005700     GOBACK.

Hello,

Am 06.07.2020 um 23:47 schrieb Patrik Schindler <poc@...>:

Hmph, if should have done a complete wget -m of the site before. But now it's possibly too late. :-(

I managed to get a copy online on .

I was reaching out by telephone to Volker Bandke today, to ask for permission but could not reach him (answering machine). I assume he's okay with me preserving the knowlede and content he created.

The content has been altered slightly to remove or update defunct links, and remove any reference to dynamic content, like generated from scripts in /cgi-bin. Also, I removed content appearing personal, like photos from actual people. But I'm not yet finished.

I'm also considering to get rid of Hercules Source Code Snapshots from 2006 and early 2007, since I guess these are no longer relevant. These alone account for 676 MiB.

If anyone is opposed to this, please drop me a private mail.

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

Until it's up again, you can use

Hello Scott,

Am 07.07.2020 um 23:19 schrieb Scott Stillwell via groups.io <scottstillwell@...>:

If there’s more than one domain/website on that server, accessing by IP address won’t work unless that happens to be the default site on that server.

Easily achievable: Use a local entry in the hosts file.

Since the DNS zone is down I can’t find any server addresses at the moment - I’m sure someone knows, though.

Yap, that's the main problem. And we don't know if the server's still configured.

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

开云体育

If there’s more than one domain/website on that server, accessing by IP address won’t work unless that happens to be the default site on that server. ?Since the DNS zone is down I can’t find any server addresses at the moment - I’m sure someone knows, though.

开云体育

DNS error NAME_NOT_RESOLVED. ?Having the domain name registration renewed is not necessarily the same as having the DNS zone hosted somewhere - sometimes those services are bundled together, other times separately with different providers. ?Using WHOIS to look up , its authoritative name servers are pointed at CNS1 through CNS3.ALFAHOSTING.INFO. ?If you use nslookup to query those servers, you get a response of REFUSED. ?If you (or at least I) use my DNS servers (which forward to Cloudflare’s DNS) I just get SERVFAIL.

On Tue, 7 Jul 2020, Ed Liss wrote:

Try the following code
//HERC01P JOB MSGCLASS=A,MSGLEVEL=(1,1)
//P1 EXEC PL1LFCG
//PL1L.SYSIN DD *
TEST:PROC OPTIONS(MAIN);
DECLARE 1 NUM_CHAR FIXED BINARY(15),
1 CHAR_2 DEFINED NUM_CHAR,
2 (CHAR_HIGH,CHAR_LOW)
CHAR(1);
NUM_CHAR=0;
CHAR_LOW = 'A';
PUT SKIP LIST(NUM_CHAR,CHAR_LOW);
PUT SKIP LIST('NUMBER','CHAR');
DO NUM_CHAR=240 TO 249;
PUT SKIP LIST(NUM_CHAR,CHAR_LOW);
END;
END TEST;

If I got it right not different from
a C union.

Nice trick ;-)

Thanks, Peppe.

Hello Joe,

Am 07.07.2020 um 16:25 schrieb Joe Monk <joemonk64@...>:

I have renewed the domain for two years.

Thanks a lot! Now, it's still unclear what happened to the webserver and it's content. Now, I guess, we'll have to be patient. Hopefully it will work again. And this time, I'll do a backup. :-)

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

If anyone is interested, I have a snapshot of the website from 2017
including the cdrom ISO. Let me know if anyone needs anything from it.

Best

Bill

Hello!
Oh dear. I tried going to that page again, and Chrome complained that
the site did not have a DNS location.
-----
Gregg C Levine gregg.drwho8@...
"This signature fought the Time Wars, time and again."

On Tue, Jul 7, 2020 at 5:34 PM Kevin Monceaux <Kevin@...> wrote:

Doug,

On Tue, Jul 07, 2020 at 09:12:02PM +0000, Doug Wegscheid wrote:

what is the current ip, if we want to get at it that way?

My browser must have been displaying a cached page. Trying to ping or
perform an nslookup fails to resolve the domain name. My browser was again
willing to display the page I looked at earlier, but attempting to reload
that page resulted in a "Hummm. We're having trouble finding that site."
error.
--

Kevin



Bruceville, TX

What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.

And this space is still being sold by Lando Calrissian.

Patrik,

I seem to recall that you have to wait for the dns information to filter
through from the "owner" nameserver to your ISP's nameserver.

If you perform a "whois" search for www.bsp-gmbh.com, using a number of different
"whois" servers, you will see different ip addresses and nameservers for
the bsp-gmbh.com domain.

At the moment, for example,

www.whois.com shows:-
Name Server: NS1.PENDINGRENEWALDELETION.COM
Name Server: NS2.PENDINGRENEWALDELETION.COM

Whereas whois.domaintools.com shows:-
Name Server: CNS1.ALFAHOSTING.INFO
Name Server: CNS2.ALFAHOSTING.INFO
Name Server: CNS3.ALFAHOSTING.INFO


Chris

--
<cjar1950@...>



----------------------------------------------------------------------------------------------------------------------------------
On Tue, 7 Jul 2020 23:43:53 +0200
"Patrik Schindler" <poc@...> wrote:

Hello Kevin,

Am 07.07.2020 um 19:29 schrieb Kevin Monceaux <Kevin@...>:

So, if the hoster did not delete the web server configuration, it should
be there again, but it's not (yet?).

I'm able to access it now.

Here: No. And it's not a caching issue. Still get the text about "bsp-gmbh.com expired on 06/30/2020 and is pending renewal or deletion.".

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

Hello Kevin,

Am 07.07.2020 um 19:29 schrieb Kevin Monceaux <Kevin@...>:

So, if the hoster did not delete the web server configuration, it should
be there again, but it's not (yet?).

I'm able to access it now.

Here: No. And it's not a caching issue. Still get the text about "bsp-gmbh.com expired on 06/30/2020 and is pending renewal or deletion.".

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

Doug,

On Tue, Jul 07, 2020 at 09:12:02PM +0000, Doug Wegscheid wrote:

what is the current ip, if we want to get at it that way?

My browser must have been displaying a cached page. Trying to ping or
perform an nslookup fails to resolve the domain name. My browser was again
willing to display the page I looked at earlier, but attempting to reload
that page resulted in a "Hummm. We're having trouble finding that site."
error.





--

Kevin



Bruceville, TX

What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.

Joe,

Thanks for that reminder ... I seemed to recall that happening with some other sites, but it's been a while.

Also, a big "Thank you" for renewing that site's domain registration, etc.? :D

All the best,

Mark S. Waterbury