Program Membuat Data_Karyawan Sederhana
IDENTIFICATION DIVISION.
PROGRAM-ID. SALESMAN.
AUTHOR. JURAEIS.
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(8) VALUE 45000000.
SCREEN SECTION.
01 LAYAR-TAMPIL.
02 BLANK SCREEN.
02 LINE 4 VALUE 'NAMA KARYAWAN :'.
02 COLUMN PLUS 1 PIC X(20) FROM NAMA.
02 LINE 5 VALUE 'JABATAN:'.
02 COLUMN PLUS 1 PIC X(10) FROM JABATAN.
02 LINE 6 VALUE 'GAJI :'.
02 COLUMN PLUS 1 PIC 9(8) FROM GAJI.
PROCEDURE DIVISION.
MULAI.
DISPLAY LAYAR-TAMPIL.
STOP RUN.
diperhatikan kolom saat bikin kodingnnya biasanya hanya dikolom 8 dan 12, jika 01 dibuat pada kolom 8, jika nimor 2 dibuat pada line 12, jika 03 dibuat pada line 16, seterusnya longkap 4 kolom/line. untuk 77, merupakan nomor menyatakan bilangan array.Belajar terus COBOL gan siapa bilang program katro ga dipake, COBOL dipake bwat pengolahan data dibank-bank besar, karena kemudahan untuk eksekusi