Dibawah ini Source Kode Cobol Latihan 1:
IDENTIFICATION DIVISION.
AUTHOR. SUCI_BELAPATI.
ENVIRONMENT DIVISION.
DATA DIVISION.
01 NAMA PIC A(20).
01 KELAS PIC B(5).
PROCEDURE DIVISION.
MULAI.
DISPLAY (1,1) "NAMA : ". ACCEPT NAMA.
DISPLAY (3,1) "KELAS : ". ACCEPT KELAS.
SELESAI.
STOP RUN.
Maka akan keluar output :