Former Member Absent Member.
Absent Member.
1483 views

[archive] Internal Error #45

[Migrated content. Thread originally posted on 14 October 2009]

Folks,

I'm getting this error when trying to compile a program using the MSchart control

It it happening also with this small sample of code I received during my time on Gisle's advanced windows course.

I comes back with this "
chart2.cbl, line 62: *** Internal error #45 ***


Here's the sample code

       IDENTIFICATION               DIVISION.
       PROGRAM-ID.                  Chart2.
       AUTHOR.                      Cheesle.
       REMARKS.

       ENVIRONMENT                  DIVISION.
       CONFIGURATION                SECTION.
       SPECIAL-NAMES.
       COPY "MSCHART.DEF".
                .
       WORKING-STORAGE              SECTION.
       77  CNTL-FONT                USAGE HANDLE OF FONT SMALL-FONT.
       77  hDataPoints              USAGE HANDLE OF DataPoints.
       77  WS-I                     PIC 9(1).
       77  WS-A                     PIC 9(9).

       SCREEN                       SECTION.

       01 CHART-FORM.
           03 CheeseChart           MSCHART
              COL                   1
              LINE                  1
              LINES                 40
              SIZE                  80
              Visible               0.

       PROCEDURE DIVISION.
       ACU-MAIN-LOGIC.
           DISPLAY STANDARD         GRAPHICAL WINDOW
                   LINES            40
                   SIZE             80
                   BACKGROUND-LOW
                   CONTROL FONT     CNTL-FONT
                   TITLE            "Finest city by vote".
           DISPLAY CHART-FORM.
           MODIFY  CheeseChart      Datagrid::SetSize(1, 3, 1, 3)
                   |ChartType        = VtChChartType2dPie.
                   ChartType        = VtChChartType3dCombination.
           PERFORM VARYING          WS-I FROM 1 BY 1 UNTIL WS-I > 3
                   MULTIPLY WS-I BY 100 GIVING WS-A
                   MODIFY           CheeseChart
                                    @Row    = 1
                                    @Column = WS-I
                                    @Data   = WS-A
                   END-PERFORM.
           MODIFY  CheeseChart
                   DataGrid::ColumnLabel(1, 1, "San Fransisco")
                   DataGrid::ColumnLabel(2, 1, "Miami")
                   DataGrid::ColumnLabel(3, 1, "San Diego")
                   DataGrid::RowLabel(1, 1,
                        "America's finest city by vote").

           MODIFY  CheeseChart
                   Plot::SeriesCollection::Count()
                   GIVING           WS-I.
           PERFORM UNTIL            WS-I = 0
                   INQUIRE          CheeseChart
                    Plot::SeriesCollection::Item(WS-I)::DataPoints IN
                    hDataPoints
                   USE              hDataPoints Item(-1)
                                    MODIFY
                                     ^DataPointLabel::LocationType =
                                      VtChLabelLocationTypeOutside
                                     ^DataPointLabel::Component =
                                      VtChLabelComponentPercent
                                     ^DataPointLabel::PercentFormat =
                                      "0%"
                                     ^DataPointLabel::VtFont::Size = 14
                                     END-USE
                   SUBTRACT         1 FROM WS-I
                   END-PERFORM.

           MODIFY  CheeseChart
                   ShowLegend       = 1
                   Visible          = 1.

           ACCEPT  OMITTED.
           EXIT    PROGRAM
           STOP    RUN
           .


The line in question is
^DataPointLabel::LocationType =


I'm compiling under 8.0.0

We're going to head to tech support, but I've have very quick fixes on here in the past so any ideas?

Many thanks,
Shaun
0 Likes
3 Replies
Former Member Absent Member.
Absent Member.

RE: [archive] Internal Error #45

Are you saying this only happens under 8.0.0?
Do you use any compiler options?
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Internal Error #45

Hi Gisle,

Yes, only started with V8.0.0
Last time we compiled the problem program was with V7.2 on 16/10/2008.

Compiler options used on that are "Compile options = -o ..\object\@.acu -x -Dcm -D7 -Ga -Za"

This sample was simply ccbl32 -ga chart2.cbl
0 Likes
Former Member Absent Member.
Absent Member.

RE: [archive] Internal Error #45

I did a quick check and version 8.1.1 has a fix for the error #45. Chances are your problem has already been addressed. Check it out with 8.1.1.
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.