IDENTIFICATION DIVISION.
       PROGRAM-ID. FWT1.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FILEWRITE1 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.  
       DATA DIVISION.
       FILE SECTION.
       FD FILEWRITE1
           VALUE OF FILE-ID IS "F:\MCAFY\MCA138\WFI.TXT".
       01 DATA2.
             02 SNAME PIC X(10).
             02 AMT PIC 9(5).
             02 I PIC 9.
       WORKING-STORAGE SECTION.
       01 EOF PIC X VALUE "N".
       01 EOF PIC X VALUE "Y".
       PROCEDURE DIVISION.
       DISP1.
           OPEN EXTEND FILEWRITE1.
           PERFORM VARYING I FROM 1 BY 1 UNTIL I>5
           DISPLAY "ENTER NAME = "
           ACCEPT SNAME
           DISPLAY "ENTER AMOUNT ="
           ACCEPT AMT             
           WRITE DATA2
           END-PERFORM.
           CLOSE FILEWRITE1.
           STOP RUN.
      
/*********************************************************************************
                                      OUTPUT
*********************************************************************************/


          PREM      001006
          AMIT      005641
          BHAVESH   000551
          KHILAN    005642
          KAPIL     005453
          ANKIT     004544