coding cobol

-
Hmmmm.. posting aaaaaaaaaaaahh..
Kali ini el mau posting seputar COBOL maning :D *entah kenapa anak gundar itu masalah utamanya adalah pada materi kuliah ini.. karena ribet beneeeeeeeeeeer.. wkwkwkwk*
el mau posting coding cobol tentang array 1 dimensi dengan 2 tabel.. oke ga usah basa-basi lagi.. ayo kita cekidooooooooooot..



IDENTIFICATION DIVISION.
PROGRAM-ID. tabel.
*Contoh penggunaan tabel 1 dimensi yg berisi nama salesman
*dan hasil penjualan
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.
   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.
      STOP RUN.
   pemasukan-data-tabel.
      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.


Dan berikut ini adalah hasil output dari program cobolnya

*output saat memasukkan data input

 
*output saat inputan telah menjadi tabel

 



okeeee.. sekian dulu postingan el yang sangat singkat ini *hehhehe* sampai jumpa lagi di postingan berikutnya yaaaak..
Label :

Komentar

Posting Komentar

Terima kasih sudah membaca postingan ini. Silahkan komentarnya

Postingan populer dari blog ini

2012 KIAMAT??

-
Gambar
Dua hari yang lalu adalah tanggal 21 Desember 2012, tanggal dimana orang-orang di dunia terdoktrin dengan yang namanya kiamat. Tapi pada kenyataannya kiamat itu tidak benar-benar terjadi. Lalu kapan akan terjadi kiamat? Tak ada seorang pun yang tahu akan terjadinya kiamat, karena tibanya hari kiamat itu hanya Tuhan Yang Maha Kuasa yang mengetahuinya. Sebagai manusia, kita hanya diharuskan untuk percaya akan datangnya hari kiamat, bukan untuk memprediksi kapan datangnya hari kiamat. Pada dasarnya, sebenarnya kita sudah merasakan yang namanya kiamat. Hanya saja kiamat itu bukan kiamat besar dengan hancurnya alam semesta ini, melainkan kiamat kecil seperti meninggalnya seseorang ataupun bencana alam yang terjadi di dunia ini. Kiamat besar itu pasti datangnya, hanya saja kita tidak mengetahui kapan waktu kedatangannya. Namun tanda-tanda kedatangan hari kiamat itu sedikit demi sedikit mulai bisa kita rasakan dan alami karena hal itu merupakan peringatan dari Sang Pencipta. ...
baca lebih banyak yuk!

Jujur itu ga susah kok

-
Gambar
Jujur… Jujur… apa sih arti jujur atau kejujuran ?? Hayoooooo… pada tau gaaaa??? Jujur itu tidak berkata bohong. Jujur itu mengatakan sesuatu yang benar sesuai dengan kenyataan apa yang dialami, dilihat, didengar dan dirasakan. Hayoooo hayoooo… siapa yang pernah bohong?? Angkat kaki… hahhahaa… ga ding, angkat tangan maksudnya * angkat tangan * Udah dipastikan banget yak kalo kita semua pasti pernah yang namanya bohong. Tapi jangan jadikan bohong itu suatu kebiasaan apalagi membohongi perasaan sendiri * eeehh * Bohong… apa sih arti bohong?? Bohong itu lawan dari jujur. Bohong itu mengatakan sesuatu yang tidak sesuai dengan kebenaran yang ada. Bohong juga bisa di bilang dusta atau menipu.
baca lebih banyak yuk!

Main uno yuukk!!

-
Gambar
  Heeeeemm.. udah pada tau kan pastinya dengan permainan yang namanya kartu UNO . Kalo ada yang belum tau, heeeemm gimana yaaaa?? Kartu UNO ini mirip permainannya seperti kartu remi. Tapi jangan salah lho! Kartu UNO yang dimainkan ini, punya keunikan tersendiri. Kartu UNO ini bisa dimainkan oleh 2 orang atau lebih dengan usia minimal pemain adalah 7 tahun. Cara bermainnya ini lho yang bikin unik. Tapi sebelumnya, kita bahas dulu yuk kartu-kartu yang digunakan pada permainan UNO . Jumlah kartu UNO ini klo  kita hitung sebenarnya ada 110 buah, yang terdiri dari: Þ     Angka 0 sebanyak 4 buah ( merah , kuning , hijau , biru ) Þ     Angka 1-9 sebanyak  72 buah, dengan setiap masing-masing angka memiliki jumlah 2 kartu untuk setiap warnanya (2 merah , 2 kuning , 2 hijau , 2 biru ) Þ     2 buah kartu tanpa nomor ( Blank Card) . Jika ada pemain yang mengeluarkan kartu ini, pemain tersebut berhak meminta nomor yang ia in...
baca lebih banyak yuk!