Newsgroup: it.comp.software.database
Titolo: unexplained error

I have something strange without any obviuos explaination . That
display statement in a program appeared and in another not appeared .
It is excuted after the stop run.
The display stament is wrote as down :
DISPLAY "TYPE 'E' FOR ENDING THE MODULE...", HIGH,
           LINE 24 POSITION 40.
Both programs are the same logic. No noticable differencies between
them.
The program that the display statment doesn't appeared in it is below
:
---------------------------------------------------------------------
       IDENTIFICATION DIVISION.
       PROGRAM-ID. c0216a.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. PC.
       OBJECT-COMPUTER. PC.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT-FILE ASSIGN TO RANDOM "C0216.FIL".
       DATA DIVISION.
       FD  INPUT-FILE
           LABEL RECORDS ARE OMITTED
           RECORD CONTAINS 15 CHARACTERS.
       01 INPUT-FILE-REC.
          02 PRO-ID PIC 9(3).
          02 PRO-PN PIC X(3).
          02 PRO-PQ PIC 9(3).
          02 PRO-PC PIC 9(2)V9(2).
          02 FILLER PIC X(2).
       WORKING-STORAGE SECTION.
          77 PRO-ID-V PIC 9(3).
          77 PRO-PN-V PIC X(3).
          77 PRO-PQ-V PIC 9(3).
          77 PRO-PC-V PIC 9(2)V9(2).
       01 RETURN-KEYB PIC X.
       SCREEN SECTION.
       01 MAIN-SCREEN.
           02 BLANK SCREEN.
           02 LINE 1 COL 30 "DATA ENTRY SCREEN".
           02 LINE 2 COL 2 "PRODUCT NUMBER  :".
           02 LINE 3 COL 2 "PRODUCT NAME    :".
           02 LINE 4 COL 2 "PRODUCT QUANTITY:".
           02 LINE 5 COL 2 "PRODUCT COST    :".
       PROCEDURE DIVISION.
           OPEN OUTPUT INPUT-FILE.
           CLOSE INPUT-FILE.
           OPEN EXTEND INPUT-FILE.
       ADD-RECORD.
           DISPLAY MAIN-SCREEN.
           ACCEPT PRO-ID-V LINE 2 POSITION 20. 
           ACCEPT PRO-PN-V LINE 3 POSITION 20. 
           ACCEPT PRO-PQ-V LINE 4 POSITION 20. 
           ACCEPT PRO-PC-V LINE 5 POSITION 20.
           MOVE PRO-ID-V TO PRO-ID.
           MOVE PRO-PN-V TO PRO-PN.
           MOVE PRO-PQ-V TO PRO-PQ.
           MOVE PRO-PC-V TO PRO-PC.
           WRITE INPUT-FILE-REC.
           DISPLAY "TYPE 'E' FOR ENDING THE MODULE...", HIGH,
           LINE 24 POSITION 40.
           ACCEPT RETURN-KEYB POSITION 0.
           IF RETURN-KEYB EQUAL "E" THEN
           EXIT PROGRAM
           STOP RUN
           ELSE
           GO ADD-RECORD
           END-IF.
The program that the display statment appeared in it is below :
---------------------------------------------------------------
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ADDAMAC.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. PC.
       OBJECT-COMPUTER. PC.
      * SPECIAL-NAMES.   CONDITION1 IS "YES".
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT-FILE
               ASSIGN TO RANDOM "INPUT.FIL".
       DATA DIVISION.
       FD INPUT-FILE
               BLOCK CONTAINS 2 RECORDS
               LABEL RECORD STANDARD.
       01 INPUT-REC.
          02 SRIL PIC 9(4).
          02 CODE-I PIC X(40).
          02 STNO PIC 9(3).
          02 PRno PIC XXX.
          02 QUNT PIC 9(7)V99.
       WORKING-STORAGE SECTION.
          77 SRIL-V PIC 9(4).
          77 CODE-I-V PIC X(40).
          77 STNO-V PIC 9(3).
          77 PRno-V PIC XXX.
          77 QUNT-V PIC 9(7)V99.
       01  RETURN-KEYB                  PIC X.
       SCREEN SECTION.
       01  STATUS-SCREEN.
          05  BLANK SCREEN.
          05 LINE 1 COL 40 HIGHLIGHT "stores system ".
          05 LINE 3 COL 2 HIGHLIGHT "serial number:".
          05 LINE 4 COL 2 HIGHLIGHT "code         :".
          05 LINE 5 COL 2 HIGHLIGHT "store number :".
          05 LINE 6 COL 2 HIGHLIGHT "part number  :".
          05 LINE 7 COL 2 HIGHLIGHT "quantity     :".
       PROCEDURE DIVISION.
           OPEN OUTPUT INPUT-FILE.
           CLOSE INPUT-FILE.
           OPEN EXTEND INPUT-FILE.
       ADD-RECORD.
           DISPLAY STATUS-SCREEN.
           ACCEPT SRIL-V   LINE 3 POSITION  20.
           ACCEPT CODE-I-V LINE 4 POSITION  20.
           ACCEPT STNO-V   LINE 5 POSITION  20.
           ACCEPT PRno-V    LINE 6 POSITION  20.
           ACCEPT QUNT-V   LINE 7 POSITION  20.
           MOVE SRIL-V TO SRIL.
           MOVE CODE-I-V TO CODE-I.
           MOVE STNO-V TO STNO.
           MOVE PRno-V TO PRno.
           MOVE QUNT-V TO QUNT.
           WRITE INPUT-REC.
           DISPLAY "TYPE 'E' FOR ENDING THE MODULE...", HIGH,
           LINE 24 POSITION 40.
           ACCEPT RETURN-KEYB POSITION 0.
           IF RETURN-KEYB EQUAL "E" THEN
           EXIT PROGRAM
           STOP RUN
           ELSE
           GO ADD-RECORD
           END-IF.

 wrote in message
news:7ecaee57.04050...@posting.google.com...
