Verified Answers


If an answer to your question is correct, click on "Verify Answer" under the "More" button. The answer will now appear with a checkmark. Please be sure to always mark answers that resolve your issue as verified. Your fellow Community members will appreciate it!  Learn more

  • State Suggested Answer
  • Replies replies
    4
  • Answers answer
    1
  • Subscribers subscribers
    6
  • Views views
    926
  • Users 0 members are here
  • Locked Locked
Related
Options
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

Execution error : file 'direct' error code: 114, pc=0, call=1, seg=0 114 Attempt to access item beyond bounds of memory (Signal 11) I have been using Microfocus Server Express 5.1 WP 15. It gives error when I am trying to compile cobols.

Piyush Mehta

Execution error : file 'direct'
error code: 114, pc=0, call=1, seg=0
114     Attempt to access item beyond bounds of memory (Signal 11)

I have been using Microfocus Server Express 5.1 WP 15. It gives error when I am trying to compile cobols.

Any help is appreciated.

Thanks!!

Parents Reply Children
  • 0 in reply to Piyush Mehta

           IDENTIFICATION DIVISION.
           PROGRAM-ID. PII.
           AUTHOR. PF/TR.
          *
           ENVIRONMENT DIVISION.
           CONFIGURATION SECTION.
           OBJECT-COMPUTER. ANY-THING.
           SPECIAL-NAMES. CONSOLE IS CRT.
          *
           DATA DIVISION.
           WORKING-STORAGE SECTION.
          *
           01  FULL-SCREEN         PIC X(1920).
          *
           01  DI-1 REDEFINES FULL-SCREEN.
               02 FILLER           PIC X(160).
               02 DI-TX1           PIC X(160).
               02 DI-TX2           PIC X(13).
               02 DI-TERM          PIC X(15).
               02 FILLER           PIC X(136).
               02 DI-TX3           PIC X(6).
               02 DI-PI            PIC X(15).
               02 FILLER           PIC X(1415).
          *
           01  DI-2 REDEFINES FULL-SCREEN.
               02 FILLER           PIC X(333).

               02 DI-TERM2         PIC X(15).
               02 FILLER           PIC X(142).
               02 DI-PI2           PIC X(15).
               02 FILLER           PIC X(1415).
          *
           01  WORK-AREA.
               02 PI               PIC S9V9(14).
               02 TERM             PIC S9V9(14).
               02 W                PIC S9V9(14).
               02 N                PIC 9999.
               02 N1               PIC 9999.
               02 N2               PIC 9999.
               02 ED               PIC -9.9(12).
          *
           01  CONSTANTS.
               02 TX1              PIC X(17) VALUE "CALCULATION OF PI".
               02 TX2              PIC X(12) VALUE "NEXT TERM IS".
               02 TX3              PIC X(5) VALUE "PI IS".
          *
           PROCEDURE DIVISION.
           LA-START.
               DISPLAY SPACE.
               MOVE SPACE TO FULL-SCREEN.
               MOVE TX1 TO DI-TX1.
               MOVE TX2 TO DI-TX2.
               MOVE TX3 TO DI-TX3.
               MOVE 0.5 TO ED.
               MOVE ED TO DI-TERM.
               MOVE 3 TO ED.
               MOVE ED TO DI-PI.
               DISPLAY DI-1.
               MOVE 0.5 TO PI.
               MOVE 0.5 TO TERM.
               MOVE 3 TO N.
           LOOP.
               MOVE N TO N2.
               SUBTRACT 2 FROM N2.
               MULTIPLY N2 BY N2.
               MULTIPLY N2 BY TERM.
               MOVE N TO N1.
               SUBTRACT 1 FROM N1.
               MULTIPLY N BY N1.
               MULTIPLY 4 BY N1.
               DIVIDE N1 INTO TERM.
               IF TERM < 0.0000000000001 THEN GO TO HALT.
               ADD TERM TO PI.
               MOVE PI TO W.
               MULTIPLY 6 BY W.
               MOVE W TO ED.
               MOVE ED TO DI-PI2.
               MOVE TERM TO ED.
               MOVE ED TO DI-TERM2.

               DISPLAY DI-2.
               ADD 2 TO N.
               IF N < 100 GO TO LOOP.
           HALT.
               STOP RUN.
                                       

    thanks in advance!!

Resources

Support
Documentation
Learning Services
Partner Programs
Privacy
Compliance
Help
Company
Privacy Policy
Terms of Use
Accessibility
Anti-Slavery Statement
Support
Contact Us
Careers
Code of Business Conduct and Ethics
The opinions expressed above are the personal opinions of the authors, not of OpenText. By using this site, you accept the Terms of Use. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.), Hewlett Packard Enterprise Company, or Micro Focus. As of January 31, 2023, the Material is now offered by OpenText, a separately owned and operated company. Any reference to the HP, Hewlett Packard Enterprise/HPE, and Micro Focus marks is historical in nature and the HP, Hewlett Packard Enterprise/HPE, and Micro Focus marks are the property of their respective owners.