Re: [open-cobol-list] BUG: "COPY REPLACING ..." and REQUEST for "mini-listing"

[Thomas Biehler]

Hi Keisuke,

On Monday 16 February 2004 18:47, I wrote:

> But i have two other features i wanted to implemented first.
> Here is a annoucement:
> - VALUES in LINKAGE-Section are comments
>   (in 1985  a  MF Extension ;  in 2002 Standard!)
>

I have lost the overview of the fast progress!  
You are too fast for me !   :-)

After i read the docs and wrote the test,
   (i add it to extension.at)
i have tested the feature above  with the following test:
(I wanted to see the error message, 
   and then compile the generated programs with MF) 

===========================================================
#
# MF-Cobol 4.2.10 Language Reference  
# 8.1.2.24 General Rules (3)   ... MF-Extension ...
# (this is only a test for VALUE in the Linkage Section!)
#
# for the future (standard) see also: 
# the following (cross-) reference
#    ISO/IEC 1989:2002
#    13.16.61.3 (3) --> 13.6 (5)
AT_SETUP([VALUE clause in Linkage Section])

AT_DATA([callee.cob], [
       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      callee.
       DATA             DIVISION.
       LINKAGE SECTION.
      *  VALUE - clause is documentary only
       01 X    PIC X    VALUE "Z".
       PROCEDURE        DIVISION USING X.
           IF X = "A"
              DISPLAY "OK" NO ADVANCING
            ELSE
              DISPLAY "NOT OK : X ",  X  NO ADVANCING
           END-IF.
           EXIT PROGRAM.
])
                    
AT_DATA([caller.cob], [
       IDENTIFICATION   DIVISION.
       PROGRAM-ID.      caller.
       DATA             DIVISION.
       WORKING-STORAGE  SECTION.
       01 Y    PIC X    VALUE "A".
       LINKAGE SECTION.
      *  VALUE - clause is documentary only
       01 X    PIC X    VALUE "Z".
       PROCEDURE        DIVISION.
           CALL "callee" USING Y.
           STOP RUN.
])

AT_CHECK([${COMPILE_MODULE} callee.cob], [0])
AT_CHECK([${COMPILE} -o caller caller.cob], [0])
AT_CHECK([./caller], [0], [OK])

AT_CLEANUP
=============================================================

And then it was a BIG surprise for me ! 
It work's already like i have announed as a (feature) request!  

Perhaps you have some usage for my test above. 

So,  i  try to compile all my applications now to see what is realy
TODO instead of making further already fulfilled feature requests. ;-)

Great!

Thomas