Hi,
WORKING-STORAGE SECTION.
>>DATA 31
01 ZW-DATE-JUL PIC 9(05).
01 ZW-DATE-NUM6 PIC 9(06).
01 ZW-CHAR-DATEN PIC X(75).
01 ZW-HEX-BLOCK.
05 ZW-HEX-DATEN.
10 ZW-HEX-ZONE PIC X(75).
10 ZW-HEX-ZIFFER PIC X(75).
05 ZW-HEX-DATEN-RDEF REDEFINES ZW-HEX-DATEN.
10 ZW-HEX-ZONER PIC X(75).
10 ZW-HEX-ZIFFERR PIC X(75).
01 KS-CONV-FELDER.
05 KS-CONV-VON PIC XX.
05 KS-CONV-NACH PIC XX.
05 KS-CONV-RC PIC X.
88 CONV-OK VALUE LOW-VALUE.
>>DATA 31
01 KS-CONV-FELDER-CH REDEFINES KS-CONV-FELDER.
05 KS-CONV-RDEF PIC X(5).
We are compiling the program with LP(64) directive, and it is meant to be a
64-bit COBOL program which passes parm to a 31 bit program.
1. ZW-HEX-BLOCK is being allocated below the bar which is right.
2. But KS-CONV-FELDER is being allocated above the bar although DATA 31
directive is in effect
Any idea why this happens? Or is this a known IBM bug? We are using COBOL 6.5
COBOL compiler.
Any help would be appreciated. Thanks in advance
Freundliche Grüße
Prasanth Sukumaran Nair
Munich Re Group Technology
Employed by:
ITERGO Informationstechnologie GmbH
Development Tools and Application Security
Referent
Überseering 45
22297 Hamburg
Tel 040 6376-2402
[email protected]
Chairman of the Supervisory Board: Robin Johnson
Executive Management: Mario Krause (Chairman),
Michael Liebe, Tony Cameron McCarthy, Caroline Meister
Registered Office: Düsseldorf, Commercial Register: District Court Düsseldorf,
HRB 37996
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
