[Bug-GnuCOBOL] GnuCobol V3 RC1

[Ralph]

I would kindly request  a reply from either Brian or Simon.
Just to put this in perspective
I recompiled all the source code for the animation effort with -fassign=ibm.
What a disaster !

I have provided a simple program to illustrate the problem:
FILEEPROB.COB
There is an additional file that is just read for the test case EXMPFILE.COB it is just there for ease of looking at the test case.

I don't think I am on board with your direction or your responsiveness.

Please affirm that GnuCobol is not for use with zOS Cobol applications.
Especially those applications that have been ported to Windows.

Can you two try to be a wee bit more responsive.
This SourceForge development process is unlike any kind of development effort I have ever partaken of.
On one hand there exist great expertise. On the other hand many many novice level personnel.

IMHO this is not anywhere near a collective development group.
It must have been in the past - now it is really fragmented and unresponsive - with a hint of the experts no longer involved.

Please respond to the issue I have documented below.

Thank you.
Ralph

 

Attached is a program fileprob.cob.
It uses 2 forms of the COBOL ASSIGN clause
CBL-FILE uses ASSIGN TO CBL-DSN (as if a PC transaction file)
COB-FILE uses ASSIGN TO SYSUT2 (as if the data set name came from a JCL //DD statement)
SET SYSUT2=JUSTTEST.COB

When compiled with -fassign=ibm both files open successfully.
C:\GEDIT\COBOL>cobc -x -fassign=ibm fileprob.cob
The first read statement returns a status code '10' - end of file
There are 157 records in the file -> none are read -> status code = '10' on the first read
C:\GEDIT\COBOL>FILEPROB
CBL-DSN=:EXMPFILE.COB
OPEN INPUT CBL-FILE-SUCCESSFUL
OPEN OUTPUT COB-FILE-SUCCESSFUL
CBL-FILE-STATUS:10
RECORDS READ =:0000000000
RECORDS CREATED =:000000000

When compiled without -fassign= 
C:\GEDIT\COBOL>cobc -x fileprob.cob
C:\GEDIT\COBOL>FILEPROB
CBL-DSN=:EXMPFILE.COB
OPEN INPUT CBL-FILE-SUCCESSFUL
The OPEN OUTPUT abends
attempt to reference unallocated memory (signal SIGSEGV)
libcob: warning: implicit CLOSE of CBL-FILE ('EXMPFILE.COB')
abnormal termination - file contents may be incorrect

When compiled with -fassign=mf
CBL-DSN=:EXMPFILE.COB
OPEN INPUT CBL-FILE-SUCCESSFUL
The OPEN OUTPUT abends
attempt to reference unallocated memory (signal SIGSEGV)
libcob: warning: implicit CLOSE of CBL-FILE ('EXMPFILE.COB')
abnormal termination - file contents may be incorrect

When compiled with -fassign=cobol200 (cobc indicates this a valid value)
C:\GEDIT\COBOL>cobc -x -fassign=cobol2002 fileprob.cob
configuration error:
-fassign-clause=cobol2002: unsupported value 'cobol2002' for configuration tag '
assign-clause'

If I change the ASSIGN TO clauses to be ASSIGN TO SYSUT1, ASSIGN TO SYSUT2 
The program is operational:
C:\GEDIT\COBOL>SET SYSUT1=EXMPFILE.COB
C:\GEDIT\COBOL>SET SYSUT2=TRASH.COB
C:\GEDIT\COBOL>cobc -x -fassign=ibm fileprob.cob

C:\GEDIT\COBOL>fileprob
CBL-DSN=:EXMPFILE.COB
OPEN INPUT CBL-FILE-SUCCESSFUL
OPEN OUTPUT COB-FILE-SUCCESSFUL
CBL-FILE-STATUS:10
RECORDS READ =:0000000157
RECORDS CREATED =:000000157

I thought I had this solved with -fassign-ibm
I was wrong

Broken ?

Please advise
Thanks,
Ralph

FILEPROB.COB
Description: Text document

EXMPFILE.COB
Description: Binary data