Menu ▾ ▴

#86 Comp-1 fields are dropping high order digits

open
nobody
None
5
2010-08-03
2010-08-03
Bruce Martin
No

Comp-1 fields drop the digits before the decimal point

The following code

Move 23.45 to Comp-1-field
Display Comp-1-field

produces .45000000E000

Discussion

  • Bruce Martin

    Bruce Martin - 2010-08-03

    Example programs

     
    Comp1TstA.cbl

  • Bruce Martin

    Bruce Martin - 2010-08-03

    Note: output from attached programs:

    0,000,000,000,000,001.23 - .23000000E000 .23000000E000 .23000000000000000E000 .23000000000000000E000 .23000000E000
    -1.23 - .23000000E000 .23000000E000 .23000000000000000E000 .23000000000000000E000 .23000000E000
    0,000,000,000,000,023.45 - .45000000E000 .45000000E000 .45000000000000000E000 .45000000000000000E000 .45000000E000
    -23.45 - .45000000E000 .45000000E000 .45000000000000000E000 .45000000000000000E000 .45000000E000
    0,000,000,000,000,123.45 - .45000000E000 .45000000E000 .45000000000000000E000 .45000000000000000E000 .45000000E000
    -123.45 - .45000000E000 .45000000E000 .45000000000000000E000 .45000000000000000E000 .45000000E000
    0,000,000,000,004,567.89 - .89000000E000 .89000000E000 .89000000000000000E000 .89000000000000000E000 .89000000E000
    -4,567.89 - .89000000E000 .89000000E000 .89000000000000000E000 .89000000000000000E000 .89000000E000
    0,000,000,000,034,567.89 - .89000000E000 .89000000E000 .89000000000000000E000 .89000000000000000E000 .89000000E000
    -34,567.89 - .89000000E000 .89000000E000 .89000000000000000E000 .89000000000000000E000 .89000000E000
    0,000,000,000,234,567.89 - .89000000E000 .89000000E000 .89000000000000000E000 .89000000000000000E000 .89000000E000
    -234,567.89 - .89000000E000 .89000000E000 .89000000000000000E000 .89000000000000000E000 .89000000E000
    0,000,000,091,234,567.89 - .89000000E000 .89000000E000 .89000000000000000E000 .89000000000000000E000 .89000000E000
    -91,234,567.89 - .89000000E000 .89000000E000 .89000000000000000E000 .89000000000000000E000 .89000000E000
    0,000,000,987,654,321.12 - .12000000E000 .12000000E000 .12000000000000000E000 .12000000000000000E000 .12000000E000
    -987,654,321.12 - .12000000E000 .12000000E000 .12000000000000000E000 .12000000000000000E000 .12000000E000

     

Log in to post a comment.