[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [open-cobol-list] BUG: "COPY REPLACING ..." and REQUEST for "mini-
From: |
Thomas Biehler |
Subject: |
Re: [open-cobol-list] BUG: "COPY REPLACING ..." and REQUEST for "mini-listing" |
Date: |
Tue Feb 17 05:52:02 2004 |
User-agent: |
KMail/1.4.3 |
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