RE: [open-cobol-list] Problem with the EXTERNAL Keyword

[Robert Sherry]

Roger,

     One more thing, here is an example program that demonstrates the
problem:


       IDENTIFICATION DIVISION.                             
       PROGRAM-ID.    FII2PA01.                              
       ENVIRONMENT DIVISION.                                  
       CONFIGURATION SECTION.                                  
       INPUT-OUTPUT SECTION.                                    
       FILE-CONTROL.                                             
           SELECT T06312   ASSIGN TO UT-T06312                    
                           FILE STATUS IS WS1.
       DATA DIVISION.                             
       FILE SECTION.                               
       FD  T06312                                   
           RECORDING MODE IS V.                        
       01  FD-T06312-ALT-REC  PIC X(285).               
       WORKING-STORAGE SECTION.                                    
       01  WS1       PIC X(2) EXTERNAL. 
       PROCEDURE DIVISION.
           EXIT.                      


Bob Sherry

-----Original Message-----
From: address@hidden
[mailto:address@hidden On Behalf Of Robert
Sherry
Sent: Monday, December 12, 2005 6:32 PM
To: 'Roger While'; address@hidden
Subject: [open-cobol-list] Problem with the EXTERNAL Keyword

Roger,

    As far as I can tell, the keyword EXTERNAL is still having problems. The
problem I see occurs when a variable that is used as file status is declared
EXTERNAL. When this happens, the definition of the cob_file generated
contains a variable which is a static pointer. This results in C code that
does not compile.

     Here is how I propose to fix the problem:

1)      When generated the definition of COB_FILE with a FILE STATUS field
that is declared EXTERNAL, generate a NULL for the address of the status
field.
2)      After the call to cob_external_addr is made for that field, generate
an assignment statement to set the appropriate field in the file structure.

Do you agree that this bug? Do you agree with my approach on how to fix the
problem?

Bob Sherry



-------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems?  Stop!  Download the new AJAX search engine that makes
searching your log files as easy as surfing the  web.  DOWNLOAD SPLUNK!
http://ads.osdn.com/?ad_id=7637&alloc_id=16865&op=click
_______________________________________________
open-cobol-list mailing list
address@hidden
https://lists.sourceforge.net/lists/listinfo/open-cobol-list