Membuat Program Sequential menggunakan Bahasa Pemrograman COBOL

program sequential merupakan bentuk default file yang dibuat oleh program mmerupakan ms-cobol.

berikut contoh program yang merupakan program sequential  :

  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 ‘ .
Sequential File adalah organisasi file yang di gunakan pada bahasa pemrograman COBOL, adalah file dengan organisasi urut. Data yang disimpan di-urut berdasarkan urutan pemasukan data (urut berdasarkan nomor record).
Kelebihan Sequential File adalah merupakan organisasi file yang sederhana, jarak setiap aplikasi yang tersimpan sangat jelas, metode penyimpanan di dalam memory sangat sederhana, sehingga efisien untuk menyimpan record yang besar, sangat murah untuk digunakan, sebab medianya cukup menggunakan magnetic tape dan kemampuan untuk mengakses record berikutnya secara cepat.

Kelemahannya adalah jika diperlukan perubahan data, maka seluruh record yang tersimpan di dalam master file, harus semuanya diproses, data yang tersimpan harus sudah urut (sorted), posisi data yang tersimpan sangat susah untuk uptodate, sebab master file hanya bisa berubah saat proses selesai dilakukan dan tidak bisa dilakukan pembacaan secara langsung.

sumber :

alhanifiyah.blogspot.com/2010/03/contoh-program-file-sequential-pada.html

http://richmondtraytor.blogspot.com/2011/05/file-squential.html

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s