v1.4.29

Author: adesutherland

Dockerfile

@@ -26,7 +26,7 @@ RUN /opt/hercules/vm370/build.sh && \
 FROM ubuntu:latest
 
 RUN	apt-get update && \
-    apt-get install --no-install-recommends -y hercules c3270 zip unzip netcat && \
+    apt-get install --no-install-recommends -y hercules c3270 zip unzip netcat dos2unix && \
     apt-get -y purge $(dpkg --get-selections | grep deinstall | sed s/deinstall//g) && \
     rm -rf /var/lib/apt/lists/*
 

build.sh

@@ -229,7 +229,7 @@ cd ..
 
 # GCCLIB
 (cd /opt/hercules/vm370; hercules -f hercules.conf -d >/dev/null 2>/dev/null &)
-wget -nv https://github.com/adesutherland/CMS-370-GCCLIB/releases/download/f0046/GCCLIB.zip
+wget -nv https://github.com/adesutherland/CMS-370-GCCLIB/releases/download/v0.8.1/GCCLIB.zip
 unzip GCCLIB.zip
 chmod +x GCCLIB/cmsinstall.sh
 mkdir io
@@ -244,7 +244,7 @@ rm GCCLIB.zip
 
 # CMS BREXX
 (cd /opt/hercules/vm370; hercules -f hercules.conf -d >/dev/null 2>/dev/null &)
-wget -nv https://github.com/adesutherland/CMS-370-BREXX/releases/download/v0023/BREXX.zip
+wget -nv https://github.com/adesutherland/CMS-370-BREXX/releases/download/v0.9.9/BREXX.zip
 unzip BREXX.zip
 chmod +x BREXX/cmsinstall.sh
 mkdir io

changelog.txt

@@ -1,6 +1,11 @@
 VM/370 Docker Container - Changelog
 ===================================
 
+1.4.29 - GCCLIB v0.8.1
+         BREXX v0.9.9
+         Add dos2unix
+         MOD HRC409DS - Fix Crash when calling non-existing
+                        command via address cms #6
 1.4.28 - GCCLIB F0046
 1.4.27 - MOD HRC408DS
          MOD HRC409DS

localrun.sh

@@ -1,3 +1,4 @@
 #!/bin/sh
 # Script to run the locally built container
-docker run -rm -d -p 3270:3270 -p 8038:8038 -p 3505:3505 --name vm370 adriansutherland/vm370local:latest
+docker kill vm370
+docker run --rm -d -p 3270:3270 -p 8038:8038 -p 3505:3505 --name vm370 adriansutherland/vm370local:latest

mods/buildnuc.sh

@@ -38,7 +38,7 @@ herccontrol "/59"
 herccontrol "/yes"
 
 # DMSINI611R VERSION IDENTIFICATION =
-herccontrol "/CMS VERSION 6.0 DOCKER 1.4.28"
+herccontrol "/CMS VERSION 6.0 DOCKER 1.4.29"
 
 # DMSINI612R INSTALLATION HEADING =
 herccontrol "/Conversional Monitor System"

mods/hrc409ds/dmscsf.tmpftype

@@ -1,23 +1,14 @@
 ./ I 1460000 $ 1460100 100
+*                                                              HRC409DS
          TM    MISFLAGS,NEGITS    Error in a CMS command?      HRC409DS
-         BNO   UPDAT              Normal flow if not           HRC409DS
+         BNO   CSFDONE            Normal flow if not           HRC409DS
          LTR   R15,R15            Check for negative RC?       HRC409DS
-         BNM   UPDAT              Normal flow if not           HRC409DS
-         TM    OPTFLAGS,NOIMPCP   Implied CP in effect?        HRC409DS
-         BO    UPDAT              Nothing to do if not         HRC409DS
-         LA    R1,CMNDLINE        Address of command line      HRC409DS
-         LR    R0,R6              Length of command            HRC409DS
-         BCTR  R6,0               Minus 1                      HRC409DS
-         L     R5,NUCUPPER        Uppercase translate table    HRC409DS
-         B     *+8                                             HRC409DS
-         TR    0(*-*,R1),0(R5)                                 HRC409DS
-         EX    R6,*-4             Uppercase it                 HRC409DS
-         LA    R6,1(,R6)          Restore count in R6          HRC409DS
-         L     R15,=V(DMSCPF)                                  HRC409DS
-         BALR  R14,R15            Try as a CP command          HRC409DS
-         CH    R15,=H'1'          Unknown CP command?          HRC409DS
-         BNE   NOT4               Known if not                 HRC409DS
-         LNR   R15,R15            Negative RC                  HRC409DS
-         B     UPDAT              Done THE FILES               HRC409DS
-NOT4     DS    0H                 Use CP retcode               HRC409DS
-UPDAT    DS    0H                                              HRC409DS
+         BNM   CSFDONE            Normal flow if not           HRC409DS
+*                                                              HRC409DS
+         LA    R1,CMNDLIST        Address of command line      HRC409DS
+         L     R15,=V(DMSCPF)     Try as a CP command          HRC409DS
+         BALR  R14,R15                                         HRC409DS
+         CH    R15,=H'1'          Does RC say 'Unknown cmd'?   HRC409DS
+         BNE   CSFDONE            Done here if not             HRC409DS
+         LA    R15,3                                           HRC409DS
+         LNR   R15,R15            Make it a -3 for REXX        HRC409DS