VM/CMS and MVS/TSO reunited
By Marcel van der Veer
October 2021
Published in category Computing history
More on Algol68C, Fortran, Hercules, MVS, Mainframe, VM
I develop Algol 68 Genie mainly on Debian. To test releases, I keep a "zoo" with operating systems as FreeBSD, OpenBSD and Raspberry Pi OS installed on virtual machines running on top of Debian. Virtualisation began half a century ago as a method of sharing mainframe resources between different operating systems, applications or users.
A well-known example was VM/370 which derived from CP/CMS from the 1960s. The concept was elegant - a mainframe is an expensive resource, so to accomodate different operating systems or many users or servers, the actual machine is virtualised to present itself as many individual machines. Virtualisation works efficiently when a computer emulates itself, and that is what VM/370 did - run many virtual IBM 370's on one real IBM 370. For timesharing users VM came with the Conversational Monitor System CMS, a small but robust single-user shell. It was the system I worked on when I was a student, and I have fond memories of it. Needless to say that the VM/370 heritage lives on up to the present day in z/VM.
For several years I have been using MVS with ALGOL68C that I use as a reference for Algol 68 Genie. Meanwhile proficient persons succeeded in resurrecting VM/370 on Hercules, and making CMS actually usable again by adding for instance a full-screen editor, the FORTRAN H compiler and much more. Recently, a VM/370 distribution has been made available that should become a community edition of this vintage system.
I installed as guest operating systems MVS, MVT, VM/370 (yes, VM can run itself and used to be developed this way) and UTS - an early UNIX variant to run with VM. For much of this, there are tutorials on the moshix channel. MVS was more or less copied from the VM/370 version generously made available by professor René Ferland. That MVS guest in turn is based on TK4- and is modified to behave well on VM, for instance by spooling job output to the CMS user who scheduled the job.
I reconfigured VM's kernel giving MVS direct access to memory to avoid double paging which is a performance sink when MVS runs on top of VM. Once VM is up, I boot MVS from within a telnet session connected to VM as described below. The "VIRTUAL=REAL" notification means that double paging is avoided.
$ telnet s370 3270
Trying 127.0.1.1....
Connected to s370.
VM/370 ONLINE
logon mvs ********
STORAGE IS VIRTUAL=REAL
LOGON AT 21:30:00 GMT FRIDAY 05/07/21
CP
ipl 148
IEA101A SPECIFY SYSTEM PARAMETERS FOR RELEASE 03.8 .VS2
Once MVS has booted you can dial into MVS using a 3270 terminal emulator, and you will be greeted by my personal TSO logon screen:
MVS/370 Online
VV VV MM MM
VV VV MMM MMM
3333333333 777777777777 MM00000000
333333333333 77777777777MM MM0000000000
33 VV33 77VV 77 MMMM00MM 00
V33 VV 77M MM 00MM 00
33 VV 77MM 00MM 00
3333VV VV 77 MM 00MM 00
3333 VVVV 77 MM 00MM 00 _ _
33 VV 77 MM 00MM 00 ." \\`. (v)
33 77 00 00 ( \\ \\_\_ )\
33 33 77 00 00 \\ _" //\ )
333333333333 77 0000000000 `/ // /// /
3333333333 77 00000000 (// .__-"
"-" \\
Enter logon userid [reconnect]
====>
RUNNING VM370CE
On the MVS guest I installed ALGOL68C. Since the system permits scheduling MVS batch jobs from CMS, I can run ALGOL68C as CMS user in batch mode. Perhaps one day somebody will recover A68C or FLACC for CMS, however for my purposes running batch jobs suffices. I prepare JCL batch files for MVS on CMS, for instance with the full screen editor:
File: CLUSTRUN JCL A1 RECFM: F LRECL: 72(80) Lines: 62 Current: 9
===== * * * Top of file * * *
===== //CLUSTER JOB (1),MARCEL,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
===== // USER=MARCEL,PASSWORD=********
===== //SCRATCH EXEC PGM=IEFBR14
===== //CLUSTER DD DSN=MARCEL.CLUSTER.ENV,DISP=(MOD,DELETE,DELETE),
===== // UNIT=3375,VOL=SER=PUB001
===== //*
===== //* EXAMPLE OF RUNNING A SEGMENTED ALGOL68C PROGRAM.
===== //*
....+....1....+....2....+....3....+....4....+....5....+....6....+....7..
===== //* ENVIRON
===== //A68ENV EXEC PGM=A68C,REGION=768K
===== //STEPLIB DD DSN=A68CLIB.MOD,DISP=SHR
===== //INIT DD DSN=A68CLIB.SYS(INIT),DISP=SHR
===== //SYSENV DD DSN=A68CLIB.SYS,DISP=SHR
===== //CODE DD UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
===== // SPACE=(CYL,(1,1),RLSE)
===== //ENVOUT DD DSN=MARCEL.CLUSTER.ENV(CLUSTER1),DISP=(NEW,PASS,DELETE),
===== // SPACE=(CYL,(1,1,1)),DCB=RECFM=VB,
===== // UNIT=3375,VOL=SER=PUB001
===>
Unchanged EE V1.2.5, 1 File(s)
4A 023/006
Next I submit the JCL file to MVS and fetch the output when the job finishes:
submvs clustrun jcl
PUN FILE 1894 TO MVS COPY 01 NOHOLD
Ready; T=0.01/0.01 22:37:05
PRT FILE 1895 FROM MVS COPY 01 NOHOLD
readcard clustrun listing
RECORD LENGTH IS '132' BYTES.
Ready; T=0.02/0.06 22:46:15
Next to running ALGOL68C, I use VM/CMS for the preservation of vintage FORTRAN code for computer simulations in chemical physics. But that is a story for a future post.
All blog posts
|
|
|
I have released the current source as version 3.0. I have also updated the documentation, Learning Algol 68 Genie. [Read more]
Published in category Algol 68
|
|
|
|
When I was a student, the university computing centre offered VM/CMS and MVS/TSO running on IBM (compatible) mainframes. Nowadays it is possible to run those operating systems in emulation. [Read more]
Published in category Computing history
|
|
|
|
As the author of Algol 68 Genie I am interested in having access to other Algol 68 compilers for reference purposes. Several years ago I wrote a post on installing Algol68C on MVS. In this post I would like to give an update. [Read more]
Published in category Computing history
|
|
|
|
Lately I needed to call on some of my now rusty electronics skills since I came into some older HiFi equipment in need of attention. I consulted the world wide web in search of service manuals and found many more people with an interest in keeping older HiFi in working condition. Now I had the opportunity to combine my passion for electronics, HiFi equipment and music … and do not forget durability, since we are actually extending the life of otherwise obsolete products. [Read more]
Published in category HiFi
|
|
|
|
As described in an earlier post, at home I operate a modest Beowulf type cluster for embarrassingly parallel simulation runs in batch mode. With the experience from that build, I took on building a higher-performance cluster using Debian. [Read more]
Published in category Science
|
|
|
|
Every year my daughter's high school invites parents to partake in an evening of information sessions, to help students orient themselves on their future. The idea is to have parents from all walks of professional life, each parent discussing half an hour or so with small groups of students who subscribed to your sessions. You are expected to tell about your study and career, and the students are supposed to pose questions. As you will expect, some come well prepared, others must be stimulated a bit. I greatly enjoy those conversations with the next generation who have their lives ahead of them. [Read more]
Published in category Education
|
|
|
|
Recently I met during an event at my Alma Mater, the University of Nijmegen, my high school physics teacher. We discussed the chemistry curriculum and remarked that quite some chemistry students capture with difficulty the fundamental principles of thermodynamics. Needless to say that thermodynamics is one of those subjects that serve a chemist for a lifetime. In my humble opinion, one reason for this lack of retention may be the abstraction level in freshmen courses and that this might be improved by spending one or two introductory hours on the basic ideas of thermodynamics in a historic context. [Read more]
Published in category Science
|
|
|
|
Being the author of Algol 68 Genie, people frequently ask me why a physical chemist wrote an Algol 68 compiler. This is an understandable question since people associate Algol 68 with the learned group of mathematicians and computer scientists that conceived the language some fifty years ago and people recall the reputation it had of being a hard to implement language. In this post I would like to give an account of how Algol 68 Genie came to be. [Read more]
Published in category Algol 68
|
|
|
|
At home I operate a modest Beowulf type cluster for embarrassingly parallel simulation runs in batch mode. A master node controls several drones. Nodes in this cluster need no more than a server installation, but if a drone happens to have keyboard, mouse and monitor a small GUI is nice to have. This GUI should be lightweight, otherwise a desktop installation makes more sense. This page demonstrates how to set up a drone with GUI on Ubuntu Server including browser, document reader, image viewer and sound. [Read more]
Published in category Science
|
|
|
|
Recently, Algol68C Release 1.3039 was made public for download. This release is derived from the compiler that was in service to the mid 1990's on IBM mainframes. The new release is meant to run on either MVT or MVS. This report documents the installation of the new release on emulated MVS/370. [Read more]
Published in category Computing history
|
|
|
|
This is a translation of the Algol 68 Revised Report into HTML, for distribution with Algol 68 Genie, an Open Source Algol 68 interpreter. [Read more]
Published in category Algol 68
|
|
jmvdveer@xs4all.nl
LinkedIn