[open-cobol-list] BUG: OPEN EXTEND OPTIONAL FILE --> STATUS "05" if no FILE found and CREATED ! SIGSEGV !

[Thomas Biehler]

Hi Keisuke,

i have found a bug which caused  SIGSEGV  (signal 11)  if:

- OPEN EXTEND on OPTIONAL FILE 
       cannot find and create the assigned external file
  -->  it  delivers FILE STATUS  "05"   but the file-pointer 
         to the nonexisting  (and not created) file  is a  NULLPOINTER !

  If you access then this file (WRITE , READ)  the NULLPOINTER 
  access causes SIGSEGV !

 The attached demo-program  "TESTOPEN.cob"  causes this situation 
  because ASSIGN "MF"   (-std=mf)  is used and
  the "mapping-variable" contains not only a simple filename
  but a  filename with a part of a path!  
   
( by the way , micro-focus also replaces the first (PATH) -  component with 
  a existing environment  "$dd_  ... ,  $ DD_ ... ,  $DD_variablename"  as 
implemented
  at  the moment only for "simple" filename !   (libcob , open ...)
  (= a really usefull extension, as you can do mapping with directories 
(LOGFILE-PATH)  
      and a simple filename , instead fillup the ENVIRONMENT with
      ENVIRONMENT-variables for every LOGFILE   
    (= no need for EXTENAL MAPPING for every file !))

bye

Thomas

TESTOPEN.cob
Description: Text document