File Edit Edit_Settings Menu Utilities Compilers Test Help

EDIT MTPLP03.ALMIGHTY.FHAND1(REWRITPS) - 01.06 Columns 00001 00072
****** ***************************** Top of Data ******************************
000100 000100 IDENTIFICATION DIVISION.
000200 000200 PROGRAM-ID. REWRITPS.
000300 000300 ENVIRONMENT DIVISION.
000400 000310 INPUT-OUTPUT SECTION.
000500 000320 FILE-CONTROL.
000600 000330 SELECT FILE1 ASSIGN TO DD1
000700 000340 ORGANIZATION IS SEQUENTIAL
000800 000350 ACCESS MODE SEQUENTIAL
000900 000370 FILE STATUS IS FS.
001000 000380 DATA DIVISION.
001100 000390 FILE SECTION.
001200 000391 FD FILE1.
001300 000392 01 REC1.
001400 000393 02 ENO PIC 9(4).
001500 000394 02 NAME PIC X(15).
001600 000398 02 MOBILENO PIC X(10).
001700 000399 02 FILLER PIC X(51).
001800 001200 WORKING-STORAGE SECTION.
002000              77 FS PIC 9(2).
002010              77 EOF PIC X(3) VALUE 'NO'.
002020              77 NAME1 PIC X(15).
002030               77 MOBILENO1 PIC 9(10).
002100 001600 PROCEDURE DIVISION.
002200               MAIN-PARA.
002300 001620 PERFORM OPEN-PARA.
002310                ACCEPT MOBILENO1.
002320                ACCEPT NAME1.
002400 001630 PERFORM OPERATION-PARA UNTIL EOF = 'YES'.
002500 001640 PERFORM CLOSE-PARA.
002600 001650 OPEN-PARA.
002700 001660 OPEN I-O FILE1.
002800 001670 DISPLAY FS.
002900 001675 OPERATION-PARA.
003000               READ FILE1 AT END MOVE 'YES' TO EOF
003010               NOT AT END
 003100             IF MOBILENO1 = MOBILENO
003101              DISPLAY REC1
003102              DISPLAY 'IN THE ABOVE, NAME IS CHANGED LIKE THIS'
003110              MOVE SPACES TO NAME
003200              MOVE NAME1 TO NAME
003300              DISPLAY REC1
003310              REWRITE REC1
003400              DISPLAY FS
003410              END-IF
003420              END-READ.
003500 002000 CLOSE-PARA.
003600 002100 CLOSE FILE1.
003700 002200 DISPLAY FS.
003800 002300 STOP RUN.
****** **************************** Bottom of Data ****************************