CONTOH PROGRAM 3

IDENTIFICATION DIVISION.
PROGRAM-ID. MAHASISWA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FILE-MHS ASSIGN TO DISK.
DATA DIVISION.
FILE SECTION.
FD FILE-MHS.
LABEL RECORD IS STANDARD.
VALUE OF FILE-ID IS "MAHASISWA.DAT".
01 RECORD-BARANG.
02 NPM PIC X(8).
02 NAMA PIC X(20).
02 MT-KULIAH X(20).
02 NILAI-A PIC 9(4)V99.
02 NILAI-B PIC 9(4)V99.
O2 NILAI-AKHIR PIC 9(4)V99.
WORKING-STORAGE SECTION.
01 BENAR-SALAH PIC X VALUE SPACE.
88 BENAR VALUE 'Y','y'.
88 SALAH VALUE 'T','t'.
01 LAGI-SUDAH PIC X VALUE SPACE.
88 LAGI VALUE 'Y','y'.
88 SUDAH VALUE 'T','t'.
SCREEN SECTION.
01 LAYAR-BETUL-SALAH.
06 LINE 20 COLUMN 10 VALUE 'SUDAH BENAR (Y/T)? '.
06 COLUMN PLUS 1 PIC X USING BENAR-SALAH.
01 LAYAR-LAGI-SUDAH.
06 LINE 20 COLUMN 10 VALUE 'LAGI/SUDAH (Y/T)? '.
06 COLUMN PLUS 1 PIC X USING LAGI-SUDAH.
01 LAYAR-MENAMBAH.
05 BLANK SCREEN.
05 LINE 6 COLUMN 10 VALUE 'NPM: '.
05 COLUMN PLUS 1 PIC X(8) TO NPM FULL.
05 LINE 8 COLUMN 10 VALUE 'NAMA: '.
05 COLUMN PLUS I PIC X(20) TO NAMA AUTO.
05 LINE 10 COLUMN 10 VALUE 'MT-KULIAH: '.
05 COLUMN PLUS 1 PIC X(20) TO MT-KULIAH AUTO.
05 LINE 12 COLUMN 10 VALUE 'NILAI-A: '.
05 COLUMN PLUS 1 PIC 9(4)V99 TO NILAI-A REQUIRED.
05 LINE 14 COLUMN 10 VALUE 'NILAI-B: '.
05 COLUMN PLUS 1 PIC 9(4)V99 TO NILAI-B REQUIRED.
05 LINE 16 COLUMN 10 VALUE "NILAI-AKHIR: '.
05 COLUMN PLUS 1 PIC 9(4)V99 TO NILAI-AKHIR AUTO.
PROCEDURE DIVISION.
BUKA-FILE.
OPEN OUTPUT FILE-MHS.
TAMBAH-BARU.
DISPLAY 'DATA MAHASISWA'.
DISPLAY '--------------'.
COMPUTE NILAI-AKHIR = (NILAI-A+NILAI-B)/2.
DISPLAY LAYAR-MENAMBAH.
ACCEPT LAYAR-MENAMBAH.
DISPLAY LAYAR-BETUL-SALAH.
ACCEPT LAYAR-BETUL-SALAH.
IF SALAH.
GO TO TAMBAH-BARU.
WRITE RECORD-MAHASISWA.
DISPLAY LAYAR-LAGI-SUDAH.
ACCEPT LAYAR-LAGI-SUDAH.
IF LAGI
GO TO TAMBAH-BARU.
CLOSE FILE-MHS.
STOP RUN.