[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference clt::cobol

Title:VAX/DEC COBOL
Notice:Kit,doc,performance talk info-->DIR/KEY=KIT or DOC or PERF_TALK
Moderator:PACKED::BRAFFITT
Created:Mon Feb 03 1986
Last Modified:Fri Jun 06 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:3250
Total number of notes:13077

3227.0. "LIB$ESTABLISH and ON SIZE ERROR" by GYLCG::FAUSER () Mon Apr 14 1997 14:20

Version Information:
          AXP:  DEC COBOL V2.3-795    DEC$COBRTL T2.1-145
          VAX:  VAX COBOL V5.3-40     COBRTL     V5.3-011

Problem:  If a COBOL Program contains a CALL LIB$ESTABLISH USING .... statement,
          regardless if it gets executed or not, an
                   ADD 1 TO XXX ON SIZE ERROR YYY.
          always takes the "on size error" path.
          If the "CALL LIB$ESTABLISH" is commented out, the ADD 1 ... works as
          expected. (This is also true for a compute statement).

          This problem does not occur using VAX Cobol.

          This is a serious problem, because taking the "on size error" path
          may lead to wrong results.

          Does anyone know about this problem? Is it fixed in Cobol Version
          2.4  or COBRTL Version 2.5?

Any help is appreciated.
Thanks in advance.
Guenter.

*******************************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID.   MNHCD000.
AUTHOR.       AA&CO.
DATE-WRITTEN. 09 DEC 1987.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.

SOURCE-COMPUTER.
    VAX-8700.

OBJECT-COMPUTER.
    VAX-8700.

DATA DIVISION.
WORKING-STORAGE SECTION.

01  RAESTB-WS-REC
    05  ESTB-EXCP-HDLR-NO-RAEXC001  PIC S9(9) COMP.
*                VALUE EXTERNAL MCHER012.


01  WS-SAVE-AREA.
    05  WS-IMG-STS-COD                         PIC S9(9) COMP SYNC.
    05  WS-TRAN-ID-NO-HLD.
        10 WS-TRAN-ID-NO-PART-1-HLD            PIC 9(03).
        10 WS-TRAN-ID-NO-PART-2-HLD            PIC 9(06).

PROCEDURE DIVISION.
0-MAINLINE.

    MOVE ZERO                       TO  WS-TRAN-ID-NO-HLD.
    MOVE 1                          TO  WS-TRAN-ID-NO-PART-2-HLD.

    Display "WS-TRAN-ID-NO-PART-1-HLD   " WS-TRAN-ID-NO-PART-1-HLD.

    ADD 1                           TO  WS-TRAN-ID-NO-PART-1-HLD
        ON SIZE ERROR Display "On Size Error Occured".

    Stop Run.
0-MAINLINE-EXIT.
    EXIT.
*******************************************************************************
12-INIT-EXCEPT.

     CALL "LIB$ESTABLISH"      USING  BY
                               VALUE ESTB-EXCP-HDLR-NO-RAEXC001.

12-INIT-EXCEPT-EXIT.
    EXIT.
    
T.RTitleUserPersonal
Name
DateLines
3227.1We're working on itDJS::SZYMANSKIMon Apr 14 1997 16:514
We'll take a look at it.

There is a certain amount of work we can do with the information posted in
the base note.  Having the user's condition handler would also help us.
3227.2Bug - testing fixDJS::SZYMANSKIMon Apr 14 1997 18:545
There is a bug in the compiler front end logic for testing a runtime variable 
used to communicate the size error condition between the Cobol runtime library 
eondition handler and the generated code around arithmetic statements.  This 
occurs when the Cobol source program contains a LIB$ESTABLISH call or a 
LIB$REVERT call.  We are testing the fix for this problem now.
3227.3Update sent on casePACKED::BRAFFITTTue Apr 15 1997 21:2771
From:	SPSEG::SDT_ACE "15-Apr-1997 1722 -0400" 15-APR-1997 17:24:35.06
To:	Product dependent distribution list
CC:	
Subj:	Case MGO102784 has been updated in the SDT_ACE database (LIB$ESTABLISH and ON SIZE ERROR only with ALPHA systems) (LIB$ESTABLISH and ON SIZE ERROR only with ALPHA systems)

[This update was sent from BRAFFITT on 15-APR-1997 17:21:55.06]
[SDT Support responsible for next action, Problem is undefined]

From:	PACKED::BRAFFITT "15-Apr-1997 1704" 15-APR-1997 17:16:12.19
To:	GYLCG::FAUSER
CC:	CHIP,TARIQ,DAN,BRAFFITT
Subj:	RE: COBOL LIB$ESTABLISH and ON SIZE ERROR.

>        Hi!
>
>        Thanks for your quick response!!
>
>        This problem is highly critical, because it
>blocks the release of
>        the next major release of the German Future
>Exchange Software
>        (Deutsche Terminboerse DTB) being sheduled for
>Monday 21/Apr 97.
>        If we do not have a solution by tomorrow
>evening, we have to modify
>        more then 100 Cobol Main Programs and replacing
>LIB$ESTABLISH by the
>        old style jacket routines as used in earlier
>versions of COBOL.
>
>        Because you wrote that you are already testing
>your bugfix, this
>        lets me hope that we could have a solution
>before tomorrow evening
>        (our time, about 11:00 am your time).
>        Pls. drop we a short line telling if we have a
>chance to get a
>        solution by this time.
>
>        I have opened an IPMT case for you and hope you
>have all the paper
>        work you need to work on this problem. If you
>need anything else,
>        let me know.

RE: Case MGO102784
    CLT::COBOL note 3227

We are testing a compiler with the fix now:

  Directory CLT::CLT$LIBRARY:[DEC_COBOL]

  COBOL.EXE;909         10450  15-APR-1997 10:39:22.00

We are able to run about 1000 tests per day of our 7000 test regression test
system.

I'll post a case update tomorrow morning (around 07:00 USA Eastern time) to
update you on the status of the 1000 tests we plan to run tonight against
the 2.4-909 compiler.

Please try the 2.4-909 compiler as soon as you can.  We plan to freeze code FRI
18-Apr-1997 for a bug fix kit for OpenVMS Alpha, so any feedback you can give
us on the 2.4-909 compiler with the fix prior to this FRI would be very much
appreciated.

Thanks for the very concise and clear example you put together to demonstrate
the problem.

- Don Braffitt
  DEC/VAX COBOL project leader
3227.4Fixed with 2.4-909 compilerPACKED::BRAFFITTWed Apr 16 1997 11:5046
From:	SPSEG::SDT_ACE "16-Apr-1997 0746 -0400" 16-APR-1997 07:48:52.81
To:	Product dependent distribution list
CC:	
Subj:	Case MGO102784 has been updated in the SDT_ACE database (LIB$ESTABLISH and ON SIZE ERROR only with ALPHA systems) (LIB$ESTABLISH and ON SIZE ERROR only with ALPHA systems)

[This update was sent from BRAFFITT on 16-APR-1997 07:46:24.60]
[SDT Support responsible for next action, Problem is undefined]

RE: Case MGO102784
    CLT::COBOL note 3227

Platforms impacted:
    DEC COBOL for OpenVMS Alpha

We have a compiler fix for this problem available in:

    Directory CLT::CLT$LIBRARY:[DEC_COBOL]

    COBOL.EXE;909         10450  15-APR-1997 10:39:22.00

Our testing of this compiler has so far uncovered no regressions.

We plan to have updated network kits (COBOL024.%) with this fix available on
CLT:: on 25-Apr.

Release note:

2.4-909    When the source program contains a call to LIB$ESTABLISH or to
           LIB$REVERT, arithmetic statements with an ON SIZE ERROR clause
	   no longer execute as if the size error condition was raised.

	   Note that LIB$ESTABLISH functionality is supported only on OpenVMS.

>Version Information:
>          AXP:  DEC COBOL V2.3-795    DEC$COBRTL T2.1-145
>          VAX:  VAX COBOL V5.3-40     COBRTL     V5.3-011

You should also upgrade to the current supported version of the DEC COBOL RTL
(V2.4-109):

    Directory CLT::CLT$LIBRARY:[DEC_COBOL]

    COBOLRTL024.A;109      4599   8-AUG-1996 08:01:16.00

- Don Braffitt
  DEC/VAX COBOL project leader
3227.5See CLT::DEC_COBOL_IFT note 2.58 for a kit with the fixPACKED::BRAFFITTTue Apr 22 1997 11:120