STRUKTUR
Pertama masuk ke command prompt. Karena letak cobol ada di C:\ maka ketikkan cd.. untuk keluar dari folder yang ada di awal command prompt. Setelah keluar dari semua folder, ketikkan cd\namafoldercobol. Disamping nama folder cobolnya adalah IDEcobol jadi ketikkan cd\idecobol maka akan masuk ke C:\IDECobol\. Untuk membuat file baru ketikkan edit namafile.cob. Perintah edit namafile.cob ini bukan hanya berfungsi untuk membuat file baru tetapi untuk mengedit juga fille yang telah disimpan di cobol. Pada program struktur di atas namafile diberi nama laporan. 
Ketikkan syntax-syntax yang ada di samping.
identification division
maksud dari syntax tersebut yaitu untuk menunjukan informasi tentang program bersangkutan seperti nama program (program-id. laporan.) dan nama pembuat program (author. dhaniar.).
environment division
maksud dari syntax tersebut yaitu menunjukkan atau menerangkan bagian mana dari system komputer yang akan dipakai untuk mengerjakan program yang bersangkutan, file dan device yang akan digunakan beserta karateristik dari file yang dipakai tersebut, dan keterangan lain yang ada di program tersebut.
data division
maksud dari syntax tersebut yaitu memberikan penjelasan tentang input data dan output yang dipergunakan.
working-storage section
termasuk ke dalam struktur dari data division. Berfungsi sebagai tempat untuk mendeklarasikan variable.
77 ketua pic a(30)
77 merupakan variable yang berdiri sendiri . ketua merupakan nama variable yang akan di isi di masukkan dan di panggil ke dalam keluaran. Pic merupakan picture editing yang digunakan untuk merubah/memformat. a(30) untuk menyimpan nilai data huruf sebanyak 30 karakter.
77 wakil pic a(30)
77 merupakan variable yang berdiri sendiri . wakil merupakan nama variable yang akan di isi di masukkan dan di panggil ke dalam keluaran. Pic merupakan picture editing yang digunakan untuk merubah/memformat. a(30) untuk menyimpan nilai data huruf sebanyak 30 karakter.
77 sekretaris pic a(30)
77 merupakan variable yang berdiri sendiri . sekretaris merupakan nama variable yang akan di isi di masukkan dan di panggil ke dalam keluaran. Pic merupakan picture editing yang digunakan untuk merubah/memformat. a(30) untuk menyimpan nilai data huruf sebanyak 30 karakter.
77 bendahara pic a(30)
77 merupakan variable yang berdiri sendiri . bendahara merupakan nama variable yang akan di isi di masukkan dan di panggil ke dalam keluaran. Pic merupakan picture editing yang digunakan untuk merubah/memformat. a(30) untuk menyimpan nilai data huruf sebanyak 30 karakter.
Screen section
Untuk mendefinisikan bentuk layar input ataupun output.
01 hapus
Berisi 02 blank screen yaitu untuk menghapus layar
01 masukkan
Berisi
- 02 line 1 column 13 value ‘NAMA PENGURUS’ : untuk membuat tulisan ‘NAMA PENGURUS’ pada baris 1 kolom 13.
- 02 line 3 column 1 value ‘Ketua: ‘ : untuk membuat tulisan ‘Ketua:’ pada baris 3 kolom 1.
- 02 column plus 2 pic a(30) to ketua : untuk mengisi 2 kolom setelah kolom ‘Ketua: ‘ yang berisi karakter huruf dan akan disimpan di ketua untuk dipanggil lagi ke keluaran.
- 02 line 4 column 1 value ‘Wakil: ‘ : untuk membuat tulisan ‘Wakil:’ pada baris 4 kolom 1.
- 02 column plus 2 pic a(30) to wakil : untuk mengisi 2 kolom setelah kolom ‘Wakil: ‘ yang berisi karakter huruf dan akan disimpan di wakil untuk dipanggil lagi ke keluaran.
- 02 line 5 column 1 value ‘Sekretaris: ‘ : untuk membuat tulisan ‘Sekretaris:’ pada baris 5 kolom 1.
- 02 column plus 2 pic a(30) to sekretaris : untuk mengisi 2 kolom setelah kolom ‘Sekretaris:‘ yang berisi karakter huruf dan akan disimpan di sekretaris untuk dipanggil lagi ke keluaran.
- 02 line 6 column 1 value ‘Bendahara: ‘ : untuk membuat tulisan ‘Bendahara:’ pada baris 6 kolom 1.
- 02 column plus 2 pic a(30) to bendahara : untuk mengisi 2 kolom setelah kolom ‘Bendahara: ‘ yang berisi karakter huruf dan akan disimpan di bendahara untuk dipanggil lagi ke keluaran.
01 keluaran
Berisi :
- 02 line 9 column 14 value ‘SUSUNAN PANITIA’ : untuk membuat tulisan ‘SUSUNAN PANITIA’ pada baris 9 kolom 14.
- 02 line 11 column 18 value ‘KETUA’ : untuk membuat tulisan ‘KETUA’ pada baris 11 kolom 18.
- 02 line plus 1 column 12 pic a(30) from ketua : untuk mengisi 1 baris setelah ‘KETUA‘ di kolom 12 yang berisi karakter huruf dan datanya di panggil dari masukkan.
- 02 line 14 column 18 value ‘WAKIL’ : untuk membuat tulisan ‘WAKIL’ pada baris 14 kolom 18.
- 02 line plus 1 column 12 pic a(30) from wakil : untuk mengisi 1 baris setelah ‘WAKIL‘ di kolom 12 yang berisi karakter huruf dan datanya di panggil dari masukkan.
- 02 line 17 column 6 value ‘SEKRETARIS’ : untuk membuat tulisan ‘SEKRETARIS’ pada baris 17 kolom 6.
- 02 line plus 1 column 5 pic a(30) from sekretaris : untuk mengisi 1 baris setelah ‘SEKRETARIS‘ di kolom 5 yang berisi karakter huruf dan datanya di panggil dari masukkan.
- 02 line 17 column 28 value ‘BENDAHARA’ : untuk membuat tulisan ‘BENDAHARA’ pada baris 17 kolom 28.
- 02 line plus 1 column 25 pic a(30) from bendahara : untuk mengisi 1 baris setelah ‘BENDAHARA‘ di kolom 25 yang berisi karakter huruf dan datanya di panggil dari masukkan.
Procedure division
Berisi paragraph yang berupa intruksi untuk pelaksanaan program.
- Mulai : untuk memulai menjalankan intruksi procedure
- Diplay hapus : untuk membersihkan layar
- Display masukkan: untuk menampilkan masukkan.
- Accept masukkan : untuk menerima data yang di input di masukkan.
- Display keluaran : untuk mengeluarkan data yang di input di masukkan.
- Stop run : untuk memberhentikan program.
Setelah itu save program lalu exit. Dan tampilan akan kembali lagi ke command prompt.ketikkan cobol namafile.cob . cobol namafile.cob berfungsi untuk melihat ada atau tidaknya error pada syntax yang di tulis di jendela cobol.
Setelah itu untuk merunning program ketikkan runcob namafile.cob . dan program yang di buat akan berjalan.
No comments:
Post a Comment