chookperson
commented
1 year ago V181 IMPLEMENTATION 6TH JANUARY 2023 JCLH ==================== ================ ====
This document represents my journey through testing my programs against the environment represented by the latest release of z390.
Since I changed some javas amongst az390, ez390, lz390, mz390, pz390, sz390, tz390. zc390, z390, I can't use the JAR in my testing, so everything will need adjusting to access my javas.
The new version of Z390, as appears in the download of v1.8.1, is different from that which I am used to.
The document was intended as an aide memoire for self, rather than to be understandable by a wider audience. So please forgive any errors, snafus and omissions.
v1.8.1 has a "source" download, which for instance would have CBL but wouldn't have been compiled, so it wouldn't have MLC, BAL, 390, ERR, PRN etc. files.
v1.8.1 has a "runtime" download, which at this point of time hasn't really been investigated, but I note that there isn't a directory for SRC, i.e. JAVA files don't appear in the "runtime".
I want eventually to "deliver" the consumables from my DB2 porting project to Z390 thru Abe and hopefully on to z390 proper, perhaps thru github, but I realise that my stuff doesn't match v181.
So I have downloaded "source" into c:\v181, whereas in the release I am familiar with, it was c:\z390.
I will make what changes are necessary to "v181", to allow the CB001 thru CB094 set of CBLs to be OK.
I note already that BAT files instead of being in the "root" directory, formerly Z390, are in v181\BAT directory.
So I have copied ZC390, ZC390C. ZC390CL and ZC390CL across from z390 "root" to v181\BAT where they have been renamed as ZC181, ZC181C, ZC181CL and ZC181CL.
And changed internally, so that instead of getting the "old" versions in z390.jar, they pick up the newly compiled versions of the necessary JAVAs, that were in the old JAR.
Also, I nearly forgot, I have copied the files that I deemed were necessary for the CBnnn's and the DB2's across to v181.
When first I tried to run ZC181 in v181 (cd c:\v181, bat\ZC181ZCOBOL\DEMO\CB001), I immediately struck my first problem, "unable to set" which emanated from the v181 version of TZ390.JAVA, which was looking for the "properties" file, which I discovered was something githubbian. To temporarily get around this problem, I did a change to it to comment out the "method of "getVersion" and replace it with "v1.8.1" and to recompile it.
That nasty message dissolved.
bat\zc181 zcobol\demo\cb001 seemed to work, no other errors were reported.
But don't get too excited, when I tried bat\zc181c, it spat the dummy, because the new directory structure had struc(k)-tured again. ZC390CLG.OPT couldn't be found in the ZCOBOL\Z390 directory, because the directory had been renamed as the ZCOBOL\OPT directory and the file itself was renamed from ZC390CLG.OPT to CBLOPT.OPT, that entailed changes to bat\ZC181C.BAT to point to the new option file (note to self, I'll need to make the same changes to ZC181CL and ZC181CLG).
I just remembered that MACs were in various places in the "old" version, now they have been centralized into v181\MAC, that will cause problems.
When bat\ZC181C was run again, lo and behold, o shi...... a number of problems,
1) GEN_PROC_END 2) ZC390LIB 3) ZCVT 4) PP2 5) The files for NNN_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, OUT_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, PUT_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, PPP_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, QQQ_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, OPE_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, FFF_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, LUP_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, PP2_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, 6) missing macro =SAVE missing macro =LOAD missing macro =WTO missing macro =ZOPEN missing macro =DCBD missing macro =DCB 7) 3 undefined symbols, presumably in the error 198's
Whatever they are about, I'm sure that I'm just about to find out.
log
c:\V181>rem ZC181C translate CBL to MLC and assemble using z390
c:\V181>echo off
01:55:56 cb001 ZC390 START USING z390 V1.8.1 ON J2SE 17.0.1 01/06/23
01:55:56 cb001 ZC390 ENDED RC= 0 SEC= 0 MEM(MB)= 9 IO=2
01:55:56 cb001 MZ390 START USING z390 V1.8.1 ON J2SE 17.0.1 01/06/23
MZ390E MNOTE 8,'GEN_PROC_END WS LENGTH ERROR = 949'
AZ390E error 29 (11/75)10 SAVE (14,12)
AZ390E error 29 (11/124)28 LOAD EP=ZC390LIB
AZ390E error 29 (11/127)31 WTO 'ZC390LIB NOT FOUND'
AZ390E error 29 (11/141)45 WTO 'ZC390LIB ZCVT VERIFY ERROR'
AZ390E error 198 (38/44)284 STH ZC_R0,PP2_FILE+DCBBLKSI-IHADCB
AZ390E error 198 (38/56)286 ST ZC_R0,PP2_FILE+DCBDSNAM-IHADCB
AZ390E error 198 (38/66)288 MVC DCBMACRF-IHADCB+PP2_FILE,0(ZC_R1)
AZ390E error 29 (38/73)289 ZOPEN (PP2_FILE,(OUTPUT))
AZ390E error 98 (38/65)287 LARL ZC_R1,=AL2(DCBMACRF_PM)
AZ390E error 29 (45/385)408 DCBD , RPI 1048
AZ390E error 29 (45/387)409 NNN_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E error 29 (45/387)413 OUT_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E error 29 (45/387)415 PUT_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E error 29 (45/387)417 PPP_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E error 29 (45/387)419 QQQ_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E error 29 (45/387)421 OPE_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E error 29 (45/387)423 FFF_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E error 29 (45/387)425 LUP_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E error 29 (45/387)427 PP2_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0,
AZ390E ERRSUM Critical Error Summary Option
AZ390E ERRSUM Fix and repeat until all nested errors resolved
AZ390E ERRSUM missing macro =SAVE
AZ390E ERRSUM missing macro =LOAD
AZ390E ERRSUM missing macro =WTO
AZ390E ERRSUM missing macro =ZOPEN
AZ390E ERRSUM missing macro =DCBD
AZ390E ERRSUM missing macro =DCB
AZ390E ERRSUM total missing copy files =0
AZ390E ERRSUM total missing macro files =6
AZ390E ERRSUM total undefined symbols =3
AZ390E ERRSUM total mz390 errors = 0
AZ390E ERRSUM total az390 errors = 19
01:55:57 cb001 MZ390 ENDED RC=12 SEC= 0 MEM(MB)=117 IO=26617
Press any key to continue . . .
Let's have a look at v181/src for any JAVAs I haven't compiled. I seem to have compiled them all yesterday.
They have been compared with the desktop new source and a winmerge report has been generated for each of them, proving that any changes that I made were to the desktop versions not to the old z390 versions. Thus the classes in v181/src are correct.
MZ390E MNOTE 8,'GEN_PROC_END WS LENGTH ERROR = 949' occurs where WS is bigger than expected?
Look at CB001.CBL
IDENTIFICATION DIVISION.
PROGRAM-ID. CB001.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT NNN-FILE
ASSIGN TO 'ZCOBOL\DEMO\M6D.NNN'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUT-FILE
ASSIGN TO 'ZCOBOL\DEMO\M3.OUT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PUT-FILE
ASSIGN TO 'ZCOBOL\DEMO\NAVIG8OR.PUT'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PPP-FILE
ASSIGN TO 'ZCOBOL\DEMO\M2.PPP'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT QQQ-FILE
ASSIGN TO 'ZCOBOL\DEMO\NAVIG8OR.QQQ'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OPE-FILE
ASSIGN TO 'ZCOBOL\DEMO\M7.OPE'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT FFF-FILE
ASSIGN TO 'ZCOBOL\DEMO\NAVIG8OR.FFF'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT LUP-FILE
ASSIGN TO 'ZCOBOL\DEMO\M7.LUP'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT PP2-FILE
ASSIGN TO 'ZCOBOL\DEMO\M2.PP2'
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD NNN-FILE
DATA RECORD IS NNN-RECORD.
01 NNN-RECORD PIC X(119).
FD OUT-FILE
DATA RECORD IS OUT-RECORD.
01 OUT-RECORD PIC X(256).
FD PUT-FILE
DATA RECORD IS PUT-RECORD.
01 PUT-RECORD PIC X(256).
FD PPP-FILE
DATA RECORD IS PPP-RECORD.
01 PPP-RECORD PIC X(110).
FD QQQ-FILE
DATA RECORD IS QQQ-RECORD.
01 QQQ-RECORD PIC X(110).
FD OPE-FILE
DATA RECORD IS OPE-RECORD.
01 OPE-RECORD PIC X(15).
FD FFF-FILE
DATA RECORD IS FFF-RECORD.
01 FFF-RECORD PIC X(1968).
FD LUP-FILE
DATA RECORD IS LUP-RECORD.
01 LUP-RECORD PIC X(241).
FD PP2-FILE
DATA RECORD IS PP2-RECORD.
01 PP2-RECORD PIC X(20001).
WORKING-STORAGE SECTION.
LINKAGE SECTION.
PROCEDURE DIVISION.
MAINLINE.
OPEN OUTPUT PP2-FILE.
STOP RUN.The first thing to note is that it doesn't have a Working Storage area, so the GEN_PROC_END mnote isn't correct.
Look at it in 'old' version. Looks like the same code. The combined size of the files is 23,076 bytes. There could be additional overhead per file. But I don't know how to proceed with this one. I hope things become clearer as we proceed.
ZC390LIB.MLC is in c:\z390\z390
ZC390LIB.MLC is in c:\z390\zcobol\z390
ZC390LIB.MLC is in c:\v181\zcobol\lib
So it seems that ZC390LIB.MLC is in a different directory in V181. AZ390E error 29 (11/127)31 WTO 'ZC390LIB NOT FOUND'
look for error msg in AZ390.JAVA
I can't find the msg anywhere in the v181 JAVAs.
Found it c:\V181\zcobol\mac\GEN_ID.MAC: WTO 'ZC390LIB NOT FOUND'
also FINDSTR found c:\V181\bash\bldcbllib:# bldcbllib: rebuild zcobol/lib/ZC390LIB.390 c:\V181\bash\bldcbllib:bash/asml zcobol/lib/ZC390LIB $sysmac $syscpy $sys390 RMODE24 $1 $2 $3 $4 $5 $6 $7 $8 $9 c:\V181\bash\bldcbllib:echo "Verify ZC390LIB.390 build ok"
looks like we have to rerun the bash script to get the 390 file, which GEN_ID cannot find and therefore cannot load.
On Z390
SAVE Z390\MAC LOAD Z390\MAC WTO Z390\MAC ZOPEN Z390\MAC DCBD Z390\MAC DCB Z390\MAC
On V181
SAVE V181\MAC LOAD V181\MAC WTO V181\MAC ZOPEN V181\MAC DCBD V181\MAC DCB V181\MAC
So on the surface they're the same. The "ERRSUM missing macro" emanates from AZ390.JAVA.
But in that area the z390 java and the v181 java look the same.
The checking is done in TZ390.JAVA. looked at AZ390.JAVA re ERRSUM but it's too complicated.
Maybe I ought to look at any logs in v181 to see what BAT/BASH scripts have been run supposing that the "runtime" was generated by same.
Cos I'm not using the runtime. I'm working from the "source", trying to fix problems as I go.
Or I could just try compiling CB002 et al and see what pops out. I tried compiling first dozen and they all had problems finding those MACs noted above.
I think that I might run BAT\BLDCBLLIB in v181, it might get rid of the Z390LIB.390 problem, at least.
run BAT\BLDCBLLIB.BAT in V181 with log to bldcbllib.out fell over couldn't find or load main class mz390
Look at BAT
BAT\BLDCBLLIB.BAT
@if /I "%1" == "tron" (echo on) else (echo off) rem rebuild zcobol\z390\zc390lib.390
setlocal if /I "%1" == "tron" (set z_TraceMode=tron shift /1 ) else (if /I "%1" == "troff" (set z_TraceMode=troff shift /1 ) else (set z_TraceMode=) ) set /A z_NestLevel=%z_NestLevel%+1 rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
pushd %~dps0.. call bat\asm %z_TraceMode% zcobol\lib\ABORT sysmac(mac) syscpy(mac+zcobol\lib) %1 %2 %3 %4 %5 %6 %7 %8 %9 || goto error call bat\asm %z_TraceMode% zcobol\lib\ACCEPT sysmac(mac) syscpy(mac+zcobol\lib) %1 %2 %3 %4 %5 %6 %7 %8 %9 || goto error call bat\asm %z_TraceMode% zcobol\lib\CVTTOHEX sysmac(mac) syscpy(mac+zcobol\lib) %1 %2 %3 %4 %5 %6 %7 %8 %9 || goto error call bat\asm %z_TraceMode% zcobol\lib\DISPLAY sysmac(mac) syscpy(mac+zcobol\lib) %1 %2 %3 %4 %5 %6 %7 %8 %9 || goto error call bat\asm %z_TraceMode% zcobol\lib\INSPECT sysmac(mac) syscpy(mac+zcobol\lib) %1 %2 %3 %4 %5 %6 %7 %8 %9 || goto error call bat\asm %z_TraceMode% zcobol\lib\ZC390NUC sysmac(mac) syscpy(mac+zcobol\lib) %1 %2 %3 %4 %5 %6 %7 %8 %9 || goto error call bat\asml %z_TraceMode% zcobol\lib\ZC390LIB sysmac(mac) syscpy(mac+zcobol\lib) sys390(zcobol\lib) rmode24 %1 %2 %3 %4 %5 %6 %7 %8 %9 || goto error if not exist zcobol\lib\ZC390LIB.390 (set z_ReturnCode=12 echo %0 ERROR: ZC390LIB.390 was not created goto return) set z_ReturnCode=0 goto return
:error set z_ReturnCode=%ERRORLEVEL% echo %0 ERROR: Encountered RC %z_ReturnCode% - exiting :return popd rem ----- Lvl(%z_NestLevel%) End %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 exit /b %z_ReturnCode%
ABORT, ACCEPT, CVTTOHEX, DISPLAY, INSPECT, ZC390NUC and ZC390LIB are all in v181\zcobol\lib where they are all MLCs
It uses BAT\ASM to run the JAVA
BAT\ASM.BAT (You have to right-click on file and use notepad++)
@if /I "%1" == "tron" (echo on) else (echo off) rem asm run macro assembly to generate relocatable obj from mlc source
setlocal if /I "%1" == "tron" (set z_TraceMode=tron shift /1 ) else (if /I "%1" == "troff" (set z_TraceMode=troff shift /1 ) else (set z_TraceMode=) ) set /A z_NestLevel=%z_NestLevel%+1 rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
if /I %1. == . (set /P z_file=Hit Enter for help or suppply name of mlc file to assemble: ) else (set z_file=%1) if /I %z_file%. == . goto help :chkfile rem convert Unix path notation to Windows before checking the file set z_file=%z_file:/=\% if exist %z_file%.MLC goto file_ok rem if user specified valid extension, strip it off if /I %z_file:~-4%. NEQ .MLC. goto help set z_file=%z_file:~0,-4% if exist %z_file%.MLC goto file_ok echo %0 ERROR: %z_file%.MLC was not found set z_ReturnCode=16 goto return
:file_ok if exist %z_file%.BAL erase %z_file%.BAL if exist %z_file%.PRN erase %z_file%.PRN if exist %z_file%.OBJ erase %z_file%.OBJ if exist %z_file%.LST erase %z_file%.LST if exist %z_file%.390 erase %z_file%.390 if exist %z_file%.LOG erase %z_file%.LOG if exist %z_file%.ERR erase %z_file%.ERR if exist %z_file%.STA erase %z_file%.STA if exist %z_file%.TR erase %z_file%.TR
rem get the z390 directory set "z_HomeDir=%~dps0..\" for %%f in ("%z_HomeDir%") do set "z_HomeDir=%%~ff"
call %~dps0mz390 %z_TraceMode% %z_file% sysmac(+%z_HomeDir%mac) syscpy(+%z_HomeDir%mac) %2 %3 %4 %5 %6 %7 %8 %9 set z_ReturnCode=%ERRORLEVEL% rem any error or warning message has been issued by mz390 if %z_ReturnCode% NEQ 0 (if %z_ReturnCode% NEQ 4 (if exist %z_file%.OBJ (erase %z_file%.OBJ) goto return))
:return rem ----- Lvl(%z_NestLevel%) End %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 exit /b %z_ReturnCode%
:help echo . echo the ASM.BAT procedure is intended to assemble a single assembler program echo . set /P z_file=Hit Enter for more help or suppply name of mlc file to assemble: if /I %z_file%. NEQ . goto chkfile
call %~dps0help %z_TraceMode% set z_ReturnCode=16 goto return
BAT/ASM.BAT invokes JAVA via "call %~dps0mz390" notepad++'ed it and added "echo %0 path to mz390 %~dps0"
reran BAT/BLDCBLLIB.BAT
It gave
bat\asm path to mz390 c:\V181\bat\ and MZ390.JAVA/CLASS aint in that location
google says that a call in a DOS BATch file is to call another DOS BATch file, so I can expect there to be a BAT\MZ390.BAT as well
BAT\MZ390.BAT
@if /I "%1" == "tron" (echo on) else (echo off) rem execute mz390 runtime with java runtime options:
setlocal if /I "%1" == "tron" (set z_TraceMode=tron shift /1 ) else (if /I "%1" == "troff" (set z_TraceMode=troff shift /1 ) else (set z_TraceMode=) ) set /A z_NestLevel=%z_NestLevel%+1 rem ----- Lvl(%z_NestLevel%) Start %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
if /I %1. == . (echo %0 ERROR: missing file name set z_ReturnCode=16 goto return )
rem 01/15/09 DSH added 150 MB init and max mem for zcobol rem -classpath path to jar file rem -verbose:gc trace garbage collection to detect memory leaks rem -XmsnK set initial memory allocation to nK rem -XmxnK set max memory allocation to nK rem -Xrs allow control break interruption of java tasks java -classpath %~dps0..\z390.jar -Xrs -Xms150000K -Xmx150000K %J2SEOPTIONS% mz390 %1 %2 %3 %4 %5 %6 %7 %8 %9
set z_ReturnCode=%ERRORLEVEL% if %z_ReturnCode% EQU 0 goto return if %z_ReturnCode% EQU 4 (echo %0 WARNING: See warnings on mz390 generated bal file and console goto return ) rem ErrorLevel 1 for Java issues or ErrorLevel 8 / 12 for assembly issues echo %0 ERROR: See errors on mz390 generated bal file and console
:return rem ----- Lvl(%z_NestLevel%) End %0 %1 %2 %3 %4 %5 %6 %7 %8 %9 exit /b %z_ReturnCode%
notepad++'ed BAT\MZ390.BAT to include "rem jclh /n echo %0 path to mz390 %~dps0" to it
and reran BAT\BLDCBLLIB.BAT It gave c:\V181\bat\mz390 path to mz390 c:\V181\bat\ where z390.jar is supposed to reside
Used File Explorer to look for z390.jar in v181, didn't find it. I suppose one will not find a "runtime" object in a "source" environment.
I'll have to make further changes to "source" BAT files that invoke JAVA/CLASS to point to v181/src rather than v181/bat
change BAT\MZ390.BAT to point to v181\src
REM JCLH rem java -classpath %~dps0..\z390.jar -Xrs -Xms150000K -Xmx150000K %J2SEOPTIONS% mz390 %1 %2 %3 %4 %5 %6 %7 %8 %9 echo jclh changed classpath in %0 to v181\src java -classpath v181\src\mz390 -Xrs -Xms150000K -Xmx150000K %J2SEOPTIONS% mz390 %1 %2 %3 %4 %5 %6 %7 %8 %9
create BAT/JHJAV.BAT which just runs the java class change BAT/MZ390.BAT to use it
OK let's review where we are We wanted to run BAT\BLDCBLLIB.BAT which calls ASM.BAT which calls MZ390.BAT under V181.
I got errors with BLDCBLLIB which occasioned looking at ASM which in turn led to MZ390.
I have had a lot of trouble getting JAVAC and JAVA to recognise MZ390(.CLASS), perhaps this is ongoing.
I saw above a mention of BLDCBLLIB with regard to a BASH version of BLDCBLLIB where it also mentioned the parameters to be passed.
So I need to review in v181 - BAT(or BASH)\BLDCBLLIB, BAT\ASM.BAT, BAT\MZ390.BAT to ensure that they are compatible with v181, the path, the classpath, the new directory structure, the whereabouts of the java bin files. ....
So lets go back to BLDCBLLIB
Z390 has both an MLC and a 390 file for ZC390LIB
BUT V181 only has an MLC file for ZC390LIB
AZ390E error 29 (11/127)31 WTO 'ZC390LIB NOT FOUND'
c:\V181\zcobol\mac\GEN_ID.MAC: WTO 'ZC390LIB NOT FOUND'
c:\V181\bash\bldcbllib:# bldcbllib: rebuild zcobol/lib/ZC390LIB.390 c:\V181\bash\bldcbllib:bash/asml zcobol/lib/ZC390LIB $sysmac $syscpy $sys390 RMODE24 $1 $2 $3 $4 $5 $6 $7 $8 $9 c:\V181\bash\bldcbllib:echo "Verify ZC390LIB.390 build ok"
looks like we have to rerun the bash script to get the 390 file, which GEN_ID cannot find and therefore cannot load.
Running (NUJAVCLG hacked to bits) against MZ390, it errors cos it wants and expects an MLC file, perhaps it wants V181\ZCOBOL\LIB\BLDCBLLIB.MLC, as above, cos BLDCBLLIB sounds like it is trying to Build a CBL LIBrary.
It looks like bldcbllib is calling asml not asm
But I guess I'll have to look at a lot of BATch files to see whether they need to be massaged, not just ASM and ASML.
Eventually ran MZ390 in Z390 OK, "MZ390 Z390\ZC390LIB"
REM JCLH REM set path="c:\program files\Java\jdk-17.0.1\bin" REM echo path=%path% REM echo classpath=%~p1 REM echo program= %~n1 java -classpath src -Xrs -Xms150000K -Xmx150000K %J2SEOPTIONS% mz390 %1 %2 %3 %4 %5 %6 %7 %8 %9
in V181\BAT\MZ390.BAT got TZ390E abort error 10 - systerm file open error java.lang.NullPointerException z390_abort_request ZC390LIB MZ390 TZ390E abort error 10 - systerm file open error java.lang.NullPointerException BAT\MZ390 ERROR: See errors on mz390 generated bal file and console
changed v181\src\tz390 with my z390 change // jclh abort_error(10,"systerm file open error " + systerm_file_name + e.toString()); which is the inclusion of the systerm_file_name in the error msg
jhjavc it, followed by jhjavc mz390 bat\jhjavc src\tz390 then bat\jhjavc src\mz390 ok then ok
I went thru the exercise of adding a lot of System.out.println's to TZ390, hours and hours, only to find that BAT\MZ390 LIB\ZC390LIB is wrong, it should be BAT\MZ390 ZCOBOL\LIB\ZC390LIB
Comment-out all JCLH lines in TZ390
Did that and BAT\JHJAVC SRC\TZ390 OK BAT\JHJAVC SRC\MZ390 OK BAT\MZ390 ZCOBOL\LIB\ZC390LIB OK
Hooray
Edited BAT\AZ390.BAT & BAT\EZ390.BAT to conform with "java" command in BAT\MZ390.BAT
Recapping
Run ZC181 on CB001 in V181, "UNABLE TO SET", githubbian, fixed with change to V181\SRC\TZ390.JAVA.
Run ZC181C on CB001 in V181, ZCOBOL\Z390\ZC390CLG.OPT becomes ZCOBOL\OPT\CBLOPT.OPT,
Changes needed to ZC181C and ZC181CLG.
When bat\ZC181C was run again, lo and behold, o shi......
a number of problems, 1) GEN_PROC_END 2) ZC390LIB 3) ZCVT 4) PP2 5) The files for NNN_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, OUT_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, PUT_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, PPP_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, QQQ_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, OPE_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, FFF_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, LUP_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, PP2_FILE DCB DSORG=PS,RECFM=FT,BLKSIZE=0, 6) missing macro =SAVE missing macro =LOAD missing macro =WTO missing macro =ZOPEN missing macro =DCBD missing macro =DCB 7) 3 undefined symbols, presumably in the error 198's
BLDCBLLIB creates ZC390LIB.390 from ZC390LIB.MLC
When first run, it fell over "couldn't find class mz390".
BLDCBLLIB.BAT calls ASM.BAT calls MZ390.BAT
Have to look at ASM.BAT, ASML.BAT, ASMLG.BAT
Finally BAT\MZ390 LIB\ZC390LIB wrong BAT\MZ390 ZCOBOL\LIB\ZC390LIB right
Look at ASM.BAT, ASML.BAT and ASMLG.BAT
ASM.BAT calls MZ390.BAT ASML.BAT calls MZ390.BAT and LZ390.BAT ASMLG.BAT calls MZ390.BAT, LZ390.BAT and EZ390.BAT
I haven't looked at LZ390.BAT yet, done.
And SRC\LZ390.JAVA hasn't been compiled yet? The class is there.
Run BAT\BLDCBLLIB again, LOOKS OK.
Let's run BAT\ZC181C ZCOBOL\DEMO\CB001 again. looks similar to last time.
Apart from the BLDCBLLIB, there's a BLDLIB, BLDJAR, BLDZSTRMAC.
Let's run these excluding BLDJAR.
BAT\BLDLIB ran to end without error. BAT\BLDZSTRMAC ran to end without error.
rerun BAT\ZC181C ZCOBOL\DEMO\CB001
unchanged
just found BAT\ZC390BLD.BAT, let's run that.
It's not set up to run in V181.
Calls all prefixed with BAT.
Rerun.
All Z390 changed to LIB.
Rerun. ran to end ok.
rerun BAT\ZC181C ZCOBOL\DEMO\CB001 unchanged.
I've found something else that's different, there's a whole bunch of BAT files in the ZPAR directory. I was looking for ZCCLG.BAT which I believed was the new zcobol compile bat and found it in zpar. I thought perhaps I needed to change something because some of the MACs are in V181\MAC whilst others are in V181\ZCOBOL\MAC and I thought that ZCCLG would reflect those changes.
Look at BAT\ZCCLG.BAT in the "runtime" environment which does reflect the differences with regard to the MACs.
BAT\ZCCLG.BAT in the "runtime" environment, just showing relevant lines
call %~dps0ZC390 %z_TraceMode% %z_file% %2 %3 %4 %5 %6 %7 %8 %9
call %~dps0MZ390 %z_TraceMode% %z_file% @%z_HomeDir%zcobol\opt\CBLOPT sysmac(%z_HomeDir%zcobol\mac+mac) syscpy(+%z_HomeDir%zcobol\cpy) %2 %3 %4 %5 %6 %7 %8 %9
call %~dps0LZ390 %z_TraceMode% %z_file% %2 %3 %4 %5 %6 %7 %8 %9
call %~dps0EZ390 %z_TraceMode% %z_file% sys390(+%z_HomeDir%zcobol\lib) %2 %3 %4 %5 %6 %7 %8 %9
and now at relevant lines in BAT\ZC181.BAT, BAT\ZC181C.BAT, BAT\ZC181CL.BAT and BAT\ZC181CLG.BAT
BAT\ZC181.BAT
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs zc390 %1 SYSCPY(+zcobol+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9
BAT\ZC181C.BAT
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs zc390 %1 SYSCPY(+zcobol+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs mz390 %1 @zcobol\OPT\CBLOPT.OPT %2 %3 %4 %5 %6 %7 %8 %9
BAT\ZC181CL.BAT
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs zc390 %1 SYSCPY(+zcobol+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs mz390 %1 @zcobol\z390\ZC390CLG %2 %3 %4 %5 %6 %7 %8 %9
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs lz390 %1 SYSOBJ(+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9
BAT\ZC181CLG.BAT
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs zc390 %1 SYSCPY(+zcobol+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs mz390 %1 @zcobol\z390\ZC390CLG %2 %3 %4 %5 %6 %7 %8 %9
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs lz390 %1 SYSOBJ(+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs ez390 %1 SYS390(+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9
change
BAT\ZC181CLG.BAT to
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs zc390 %1 SYSCPY(+zcobol+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9 unchanged
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs mz390 %1 @zcobol\opt\CBLOPT sysmac(%zcobol\mac+mac) syscpy(%zcobol\cpy) %2 %3 %4 %5 %6 %7 %8 %9 changed
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs lz390 %1 SYSOBJ(+zcobol\z390) %2 %3 %4 %5 %6 %7 %8 %9 unchanged
"%PF%Java\jdk-17.0.1\bin\java.exe" -Xrs ez390 %1 SYS390(+zcobol\lib) %2 %3 %4 %5 %6 %7 %8 %9 changed
relevant changes were made
now retry BAT\ZC181C ZCOBOL\DEMO\CB001 in V181 most of previous errors gone away, but now objecting to other MACs. Try removing % from sysmac and syscopy
now retry BAT\ZC181C ZCOBOL\DEMO\CB001 in V181 now just MZ390E error 101 (1/3)3 missing copy = CB001_ZC_LABELS.CPY MZ390E error 266 (1/3)3 missing copy = CB001_ZC_LABELS.CPY AZ390E error 144 (40/56)295 ST ZC_R0,PP2_FILE+DCBDSNAM- IHADCB
Try adding +zcobol to syscpy in BAT\ZC181C in V181
now retry BAT\ZC181C ZCOBOL\DEMO\CB001 in V181 the same errors
should have been +zcobol\demo, change & retry just AZ390E error 144 (41/56)294 ST ZC_R0,PP2_FILE+DCBDSNAM-IHADCB still remains
error144 (no base register) was occurring and resisted many attempts to fix it by moving the code around in the program. it was finally fixed by moving the FD for the file involved from the sixth position to the 4th position.
now retry BAT\ZC181C ZCOBOL\DEMO\CB001 in V181 all the errors have gone away
change BAT\ZC181CL and BAT\ZC181CLG,
remove % from sysmac and syscpy and add +zcobol\demo to syscpy
Try running the rest of my test programs Some have been omitted because they pulled the same problems as under z390 Only those that encountered new problems are shown
BAT\ZC181C ZCOBOL\DEMO\CB002 in V181
AZ390E error 42 (42/285)2148 BRAS ZC_R14,3 SET ZC_R1 TO A(INLINE LIT) AND SKIP OVER IT
/*
* symbol table global variables
*/
byte sym_sdt = 0; // dec, b'', c'', h''
byte sym_cst = 1; // CSECT )alias REL)
byte sym_dst = 2; // DSECT (alias REL)
byte sym_ent = 3; // ENTRY (alias REL)
byte sym_ext = 4; // EXTRN external link
byte sym_rel = 5; // RX (CST.DST,ENT)_
byte sym_rld = 6; // complex rld exp
byte sym_lct = 7; // loctr (changed to cst/dst).
byte sym_wxt = 8; // WXTRN weak external link RPI182
byte sym_und = 9; // undefined symbol RPI 694extract from ZCOBOL\DEMO\CB002.PRN
001050 (1/456)1268 *ZC 139 SUBTRACT 1,FROM,DDUB1,GIVING,BUB1 001050 F20090B8D05C 0000B8 00B1FC (44/44)1269+ PACK ZCVT_PWORK2(1),0+DDUB1(1) PACK #1 NORMAL 001056 F00090B80040 0000B8 (41/1504)1270+ SRP ZCVT_PWORK2(1),64-0,0 00105C F800D0B090B8 00B250 0000B8 (41/1506)1271+ ZAP BUB1,ZCVT_PWORK2(1) 001062 (42/285)1272+ BRAS ZC_R14,3 SET ZC_R1 TO A(INLINE LIT) AND SKIP OVER IT AZ390E error 42 (42/285)1272 BRAS ZC_R14,3 SET ZC_R1 TO A(INLINE LIT) AND SKIP OVER IT AZ390I 2 invalid rel off bits 16 exp_type=0 sym_rel=5
symrel=5; // RX (CST.DST,ENT) whilst exp_type=0=sdt, that is a self-defining term
relevant working-storage lines in ZCOBOL\DEMO\CB002.CBL in V181
01 DDUB1 PIC 9(01) value 1.01 BUB1 PIC 9(01) COMP-3 value 0.
neither field signed. IBM COBOL doesn't seem to demand they be signed. doesn't get error under "z390" environment
compared z390\zcobol\demo\cb002.prn with v181\zcobol\demo\cb002.prn at the point of error 42, the assembler is the same.
Looked at the JAVA in AZ390.JAVA, the error 42 appears in new code in V181
Only occurs on a SUBTRACT GIVING where the receiving field is COMP-3
bat\zc181c zcobol\demo\cb031 AZ390E error 193 (43/2074)251 MVI 0(6,ZC_R3),C'0' AZ390I unexpected character before close ), There’s an error in az390 in the expectation of one addressing structure When another is being received,
expecting “( something )” getting “(6,”
')' in get_hex_lbddd and get_exp_abs_bddd and get_exp_abs_v2xbddd and get_exp_abs_xbddd
the 193 is in get_exp_abs_bddd
I suspect that get_exp_abs_xbddd may have the correct shape (the xbddd shape) to fit 0(6,zc_r3) Though I’m a complete novice in these areas
bat\zc181c zcobol\demo\cb037 MZ390E MNOTE 8,'GEN_PROC_END WS LENGTH ERROR= 4'
It was an error in GEN_PROC_END.MAC
AZ390E error 17 (44/213)424 BRUCE5 DC AL2(1234+) RPI 1065 when zcobol DISPLAYs a single COMP variable, either explicit positive sign or negative sign
bat\zc181c zcobol\demo\cb046 AZ390E error 98 (36/75)262 IILF ZC_R7,WSADDR9-WS characters ZC missing from beginning of WS in GEN_BASE.MAC
bat\zc181c zcobol\demo\cb063 AZ390E error 98 (42/75)612 IILF ZC_R7,RETURN_CODE-WS see above
bat\zc181c zcobol\demo\cb068 MZ390E MNOTE 8,'ZC_CALC MISSING VAR STACK PTR' I suspect that the error occurs with unary signs (+ or -) in a COMPUTE.
bat\zc181c zcobol\demo\cb070 MZ390E MNOTE 8,'ZC_CALC MISSING VAR STACK PTR' see above
bat\zc181c zcobol\demo\cb079 MZ390E MNOTE 8,'ZC_CALC MISSING VAR STACK PTR' see above
That completes the testing of my CBnnn.CBL test programs.
STARTING TESTING OF DB2 PORTING PROJECT
Ran DB2PREPY under v181 crash
You have to run BAT\DB2PREPY TESTALL2
The GEN_PROC_END problem that occurred in z390
Doesn’t occur in z181, so had to remove my fix from v181.
Re-ran BAT\DB2PREPY TESTALL2 in v181, the GEN_PROC_END problem Has gone away, but now objects about zc181c on testall2, need to change DB2PREPY.BAT again to prefix ZC181C with BAT.
Reran BAT\DB2PREPY TESTALL2 SQLCA.CPY is missing, so copy if into v181\zcobol\demo from z390\zcobol\demo But it’s called SQLCA.CPZ. Copied OK.
Reran BAT\DB2PREPY TESTALL2 Ran OK.
Now on to DB2PREPZ, so lets have a look at it. Added BAT\ as prefix and changed ZC390J toZC181CLG
Ran BAT\DB2PREPZ missing target program name, so BAT\DB2PREPZ TESTALL2 had to change CD C:\Z390 to CD C:\V181 BAT\DB2PREPZ TESTALL2,JH,TES2,CHOOKY
DB2PREPZ massaged, RUTE=C:\V181
The DB2PREPZ.CBL itself needs massage in respect of the generated CMD lines BAT\ prefix added twice and compiled OK.
Now we have to massage BAT\DB2CRE8.BAT , RUTE plus ZC181CLG
It ran to the end and I couldn’t see any errors, look at the generated CBLs
And they all look OK.
Now NUATEST.BAT massage it.
SQUELCH5 calls WREAD1 which uses SQL.BAT, it expects it to be under C:\Z390 but it’s getting written under C:\V181 – change BAT\NUATEST.BAT.
DB2PREPY TESTALL2 OK DB2PREPZ TESTALL2,JH,TES2,CHOOKY OK NUATEST TESTALL2,CHOOKY OK
DB2PREPY TESTALL3 OK DB2PREPZ TESTALL3,JH,TES2,CHOOKY OK NUATEST TESTALL3,CHOOKY OK
DB2PREPY TESTALL4 OK DB2PREPZ TESTALL4,JH,TES4,CHOOKY OK It generates 18 new CBLs NUATEST TESTALL4,CHOOKY S80A can’t cope
DB2PREPY TESTALL5 OK DB2PREPZ TESTALL5,JH,TES5,CHOOKY OK NUATEST TESTALL5,CHOOKY OK
DB2PREPY TESTALL6 OK DB2PREPZ TESTALL6,JH,TES6,CHOOKY OK NUATEST TESTALL6,CHOOKY Doesn’t like a SENSITIVE STATIC SCROLL CURSOR Same in z390
DB2PREPY TESTALL7 OK DB2PREPZ TESTALL7,JH,TES5,CHOOKY OK NUATEST TESTALL7,CHOOKY OK
DB2PREPY TESTALL8 OK DB2PREPZ TESTALL8,JH,TES8,CHOOKY OK NUATEST TESTALL8,CHOOKY OK
DB2PREPY TESTALL9 OK DB2PREPZ TESTALL9,JH,TES9,CHOOKY cannot cope with SQL command Same in z390 (an SQL WITH)
Z390 DB2 FILES 17/02/23 JCLH ========== ====== ====
CBL TEST PROGRAMS
These programs didn't error in old environment and they are compiled and run via ZC390CLG there. They are in Z390\ZCOBOL\DEMO.
CB002 error 42 CB031 error 193 CB037 error 17 CB046 error 98 CB068 ZC_CALC MISSING VAR STACK PTR
CBL DB2 TEST PROGRAMS
All these cobol programs have an extension of SQB (This is the IBM convention for cobol files before preparation). After preparation, they take on the extension of CBL. They are in Z390\ZCOBOL\DEMO.
TESTALL2 TESTALL3 TESTALL4 gets S80A when run via NUATEST TESTALL5 TESTALL6 doesn't like SENSITIVE STATIC SCROLL CURSOR in NUATEST TESTALL7 TESTALL8 TESTALL9 cannot cope with sql verb WITH
CBL PROGRAMS TO ENABLE DB2
They are in Z390\ZCOBOL\DEMO.
DB2PREPY DB2PREPZ DB2CRE8 SQUELCH5 FORTY9
TEMPLATES USED BY DB2 ENABLER PROGRAMS
Z390\CRE7BIN.BIN Z390\ZCOBOL\DEMO\JHTES2YY.CBL Z390\DB2CRE8.BIN
BAT FILES
Z390\DB2PREPY Z390\DB2PREPZ Z390\DB2CRE8
Z390\NUATEST used to run the generated DB2 programs
Z390\SETUPEMP sets up test data Z390\SETDB2DA sets up more test data
Copy members
Z390\ZCOBOL\DEMO\SQLCA.CPZ it should already be there
MLC FILES
These are all modified CMDPROC modules
Z390\ZCOBOL\DEMO\START1 Z390\ZCOBOL\DEMO\START2 Z390\ZCOBOL\DEMO\START3 Z390\ZCOBOL\DEMO\WREAD1 Z390\ZCOBOL\DEMO\WREAD2 Z390\ZCOBOL\DEMO\WREAD3 Z390\ZCOBOL\DEMO\STOP1 Z390\ZCOBOL\DEMO\STOP2 Z390\ZCOBOL\DEMO\STOP3
JAVA PROGRAMS
Z390\SRC\MZ390 unchanged, but gets rid of ampersands, which can trouble zcobol Z390\SRC\SZ390 dynamic displays Z390\SRC\TZ390 temporarily disabled "properties"
MAC PROGRAMS
GENBASE WS missing prefix ZC WS outputs working-storage field details in ERR file
SPLIT DELIVERY
We are going to split the delivery of the above into manageable lumps, that won't unduly affect the existing codebase.
Most of the deliverables are new and therefore should have no impact, these will be delivered first.
They can be split arbitrarily as needed but the doco should be included in the first split
CB002.cbl CB031.cbl CB037.cbl CB046.cbl CB068.cbl
TESTALL2.sqb TESTALL3.sqb TESTALL4.sqb TESTALL5.sqb TESTALL6.sqb TESTALL7.sqb TESTALL8.sqb TESTALL9.sqb
DB2PREPY.cbl DB2PREPZ.cbl DB2CRE8.cbl SQUELCH5.cbl FORTY9.cbl
CRE7BIN.BIN JHTES2YY.CBL DB2CRE8.BIN
DB2PREPY.bat DB2PREPZ.bat DB2CRE8.bat
NUATEST.bat
SETUPEMP.bat SETDB2DA.bat
SQLCA.CPZ
START1.MLC START2.MLC START3.MLC WREAD1.MLC WREAD2.MLC WREAD3.MLC STOP1.MLC STOP2.MLC STOP3.MLC
DOCO FILES
Word documents EMBEDDED SQL IN ZCOBOL PROGRAMS V181 IMPLEMENTATION Z390db2 files for github (this document)
The following programs already exist and therefore Should be delivered separately last
SZ390.java
GEN_BASE.mac WS.mac
John Hennesy