PROGRAM SEQUENTIAL PADA COBOL

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.

sumber : http://abumuqaffa.wordpress.com/2010/06/03/contoh-program-file-sequential-pada-bahasa-pemrograman-cobol/