Listing
Logika
Untuk mengawali pembuatan program harus
memulainya pada kolom ke-8 ( 8 spasi). Pada bagian program ini terdapat Identification Division yang berfungsi
untuk memberi identitas program, seperti judul program, nama pembuat, dan
lain-lain. Program-ID merupakan
penamaan judul program. Dalam hal ini judulnya adalah Tulis. Dalam program ini kita akan menggunakan Environment Division yang berfungsi untuk menunjukkan bagian
manadari system komputeryang dipakai untuk megerjakan program, dalam hal ini
adalah file.
Lalu dalam input-output section dibuat bagian file-control yang digunakan untuk mendefinisikan file yang akan
digunakan dalam program. Select MHS
berarti memilih file MHS untuk
dimasukkan ke dalam disk. Kemudian mendeklarasikan Organization is line sequential yang berarti organisasi secara
berurut.
Data Division berfungsi untuk mendeskripsikan variabel serta
tipe data yang digunakan dalam program. File
section digunakan apabila ada file dalam bentuk simpanan sekunder yang
berhubungan dengan Input-Output Section.
Membuat file dengan nama MHS, LABEL RECORD IS STANDARD digunakan untuk disk-file yang
mempunyai label, Nama filenya adalah Data.dat,
dan record untuk data diambil dari recmhs.
Kemudian membuat record RECMHS yang
berisi variabel NAMA dengan maksimum
25 karakter dan NPM dengan maksimum
8 karakter.
Kemudian ada Working-Storage Section yang merupakan bagian dari Data Division yang berfungsi untuk
mengidentifikasi variabel dalam program.
Dalam bagian ini, kita membuat variabel err dengan picture clause xx dan record isi-lagi dengan picture clause x.
Isi dari recordnya adalah variabel Lagi
yang bernilai Y dan y serta Tidak yang bernilai T
dan t.
Masih dalam Data Division, Screen
Section berfungsi untuk membuat sebuah paragraph berisi string yang dapat
ditampilkan kapan saja saat paragraph tersebut dipanggil. Paragraph dalam screen section adalah hapus, berisi perintah blank screen untuk membuat layar
menjadi kosong dan isi-data. Isi-data berfungsi menampilkan tampilan
awal untuk memasukkan data.
Procedure Division yang merupakan divisi tempat instruksi pada
program dibuat. Pertama buat paragraph BUKA-FILE
yang berisi perintah open output
yang berfungsi untuk membuka dan menulis file. Selanjutnya membuat paragraph
bernama MULAI. Didalam paragraph ini
ada perintah Display yang berfungsi
untuk menampilkan perintah atau string. Accept
digunakan untuk menyimpan masukan (input) kedalam variabel. Write digunakan untuk menulis dalam RECMHS.
Paragraph ketiga
bernama SELESAI yang berisi perintah
CLOSE untuk menutup file dan STOP RUN untuk menghentikan program.
OUTPUT
//* DATA.DAT akan disimpan
di tempat menyimpan file cobol dan dapat dibuka memakai notepad *//
0 komentar:
Posting Komentar