GNU COBOL sets execute bit on file creation

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



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
open-cobol-list@xxxxxxxxxxxxxxxxxxxxx
https://lists.sourceforge.net/lists/listinfo/open-cobol-list




[Index of Archives]     [Gcc Help]     [Linux USB Devel]     [Linux Audio Users]     [Yosemite Info]     [Linux Kernel]     [Linux SCSI]     [Big List of Linux Books]

  Powered by Linux