Contoh Program File Sequential pada Bahasa Pemrograman COBOL

  1. IDENTIFICATION DIVISION .
  2. PROGRAM – ID. SEQUEL .
  3. AUTHOR . JOGIYANTO HM .
  4. SECURITY . PROGRAM MEMASUKAN DATA ORGANISASI FILE SEQUENTIAL
  5. ENVIRONMENT DIVISION .
  6. INPUT – OUTPUT SECTION .
  7. FILE – CONTROL
  8. SELECT PENJUALAN ASSIGN TO DISK
  9. ORGANIZATION IS SEQUENTIAL
  10. ACCESS MODE IS SEQUENTIAL
  11. FILE STATUS IS STATUS – SALAH .
  12. DATA DIVISION .
  13. FILE SECTION .
  14. FD PENJUALAN
  15. LABEL RECORD IS STANDARD
  16. VALUE OF FILE – ID IS ‘ JUAL . DAT ‘
  17. DATA RECORD IS RECORD – RELASI .
  18. 01 DATA – PENJUALAN .
  19. 02 NOMER – FAKTUR PIC X ( 12 ) .
  20. 02 NAMA – LANGGANAN PIC X ( 25 ) .
  21. 02 KODE – JUAL PIC A .
  22. 88 TUNAI VALUE IS ‘ T ‘ .
  23. 88 KREDIT VALUE IS ‘ K ‘ .
  24. 02 NILAI – JUAL PIC 9 ( 6 ) .
  25. WORKING – STORAGE SECTION .
  26. 77 STATUS – SALAH PIC XX .
  27. 01 SUDAH – BENAR PIC X .
  28. 88 BENAR VALUE ‘ Y ‘ , ‘ y ‘ .
  29. 88 BELUM VALUE ‘ T ‘ , ‘ t ‘ .
  30. 01 MASUKKAN – LAGI – TIDAK PIC X .
  31. 88 LAGI VALUE ‘ Y ‘ , ‘ y ‘ .
  32. 88 TIDAK VALUE ‘ T ‘ , ‘ t ‘ .
  33. SCREEN SECTION .
  34. 01 HAPUS LAYAR .
  35. 02 BLANK SCREEN .
  36. 01 LAYAR – DATA .
  37. 02 LINE 4 COLUMN 5 ‘ NOMER FAKTUR
  1. 02 COLUMN PLUS 1 PIC X ( 12 ) TO NOMER – FAKTUR  REQUIRED .
  1. 02 LINE 6 COLUMN 5 ‘ NAMA LANGGANAN .
  2. 02 COLUMN PLUS 1 PIC X ( 25 ) TO NAMA – LANGGANAN .
  3. 02 LINE 8 COLUMN 5 ‘ KODE TRANSAKSI
  4. 02 COLUMN PLUS 1 PIC A TO KODE – JUAL .
  5. 02 LINE 10 COLUMN 5 ‘ NILAI PENJUALAN .
  6. 02 COLUMN PLUS 1 PIC 9 ( 6 ) TO NILAI – JUAL .
  7. PROCEDURE DIVISION .
  8. RUTIN – UTAMA SECTION .
  9. BUKA – FILE .
  10. OPEN OUTPUT PENJUALAN .
  11. MULAI .
  12. MOVE SPACE TO SUDAH – BENAR
  13. PERFORM MASUKKAN – DATA UNTIL BENAR
  14. PERFORM REKAM – DATA
  15. PERFORM ADA – LAGI – TIDAK .
  16. SELEKSI – MASUKKAN – LAGI – TIDAK .
  17. IF LAGI
  18. GO TO MULAI .
  19. SELESAI .
  20. CLOSE PENJUALAN
  21. STOP RUN .
  22. RUTIN – BAGIAN SECTION .
  23. MASUKKAN – DATA .
  24. DISPLAY HAPUS – LAYAR
  25. DISPLAY LAYAR – DATA
  26. ACCEPT LAYAR – DATA .
  27. DISPLAY ( 18 , 5 ) ‘ SUDAH BENAR ( Y / T ) ? ‘
  28. ACCEPT ( , ) SUDAH – BENAR .
  29. REKAM – DATA .
  30. MOVE ‘ ‘ TO STATUS – SALAH
  31. WRITE DATA – PENJUALAN
  32. PERFORM SELEKSI – REKAMAN .
  33. ADA – LAGI – TIDAK .
  34. DISPLAY ( 10 , 5 ) ‘ ADA LAGI DATA LAINNYA ( Y / T ) ? ‘
  35. ACCEPT ( , ) MASUKKAN – LAGI – TIDAK .
  36. SELEKSI – REKAMAN .
  37. IF STATUS – SALAH = ‘ 34 ‘
  38. DISPLAY ( 18 , 5 ) ‘ TIDAK TEREKAM , DISK PENUH ‘ .
  39. IF STATUS – SALAH = ‘ 91 ‘
  40. DISPLAY ( 18 , 5 ) ‘ STRUKTUR FILE RUSAK ‘ .

Penjelasan :

Pada PROCEDURE DIVISION, terdapat dua buah seksi,yaitu RUTIN – UTAMA SECTION dan RUTIN – BAGIAN SECTION.

RUTIN – UTAMA SECTION berisi sentence yang merupakan langkah – langkah utama program, sedang detailnya tampak pada RUTIN – BAGIAN SECTION.

1. Pertama kali file dibuka sebagai file output, karena sebelumnya belum pernah memsukan data, maka membuka file ini sekaligus membuat file tersebut, sebagai berikut :

BUKA – FILE

OPEN OUTPUT PENJUALAN.

2. Inti logika dari program ini adalah sebagai berikut:

  • Data dimasukkan tiap – tiap record.
  • Data yang dimasukkan akan ditanyakan apakah sudah benar atau belum. Hal ini diperlukan sebagai verifikasi terhadap data yang akan direkamkan.
  • Data yang akan direkamkan harus sudah benar.Setelah data yang dimasukan sudah benar, maka data tersebut akan direkamkan di file.
  • Setiap selesai merekam data, akan ditanyakan apakah akan memasukkan data lagi atau tidak.
  • Kalau akan memasukkan data lagi, proses diulangi lagi dari butir a.
  • Kalau sudah tidak akan memasukkan data lagi, maka file ditutup dan proses selesai.

MULAI .

MOVE SPACE TO SUDAH – BENAR

PERFORM MASUKKAN – DATA UNTIL BENAR

PERFORM REKAM – DATA

PERFORM ADA – LAGI – TIDAK .

SELEKSI – MASUKKAN – LAGI – TIDAK .

IF LAGI

GO TO MULAI

SELESAI .

CLOSE PENJUALAN

STOP RUN .

Detail dari program utama dapat dilihat pada RUTIN – BAGIAN SECTION.

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: