IDENTIFICATION DIVISION.
       PROGRAM-ID. Tabel.
       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.
           02 FILL PIC X(20)  VALUE  'Tabel Penjualan'.
       01 judul-2.
           02 FILL 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.