Bagus Maulana

THIS IS MY SANCTUARY

» » Cara Membuat Tabel Pada COBOL

Cara Membuat Tabel Pada COBOL

Oleh
Apakah kalian sedang mempelajari software COBOL? nah jika kalian sedang mempelajarinya, mungkin postingan saya kali ini dapat membantu kalian. Postingan kali ini saya akan memberikan coding cobol untuk membuat sebuah tabel.

TABEL DIMENSI 1

Berikut adalah contoh coding cobol untuk membuat tabel berdimensi 1 :



IDENTIFICATION DIVISION.
PROGRAM-ID.                   tabel.
*Contoh penggunaan tabel 1 dimensi yg berisi nama salesman
*     dan hasil penjualan
ENVIRONMENT DIVISION.
CONFIGURATIO 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) VALIE ‘| ‘.
          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.
Setelah selesai mengetik kode diatas, jangan lupa kalian compile terlebih dahulu kemudian run programnya. hasilnya kurang lebih seperti ini :

TABEL DIMENSI 2

Berikut adalah contoh coding cobol untuk membuat tabel berdimensi 2 :


IDENTIFICATION DIVISION.
PROGRAM-ID.                   tabel.
*Contoh penggunaan tabel 2 dimensi yg berisi nama salesman
*     dan hasil penjualan
ENVIRONMENT DIVISION.
CONFIGURATIO 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) VALIE ‘| ‘.
          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.
Setelah selesai mengetik kode diatas, jangan lupa kalian compile terlebih dahulu kemudian run programnya. hasilnya kurang lebih seperti ini :

Oke sekian postingan kali ini, semoga dapat membantu yaa ^_^.
Tag : Artikel Lain
0 Komentar untuk "Cara Membuat Tabel Pada COBOL"

Peraturan Dalam Berkomentar :
[+] Marilah Kita Budayakan Berkomentar Sesudah Membaca Artikel.
[+] Dilarang Menghina, Promosi Atau Iklan.
[+] Dilarang Berkomentar Yang Mengandung Unsur Porno, Spam, Sara.
[+] Budayakan Berkomentar Dengan Sopan Dan Bijak.

Back To Top