File Edit Edit_Settings Menu Utilities Compilers Test Help

EDIT MTPLP03.ALMIGHTY.FHAND1(READPS) - 01.06 Columns 00001 00072
****** ***************************** Top of Data ******************************
 

000100 000100 IDENTIFICATION DIVISION.
000200 000200 PROGRAM-ID. READPS.
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.
001900              77 EOF PIC X(3) VALUE 'NO'.
002000              77 FS PIC 9(2).
002100 001600 PROCEDURE DIVISION.
002200              MAIN-PARA.
002300 001620 PERFORM OPEN-PARA.
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
003100              NOT AT END
003200              DISPLAY REC1
003210              DISPLAY MOBILENO
003300               END-READ.
003500 002000 CLOSE-PARA.
 003600 002100 CLOSE FILE1.
003700 002200 DISPLAY FS.
003800 002300 STOP RUN.
****** **************************** Bottom of Data ****************************