| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 3229.1 | list files | MUNICH::SBECKER | Every minute - every hour, I feel the power | Thu Apr 17 1997 06:36 | 61 |
| Here are 2 list files ....
OpenVMS V7.1 on AXP
Cobol V2.4-863
CDD 6.1/003
TEST-CDD-53-61 Source Listing
15-APR-1997 11:11:33 D`
0 Source Listing
14-APR-1997 09:32:48 D`
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. TEST_CDD_53_61 INITIAL.
3 DATA DIVISION.
4 WORKING-STORAGE SECTION.
5
6 COPY 'cdd$top.bigfield_q' FROM DICTIONARY.
L 7 *
L 8 * _CDD$TOP.BIGFIELD_Q
L 9 *
L 10 * Copy from BATV tap_fld.tap_max_betr_qk
L 11 * For Testing CDD 5.3 and CDD 6.1
L 12 * 10 Vorkomma und 2 Nachkommastellen
L 13 01 BIGFIELD_Q PIC S9(11)V9(2) COMP VALUE
IS 42949672.97.
14
15 END PROGRAM TEST_CDD_53_61.
16
c
TEST-CDD-53-61 Source Listing
15-APR-1997 11:11:33 D`
0 Program Section Summary
.....
and according to the customer
Alpha AXP OPEN VMS V6.2 with CDD V6.1-003 and DEC COBOL V2.3-795
Alpha AXP OPEN VMS V6.2 with CDD V6.1-003 and DEC COBOL V2.4
$ COBOL/RESERVED=NOXOPEN/LIST/COPY_LIST/NOOBJ TEST_CDD_53_61.COB
01 BIGFIELD_Q PIC S9(11)V9(2) COMP VALUE IS
91521750683636203.53.
..........................................................^
%COBOL-E-NUMLONG, More than 18 digits in numeric literal
at line number 15 in file
SYS$SYSDEVICE:[BATV.JQ_BATV]CDD$TOP.BIGFIELD_Q;
%COBOL-E-ENDDIAGS, SYS$SYSDEVICE:[BATV.JQ_BATV]TEST_CDD_53_61.COB;2
completed with 1 diagnostic
but please see that in the first list file the initial value is also
wrong, but less that 18 characters !!!!!!
Sigi
|
| 3229.2 | Could not reproduce with DEC COBOL V2.4 and CDD V5.3 | PACKED::BRAFFITT | | Thu Apr 17 1997 07:08 | 21 |
| >VMS V6.2 AXP
>CDD V6.1-03 and V7.0
>COBOL V2.4-863
>he could compile his program successfully with CDD V5.3 and DEC COBOL V2.3-793.
>
> 02 BIGFIELD_Q PIC S9(11)V9(2) COMP VALUE IS 91540398400843284.49.
I could not reproduce this problem with DEC COBOL V2.4 and CDD V5.3.
I successfully ran your script with
DEC COBOL V2.3-795 CDD V5.3 A/VMS V6.1
DEC COBOL V2.4-863 CDD V5.3 A/VMS V6.1
VAX COBOL V5.4 CDD V5.3 V/VMS V5.5-2
I left off the /RES=NOXOPEN for VAX COBOL.
There is a known problem with CDD V5.3 and handling of quadwords, and
CDD made a change in this area with CDD V6.1. Some details are in
CLT::DEC_COBOL_IFT note 364.
|
| 3229.3 | may i please see your 2.4 .lis file | MUNICH::SBECKER | Every minute - every hour, I feel the power | Thu Apr 17 1997 09:09 | 8 |
| thank you very much for the quick answer !!!!
may i please see your 2.4 .lis file with the line where the field is
included from the cdd ?
sigi
|
| 3229.4 | User's CDO definition is inconsistent, I think | WIBBIN::NOYCE | Pulling weeds, pickin' stones | Thu Apr 17 1997 10:00 | 16 |
| > datatype is signed quadword 13 digits scale -2
> initial_value 1000000000000.
"13 digits scale -2" is the same as PIC S9(11)V9(2). The initial value
you're providing is too large for that field -- it needs at least
S9(13)Vwhatever.
If you want 13 digits left of the decimal, and 2 to the right, write
"signed quadword 15 digits scale -2".
If you want 11 digits left of the decimal, and 2 to the right, you need
a smaller initial value, perhaps "10000000000".
If you want 13 digits left of the decimal, with the two low digits not stored
(same as S9(11)P(2), I think), write "11 digits scale +2".
|
| 3229.5 | TEST.LIS with DEC COBOL V2.4 | PACKED::BRAFFITT | | Thu Apr 17 1997 10:16 | 68 |
| Source Listing 17-APR-1997 09:15:21 DEC COBOL V2.4-863 Page 1
Source Listing 17-APR-1997 09:15:19 COB$USER2:[BRAFFITT.WORK]TEST.COB;1
1
2 *-------------------------------------------------------
3 IDENTIFICATION DIVISION.
4 PROGRAM-ID. TESTPROG INITIAL.
5 DATA DIVISION.
6 WORKING-STORAGE SECTION.
7
8 COPY 'test_rec' FROM DICTIONARY.
L 9 *
L 10 * _CDD$TOP.TEST_REC
L 11 *
L 12 01 TEST_REC.
L 13 02 BIGFIELD_Q PIC S9(11)V9(2) COMP VALUE IS 10000000000.
14
15 END PROGRAM TESTPROG.
16 *-------------------------------------------------------
TESTPROG Source Listing 17-APR-1997 09:15:21 DEC COBOL V2.4-863 Page 2
0 Program Section Summary 17-APR-1997 09:15:19 COB$USER2:[BRAFFITT.WORK]TEST.COB;1
DIAGNOSTICS SUMMARY
Informationals 4 (suppressed)
----------------------
Total 4
TESTPROG Source Listing 17-APR-1997 09:15:21 DEC COBOL V2.4-863 Page 3
0 Compilation Summary 17-APR-1997 09:15:19 COB$USER2:[BRAFFITT.WORK]TEST.COB;1
COMMAND QUALIFIERS
COBOL
/NOALIGNMENT /GRANULARITY = QUAD
/NOANALYSIS_DATA /LIST
/NOANSI_FORMAT /NOMACHINE_CODE
/NOAUDIT /NOMAP
/CHECK = (NOPERFORM, NOBOUNDS, NODECIMAL, NODUPLICATE_KEYS) /NATIONALITY = US
/NOCONDITIONALS /NOOBJECT
/NOCONVERT = LEADING_BLANKS /OPTIMIZE = LEVEL=4
/COPY_LIST /RESERVED_WORDS = (NOXOPEN, NOFOREIGN_EXTENSIONS)
/NOCROSS_REFERENCE /NOSEPARATE_COMPILATION
/DEBUG = (NOSYMBOLS, TRACEBACK) /NOSEQUENCE_CHECK
/NODEPENDENCY_DATA /STANDARD = (NOXOPEN, NOSYNTAX, NOV3, 85, NOMIA)
/NODIAGNOSTICS /NOTIE
/NOFIPS /NOTRUNCATE
/NOFLAGGER /VFC
/FLOAT = D_FLOAT /WARNINGS = (NOINFORMATION, OTHER)
COMPILATION STATISTICS
CPU time: 0.66 seconds
Elapsed time: 5.49 seconds
Pagefaults: 827
I/O Count: 228
Source lines: 16
1454 lines per CPU minute.
|
| 3229.6 | no difference | MUNICH::SBECKER | Every minute - every hour, I feel the power | Thu Apr 17 1997 11:06 | 52 |
|
hi again ...
I tried this
CDO> show field cdd$top.bigfield_q
Definition of field BIGFIELD_Q
| Description /* Copy from BATV tap_fld.tap_max_betr_qk
*/
| /* For Testing CDD 5.3 and CDD 6.1 */
| /* 10 Vorkomma und 2 Nachkommastellen */
| Datatype signed quadword 15 digits scale -2
| Initial_value 1.000000000000000E+012
CDO>
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST_CDD_53_61 INITIAL.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY 'cdd$top.bigfield_q' FROM DICTIONARY.
END PROGRAM TEST_CDD_53_61.
and got this ....
SEE THE INIT VALUE OF BIGFIELD_Q !!!
TEST-CDD-53-61 Source Listing
17-APR-1997 15:`
0 Source Listing
14-APR-1997 09:`
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. TEST_CDD_53_61 INITIAL.
3 DATA DIVISION.
4 WORKING-STORAGE SECTION.
5
6 COPY 'cdd$top.bigfield_q' FROM DICTIONARY.
L 7 *
L 8 * _CDD$TOP.BIGFIELD_Q
L 9 *
L 10 * Copy from BATV tap_fld.tap_max_betr_qk
L 11 * For Testing CDD 5.3 and CDD 6.1
L 12 * 10 Vorkomma und 2 Nachkommastellen
L 13 01 BIGFIELD_Q PIC S9(13)V9(2) COMP VALUE IS 42949672.97.
14
15 END PROGRAM TEST_CDD_53_61.
|
| 3229.7 | | MUNICH::SBECKER | Every minute - every hour, I feel the power | Thu Apr 17 1997 11:09 | 13 |
| > .5
did you really use a value of 1.000000000000000E+012 in your CDD def ??
CDO> show field cdd$top.bigfield_q
Definition of field BIGFIELD_Q
| Description /* Copy from BATV tap_fld.tap_max_betr_qk
*/
| /* For Testing CDD 5.3 and CDD 6.1 */
| /* 10 Vorkomma und 2 Nachkommastellen */
| Datatype signed quadword 15 digits scale -2
| Initial_value 1.000000000000000E+012
|
| 3229.8 | I used the script from .0 | PACKED::BRAFFITT | | Thu Apr 17 1997 12:09 | 3 |
| > did you really use a value of 1.000000000000000E+012 in your CDD def ??
I ran the script in .0.
|
| 3229.9 | (maybe truncation problem ? | MUNICH::SBECKER | Every minute - every hour, I feel the power | Thu Apr 17 1997 12:39 | 18 |
|
>.8 sorry for the stupid question, I asked it, because
the cdo def is initial_value 1000000000000.
but your lis file says
13 02 BIGFIELD_Q PIC S9(11) V9(2) COMP VALUE IS 10000000000.
(maybe there was a truncation when extracting the script from notes,
may you please check your cdd def again ?)
I always did get back chunk as COMP VALUE IS, as you can see
in my lis files.
Thank you a lot
Sigi
|
| 3229.10 | Are you getting a failure with CDD V5.3? | PACKED::BRAFFITT | | Thu Apr 17 1997 12:50 | 6 |
| > I always did get back chunk as COMP VALUE IS, as you can see
> in my lis files.
Are you using DEC COBOL V2.4 with CDD V5.3? I thought you said this
worked OK. I am using CDD V5.3. My understanding of what you have
posted is that the problem shows up with CDD V6.1.
|
| 3229.11 | yes CDD V6.1-003 | MUNICH::SBECKER | Every minute - every hour, I feel the power | Thu Apr 17 1997 13:01 | 9 |
|
Yes, I'm using CDD V6.1-003, that's the only version I have, but I think
is does not a matter of the CDD version
Greetings
Sigi
|
| 3229.12 | I think the version of CDD may make a difference | PACKED::BRAFFITT | | Thu Apr 17 1997 14:54 | 15 |
| > Yes, I'm using CDD V6.1-003, that's the only version I have, but I think
> is does not a matter of the CDD version
I think the CDD version may make a difference.
If you are able to duplicate the problem with CDD V5.3 with any version
of DEC COBOL, we can take a look at it further to try to isolate what
may be causing the problem you are seeing. If things work fine for you
with CDD V5.3 and fail only with CDD V6.1, you'll have to go to Oracle
for the next step in isolating the cause of the difference. The
DEC/VAX COBOL team is set up to isolate problems with many different
versions of DEC/VAX COBOL, but our range of CDD configurations is very
limited. My guess is that Oracle has a very limited number of versions
of DEC/VAX COBOL that they can test with, but they may be able to test
with both versions of CDD the customer has been trying recently.
|
| 3229.13 | Did the suggestions Bill made in .4 help? | PACKED::BRAFFITT | | Thu Apr 17 1997 18:18 | 2 |
| Were you able to get the source to compile with CDD V6.x when you
tried Bill's suggestions from .4?
|
| 3229.14 | the problem is the wrong value | MUNICH::SBECKER | Every minute - every hour, I feel the power | Fri Apr 18 1997 04:19 | 24 |
|
I'm sorry, but I think we have a confusion now.
I (with OVMS V7.1 for AXP, COBOL V2.4 and CDD V6.1) ALSO HAVE a problem
with the initial value. As you can see in the lis file the copy does
not copy the correct value into the program.
Instead of the CDD defined value of 1.000000000000000E+012 I get in MY
Cobol lis file the value of 42949672.97.
The only difference between the Oracle and my lis file is that they get
a "longer value" (more than 18 characters) and so they can see the
COBOL NUMLONG error message.
But I think the real problem is that we don't get copied the value of
1.000000000000000E+012 into the COBOL program.
I have to say thank you all for the great support so long.
Can anybody reproduce the problem, please ?
Sigi
|
| 3229.15 | | WIBBIN::NOYCE | Pulling weeds, pickin' stones | Fri Apr 18 1997 09:28 | 7 |
| > I (with OVMS V7.1 for AXP, COBOL V2.4 and CDD V6.1) ALSO HAVE a problem
> with the initial value.
And Don Braffitt thinks the problem occurs only with CDD V6.1. Is there any
evidence that it's not caused by the version of CDD? It seems to work properly
with CDD V5.3 -- does anyone have a case where CDD V5.3 gets an error or the
wrong initial value?
|
| 3229.16 | No reports yet of this problem with CDD V5.3 | PACKED::BRAFFITT | | Thu May 01 1997 09:27 | 24 |
| <<< NOMAHS::DISK$NOMAHS1:[NOTES$LIBRARY]REPOSITORY.NOTE;1 >>>
-< Oracle CDD/Repository >-
================================================================================
Note 1081.5 cobol-e-numlong with large initial value 5 of 5
ORAREP::PACKED::BRAFFITT 17 lines 1-MAY-1997 08:23
-< Problem shows up with CDD V6.1-03 (not CDD V5.3) >-
--------------------------------------------------------------------------------
RE: .1
>As they upgraded COBOL too, why don't they ask DEC if there is a problem with
>COBOL.
The problem appears to be unrelated to DEC COBOL version. It seems to
show up with CDD V6.1-03 (I don't know about higher versions). We've
had no reports of this problem with CDD V5.3 used with any version of
DEC COBOL.
>Note 1081.0 cobol-e-numlong with large initial value 4 replies
>VMS V6.2 AXP
>CDD V6.1-03 and V7.0
>COBOL V2.4-863
>Note 1081.2 cobol-e-numlong with large initial value 2 of 4
> CDD 6.1-03 and COBOL 2.2-674.
|
| 3229.17 | Update sent on case | PACKED::BRAFFITT | | Tue May 06 1997 14:00 | 152 |
| From: PACKED::BRAFFITT "06-May-1997 1251" 6-MAY-1997 12:55:39.71
To: FIXCLD::SDT_ACE,MUNICH::SBECKER
CC: BRAFFITT
Subj: UPDATE MGO102795
>>To Engineering please :
>>Thank you very much for your time spending to reproduce the proble
>>m.
>>I have to deal with the Oracle people and need some infos please.
>>- Did you use an Alpha ?
Yes.
>>- Which version of OpenVMS was installed ?
>>- Which versions of Cobol did you try ?
<<< CLT::DISK$CLT_LIBRARY3:[NOTES$LIBRARY]COBOL.NOTE;1 >>>
-< VAX/DEC COBOL >-
================================================================================
Note 3229.2* NUMLONG error with COBOL/CDD on AXP using huge init. valu 2 of 16
PACKED::BRAFFITT 21 lines 17-APR-1997 06:08
-< Could not reproduce with DEC COBOL V2.4 and CDD V5.3 >-
--------------------------------------------------------------------------------
>VMS V6.2 AXP
>CDD V6.1-03 and V7.0
>COBOL V2.4-863
>he could compile his program successfully with CDD V5.3 and DEC COBOL V2.3-793.
>
> 02 BIGFIELD_Q PIC S9(11)V9(2) COMP VALUE IS 91540398400843284.49.
I could not reproduce this problem with DEC COBOL V2.4 and CDD V5.3.
I successfully ran your script with
DEC COBOL V2.3-795 CDD V5.3 A/VMS V6.1
DEC COBOL V2.4-863 CDD V5.3 A/VMS V6.1
VAX COBOL V5.4 CDD V5.3 V/VMS V5.5-2
I left off the /RES=NOXOPEN for VAX COBOL.
There is a known problem with CDD V5.3 and handling of quadwords, and
CDD made a change in this area with CDD V6.1. Some details are in
CLT::DEC_COBOL_IFT note 364.
<<< CLT::DISK$CLT_LIBRARY3:[NOTES$LIBRARY]COBOL.NOTE;1 >>>
-< VAX/DEC COBOL >-
================================================================================
Note 3229.16 NUMLONG error with COBOL/CDD on AXP using huge init. val 16 of 16
PACKED::BRAFFITT 24 lines 1-MAY-1997 08:27
-< No reports yet of this problem with CDD V5.3 >-
--------------------------------------------------------------------------------
<<< NOMAHS::DISK$NOMAHS1:[NOTES$LIBRARY]REPOSITORY.NOTE;1 >>>
-< Oracle CDD/Repository >-
================================================================================
Note 1081.5 cobol-e-numlong with large initial value 5 of 5
ORAREP::PACKED::BRAFFITT 17 lines 1-MAY-1997 08:23
-< Problem shows up with CDD V6.1-03 (not CDD V5.3) >-
--------------------------------------------------------------------------------
RE: .1
>As they upgraded COBOL too, why don't they ask DEC if there is a problem with
>COBOL.
The problem appears to be unrelated to DEC COBOL version. It seems to
show up with CDD V6.1-03 (I don't know about higher versions). We've
had no reports of this problem with CDD V5.3 used with any version of
DEC COBOL.
>Note 1081.0 cobol-e-numlong with large initial value 4 replies
>VMS V6.2 AXP
>CDD V6.1-03 and V7.0
>COBOL V2.4-863
>Note 1081.2 cobol-e-numlong with large initial value 2 of 4
> CDD 6.1-03 and COBOL 2.2-674.
>>- May I please have the *.LIS file (MUNICH::SBECKER)
>>Thank you a lot for answering my questions !
>>Sigi Becker, DSC Munich
<<< CLT::DISK$CLT_LIBRARY3:[NOTES$LIBRARY]COBOL.NOTE;1 >>>
-< VAX/DEC COBOL >-
================================================================================
Note 3229.5 NUMLONG error with COBOL/CDD on AXP using huge init. value 5 of 16
PACKED::BRAFFITT 68 lines 17-APR-1997 09:16
-< TEST.LIS with DEC COBOL V2.4 >-
--------------------------------------------------------------------------------
Source Listing 17-APR-1997 09:15:21 DEC COBOL V2.4-863 Page 1
Source Listing 17-APR-1997 09:15:19 COB$USER2:[BRAFFITT.WORK]TEST.COB;1
1
2 *-------------------------------------------------------
3 IDENTIFICATION DIVISION.
4 PROGRAM-ID. TESTPROG INITIAL.
5 DATA DIVISION.
6 WORKING-STORAGE SECTION.
7
8 COPY 'test_rec' FROM DICTIONARY.
L 9 *
L 10 * _CDD$TOP.TEST_REC
L 11 *
L 12 01 TEST_REC.
L 13 02 BIGFIELD_Q PIC S9(11)V9(2) COMP VALUE IS 10000000000.
14
15 END PROGRAM TESTPROG.
16 *-------------------------------------------------------
TESTPROG Source Listing 17-APR-1997 09:15:21 DEC COBOL V2.4-863 Page 2
0 Program Section Summary 17-APR-1997 09:15:19 COB$USER2:[BRAFFITT.WORK]TEST.COB;1
DIAGNOSTICS SUMMARY
Informationals 4 (suppressed)
----------------------
Total 4
TESTPROG Source Listing 17-APR-1997 09:15:21 DEC COBOL V2.4-863 Page 3
0 Compilation Summary 17-APR-1997 09:15:19 COB$USER2:[BRAFFITT.WORK]TEST.COB;1
COMMAND QUALIFIERS
COBOL
/NOALIGNMENT /GRANULARITY = QUAD
/NOANALYSIS_DATA /LIST
/NOANSI_FORMAT /NOMACHINE_CODE
/NOAUDIT /NOMAP
/CHECK = (NOPERFORM, NOBOUNDS, NODECIMAL, NODUPLICATE_KEYS) /NATIONALITY = US
/NOCONDITIONALS /NOOBJECT
/NOCONVERT = LEADING_BLANKS /OPTIMIZE = LEVEL=4
/COPY_LIST /RESERVED_WORDS = (NOXOPEN, NOFOREIGN_EXTENSIONS)
/NOCROSS_REFERENCE /NOSEPARATE_COMPILATION
/DEBUG = (NOSYMBOLS, TRACEBACK) /NOSEQUENCE_CHECK
/NODEPENDENCY_DATA /STANDARD = (NOXOPEN, NOSYNTAX, NOV3, 85, NOMIA)
/NODIAGNOSTICS /NOTIE
/NOFIPS /NOTRUNCATE
/NOFLAGGER /VFC
/FLOAT = D_FLOAT /WARNINGS = (NOINFORMATION, OTHER)
COMPILATION STATISTICS
CPU time: 0.66 seconds
Elapsed time: 5.49 seconds
Pagefaults: 827
I/O Count: 228
Source lines: 16
1454 lines per CPU minute.
- Don Braffitt
DEC/VAX COBOL project leader
|