Contoh Program Tabel dimensi 2 Pada Cobol

Assalamualaikum Wr. Wb.

Halo apa kabar ? Pada Program sebelumnya, kita sudah membahas contoh program table dimensi 1. Pada kali ini saya akan membahas contoh program table dimensi 2. Gimana ya contoh programnya?? Ok kita langsung saja, Software yang saya pakai IDECobol.

• Ketik / coppy list program dibawah ini :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. tabel2.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 n PIC 9.
       77 garis PIC X(47) VALUE ALL '-'.
       01 tabel-penjualan.
           02 data-penjualan-salesman OCCURS 5 TIMES.
               03 nama-salesman PIC X(25).
               03 hasil-penjualan PIC 9(8).
       01 judul-1 PIC X(20) VALUE ' Tabel Penjualan  '.
       01 judul-2.
           02 FILLER  PIC X(2) VALUE '| '.
           02 FILL PIC X(26) VALUE 'NAMA SALESMAN '.
           02 FILL PIC X(2) VALUE '| '.
           02 FILL PIC X(16) VALUE 'HASIL PENJUALAN '.
           02 FILL PIC X(1) VALUE '| '.
       01 isi-tabel.
           02 FILL PIC X(2) VALUE '| '.
           02 lap-nama-salesman PIC x(26).
           02 FILL PIC X(2) VALUE '| '.
           02 lap-hasil-penjualan PIC ZZ.ZZZ.ZZZ.ZZZBB.
           02 FILL PIC X(1) VALUE '| '.
       SCREEN SECTION.
       01 hapus-layar.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
       program-utama.
           PERFORM pemasukan-data-tabel
               VARYING n FROM 1 BY 1 UNTIL n > 5
           PERFORM tampilan-tabel-penjualan
               VARYING n FROM 1 BY 1 UNTIL n > 5.
       SELESAI.
           STOP RUN.

       pemasukan-data-tabel.
           DISPLAY ' SILAHKAN DI INPUT '.
           DISPLAY n, '. Nama salesman : '.
           ACCEPT nama-salesman (n).
           DISPLAY SPACE.
           DISPLAY SPACE, ' Hasil penjualan : '.
           ACCEPT hasil-penjualan (n).
           DISPLAY SPACE.
       tampilan-tabel-penjualan.
           DISPLAY hapus-layar.
           DISPLAY judul-1.
           DISPLAY garis.
           DISPLAY judul-2.
           DISPLAY garis.
           PERFORM tampilkan-isi-tabel
               VARYING n FROM 1 BY 1 UNTIL n > 5.
           DISPLAY garis.
       tampilkan-isi-tabel.
           MOVE nama-salesman (n) TO lap-nama-salesman.
           MOVE hasil-penjualan (n) TO lap-hasil-penjualan.
           DISPLAY isi-tabel.

• Perlu diperhatikan, bagaimana cara penulisan pada bahasa pemrograman Cobol
• Tekan F9 untuk menjalankan pogram

Maka hasilnya outputnya :

Wassalamualaikum Wr. Wb.

Contoh Program Tabel Dimensi 1 Bahasa Cobol

Assalamualaikum Wr. Wb.

Pada kali ini saya akan membahas bagaimana contoh program table dimensi 1 bahasa Cobol. Bagi yang lagi cari tugas atau sekedar membaca dan mempelajari bahasa pemrograman Cobol. Software yang saya pakai adalah IDECobol.

•         Ketik / coppy list program berikut :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. tabel1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 N PIC 99.
       01 TABEL-NILAI-SISWA-SUMBER.
           02 NILAI PIC 999 OCCURS 10 TIMES.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
       PROGRAM-UTAMA.
           PERFORM PEMASUKAN-NILAI-SISWA
               VARYING N FROM 1 BY 1 UNTIL N > 10.
           DISPLAY HAPUS-LAYAR.
           PERFORM TAMPILAN-NILAI-SISWA
               VARYING N FROM 1 BY 1 UNTIL N > 10.
       SELESAI.
           STOP RUN.

       PEMASUKAN-NILAI-SISWA.
           DISPLAY 'NILAI : '.
           ACCEPT NILAI (N).
           DISPLAY SPACE.

       TAMPILAN-NILAI-SISWA.
           DISPLAY 'NILAI KE ', N , ' :   ' NILAI (N).
           DISPLAY SPACE.

•         Perlu di ingat, bagaimana cara penulisan bahasa Cobol yang benar
•        Tekan F9 untuk Run

Maka hasil outputnya :

Wassalamualaikum Wr. Wb.

Contoh Program Operasi File Relatif Pada Cobol

Assalamualaikum Wr. Wb.

Pada pertemuan sebelumnya, saya sudah membahas bagaimana contoh file Sequensial dan file Indeks. Pada kali ini saya akan membahas contoh program operasi file Relatif pada Cobol. Software yang saya gunakan adalah IDECobol.

• Ketik / coppy kode berikut :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. RELATIF.
       AUTHOR. SYAIRI.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT BARANG ASSIGN TO DISK
           ORGANIZATION IS RELATIVE
           ACCESS MODE IS DYNAMIC
           RELATIVE KEY IS KODE-BARANG
           FILE STATUS IS STATUS-SALAH.
       DATA DIVISION.
       FILE SECTION.
       FD BARANG
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS 'BARANG3.DAT'
           DATA RECORD IS RECBARANG.
       01 RECBARANG.
           02 NAMA-BARANG PIC A(25).
           02 ALAMAT-BARANG PIC X(25).
       WORKING-STORAGE SECTION.
       77 STATUS-SALAH PIC 99.
       77 KODE-BARANG PIC 9(5).
       01 SUDAH-BENAR PIC X.
           88 BENAR VALUE 'Y', 'y'.
           88 BELUM VALUE 'T', 't'.
       01 TAMBAH-DATA PIC X.
           88 YA VALUE 'Y', 'y'.
           88 TIDAK VALUE 'T', 't'.
       01 RECBARANG-MASUK.
           02 NAMA-BARANG-MASUK PIC X(25).
           02 ALAMAT-BARANG-MASUK PIC X(25).
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 INPUT-DATA.
           02 LINE 4 COLUMN 8 VALUE 'NAMA BARANG   : '.
           02 COLUMN PLUS 2 PIC A(25) TO NAMA-BARANG-MASUK.
           02 LINE 8 COLUMN 8 VALUE 'ALAMAT BARANG : '.
           02 COLUMN PLUS 2 PIC X(25) TO ALAMAT-BARANG-MASUK.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN OUTPUT BARANG.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (2, 16) '-----PENGIRIMAN BARANG-----'.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           MOVE 128 TO KODE-BARANG.
           WRITE RECBARANG FROM RECBARANG-MASUK.
           DISPLAY (12, 8) 'TAMBAH LAGI DATA [Y/T] ?'.
           ACCEPT TAMBAH-DATA.
           IF YA GO TO MULAI.
       SELESAI.
           CLOSE BARANG.
           STOP RUN.

• Perlu diperhatikan cara penulisan bahasa Cobol
• Tekan F9 untuk Run

Hasilnya / output :

Sekian pembahasannya, semoga bermanfaat buat teman-teman yang lagi belajar :)

Wassalamualaikum Wr. Wb.

Contoh Program Operasi File Indeks Pada Cobol

Assalamualaikjum Wr. Wb.

Pada sebelumnya saya sudah post bagaimana program operasi file Sequensial pada Cobol, kali ini lanjut akan membahas operasi file Indeks pada Cobol. Software yang saya gunakan adalah IDECobol.

• Ketik / coppy kode dibawah ini :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. INDEKS.
       AUTHOR. SYAIRI.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT BARANG ASSIGN TO DISK
           ORGANIZATION IS INDEXED
           ACCESS MODE IS SEQUENTIAL
           RECORD KEY IS KODE-BARANG
           FILE STATUS IS STATUS-SALAH.
       DATA DIVISION.
       FILE SECTION.
       FD BARANG
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS 'BARANG2.DAT'
           DATA RECORD IS RECBARANG.
       01 RECBARANG.
           02 NAMA-BARANG PIC A(25).
           02 KODE-BARANG PIC 9(3).
           02 ALAMAT-BARANG PIC X(25).
       WORKING-STORAGE SECTION.
       77 STATUS-SALAH PIC 99.
       01 SUDAH-BENAR PIC X.
           88 BENAR VALUE 'Y', 'y'.
           88 BELUM VALUE 'T', 't'.
       01 TAMBAH-DATA PIC X.
           88 YA VALUE 'Y', 'y'.
           88 TIDAK VALUE 'T', 't'.
       01 RECBARANG-MASUK.
           02 NAMA-BARANG-MASUK PIC X(25).
           02 KODE-BARANG-MASUK PIC 9(3).
           02 ALAMAT-BARANG-MASUK PIC X(25).
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 INPUT-DATA.
           02 LINE 4 COLUMN 8 VALUE 'NAMA BARANG   : '.
           02 COLUMN PLUS 2 PIC A(25) TO NAMA-BARANG-MASUK.
           02 LINE 6 COLUMN 8 VALUE 'KODE BARANG   : '.
           02 COLUMN PLUS 2 PIC 9(3) TO KODE-BARANG-MASUK REQUIRED.
           02 LINE 8 COLUMN 8 VALUE 'ALAMAT TUJUAN : '.
           02 COLUMN PLUS 2 PIC X(25) TO ALAMAT-BARANG-MASUK.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN OUTPUT BARANG.
       MULAI.
           MOVE SPACE TO SUDAH-BENAR.
           PERFORM MASUKAN-DATA UNTIL BENAR.
           PERFORM REKAM-DATA.
           PERFORM ADA-LAGI.
       SELESAI.
           CLOSE BARANG.
           STOP RUN.

       MASUKAN-DATA.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (2, 16) '-----PENGIRIMAN BARANG-----'.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           DISPLAY (13, 8) 'DATA SUDAH BENAR [Y/T] ?'.
           ACCEPT SUDAH-BENAR.
       REKAM-DATA.
           WRITE BARANG.
       ADA-LAGI.
           DISPLAY (15, 8) 'TAMBAH DATA LAGI [Y/T] ?'.
           ACCEPT TAMBAH-DATA.
           IF YA GO TO MULAI.

• Pada saat mengetik, sebaiknya diperhatikan cara penulisan pada Cobol
• Tekan F9 untuk Run

Hasilnya sebagai berikut :

Sekian pembahasannya, semoga bermanfaat buat teman-teman / pembaca.

Wassalamualaikum Wr. Wb.

Contoh Program Operasi File Sequensial Pada Cobol

Assalamualaikum Wr. Wb.

Postingan ini adalah sebenarnya tugas kuliah saya (sudah lama). saya post ke blog semoga bisa bermanfaat buat teman-teman yang sedang belajar pemrograman khususnya Cobol. software yang saya gunakan disini adalah IDECobol

• Ketik / copy kode berikut :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SEQUENSIAL.
       AUTHOR. SYAIRI.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT BARANG ASSIGN TO DISK
           FILE STATUS IS STATUS-SALAH
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD BARANG
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS 'BARANG.DAT'
           DATA RECORD IS RECBARANG.
       01 RECBARANG.
           02 NAMA-BARANG PIC A(25).
           02 KODE-BARANG PIC 9(3).
           02 ALAMAT-BARANG PIC X(25).
       WORKING-STORAGE SECTION.
       77 STATUS-SALAH PIC 99.
       01 TAMBAH-DATA PIC X.
           88 YA VALUE 'Y', 'y'.
           88 TIDAK VALUE 'T', 't'.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 INPUT-DATA.
           02 LINE 5 COLUMN 8 VALUE 'NAMA BARANG   : '.
           02 COLUMN PLUS 2 PIC A(25) TO NAMA-BARANG.
           02 LINE 7 COLUMN 8 VALUE 'KODE BARANG    : '.
           02 COLUMN PLUS 2 PIC 9(3) TO KODE-BARANG.
           02 LINE 9 COLUMN 8 VALUE 'ALAMAT TUJUAN : '.
           02 COLUMN PLUS 2 PIC X(25) TO ALAMAT-BARANG.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN INPUT BARANG.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (2, 16) '-----PENGIRIMAN BARANG-----'.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           WRITE BARANG.
           DISPLAY (14, 8) 'TAMBAH LAGI DATA [Y/T] ?'.
           ACCEPT TAMBAH-DATA.
           IF YA GO TO MULAI.
       SELESAI.
           CLOSE BARANG.
           STOP RUN.

• Jangan asal ketik tapi ikuti aturan penulisan Cobol
• Tekan F9 untuk Run

Hasilnya sebagai berikut :

Sekian pembahasannya, semoga bisa bermanfaat.

Wassalamualaikum Wr. Wb.

Program COBOL Aritmatika Sederhana

Assalamualaikum Wr.Wb.

COBOL adalah bahasa pemrograman yang dipakai untuk permasalahan bisnis.. pada kali ini saya akan share program yang sebenarnya ini tugas kuliah saya, tujuannya untuk pengetahuan dan pendidikan.. :)

       IDENTIFICATION DIVISION.
       PROGRAM-ID. Vclass.
       AUTHOR. kelompok.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATA-MHS.
           02 NAMA PIC A(15).
           02 TANGGAL-LAHIR PIC 9(8).
           02 NILAI-MID PIC 9(3).
           02 NILAI-FIN PIC 9(3).
           02 TOTAL PIC 9(3).
       01 DATA-EDIT.
           02 TANGGAL-LAHIR-OUT PIC 99/99/9999.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK-SCREEN.
       01 INPUT-DATA.
           02 LINE 5 COLUMN 12 VALUE 'NAMA           : '.
           02 COLUMN PLUS 2 PIC A(15) TO NAMA.
           02 LINE 7 COLUMN 12 VALUE 'TANGGAL LAHIR  : '.
           02 COLUMN PLUS 2 PIC 99/99/9999 TO TANGGAL-LAHIR-OUT.
           02 LINE 9 COLUMN 12 VALUE 'NILAI MID      : '.
           02 COLUMN PLUS 2 PIC 9(3) TO NILAI-MID.
           02 LINE 11 COLUMN 12 VALUE 'NILAI FIN      : '.
           02 COLUMN PLUS 2 PIC 9(3) TO NILAI-FIN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY INPUT-DATA.
           ACCEPT INPUT-DATA.
           COMPUTE TOTAL = NILAI-MID + NILAI-FIN.
           DISPLAY (13, 12) 'TOTAL          :   ', TOTAL.
       SELESAI.
           STOP RUN.

Setelah di jalankan programnya, maka hasilnya seperti ini

Selamat Berkreasi.. ^_^

Wassalamualaikum Wr.Wb.

Aritmatika COBOL

        Assalamualaikum Wr. Wb.

      Sebenarnya artikel yang saya posting adalah tugas kuliah saya, dari pada ada di komputer gak dipake, lebih baik saya post buat teman-teman sebagai latihan.

        a.      Substract A from B giving C

	A	B	C
SEBELUM	24	55	5
SESUDAH	24	55	31

Hasil Perhitungan :

C = B - A

C = 55 - 24 = 31

        b.      Substract A,15 From 100 giving B

	A	B
SEBELUM	80	360
SESUDAH	80	5

Hasil Perhitungan :

B = 100 – A - 15

B = 100 – 80 – 15 = 5

        c.       Add A,B,C,6 TO D

	A	B	C	D
SEBELUM	5	15	25	45
SESUDAH	5	15	25	96

Hasil Perhitungan :

D = D + A + B + C + 6

D = 45 + 5 + 15 + 25 + 6 = 96

Sekian .. Selamat Berkreasi.. ^_^

Wassalamualaikum Wr. Wb.

Cara Menggunakan Compiler MS Cobol

Assalamualaikum wr.wb

Halo teman-teman selamat datang di blog saya, pada kali ini saya akan membahas bagaimana cara menggunakan compiler MS Cobol. Kalo kalian kuliah di universitas gunadarma pada tingkat 2, pasti ada ILAB. Nah.. cara ini sama dengan cara ILAB

     1.       Pertama pasti punya kompailernya dulu silahkan baca postingan sebelumnya Download Program Cobol

     2.       Setelah anda punya extrax file zipnya. Perlu diperhatikan hasil extraxnya tempatkan di eksternal memori atau di disk D (jangan di disk C ya).

     3.       Kemudian buka CMD, caranya klik Start ketik di pencarian “CMD”

     4.       Ketikkan D: lau tekan enter

     5.       Ketikkan CD Nama File tekan enter, nama file diganti nama folder yang simpan kompiler cobol

Contoh : CD MS COBOL tekan enter

     6.       Lalu ketikkan Edit maka akan muncul tampilan berikut

Caranya hampir sama dengan cara di ILAB bukan?? Ya, anda tinggal menuliskan kodingnya. Selamat berkreasi…

Wassalamualaikum wr.wb

Download Software Cobol 32-bit

Assalamualaikum wr.wb

Bagi mahasiswa tingkat dua universitas gunadarma pasti belajar pemrograman bahasa Cobol. Apalagi cobol adalah program jaman dulu alias jadul pasti susah carinya. Oke langsung saja silahkan di sedot gan gak usah malu-malu

Download IDECobol

Download MS Cobol

jangan lupa, perlu diperhatikan Software cobol yang saya bagikan hanya untuk 32-bit. Bagaimana dengan yang 64-bit ?? jangan hawatir silahkan cari di Google dengan search "Open Cobol" banyak kok.

Wassalamualaikum wr.wb