Well,
and a (32-bit SCO Unix binary modified to work on Linux).
What a pity.
?
--
VM/370 CE V1R1.2, Hercules on macOS
|
As far as I know, nobody has it any more to have any experience with it.
On Sat, Mar 8, 2025 at 3:22?PM Stefan Haubenthal via <polluks= [email protected]> wrote: Hi there!
Does anyone have experience with 1-2-3?
?
--
VM/370 CE V1R1.2, Hercules on macOS
|
Hi there!
Does anyone have experience with 1-2-3?
?
--
VM/370 CE V1R1.2, Hercules on macOS
|
Let's take this topic offline, to the .? It's more complex than you might think - see my latest update.
Ross
On Tue, Mar 4, 2025 at 7:49?AM Herman Hartman via <herman.hartman= [email protected]> wrote: Apparently having the same bug, I noticed some error messages on my HercGUI console:
?
CMS MAINT?
=========?
rexxtry
REXX interpreter running (CMS bREXX 1.0.1 Jul ?5 2022)
Enter any valid REXX instruction... type EXIT to quit.
Rexxtry;
''
DMSITP143T PROTECTION EXCEPTION OCCURRED AT F209CC IN SYSTEM ROUTINE EXEC, RE-IPL CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
HercGUI console:
===========
13:39:30.983 /13:39:30 GRAF 0C0 LOGON ?AS MAINT ? ?USERS = 005
13:39:47.518 HHC00801I Processor CP00: Protection exception interruption code 0004 ilc 4
13:39:47.521 HHC02324I PSW=07ED200000F209C8 INST=42420000 ? ? STC ? 4,0(2,0) ? ? ? ? ? ? ? store_character
13:39:47.521 HHC02326I V:00EBF000:R:00000000009C5000:K:06=9007F088 4100B000 55000688 47B0F078 ?..0h.......h..0.
13:39:47.521 HHC02269I GR00=00009290 GR01=00009218 GR02=00EBF000 GR03=000007A0
13:39:47.521 HHC02269I GR04=00000050 GR05=00E91EF8 GR06=000398AA GR07=000091C0
13:39:47.521 HHC02269I GR08=0003AC74 GR09=00009008 GR10=00F20CEC GR11=00009000
13:39:47.521 HHC02269I GR12=50F204DA GR13=000091C0 GR14=00F20A76 GR15=00039A78
13:39:47.521 HHC02271I CR00=81800CC0 CR01=0FFFAE80 CR02=FFFFFFFF CR03=00000000
13:39:47.521 HHC02271I CR04=00000000 CR05=00000000 CR06=A3F0BD58 CR07=00000000
13:39:47.521 HHC02271I CR08=00000000 CR09=00000000 CR10=00000000 CR11=00000000
13:39:47.521 HHC02271I CR12=00000000 CR13=00000000 CR14=EFC00000 CR15=00000000
?
Perhaps this helps.
?
|
Apparently having the same bug, I noticed some error messages on my HercGUI console:
?
CMS MAINT?
=========?
rexxtry
REXX interpreter running (CMS bREXX 1.0.1 Jul ?5 2022)
Enter any valid REXX instruction... type EXIT to quit.
Rexxtry;
''
DMSITP143T PROTECTION EXCEPTION OCCURRED AT F209CC IN SYSTEM ROUTINE EXEC, RE-IPL CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
HercGUI console:
===========
13:39:30.983 /13:39:30 GRAF 0C0 LOGON ?AS MAINT ? ?USERS = 005
13:39:47.518 HHC00801I Processor CP00: Protection exception interruption code 0004 ilc 4
13:39:47.521 HHC02324I PSW=07ED200000F209C8 INST=42420000 ? ? STC ? 4,0(2,0) ? ? ? ? ? ? ? store_character
13:39:47.521 HHC02326I V:00EBF000:R:00000000009C5000:K:06=9007F088 4100B000 55000688 47B0F078 ?..0h.......h..0.
13:39:47.521 HHC02269I GR00=00009290 GR01=00009218 GR02=00EBF000 GR03=000007A0
13:39:47.521 HHC02269I GR04=00000050 GR05=00E91EF8 GR06=000398AA GR07=000091C0
13:39:47.521 HHC02269I GR08=0003AC74 GR09=00009008 GR10=00F20CEC GR11=00009000
13:39:47.521 HHC02269I GR12=50F204DA GR13=000091C0 GR14=00F20A76 GR15=00039A78
13:39:47.521 HHC02271I CR00=81800CC0 CR01=0FFFAE80 CR02=FFFFFFFF CR03=00000000
13:39:47.521 HHC02271I CR04=00000000 CR05=00000000 CR06=A3F0BD58 CR07=00000000
13:39:47.521 HHC02271I CR08=00000000 CR09=00000000 CR10=00000000 CR11=00000000
13:39:47.521 HHC02271I CR12=00000000 CR13=00000000 CR14=EFC00000 CR15=00000000
?
Perhaps this helps.
?
|
At least VM/SP REXX/370 works fine, this a not common issue.
?
--
VM/370 CE V1R1.2, Hercules on macOS
|
REGINA seems to have a similar issue on win64. Output of empty.rex is similar to dir *. ?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]> On Behalf Of Mark A. Stevens via groups.io
Sent: Freitag, 28. Februar 2025 17:09
To: [email protected]
Subject: Re: [h390-vm] Quotation mark bug?? On Wed, Feb 26, 2025 at 02:28 AM, Stefan Haubenthal wrote: Enter any valid REXX instruction... type EXIT to quit.
Rexxtry;
''
DMSITP143T PROTECTION EXCEPTION OCCURRED AT F20A02 IN SYSTEM ROUTINE EXEC, RE-IPL CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
Similar to this is the following.This is the beta bREXX Ross made avaialble. l rexx * * ( date
Filename Filetype Fm ?Format ? ?Recs Blocks ? ? Date ? ?Time
REXX ? ? TEXT ? ? E1 ?F ? ?80 ? ?131 ? ? 14 ?01/19/25 ? 20:52
REXX ? ? C ? ? ? ?F1 ?V ? ?98 ? ?477 ? ? 19 ?01/19/25 ? 20:49
REXX ? ? H ? ? ? ?F1 ?V ? ?74 ? ?236 ? ? ?8 ?01/19/25 ? 20:49
REXX ? ? HELPCMD ?F1 ?V ? ?78 ? ? ?9 ? ? ?1 ?01/19/25 ? 20:49
REXX ? ? HELP$CM ?U2 ?V ? ?78 ? ?125 ? ? ?5 ?07/06/22 ? 21:44
REXX ? ? HELPCMD ?U2 ?V ? ?78 ? ? ?9 ? ? ?1 ?01/19/25 ? 20:49
Ready; T=0.01/0.01 10:05:32 I pressed the Enter key two more times after typing:? empty Enter IPL CMS
VM Community Edition V1 R1.2
Y (19E) R/O
U (19D) R/O
B (5E5) R/O
Ready; T=0.01/0.01 09:56:04
type empty exec a
?
/* */
''
?
Ready; T=0.01/0.01 09:56:09
empty
?
DMSITP143T PROTECTION EXCEPTION OCCURRED AT F20A02 IN SYSTEM ROUTINE EXEC, RE-IP
L CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
|
On Wed, Feb 26, 2025 at 02:28 AM, Stefan Haubenthal wrote:
Enter any valid REXX instruction... type EXIT to quit.
Rexxtry;
''
DMSITP143T PROTECTION EXCEPTION OCCURRED AT F20A02 IN SYSTEM ROUTINE EXEC, RE-IPL CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
Similar to this is the following.This is the beta bREXX Ross made avaialble.
?
l rexx * * ( date
Filename Filetype Fm ?Format ? ?Recs Blocks ? ? Date ? ?Time
REXX ? ? TEXT ? ? E1 ?F ? ?80 ? ?131 ? ? 14 ?01/19/25 ? 20:52
REXX ? ? C ? ? ? ?F1 ?V ? ?98 ? ?477 ? ? 19 ?01/19/25 ? 20:49
REXX ? ? H ? ? ? ?F1 ?V ? ?74 ? ?236 ? ? ?8 ?01/19/25 ? 20:49
REXX ? ? HELPCMD ?F1 ?V ? ?78 ? ? ?9 ? ? ?1 ?01/19/25 ? 20:49
REXX ? ? HELP$CM ?U2 ?V ? ?78 ? ?125 ? ? ?5 ?07/06/22 ? 21:44
REXX ? ? HELPCMD ?U2 ?V ? ?78 ? ? ?9 ? ? ?1 ?01/19/25 ? 20:49
Ready; T=0.01/0.01 10:05:32
?
I pressed the Enter key two more times after typing:? empty Enter
?
IPL CMS
VM Community Edition V1 R1.2
Y (19E) R/O
U (19D) R/O
B (5E5) R/O
Ready; T=0.01/0.01 09:56:04
type empty exec a
?
/* */
''
?
Ready; T=0.01/0.01 09:56:09
empty
?
DMSITP143T PROTECTION EXCEPTION OCCURRED AT F20A02 IN SYSTEM ROUTINE EXEC, RE-IP
L CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
?
?
?... Mark S.
|
I've opened for this.? I can reproduce it in both bREXX 1.0.1 (i.e., VM/370 CE 1.1.2) and the new bREXX 1.1.1.
Ross
On Wed, Feb 26, 2025 at 3:28?AM Stefan Haubenthal via <polluks= [email protected]> wrote: rexxtry
REXX interpreter running (CMS bREXX 1.0.1 Jul ?5 2022)
Enter any valid REXX instruction... type EXIT to quit.
Rexxtry;
''
DMSITP143T PROTECTION EXCEPTION OCCURRED AT F20A02 IN SYSTEM ROUTINE EXEC, RE-IPL CMS.
CP ENTERED; DISABLED WAIT PSW '00020000 40F8B75E'
?
--
VM/370 CE V1R1.2, Hercules on macOS
|
|
|
I see. So far these posts are not CMS specific: and .
?
--
VM/370 CE V1R1.2, Hercules on macOS
|
Re: How to save CMS system?
Ahh, yes.. people not playing nicely with other people's stuff.. that's why in the mid-70s my 2nd or 3rd CP mod was to force disconnect idle VMs after 10 minutes
?
cheers, William
|
On Thu, Feb 27, 2025 at 03:46 PM, Stefan Haubenthal wrote:
says
"... [Martin Richards] was on a sabbatical at IBM Research in the early '70s, and I succeeded him in being the 'keeper of the keys' for his port of BCPL to VM/CMS. He had left everything in perfect order for me to take over. I continued to use this BCPL until I left IBM in 1993 (20 years, pretty good record for durability).
I built a theorem prover (for Effigy [symbolic execution] headed by Jim King) in a personally modified BCPL. ..." []
--
VM/370 CE V1R1.2, Hercules on macOS
?
Never seen BCPL on VM/CMS. Can't find any downloads. Martin Richards still has a web page but no VM/CMS version on there...
I think you might be on your own...
?
Dave
?
|
says
"... [Martin Richards] was on a sabbatical at IBM Research in the early '70s, and I succeeded him in being the 'keeper of the keys' for his port of BCPL to VM/CMS. He had left everything in perfect order for me to take over. I continued to use this BCPL until I left IBM in 1993 (20 years, pretty good record for durability).
I built a theorem prover (for Effigy [symbolic execution] headed by Jim King) in a personally modified BCPL. ..." []
--
VM/370 CE V1R1.2, Hercules on macOS
|
Re: How to save CMS system?
The VMREAD is there for the SAVESYS CMS as well as for an ACCESS (NOPROF.?
?
I remember the early days at IBM's VM test center in Belgium: people that left their 3270 logged on often suffered from someone including a CP LOGOFF in their PROFILE EXEC, harder to fix without this VM READ:
LOGON xxxx NOIPL
CP DEFINE 191 199
CP IPL CMS
ACCESS 199 A
Fix PROFILE EXEC
?
--
Kris Buelens
|
Re: How to save CMS system?
You're missing a crucial detail for an absolutely safe RENAME
- CP LINK sharedDisk xxxx 111 M
- ACCESS 111 N
- COPYFILE ABC EXEC A ABC NEWEXEC N (OLDDATE
- RENAME ABC EXEC N = OLDEXEC N (NOUPDIRT
- RENAME ABC NEWEXEC N = EXEC =
- RELEASE N (DETACH
The trick is NOUPD in step 4.? It makes that this RENAME is done in your storage only.? Any user just accessing this shared MDISK at this time will still see the old ABC EXEC.
The RENAME in step 5 causes the mdisk to be updated, both step 4 and 5 are then executed as an atomic event (and that was mentioned in the original message, without the NOUPD there's no such trick)
?
Beware: don't do any other update to disk N between step 4 and 5 or there is a while with only ABC OLDEXEC present on the mdisk.
And, do not ERASE ABC OLDEXEC before you are sure that all users of this shared disk have reACCESSed it.? ?Users that do not reACCESS have for ABC EXEC pointers in storage that point to what now is ABC OLDEXEC on disk.? If you erase if too soon, their pointers point to a place on the mdisk that can be overwritten at any moment
?
--
Kris Buelens
|
Re: How to save CMS system?
While is in some ways a silly analogy it might help to think of CP (Control Program in VM/CMS environments) as BIOS (in traditional PCs) - hit the wrong key during a reboot and, ...the results are unpredictable.?
|
Re: How to save CMS system?
Thanks, it worked perfectly.
I honestly never imagined that one <enter> too many could cause such a problem.
?
Thanks again, I'm going to stop playing with teddy bears and go back to turkeys.
?
Marco
|
Re: How to save CMS system?
On 26/02/2025 21:18, M Verpelli via
groups.io wrote:
Yes I press enter. Is this the mistake I made?
?
I think so. Thats why it pauses after IPL so you can save the CMS
segment
Marco
_._
Dave
,_
|
Re: How to save CMS system?
On Wed, Feb 26, 2025 at 8:35?AM M Verpelli via <marco.verpelli= [email protected]> wrote:
Here I am again to ask one last thing (I hope).
From what I understand, when you want to move a program to minidisk
MNT19E 19E Y/S to make it available to all other users, you have to (re)save the CMS system.
Yes.? That's specifically because CMS keeps a copy of the file directory of the S and Y disks in the saved system, so if you don't do this, the CMS users won't see the change.? CMS refers to these directory copies as the "shared S-stat" and "shared Y-stat" accordingly. ? So:
1) acc 19E z, to make it available for writing
2) copyfile my program a = = z
As Dave has already?mentioned, any file you put on the S or Y disks needs to be mode 2 (e.g., TYPE MODULE S2).? That's because when CMS creates the shared S and Y stats, it only puts the mode-2 files in them.
3) read the MAINT MEMO B and?
You don't need to do VMSETUP, and in fact the next command shuts CMS down and undoes it :-)\
CP should respond:
STORAGE = 16384K
CP ENTERED; DISABLED WAIT PSW '00020000 00000000' ?
At which point CMS puts out the "greeting message":
VM Community Edition V1 R1.2
You need to type that exactly as seen - no #CP, no other words or punctuation (but upper/lower case doesn't matter), and no pressing ENTER beforehand.? CMS checks the line entered in response to the greeting message for several special cases, including the SAVESYS response.
?Note that if you accidentally issue the CP SAVESYS command instead of responding SAVESYS to the greeting, it's anybody's guess what will happen.? When you do it correctly, CMS prepares itself for saving and then issues the actual CP SAVESYS command itself, via Diagnose 8.
That's not necessary.? After your SAVESYS, any user (including MAINT) that does IPL CMS will get the newly-saved system.
5) with any user after logon I get:
DMSFRE161T INVALID DMSFRET CALL FROM F87AE8, ERROR NUMBER 5.
DMSFRE164T LOW-CORE NUCLEUS STORAGE POINTERS DESTROYED (INTERNAL ERROR CODE 5) RE-IPL CMS.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DMSFRE165T CHAIN HEADER AT 0036F0: 0001EC20 0000000B 000011B8 10F00200.
CP ENTERED; DISABLED WAIT PSW '00020000 00F812B6'
My best guess is that CP got the SAVESYS, not CMS, and that it was processed at an inopportune moment.? The proper sequence looks like this (just captured from my on VM/CE 1.1.2 system):
DASD 19D LINKED R/W; R/O BY 004 USERS DASD 19E LINKED R/W; R/O BY 004 USERS DASD 290 LINKED R/W; R/O BY 004 USERS DASD 190 LINKED R/W; R/O BY 004 USERS DASD 194 LINKED R/W; R/O BY CPWATCH LOGON AT 17:54:10 EDT WEDNESDAY 02/26/25 VM Community Edition V1 R1.2
CP ENTERED; DISABLED WAIT PSW '00020000 00000000' VM Community Edition V1 R1.2 VM Community Edition V1 R1.2
Segment GCCLIB is not loaded because virtual machine memory is in use.
Note that "SYSTEM SAVED" message - CMS issues that when it saves the system.? If you don't get that, it didn't happen correctly. Ross
|
Stefan A. Haubenthal
Mark A. Stevens
M Verpelli