이 오류를 제거하는 데 도움이됩니다

Question

이 오류가 계속 발생하도록 도와주세요. "필드가 오프셋에서 감지 된 화면 경계 오류입니다. 올바른 작업을 위해 모든 것을 시도했지만 오류가 계속 나타납니다. 제발 도와주세요. 이 내 코드입니다.

  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. 

Answer 1

DISPLAY(23, 15) 'LARGEST NO. :'. 
DISPLAY(23, 30) LALAGYAN3. 
DISPLAY(26, 15) 'BRANCH NAME:'. 

당신은 26 선 스크린 (또는 27이 제로 기반 않은 경우) 마지막 display이 문제를 일으킬 수를 가지고하지 않는 한 당신은 25 명 선으로 ​​제한하는 경우, 그 경우는 거의 확실하므로 화면 경계 내에서 올바르게 배치되도록 좌표를 변경해야합니다.