Program Sederhana COBOL : NILAI (GRADE)

Codingan :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. GRADE.
       AUTHOR. JESSY
       DATA DIVISION
       WORKING-STORAGE SECTION.
       01 NAMA PIC A(20).
       01 NPM PIC 9(8).
       01 UTS PIC 9(2).
       01 UAS PIC 9(2).
       01 TOTAL PIC 9(3).
       SCREEN SECTION.
       01 MASUKKAN.
           02 LINE 5 COLUMN 3 VALUE 'NAMA :'.
           02 COLUMN PLUS 1 PIC A(20) TO NAMA.
           02 LINE 7 COLUMN 3 VALUE 'NPM :'.
           02 COLUMN PLUS 1 PIC 9(8) TO NPM.
           02 LINE 9 COLUMN 3 VALUE 'NILAI UTS :'.
           02 COLUMN PLUS 1 PIC 9(2) TO UTS.
           02 LINE 11 COLUMN 3 VALUE 'NILAI UAS :'.
           02 COLUMN PLUS 1 PIC 9(2) TO UAS.
       01 GRADE-A.
           02 LINE 15 COLUMN 3 VALUE 'GRADE A.'.
       01 GRADE-B.
           02 LINE 15 COLUMN 3 VALUE 'GRADE B.'.
       01 GRADE-C.
           02 LINE 15 COLUMN 3 VALUE 'GRADE C.'.
       01 GRADE-D.
           02 LINE 15 COLUMN 3 VALUE 'GRADE D.'.
       01 GRADE-E.
           02 LINE 15 COLUMN 3 VALUE 'GRADE E.'.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY MASUKKAN.
           ACCEPT MASUKKAN.
           DISPLAY ' '.
           COMPUTE TOTAL = (0.3 * UTS) + (0.7 * UAS).
           IF TOTAL > 89
           DISPLAY GRADE-A.
           IF TOTAL < 89 AND TOTAL > 79
           DISPLAY GRADE-B.
           IF TOTAL < 79 AND TOTAL > 69
           DISPLAY GRADE-C.
           IF TOTAL < 69 AND TOTAL > 59
           DISPLAY GRADE-D.
           IF TOTAL < 59
           DISPLAY GRADE-E.
       SELESAI.
           STOP RUN.