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 > 4 OR BC < 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.