EARNING REPORT

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ER.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INFILE ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
           SELECT OUTFILE ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD INFILE
            LABEL RECORDS ARE STANDARD
            VALUE OF FILE-ID IS "INN.txt".
       01 INREC.
          02 ENO PIC 9(3).
          02 NAME PIC X(20).
          02 NHW PIC 9(2).
          02 PR PIC 9(2).
       FD OUTFILE
          LABEL RECORDS ARE STANDARD
          VALUE OF FILE-ID IS "OUT.txt".
       01 OUTREC PIC X(80).  
       WORKING-STORAGE SECTION.
       77 N PIC 9(5).
       77 YTD PIC 9(6).


       01 H1.
          02 F PIC X(13) VALUE "SALARY REPORT".
       01 H2.
          02 F PIC X(3) VALUE SPACES.
          02 F PIC X(79) VALUE ALL "*".
       01 H3.
          02 F PIC X(90) VALUE ALL " ".
       01 H4.
          02 F PIC X(3) VALUE SPACES.
          02 F PIC X(7) VALUE "EMP-NO".
          02 F PIC X(3) VALUE SPACES.
          02 F PIC X(10) VALUE "EMP-NAME".
          02 F PIC X(6) VALUE SPACES.
          02 F PIC X(5) VALUE "NHW".
          02 F PIC X(6) VALUE SPACES.
          02 F PIC X(10) VALUE "PAY RATE".
          02 F PIC X(6) VALUE SPACES.
          02 F PIC X(7) VALUE "YTDV".
          
       01 H5.
          02 F PIC X(3) VALUE SPACES.
          02 ONO PIC X(6) VALUE SPACES.
          02 F PIC X(6) VALUE SPACES.
          02 ONAME PIC X(10) VALUE SPACES.
          02 F PIC X(6) VALUE SPACES.
          02 ONHW PIC X(6) VALUE SPACES.
          02 F PIC X(6) VALUE SPACES.
          02 OPR PIC X(5) VALUE SPACES.
          02 F PIC X(6) VALUE SPACES.
          02 OYTD PIC Z(6) VALUE SPACES.
       PROCEDURE DIVISION.
       PARA.
           OPEN OUTPUT INFILE.
           DISPLAY " ENTER NO.OF EMPLOYEES".
           ACCEPT N.   
           PERFORM PARA1 N TIMES.
           CLOSE INFILE.
           GO TO PARA3.
       PARA1.
           DISPLAY "ENTER THE NO".
           ACCEPT ENO.
           DISPLAY "ENTER THE NAME".
           ACCEPT NAME.
           DISPLAY "ENTER THE NHW".
           ACCEPT NHW.
           DISPLAY "ENTER THE PR".
           ACCEPT PR.
           WRITE INREC.
       PARA3.
           OPEN INPUT INFILE OUTPUT OUTFILE.
           WRITE OUTREC FROM H1.
           WRITE OUTREC FROM H2.
           WRITE OUTREC FROM H3.
           WRITE OUTREC FROM H4.
       PARA4.
           READ INFILE AT END GO TO CLOSEPARA.
           COMPUTE YTD = NHW * PR.
           MOVE ENO TO ONO.
           MOVE NAME TO ONAME.
           MOVE NHW TO ONHW.
           MOVE PR TO OPR.
           MOVE YTD TO OYTD.
           WRITE OUTREC FROM H5.
           GO TO PARA4.
       CLOSEPARA.
           WRITE OUTREC FROM H2.
             CLOSE INFILE, OUTFILE.
             STOP RUN.