PROGRAM DASAR COBOL

identification division.
program-id. latih1.
author. agus.
environment division.
data division.
working-storage section.
01 DATA-KARYAWAN.
02 NAMA PIC X(20) VALUE 'BADU'.
02 JABATAN PIC X(10) VALUE 'SALESMAN'.
02 GAJI PIC 9(5) VALUE 7500.
screen section.
01 LAYAR-TAMPILAN.
02 BLANK SCREEN.
02 LINE 4 VALUE 'NAMA KARYAWAN :'.
02 COLUMN PLUS 2 PIC X(20) FROM NAMA.
02 LINE 5 VALUE 'JABATAN :'.
02 COLUMN PLUS 2 PIC X(10) FROM JABATAN.
02 LINE 6 VALUE 'GAJI :'.
02 COLUMN PLUS 2 PIC Z(5) FROM GAJI.
procedure division.
MULAI.
DISPLAY LAYAR-TAMPILAN.
STOP RUN.