Aplikasi Laporan Penjualan Marketing

Index : Tugas Rancang

Listing Program : 

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 ABC PIC 9(2).
       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.
           ACCEPT ABC.
           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.


Buat temen-temen yang mau coba silahkan menggunakan IDECOBOL ^^