开云体育

Only if the IP has changed and slave DNS serves have the old entry in their caches/databases. Nslookup the IP and trace route the path and see how far you come. :-) DNS caches should be fine after a couple of hours.?

--
TK4- on Raspberry Pi 4 4GB Raspbian "buster"?

Die Katze l?sst das Mausen nicht,
Die Jungfern bleiben Coffeeschwestern.
Die Mutter liebt den Coffee Brauch,
Die Gro?mama trank solchen auch.
Wer will da auf die T?chter l?stern?
J.S.Bach "Kaffee-Kantate" (BWV 211)

Kevin,

You are able to reach that site at ? now?? I am still not able to ... I get the usual browser page that says "We can’t connect to the server at ... any idea why?

Do I need to wait for some DNS servers to update or something?

Thanks,

Mark S. Waterbury

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 you submit it, this is what you get:
????? 193?????????????? A
NUMBER????????????????? CHAR
????? 240?????????????? 0
????? 241?????????????? 1
????? 242?????????????? 2
????? 243?????????????? 3
????? 244?????????????? 4
????? 245?????????????? 5
????? 246?????????????? 6
????? 247?????????????? 7
????? 248?????????????? 8
????? 249?????????????? 9

On Mon, Jul 6, 2020 at 12:36 PM, Dave Trainor wrote:

So then, forgive me if this is obvious, I could take a fully generated and configured MVS system, shut it down – tar up the MVS directory like I do for a backup – move that tar file to a Pi – extract the tar file – and then boot using Hercules on the pi, and it would work the same (not discussing speed)?

?

If SO, that’s cool.

?

Thanks,

Dave

?

It should work to just to migrate the MVS DASD files from one system to another.? Just make sure the HERCULES config on the Pi maps DASD devices the same way as your host (windows or linux).? By maps, I mean the device number or type match.? Example on PC, device 0148 is a 3350 drive.? If on the Pi, device 0148 is a 3350, it should be ok.? I was planning to compare my DASD config on my PC to the DASD config on the Pi.

When I started on the Pi, I just used 3 sudo commands to download Hercules, x3270 and TK4-. Then I started MVS.? Total time was about 15 minutes.? Being a Linux rookie, It takes me longer to do stuff.

On Tue, Jul 07, 2020 at 07:17:28PM +0200, Patrik Schindler wrote:

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.


--

Kevin



Bruceville, TX

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

Hello,

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

I have renewed the domain for two years.

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

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

Hello Jim,

Am 07.07.2020 um 00:08 schrieb Jim Morrison <n9gtm@...>:

My timing was excellent, I snarfed the site 2020-06-26. I was way overdue since my prior snarf was 2012-04-21. A different of 567 bytes between the two dates, so even older backups should be nearly complete. All told about 408 MB.

I dropped him a line a few days/weeks ago, but haven't heard back yet, but that's fairly typical. Any response at all tended to come after a lengthy delay.

Okay. If you don't get response, I guess I want to publish the site under a subdomain of pocnet.net, so this resource isn't lost. If you can provide me with an archive.

Apparently, Joe was faster. :-)

:wq! PoC

PGP-Key: DDD3 4ABF 6413 38DE -

On Mon, Jul 6, 2020 at 05:54 PM, Bill Lewis wrote:

I built gcc from source once on a Pi Zero.? It took 5 days elapsed wall clock time.
But it all worked.

I remember building GCC on a 386/33 running 386BSD or NetBSD early 90s. The instructions took about 4-6 pages... once you got through all that, you hit the paragraph that said "or you can combine all these steps by doing a "make <something>". I cussed.

A few weeks later, a coworker building GCC on SunOS went through the same thing. Cussed about the same thing.

We both laughed about it later, but it took beer.

Great Joe,

Thank you very much

Cheers,
Rob

On Tue, Jul 07, 2020 at 03:05:05PM +0100, cjar1950 via groups.io wrote:

When I did register the domain with DENIC, I became a so-called gold
member, and thus the domain was registered for the span of twenty year.

Does this imply that the domain still exists?.

The fact that the domain registration expired seems to imply that it's been
twenty years since he registered the domain.



--

Kevin



Bruceville, TX

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

Scott,

In 2017 (I didn't realise it was so long ago), Volker anounced his
"retirement" on the turnkey-mvs group on Yahoo, and that
www.bsp-gmbh.com would cease to exist (topic "new TK3 owner required/needed").

There was some discussion amongst members.

Eventually, on 12 June 2017, Volker advised:-

"I said, that on June 22nd the website www.bsp-gmbh.com would no longer be available, as I had cancelled the
webspace where this was hosted.
Well, what I had forgotten, when I registered www.bsp-gmbh.com many years ago, this was done outside of my
subscription to the webhoster. When I did register the domain with DENIC, I became a so-called gold member,
and thus the domain was registered for the span of twenty year. In other words, I still have that domain, and
will have it for some time to come.

My new web provider was coaxed into pointing my new web space to www.bsp-gmbh.com, and I moved all the data from the old webspace to the new one. This means that www.bsp-gmbh.com continues to be available for the foreseeable future, albeit at a different IP address than before. I did that transition some time ago already, therefore there should be no issued involved for any spurious users."

Does this imply that the domain still exists?.


Chris
--
<cjar1950@...>



----------------------------------------------------------------------------------------------------------------------------------
On Mon, 06 Jul 2020 16:17:23 -0700
"ScottC via groups.io" <sccosel@...> wrote:

Just got off the phone with "Jenny Angell" at Network Solutions.? Good news!? We have 30 days from 6/30/2020 (for someone) to pay (at least) the 1 year renewal price of $73.98 ($37.99 per year + $35.99 reinstatement fee) to get the bsp-gmbh.com domain restored to the way it was before it went offline.? They are happy to take payment from anyone who wants to make the payment.

Just letting everyone know that this is an option.? "Jenny" emailed me her direct Network Solutions contact information, as the length of time it took on hold to speak to an agent was quite long (about 20 minutes).

Let me know if anyone has any interest in this option.

ScottC

On Tue, 7 Jul 2020, Giuseppe Vitillaro wrote:

On Tue, 7 Jul 2020, Peter Jansen via groups.io wrote:

Isn't UNSPEC not also a pseudo-variable, so that it can also be used on the left-had
side of an assignment, e.g.:
UNSPEC ( CHR ) = CODE ;

Yep, it does.

Unfortunately, FIXED BIN(15) is half word,
i.e. two bytes in PL/1 F.

My guess

UNSPEC ( CHR ) = CODE

convert just the most significant CODE byte, leading
to a wonderful ZERO character.

If I got it right, this routine should do the trick:

ECHAR:
PROCEDURE ( CODE ) RETURNS(CHARACTER(1));
DCL CODE FIXED BIN(15);
DCL CHR CHARACTER(1);
DCL B BIT(16);
B = UNSPEC(CODE);
UNSPEC(CHR)=SUBSTR(B,9,8);
RETURN ( CHR );
END ECHAR;

Wondering if there are better ways.

Peppe.

Well, this is actually a little bit better:

ECHAR:
PROCEDURE ( CODE ) RETURNS(CHARACTER(1));
DCL CODE FIXED BIN(15);
DCL CHR CHARACTER(1);

UNSPEC(CHR)=SUBSTR(UNSPEC(CODE),9,8);
RETURN ( CHR );
END ECHAR;

I guess the UNSPEC(CHR) can't be moved inside
the RETURN statement? It doesn't work for what
I've verified.

Peppe.

On Tue, 7 Jul 2020, Peter Jansen via groups.io wrote:

Isn't UNSPEC not also a pseudo-variable, so that it can also be used on the left-had
side of an assignment, e.g.:
UNSPEC ( CHR ) = CODE ;

Yep, it does.

Unfortunately, FIXED BIN(15) is half word,
i.e. two bytes in PL/1 F.

My guess

UNSPEC ( CHR ) = CODE

convert just the most significant CODE byte, leading
to a wonderful ZERO character.

If I got it right, this routine should do the trick:

ECHAR:
PROCEDURE ( CODE ) RETURNS(CHARACTER(1));
DCL CODE FIXED BIN(15);
DCL CHR CHARACTER(1);
DCL B BIT(16);
B = UNSPEC(CODE);
UNSPEC(CHR)=SUBSTR(B,9,8);
RETURN ( CHR );
END ECHAR;

Wondering if there are better ways.

Peppe.

Isn't UNSPEC not also a pseudo-variable, so that it can also be used on the left-had side of an assignment, e.g.:

UNSPEC ( CHR ) = CODE ;

Cheers,

Peter

I've a naive question about the PL/1 F we
have onboard on MVS3.8j.

Forgive me, I'm trying to write code for
going from a single character to its EBCDIC
code and viceversa.

The first problem should be solved by this code
fragment:

ECODE:
PROCEDURE ( CHR ) RETURNS(FIXED BIN(15));
DCL CHR CHARACTER(1);
DCL CODE FIXED BIN(15);

CODE = UNSPEC ( CHR );
RETURN ( CODE );
END ECODE;

which seems to work correctly.

But I can't see a way for going back from the EBCDIC
code to a single character string, using only PL/1 F.

For what I can understand in modern PL/1 compilers
there are specific builtin functions implemented, but,
reading the original IBM manuals, I can't see any simple
way to solve the problem.

Any advice?

Peppe.