File Edit Edit_Settings Menu Utilities Compilers Test Help

EDIT MTPLP03.ALMIGHTY.FHAND1(WRITEPS) - 01.03 Columns 00001 00072
****** ***************************** Top of Data ******************************
000100 000100 IDENTIFICATION DIVISION.
000200 000200 PROGRAM-ID. WRITEPS.
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
001000 000370 FILE STATUS IS FS.
001100 000380 DATA DIVISION.
001200 000390 FILE SECTION.
001300 000391 FD FILE1.
001400 000392 01 REC1.
001500 000393 02 ENO PIC 9(4).
001600 000394 02 NAME PIC X(15).
002000 000398 02 MOBILENO PIC X(10).
002100 000399 02 FILLER PIC X(51).
002600 001200 WORKING-STORAGE SECTION.
002606 77 REC2 PIC X(80).
002680 77 FS PIC 9(2).
003100 001600 PROCEDURE DIVISION.
003110               MAIN-PARA.
003200 001620 PERFORM OPEN-PARA.
003300 001630 PERFORM OPERATION-PARA.
003400 001640 PERFORM CLOSE-PARA.
003500 001650 OPEN-PARA.
003600 001660 OPEN EXTEND FILE1.
003700 001670 DISPLAY FS.
004400 001675 OPERATION-PARA.
004410                       ACCEPT REC2.
004420                       DISPLAY REC2.
004610                        MOVE REC2 TO REC1.
004620                         WRITE REC1.
004630                        DISPLAY FS.
005600 002000 CLOSE-PARA.
 005700 002100 CLOSE FILE1.
005800 002200 DISPLAY FS.
005900 002300 STOP RUN.
****** **************************** Bottom of Data ****************************