how to get rid of this error

Question

0.00/5 (No votes)

See more:

please help me i keep getting this error "Field is out of screen boundary error detected at offset I tried everything to make it right but the error keeps on showing up. please help me, this is my code:

IDENTIFICATION DIVISION.
       PROGRAM-ID. LALABS.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-PC.
       OBJECT-COMPUTER. IBM-PC.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT OUTFILE ASSIGN TO 'NATS'.
       DATA DIVISION.
       FILE SECTION.
       FD  OUTFILE
           LABEL RECORD IS OMITTED
           DATA RECORD IS OUTREC.
       01  OUTREC.
           02 FILLER PIC X(80).
       WORKING-STORAGE SECTION.
       01  BC  PIC 9 VALUE 0.
       01  TCF   PIC 99 VALUE 0.
       01  RFC  PIC 9(5) VALUE 0.
       01  PTF PIC 9(5) VALUE 0.
       01  ES  PIC 9(5) VALUE 0.
       01  RS  PIC 9(5) VALUE 0.
       01  EOFSW PIC 9 VALUE 0.
       01  IR PIC  9(5) VALUE 0.
       01  INPUTZ PIC X VALUE SPACES.
       01  LALAGYANZZ.
           02 LALAGYAN1 PIC 9(5) VALUE 0.
           02 LALAGYAN2 PIC 9(5) VALUE 0.
           02 LALAGYAN3 PIC 9(5) VALUE 0.
       01  CTR-STUDENTS.
           02 MAIN-S PIC 9(5) VALUE 0.
           02 COMMON-S PIC 9(5) VALUE 0.
           02 SJ-S PIC 9(5) VALUE 0.
           02 TAG-S PIC 9(5) VALUE 0.
       SCREEN SECTION.
       01  SCRE.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MAIN-RTN.
           PERFORM INIT-RTN THRU INIT-RTN-END.
           PERFORM PROCESS-RTN UNTIL INPUTZ = 'N' OR 'n'.
           STOP RUN.
       INIT-RTN.
           GO TO INIT-RTN-END.
       INIT-RTN-END.
       PROCESS-RTN.
	       DISPLAY SCRE.
           DISPLAY(5, 20) 'POLYTECHNIC UNIVERSITY OF THE PHILIPPINES'.
           DISPLAY(6, 30) 'STA. MESA, MANILA'.
           DISPLAY(9, 30) 'METRO BRANCH CAMPUS'.
           DISPLAY(10, 30) 'POPULATION REPORT'.
           DISPLAY(11, 30) 'FIRST SEMESTER'.
           DISPLAY(12, 30) '2014-2015'.
		   PERFORM A.
       A.  DISPLAY(14, 15) 'LOCATION BRANCH CODE:(1/2/3/4)'.
           ACCEPT(14, 55) BC.
		   IF BC &gt; 4 OR BC &lt; 1 PERFORM A.
           DISPLAY(15, 15) 'LOCATION NAME:'.
           IF BC = 1 PERFORM MEYN-RTN.
           IF BC = 2 PERFORM COMMON-RTN.
           IF BC = 3 PERFORM SJ-RTN.
           IF BC = 4 PERFORM TAG-RTN.
           DISPLAY(16, 15) 'TOTAL NO. OF COURSE OFFERED:'.
           ACCEPT(16, 55) TCF.
           DISPLAY(17, 15) 'TOTAL NO. OF REGULAR FACULTY:'.
           ACCEPT(17, 55) RFC.
           DISPLAY(18, 15) 'TOTAL NO. OF PART-TIME FACULTY:'.
           ACCEPT(18, 55) PTF .
           DISPLAY(19, 15) 'TOTAL NO. OF ENROLLED STUDENTS:'.
           ACCEPT(19, 55) ES.
           DISPLAY(20, 15) 'TOTAL NO, OF REGULAR STUDENTS:'.
           ACCEPT(20, 55) RS.
           PERFORM IR-RTN.
           DISPLAY(21, 15) 'TOTAL NO: OF IRREGULAR STUDENTS:'.
           DISPLAY(21, 55) IR .
           PERFORM J.
       J.  DISPLAY(22, 15) 'INPUT ANOTHER RECORD(Y/N)?:'.
           ACCEPT(22, 55) INPUTZ.
           IF INPUTZ = 'Y' OR 'N' NEXT SENTENCE ELSE PERFORM J.
           IF INPUTZ = 'Y' PERFORM PROCESS-RTN ELSE PERFORM TOTZ-RTN.
       IR-RTN.
           COMPUTE IR = ES - RS.
       TOTZ-RTN.
           DISPLAY(23, 15) 'LARGEST NO. :'.
		   DISPLAY(23, 30) LALAGYAN3.
           DISPLAY(26, 15) 'BRANCH NAME:'.
       MEYN-RTN.
           DISPLAY(15, 50) 'STA. MESA, MAIN'.
           ADD ES TO MAIN-S.
       COMMON-RTN.
           DISPLAY(15, 50) 'COMMONWEALTH'.
           ADD ES TO COMMON-S.
       SJ-RTN.
           DISPLAY(15, 50) 'SAN JUAN'.
           ADD ES TO SJ-S.
       TAG-RTN.
           DISPLAY(15, 50) 'TAGUIG'.
           ADD ES TO TAG-S.

Posted 17-Sep-14 3:05am

Member 11089303

Updated 17-Sep-14 3:09am

Kornfeld Eliyahu Peter

v2

Add a Solution

Comments

Kornfeld Eliyahu Peter 17-Sep-14 9:10am

Can you tell the line with the error?

Member 11089303 17-Sep-14 9:13am

after i run the program, at the last part of it the error appears. i don't know which part of it creates the error. please help me

Richard MacCutchan 17-Sep-14 11:27am

Check the Cobol documentation to see what are the screen limits for displaying data. That should help you to figure out which line throws the error.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

_Maxxx_ · Answer 1 · 2014-09-17T13:47:00

it's been 100,000,000 years since I did any Cobol - but the only thing that looks out of place in that code with regards to the screen is the line

Quote:
DISPLAY(26, 15) 'BRANCH NAME:'.

which (assuming Display() parameters are Row, Column) would be below the 24th line of a screen, which used to be the maximum back in the day.