Recent changes to bugs

COBOL copybook

Saravanan — Wed, 03 Feb 2021 09:32:42 -0000

Does this tool support converting COBOL copybooks too to Java. I tried executing this tool on some of the copybooks (.CPY files) present in cobol folder and it seems to be expecting Identification division in copybook too? Any workaround for this?

C:\RES>java -jar RES.jar cobol\KP005.CPY
RES Cobol 2 Java alpha1.9(08/05/2010) - COPYRIGHT 2009
C:\RES\cobol\KP005.CPY
Parsing Cobol started for: C:\RES\cobol\KP005.CPY
com.res.cobol.parser.ParseException: Encountered " "move" "MOVE "" at line 0, column 12.
Was expecting one of:
<eof>
"identification" ...</eof>

    at com.res.cobol.parser.CobolParser.generateParseException(CobolParser.java:51349)
    at com.res.cobol.parser.CobolParser.jj_consume_token(CobolParser.java:51170)
    at com.res.cobol.parser.CobolParser.CompilationUnit(CobolParser.java:2968)
    at com.res.cobol.Main.parse(Main.java:205)
    at com.res.cobol.Main.execute(Main.java:148)
    at com.res.cobol.Main.main(Main.java:73)

java.lang.NullPointerException
at com.res.cobol.Main.translate(Main.java:228)
at com.res.cobol.Main.execute(Main.java:152)
at com.res.cobol.Main.main(Main.java:73)
Done in 0s.

C:\RES>java -jar RES.jar cobol\MONEYP.CPY
RES Cobol 2 Java alpha1.9(08/05/2010) - COPYRIGHT 2009
C:\RES\cobol\MONEYP.CPY
Parsing Cobol started for: C:\RES\cobol\MONEYP.CPY
com.res.cobol.parser.ParseException: Encountered " <cobol_word> "005000-MONEY "" at line 23, column 8.
Was expecting one of:
<eof>
"identification" ...</eof></cobol_word>

    at com.res.cobol.parser.CobolParser.generateParseException(CobolParser.java:51349)
    at com.res.cobol.parser.CobolParser.jj_consume_token(CobolParser.java:51170)
    at com.res.cobol.parser.CobolParser.CompilationUnit(CobolParser.java:2968)
    at com.res.cobol.Main.parse(Main.java:205)
    at com.res.cobol.Main.execute(Main.java:148)
    at com.res.cobol.Main.main(Main.java:73)

java.lang.NullPointerException
at com.res.cobol.Main.translate(Main.java:228)
at com.res.cobol.Main.execute(Main.java:152)
at com.res.cobol.Main.main(Main.java:73)
Done in 0s.

error converting cobol program with huge number of variables in working storage/ linkage

murali — Mon, 26 May 2014 00:40:07 -0000

I tried converting a cobol program with about 50000 variables and it failed with stackoverflow on symbol table. Looks like the maximum it can handle is 4k. Can this be increased to 1,000,000 variables?

test program to calculate PI number not workimg

Haroldo Sotomayor — Sat, 08 Oct 2011 02:06:48 -0000

Attached PII.CBL. This program calculates PI value. It doesn't work with RES. It gives a incorrect value.
The expected output is
PI IS 3.141592653589

Thanks!!

Use of GOBACK

JimN — Sun, 08 Aug 2010 23:28:55 -0000

I have found that the java generated from Cobol for the GOBACK verb fails.

Refer to the attached netbeans project for a sample program.

+++++
//GOBACK
return doCobolReturn(getHubMessageLinkage());
return doCobolExit();
++++

Move into SQLCODE

JimN — Sun, 08 Aug 2010 23:07:26 -0000

In many of our programs we set the sqlcode manually as a means to implement a validation error.

the converted cobol fails to convert

MOVE 001000 TO SQLCODE

It produces a java snippet
sqlca.setSqlcode(Sqlca.sqlcodeFmt_.format("001000"));

This code lacks the reference to Sqlca.sqlcodeFmt_

pic -,--9.99 not formatting positive number correctly

Bruce Martin — Tue, 03 Aug 2010 07:58:55 -0000

A pic of -,---,--9.99 is being formatted as 0,000,001.23 when it should be 1.23

Problem with Comp-3

Bruce Martin — Tue, 03 Aug 2010 03:46:40 -0000

I have been having problem's with Comp-3's (array or Size related).

Problem Writing a Variable Length File

Bruce Martin — Tue, 03 Aug 2010 03:43:21 -0000

Problem writing a variable Length File (i.e. file has multiple records of different lengths:

i.e.

FILE-CONTROL.
SELECT Comp-File ASSIGN "./VbComp3.bin"
FILE STATUS IS TEST-STATUS.
DATA DIVISION.
FILE SECTION.
FD Comp-File.
01 header pic x(20).
01 Comp3Fields.
03 NumA pic --,---,---,---,---,--9.99.
03 sep0 pic x.
03 Num0 pic s99 comp-3.
03 sep1 pic x.
03 Num1 pic s9v99 comp-3.
03 sep2 pic x.
03 Num2 pic s9(02)v99 comp-3.
03 sep3 pic x.
03 Num3 pic s9(03)v99 comp-3.
03 sep4 pic x.
03 Num4 pic s9(04)v99 comp-3.
03 sep5 pic x.
03 Num5 pic s9(05)v99 comp-3.
03 sep6 pic x.
03 Num6 pic s9(06)v99 comp-3.
03 sep7 pic x.

----------------------------------------------------------------------------------------------------

I have written a lot of Cobol type IO Routines (IBM Mainframe, Fujitsu, Open Cobol) in java
so If you want some help let me know.

In the JRecord / Record-Editor Project's I have an AbstractByteReader / AbstractByteWriter class's.
The purpose of these classes is to Read / Write one logical line from the file as an array
of Bytes. I extend the Reader/Writer to provide a specific reader as required.

see http://record-editor.svn.sourceforge.net/viewvc/record-editor/Source/JRecord/src/net/sf/JRecord/ByteIO/
for all the readers/writes

For Example this class is used to read both Mainframe and open-Cobol VB files

http://record-editor.svn.sourceforge.net/viewvc/record-editor/Source/JRecord/src/net/sf/JRecord/ByteIO/VbByteReader.java?revision=2&view=markup

For Mainframe new VbByteReader(false, true);

For Open Cobol new VbByteReader(false, false);

This class Writes Mainframe and Open Cobol VB Files

http://record-editor.svn.sourceforge.net/viewvc/record-editor/Source/JRecord/src/net/sf/JRecord/ByteIO/VbByteWriter.java?revision=1&view=markup

Mainframe new VbByteWriter();
Open Cobol VbByteWriter(false);

Comp-1 fields are dropping high order digits

Bruce Martin — Tue, 03 Aug 2010 03:12:32 -0000

Comp-1 fields drop the digits before the decimal point

The following code

Move 23.45 to Comp-1-field
Display Comp-1-field

produces .45000000E000

WHENVER verb in working storage

Anonymous — Mon, 26 Jul 2010 23:10:19 -0000

Oracle SQL allows for the WHENEVER verb to be used in either working storage or the procedure division. RES has allowed for it to be in the procedure division, but not in the working storage secion.

++++++ This code goes into the working storage area ++++++++++++

EXEC SQL SYSGEN
WHENEVER SQLERROR DO PERFORM 9000-SQL-ERROR-ROUTINE SYSGEN
END-EXEC. SYSGEN