[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] redefines bug in 0.9.5.91
From: |
Richard A. Painter |
Subject: |
[open-cobol-list] redefines bug in 0.9.5.91 |
Date: |
Sat Jun 8 15:49:37 2002 |
1. The attached code should produce an error because VALUE clauses cannot be
specified on the
REDEFINE field or its subordinates.
2. i ran into this where we were (incorrectly) doing this and passing the
top-level variable to a subroutine and the data was not passed correctly. no
matter since this is not valid cobol and should be prevented.
r
--
+---------------------------------------------------------------+
| Richard A. Painter Phone 719 495 7054 |
| Painter Engineering, Inc. Mailto:address@hidden |
| 8470 Swan Rd. |
| Black Forest, CO 80908 |
| |
| Visit our Web site: http://painter.inc |
| http://home.earthlink.net/~painterengineering |
| |
| Systems & Software Engineering + LAN WAN Networking + X.25 |
| INTERNET TCP-IP + Real-time Transaction Processing |
| System & Software Integration, Testing, Verification & Audits |
| Web Hosting & Design + Apache + PHP + modSSL + cURL |
| Database Design & Applications + Oracle |
| Benchmarks + Course & Workshop Development & Delivery |
| Financial and Medical Software Integration + Security |
| Middleware + EDI + Cryptography + Firewalls |
| UNIX + Linux + Windows |
| |
| What is popular is not always right and what is right is not |
| always popular. - Howard Cosell |
| |
| Chance favors the prepared mind! Illegitima non carborundum |
+---------------------------------------------------------------+
* ?SAVE ALL
* ?SYMBOLS,INSPECT,OPTIMIZE 2
* ?ANSI;NOBLANK
IDENTIFICATION DIVISION.
PROGRAM-ID. program1.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ws-field1 pic x(10).
01 ws-field2 redefines ws-field1.
05 ws-field3 pic x(5) value "abcde".
05 ws-field4 pic x(5) value "12345".
PROCEDURE DIVISION.
0000-MAINLINE.
display "field1=" ws-field1
display "field2=" ws-field2
exit program.
- [open-cobol-list] redefines bug in 0.9.5.91,
Richard A. Painter <=