Re: [open-cobol-list] GNU COBOL sets execute bit on file creation

[William M Klein]

        I don't understand what this has to do with Report Writer? You also
don't make it clear (to me) what you think the problem is.

The only thing I can imagine is that there is a question about writing the
last record in the file "buffer" when there isn't a final write and close.

Is that your question/problem -or is there something else?

-----Original Message-----
From: Harald Arnesen [mailto:address@hidden 
Sent: Thursday, February 12, 2015 11:27 AM
To: address@hidden
Subject: [open-cobol-list] GNU COBOL sets execute bit on file creation

GNU COBOL 2.0 (and 2.1/reportwriter) is different from GNU COBOL 1.1,
and in my opinion the old behaviour is correct.

Consider the following program:


identification division.
program-id. modemask.

environment division.
input-output section.
file-control.
     select modemask-file assign to "modemask.out".

data division.
file section.
fd modemask-file.
01 modemask-out pic x(80).

procedure division.
main section.
10.  open output modemask-file.
     move "Hello World" to modemask-out.
     write modemask-out.
     close modemask-file.
     stop run.


$ cobc --version
cobc (GNU Cobol) 2.0.0
Copyright (C) 2001,2002,2003,2004,2005,2006,2007 Keisuke Nishida
Copyright (C) 2006-2012 Roger While
Copyright (C) 2009,2010,2012,2014 Simon Sobisch
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Built     Feb 11 2015 11:36:40
Packaged  Jan 20 2014 07:40:53 UTC
C version "4.9.1"
$
$ cobc -x -free modemask.cob
$ ./modemask
$ ls -l modemask.out
-rwxr-xr-x 1 harald harald 80 Feb 12 18:21 modemask.out
$

$ rm modemask.out

$ cobc --version
cobc (GNU Cobol) 1.1.0
Copyright (C) 2001,2002,2003,2004,2005,2006,2007 Keisuke Nishida
Copyright (C) 2006-2012 Roger While
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Built     Feb 11 2015 11:35:47
Packaged  Jan 20 2014 07:40:53 UTC
C version "4.9.1"
$
$ cobc -x -free modemask.cob
$ ./modemask
$ ls -l modemask.out
-rw-r--r-- 1 harald harald 80 Feb 12 18:23 modemask.out
$

----------------------------------------------------------------------------
--
Dive into the World of Parallel Programming. The Go Parallel Website,
sponsored by Intel and developed in partnership with Slashdot Media, is your
hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials and more. Take a
look and join the conversation now. http://goparallel.sourceforge.net/
_______________________________________________
open-cobol-list mailing list
address@hidden
https://lists.sourceforge.net/lists/listinfo/open-cobol-list