Senin, 09 Januari 2012

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..

Tidak ada komentar:

Posting Komentar

Matur nuwun sudah dibaca postingannya... Monggo dipersilahkan komentarnyaaaa ^_^