开云体育

$VS,'V SYSLOG,HARDCPY'

This seems to only work from the console, and not after shutting down JES2 and restarting it.? Odd.

However, SYS1.PARMLIB(IEASYS00) can also be tweaked, changing the HARDCPY line from 30E to SYSLOG:

HARDCPY=(SYSLOG,ALL,CMDS),

This captures everything from IPL start.

My primary problem was that I didn't think it was supported at all in the current SYSGEN.? Clearly it is, and simply not enabled.?

I'm not sure log to spool is useful on a Hercules system where browsing can be done on the host system output of 30E, but it's what I'm used to.? :-)

-- 
Drew Derbyshire

"Buckaroo . . . can you verify operational capability??"

On 7/11/20 12:57 AM, Greg Price wrote:

$VS,'V SYSLOG,HARDCPY'

Holy Ceiling Cat, it worked.? I thought I tried that, or something close to it.

--
Drew Derbyshire

Those who cannot remember the past are condemned to repeat it.
-- George Santayana

On 2020-07-11 7:40 AM, Drew Derbyshire wrote:

Does someone know the exact work need to enable it SYSLOG to spool?

My memory is that back in the day, we did not specify any hardcopy console or printer in the I/O gen, and would have set SYSLOG to hardcopy, quite possibly with a
$VS,'V SYSLOG,HARDCPY'
command at the end of JES2PARM.

Then the trick becomes getting JES2 up before you run out of WTO buffers.? The only time it became an issue was when there were problems which prevented JES2 from coming up, and if you entered into a long WTO dialog the 80% buffer full message came along, continuing to escalate until JES2 came up and relieved the buffer shortage.

Cheers,
Greg

As had been pointed out before the the basic MVS 3.8j sysgen which is the basis for what most of us use has SYSLOG to spool disabled, and the log has to go to a physical printer,

Does someone know the exact work need to enable it SYSLOG to spool?? (And what it would break in terms of lost patches and the like?)

-ahd-

--
Drew Derbyshire

"I have always wished for my computer to be as easy to use as my
telephone; my wish has come true because I can no longer figure out
how to use my telephone." -- Bjarne Stroustrup

Thanks. I had discovered the first two a different way, but now searching the file names brought me to bitsavers. Thanks. The stash of manuals will keep me busy for a while.

Hi Patrik,

It's great to hear that Volker is alive and well!

If you are able to get in touch with him, perhaps he can also sign over his ownership of the domain to you, and/or someone else as well.? As it is, no one except him can do anything with the original domain, except for paying the renewal fee, when it comes due.? At this point, it seems that Network Solutions is only "hosting" the domain name.? When the renewal comes up again, prior to 6/30/2022, another hosting company could be paid much less, to just register the name, and no one will have to pay a "re-instatement fee".? Without ownership of the domain, none of this is possible, as transfer to a new registrar cannot be accomplished without ownership.

ScottC

I have the following manuals related to ANSI Cobol as available on MVS 3.8j Turnkey (TK4_.8] so you might want to get them as well :

GC28-6396-6_IBM_OS_Full_American_National_Standard_COBOL_Apr76.pdf
GC28-6399-2_COBOL_Compiler_and_Library_Version_2_Programmers_Guide_Jul72.pdf
SC28-6483-2_OS_VS_COBOL_Compiler_and_Library_Programmers_Guide_Jun84.pdf

GC28-6670-6_OS_Debugging_Guide_Release_21.7_Nov72.pdf
GC28-6670-3_Programmers_Guide_to_Debugging_Rel_19_Jun70.pdf


One of these has a little booklet GC28-6396-6 that you can create which is a handy IBM ANSI Cobol format summary and reserved words list .
This in one of the top 3 manuals at the back - I just printed it off separately when printing out the manuals.

[ Yes I like paper Cobol manuals? ]?? As I have them going back to 1960/1.


If you cannot find them let me know and I will make them available via my website? but I do have a lot more as well :)

Vincent

--
- IMPORTANT –

This email and the information in it may be confidential, legally privileged
and/or protected by law.
It is intended solely for the use of the person to whom it is addressed.
If you are not the intended recipient, please notify the sender immediately
and do not disclose the contents to any other person, use it for any purpose,
or store or copy the information in any medium.

Please also delete all copies of this email & any attachments from your system.

If this is an encrypted email it is your responsibility to maintain the 1024
byte key system even for one-use keys. Once mail has been sent the sending key
is not kept and therefore a replacement mail cannot be resent.

We cannot guarantee the security or confidentiality of non encrypted email
communications.
We do not accept any liability for losses or damages that you may suffer as a
result of your receipt of this email including but not limited to computer
service or system failure, access delays or interruption, data non-delivery
or mis-delivery, computer viruses or other harmful components.

Copyright in this email and any attachments belongs to Applewood Computers.
Should you communicate with anyone at Applewood Computers by email,
you consent to us monitoring and reading any such correspondence.

Nothing in this email shall be taken or read as suggesting, proposing or
relating to any agreement concerted practice or other practice that could
infringe UK competition legislation (unless it is against Security
requirements).

This Email and its attachments (if any) are scanned for virii using Clamd
and ClamAV 0.101.5 or later (Linux x64).

Dykegrove Limited T/A Applewood Computers is a company registered in England
(no. 01681349) whose registered office is at Applewood House,
17 Stag Green Avenue, Hatfield, Hertfordshire, AL9 5EB, UK.

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.