Program Membuat Tabel Nilai
Program menggunakan fungsi ICCURS tau membuat percabangan, pada suatu filed menggunakan fungsi 77 sebagai level number yang konstan, menggunakan arrai 3 dimensi menggunakan variabel i,j,k
IDENTIFICATION DIVISION.
PROGRAM-ID. UJIAN.
AUTHOR. JURAEIS.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MHS.
02 NAMA OCCURS 5 TIMES PIC A(20).
02 DATA-NILAI OCCURS 5 TIMES.
03 MAT-KUL-KE OCCURS 3 TIMES.
04 NILAI OCCURS 2 TIMES PIC 999.
02 NILAI-TOTAL PIC 999 OCCURS 5 TIMES.
01 NAMA-MAT-KUL-X.
02 MAT-KUL-1 PIC A(6) VALUE 'PHP'.
02 MAT-KUL-2 PIC A(6) VALUE 'MYSQL'.
02 MAT-KUL-3 PIC A(6) VALUE 'AJAX'.
01 MAT-KUL REDEFINES NAMA-MAT-KUL-X.
02 NAMA-MAT-KUL OCCURS 3 TIMES PIC A(6).
77 NILAI-RATA PIC 999.
77 NILAI-RATA-OUT PIC ZZ9.
77 PREDIKAT PIC A(11).
77 I PIC 9.
77 J PIC 9.
77 K PIC 9.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
PERFORM NILAI-AWAL-TOTAL VARYING I
FROM 1 BY 1 UNTIL I > 5
PERFORM MASUKAN-DATA-NAMA VARYING I
FROM 1 BY 1 UNTIL I > 5
DISPLAY SPACE
PERFORM MASUKAN-DATA-NILAI VARYING I
FROM 1 BY 1 UNTIL I > 5
AFTER J FROM 1 BY 1 UNTIL J > 3
AFTER K FROM 1 BY 1 UNTIL K > 2
PERFORM CETAK-JDL.
PERFORM CETAK-HSL VARYING I
FROM 1 BY 1 UNTIL I > 5.
SELESAI.
STOP RUN.
NILAI-AWAL-TOTAL.
MOVE 0 TO NILAI-TOTAL (1).
MASUKAN-DATA-NAMA.
DISPLAY 'PESERTA KE-' I 'NAMANYA ?'.
ACCEPT NAMA(I).
MASUKAN-DATA-NILAI.
DISPLAY 'PESERTA KE-' I 'NAMA:' NAMA (I)' MATA KULIAH: '
NAMA-MAT-KUL (J) ' UJIAN KE- ' K ' NILAI ? '
ACCEPT NILAI ( I , J , K ).
COMPUTE NILAI-TOTAL (I) = NILAI-TOTAL (I) + NILAI( I , J , K ).
CETAK-JDL.
DISPLAY HAPUS-LAYAR
DISPLAY 'DAFTAR PREDIKAT PESERTA UJIAN'.
DISPLAY SPACE
DISPLAY '==========================================='
DISPLAY 'NAMA NILAI PREDIKAT'
DISPLAY ' RATA-RATA '
DISPLAY '==========================================='.
CETAK-HSL.
COMPUTE NILAI-RATA = NILAI-TOTAL (I) / 6.
IF NILAI-RATA > 65
MOVE 'LULUS' TO PREDIKAT
ELSE
MOVE 'TIDAK LULUS' TO PREDIKAT.
MOVE NILAI-RATA TO NILAI-RATA-OUT.
DISPLAY NAMA (I) , NILAI-RATA-OUT PREDIKAT.
jujur program belum berjalan dengan sempurna masih terdapat kesalaha pada line ke-50 akhir-akhir program tinggal dibenerin gan klo masih sempet asah terus logika pemrogramannya gan biar makin yahuddddd.........
jangan cuma kopas doangkan tapi kembangkan GO Open Source......
masih banyak software-software launcing forum niii gan ,,,kunjungin dihttp://www.cyberatorium.org. "Buat apa yang mahal yang Gratis banyak dan bebas lincensi bwat dikembangkan"

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