Program COBOL Aritmatika Sederhana

Assalamualaikum Wr.Wb.

COBOL adalah bahasa pemrograman yang dipakai untuk permasalahan bisnis.. pada kali ini saya akan share program yang sebenarnya ini tugas kuliah saya, tujuannya untuk pengetahuan dan pendidikan.. :)

       IDENTIFICATION DIVISION.
       PROGRAM-ID. Vclass.
       AUTHOR. kelompok.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATA-MHS.
           02 NAMA PIC A(15).
           02 TANGGAL-LAHIR PIC 9(8).
           02 NILAI-MID PIC 9(3).
           02 NILAI-FIN PIC 9(3).
           02 TOTAL PIC 9(3).
       01 DATA-EDIT.
           02 TANGGAL-LAHIR-OUT PIC 99/99/9999.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK-SCREEN.
       01 INPUT-DATA.
           02 LINE 5 COLUMN 12 VALUE 'NAMA           : '.
           02 COLUMN PLUS 2 PIC A(15) TO NAMA.
           02 LINE 7 COLUMN 12 VALUE 'TANGGAL LAHIR  : '.
           02 COLUMN PLUS 2 PIC 99/99/9999 TO TANGGAL-LAHIR-OUT.
           02 LINE 9 COLUMN 12 VALUE 'NILAI MID      : '.
           02 COLUMN PLUS 2 PIC 9(3) TO NILAI-MID.
           02 LINE 11 COLUMN 12 VALUE 'NILAI FIN      : '.
           02 COLUMN PLUS 2 PIC 9(3) TO NILAI-FIN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           COMPUTE TOTAL = NILAI-MID + NILAI-FIN.
           DISPLAY (13, 12) 'TOTAL          :   ', TOTAL.
       SELESAI.
           STOP RUN.

Setelah di jalankan programnya, maka hasilnya seperti ini

Selamat Berkreasi.. ^_^

Wassalamualaikum Wr.Wb.