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.