Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Add Comment
Please, Sign In to add comment