IDENTIFICATION DIVISION.
PROGRAM-ID. CETAK-DATA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MAHASISWA ASSIGN TO DISK
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT CETAK ASSIGN TO PRINTER.
DATA DIVISION.
FILE SECTION.
FD MAHASISWA
LABEL RECORD IS STANDARD
VALUE OF FILE-ID IS ‘MHS.DAT’
DATA RECORD IS REC-PEG.

01 REC-PEG.
02 NAMA PIC X(10).
02 NPM PIC X(20).
02 KELAS PIC 99.

FD CETAK
LABEL RECORD IS OMITTED
DATA RECORD IS BARIS-CETAK.

01 BARIS-CETAK PIC X(80).
WORKING-STORAGE SECTION.
01 JUDUL-1.
02 F PIC X(18) VALUE SPACES.
02 F PIC X(15) VALUE ‘ABSEN MAHASISWA’
01 JUDUL-2.
02 NAMA PIC X(10).
02 NPM PIC X(20).
02 KELAS PIC 99.

01 GARIS.
02 F PIC X(70) VALUE ALL ‘-‘.

01 DATA-PEG-O.
02 NAMA-O PIC X(10).
02 NPM-O PIC X(20).
02 KELAS-O PIC 99.
PROCEDURE DIVISION.
BUKA-FILE.
OPEN INPUT MAHASISWA
OUTPUT CETAK.
MULAI.
PERFORM CETAK-JUDUL
PERFORM CETAK-ISI-TABEL
PERFORM CETAK-GARIS.
SELESAI.
CLOSE MAHASISWA, CETAK
STOP RUN.
CETAK-JUDUL.
WRITE BARIS-CETAK FROM JUDUL-1.
02 NAMA PIC X(10).
02 NPM PIC X(20).
02 KELAS PIC 99.
CETAK-ISI-TABEL.
READ MAHASISWA AT END GO TO SELESAI.
MOVE NMS TO NAMA-O
MOVE NPMS TO NPM -O
MOVE KLS TO KELAS-O
WRITE BARIS-CETAK FROM DATA-MHS-O.
CETAK-GARIS.
WRITE BARIS-CETAK FROM GARIS.