adesutherland/vm-370

Docker container providing an emulated S/370 mainframe (Hercules) running VM/370 based on the six-pack distribution

VM-370

Docker container providing an emulated S/370 mainframe (Hercules) running VM/370 based on the six-pack distribution.

Releases

The Docker images are here https://hub.docker.com/repository/docker/adriansutherland/vm370

See the release tab for Dockerfile build source and the VM/370 DASD files.

History

• latest -> 1.4.25
• Version 1.4.x has latest GCCLIB builds
• Version 1.3.4 corresponds to Six Pack 1.3 Beta 3.

See changelog.txt for full version history

Links

• Six pack distribution - http://www.smrcc.org.uk/members/g4ugm/VM370.htm
• Hercules home page - http://www.hercules-390.eu/
• Hercules 4.0 Fork - https://github.com/SDL-Hercules-390/hyperion
• Discussions on VM/370 are done here - https://groups.io/g/h390-vm

vm-370's Issues

Crash when calling non-existing command via address cms

Test program showing the crash on the last line

/* */                   
ADDRESS COMMAND 'LISTF' 
ADDRESS CMS 'LISTF' 
ADDRESS COMMAND 'LISTX' 
ADDRESS CMS 'LISTX'     

Output:

test                                                                                  
CMS      EXEC     A1                                                                  
HELLO    C        A1                                                                  
HELLO    FORTRAN  A1                                                                  
PROFILE  EXEC     A1                                                                  
TEST     EXEC     A1                                                                  
CMS      EXEC     A1                                                                  
HELLO    C        A1                                                                  
HELLO    FORTRAN  A1                                                                  
PROFILE  EXEC     A1                                                                  
TEST     EXEC     A1                                                                  
     3 *-* ADDRESS COMMAND 'LISTX'                                                    
       +++ RC(-3) +++                                                                 
DMSITP143T OPERATION EXCEPTION OCCURRED AT 01FCE6 IN SYSTEM ROUTINE CMS, RE-IPL CMS.  
CP ENTERED; DISABLED WAIT PSW '00020000 4001B62E'                                     

In version 1.4.27

XXLIST EXEC (Y2) is broken on latest build

I use XXLIST, it does not work in this build, it does in sixpack 1.3 beta. I suspect changes in brexx / executil; here is a trace

xxlist
9 - Parse upper arg ifn ift ifm rest
10 - fid = ifn||' '||ift||' '||ifm/*** find the first R/W disk*/
15 - rwdisk = '$'
16 - Address system 'EXECUTIL QDISK '
17 - Do while queued() > 0
22 - If rwdisk = '$'
22 - Then Do Say '* XXLIST error : no R/W minidisk accessed'
** XXLIST error : no R/W minidisk accessed
24 - Exit 24End/*** find a unique EXEC filename to use for XXLIST action
s*/
Ready(00024); T=0.01/0.02 00:03:47

HRC408DS

Load mod that extends the EXEC command for use with SVC 202 call type X'05' to allow REXX programs (and really any program) to call a REXX function with multiple arguments and return result strings.

HRC410DS

Load mod that fixes the symptom of a HALT INTERPRETATION flag (and also a REXX status counter and the EXECTRAC bit) was left on when an ABEND occurred (in REXX, or in a command called by REXX).

HRC409DS

Load mod that fixes Address CMS fails to properly process a SET or QUERY command by passing it to CP