Minggu, 07 Maret 2010

Contoh Program File Sequential pada Bahasa Pemrograman COBOL

Hits:

  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
  38. 02 COLUMN PLUS 1 PIC X ( 12 ) TO NOMER – FAKTUR REQUIRED .
  39. 02 LINE 6 COLUMN 5 ‘ NAMA LANGGANAN .
  40. 02 COLUMN PLUS 1 PIC X ( 25 ) TO NAMA – LANGGANAN .
  41. 02 LINE 8 COLUMN 5 ‘ KODE TRANSAKSI
  42. 02 COLUMN PLUS 1 PIC A TO KODE – JUAL .
  43. 02 LINE 10 COLUMN 5 ‘ NILAI PENJUALAN .
  44. 02 COLUMN PLUS 1 PIC 9 ( 6 ) TO NILAI – JUAL .
  45. PROCEDURE DIVISION .
  46. RUTIN – UTAMA SECTION .
  47. BUKA – FILE .
  48. OPEN OUTPUT PENJUALAN .
  49. MULAI .
  50. MOVE SPACE TO SUDAH – BENAR
  51. PERFORM MASUKKAN – DATA UNTIL BENAR
  52. PERFORM REKAM - DATA
  53. PERFORM ADA – LAGI – TIDAK .
  54. SELEKSI – MASUKKAN – LAGI – TIDAK .
  55. IF LAGI
  56. GO TO MULAI .
  57. SELESAI .
  58. CLOSE PENJUALAN
  59. STOP RUN .
  60. RUTIN – BAGIAN SECTION .
  61. MASUKKAN – DATA .
  62. DISPLAY HAPUS – LAYAR
  63. DISPLAY LAYAR – DATA
  64. ACCEPT LAYAR – DATA .
  65. DISPLAY ( 18 , 5 ) ‘ SUDAH BENAR ( Y / T ) ? ‘
  66. ACCEPT ( , ) SUDAH – BENAR .
  67. REKAM – DATA .
  68. MOVE ‘ ‘ TO STATUS – SALAH
  69. WRITE DATA – PENJUALAN
  70. PERFORM SELEKSI – REKAMAN .
  71. ADA – LAGI – TIDAK .
  72. DISPLAY ( 10 , 5 ) ‘ ADA LAGI DATA LAINNYA ( Y / T ) ? ‘
  73. ACCEPT ( , ) MASUKKAN – LAGI – TIDAK .
  74. SELEKSI – REKAMAN .
  75. IF STATUS – SALAH = ‘ 34 ‘
  76. DISPLAY ( 18 , 5 ) ‘ TIDAK TEREKAM , DISK PENUH ‘ .
  77. IF STATUS – SALAH = ‘ 91 ‘
  78. 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.
Diposting oleh الحنيفية di 16.49.00

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)
Ayat RENUNGKANLAH


Sesungguhnya kehidupan dunia hanyalah permainan dan senda gurau. Dan, jika kamu berîmân dan bertakwa (kepada Allâh), Allâh akan memberikan pahala kepadamu, dan Dia tidak akan meminta harta-hartamu. [QS. Muhammad (47): 36]

Supaya Dia memasukkan orang-orang Mukmin laki-laki dan (Mukmin) perempuan ke dalam Surga yang mengalir di bawahnya sungai-sungai. Mereka kekal di dalamnya. Dan, supaya Dia menutupi kesalahan-kesalahan mereka. Dan, yang demikian itu adalah keberuntungan yang besar di sisi Allâh. [QS. al-Fath (48): 5]

Sesungguhnya orang-orang yang berîmân dan mengerjakan amal-amal saleh, dan merendahkan diri kepada Rabb mereka, mereka itu adalah penghuni-penghuni Surga. Mereka kekal di dalamnya. [QS. Hûd (11): 23]

Sesungguhnya orang-orang yang bertakwa itu berada dalam Surga dan (di dekat) mata air-mata air (yang mengalir). [QS. al-Hijr (15): 45]

Perumpamaan Surga yang dijanjikan kepada orang-orang yang takwa ialah (seperti taman), mengalir sungai-sungai di dalamnya, buahnya tak henti-henti, sedang naungannya (demikian pula). Itulah tempat kesudahan bagi orang-orang yang bertakwa, sedang tempat kesudahan bagi orang-orang kafir ialah neraka. [QS. ar-Ra'd (13): 35]

Sesungguhnya penghuni Surga pada hari itu bersenang-senang dalam kesibukan (mereka). [QS. Yâsîn (36): 55]

Di Surga itu, mereka memperoleh buah-buahan dan memperoleh apa yang mereka minta. [QS. Yâsîn (36): 57]

(Yaitu) Surga Aden yang mereka masuk ke dalamnya, mengalir di bawahnya sungai-sungai, di dalam surga itu mereka mendapat segala apa yang mereka kehendaki. Demikianlah Allâh memberi balasan kepada orang-orang yang bertakwa. [QS. an-Nahl (16): 31]

Mereka itulah (orang-orang yang) bagi mereka Surga Aden, mengalir sungai-sungai di bawahnya. Di dalam surga itu, mereka dihiasi dengan gelang emas, dan mereka memakai pakaian hijau dari sutera halus dan sutera tebal, sedang mereka duduk sambil bersandar di atas dipan-dipan yang indah. Itulah pahala yang sebaik-baiknya, dan tempat istirahat yang indah. [QS. al-Kahfi (18): 31]

……………………………………………………………………

Barangsiapa mencari agama selain Islâm, maka sekali-kali tidaklah akan diterima (agama itu) daripadanya, dan dia di akhirat termasuk orang-orang yang rugi. [QS. Âli 'Imrân (3): 85]

_______________________________________________________

أَفَلاَ يَتَدَبَّرُونَ الْقُرْءَانَ وَلَوْ كَانَ مِنْ عِندِ غَيْرِ اللهِ لَوَجَدُوا فِيهِ اخْتِلاَفاً كَثِيرًا

Maka, apakah mereka tidak memperhatikan al-Qurân? Kalau sekiranya al-Qurân itu bukan dari sisi Allâh, tentulah mereka mendapat pertentangan yang banyak di dalamnya. [QS. an-Nisâ: 82]