Cobol

LAMMING ASSIGNMENTS are (a) files, (b) records, in For Assements c which elements in the specified programs are a ords, (c) fields. d) numele a nunnumeric literals, and figurative consta 1. See Figure 1.10 in Chapter 1 2. See Figure 1.14 in Chapter 1 3. See Figure 1.15 in Chapter 1 Figure 1.14 Program ... IDENTIFICATION DIVISION. PROGRAMID. PROBLEMS ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. 05 FILE-CONTROL. SELECT SALES-FILE ASSIGN TO DISKI. SELECT PRINT-FILE ASSIGN TO PRINTER. DATA DIVISION FILE SECTION. FO SALES-FILE. 01 SALES-REC. 05 NAME-IN PICTURE X(15). 05 AMOUNT-OF-SALES-IN PICTURE 999V99. FD PRINT-FILE. 01 PRINT-REC. 05 PICTURE X(20). 05 NAME-OUT PICTURE X(15). PICTURE X(20). 05 AMT-COMMISSION-OUT PICTURE 99.99 PICTURE X(72). WORKING-STORAGE SECTION. 01 ARE THERE-MORE-RECORDS PICTURE XXX VALUE 'YES'. PROCEDURE DIVISION. 100-MAIN-MODULE OPEN INPUT SALES-FILE OUTPUT PRINT - FILE PERFORM UNTIL ARE - THERE-MORE-RECORDS 'NO READ SALES-FILE AT END MOVE 'NO' TO ARE THERE-MORE-RECORDS NOT AT END PERFORM 200-COMMISSION-RTN END-READ END-PERFORM CLOSE SALES-FILE PRINT-FILE STOP RUN. 200-COMMISSION-RTN. MOVE SPACES TO PRINT-REC MOVE NAME-IN TO NAME-OUT IF AMOUNT-OF-SALES-IN IS GREATER THAN 100.00 MULTIPLY.03 BY AMOUNT-OF-SALES-IN GIVING AMT-COMMISSION-OUT ELSE MULTIPLY .02 BY AMOUNT-OF-SALES IN GIVING AMT-COMMISSION-OUT END IF WRITE PRINT-REC