Contoh Laporan Akhir Menu pada COBOL

77 I pic 9.

77 J pic 9.

77 N pic 9.

Pada line 77 maksudnya adalah mengawali item yang berdiri sendiri dan bertipe data numerik.

Untuk mendeklarasikan variabel yang akan kita pakai pada program ini.

Menu adalah nama programnya. Lalu DISPLAY terdapat 1. Biodata, 2. Nilai Akhir, 3. Perulangan, 4. Exit itu adalah menu yang dapat dipilih dengan cara memasukkan angka dari 1 – 4 dengan menggunakan Accept PIL. GO TO berguna untuk berpindah ke bagian yang diinginkan dari 1 – 4, jika kita memilih menu yang tidak ada di program tersebut maka akan muncul tulisan “Maaf, pilihan tidak tersedia”.

Nomer 1. pilihan untuk pengisian biodata yang berisikan Nama, NPM dan Kelas.

Pada MEN1

Display berfungsi untuk menampilkan, perintahnya sama seperti print. Accept berfungsi untuk membaca variabel dan menyimpannya untuk ditampilkan.

Nomer 2. Pilihan untuk pengisian nilai akhir

Pada MEN2

Display berfungsi untuk menampilkan, perintahnya sama seperti print. Accept berfungsi untuk membaca variabel dan menyimpan nya untuk ditampilkan. COMPUTE TOTAL = ( UTS * 0.7 ) + ( UAS * 0. 3 ) , berfungsi untuk menghitung total nilai dari hasil inputan nilai uts dan nilai uas. Nilai uts dikalikan dengan 0.7, dan nilai uas dikalikan dengan 0.3, lalu kedua hasil tersebut ditambahkan.

Output dari menu nomor 2 berupa nilai uts, nilai uas, dan nilai akhir yang sudah di hitung. Dan juga ditampilkan grade sesuai dengan nilai yang dimasukkan. Jika nilai diantara 100 – 90, grade A. nilai diantara 90 – 80 grade B. nilai diantara 80 -70 grade C. Jika nilai < 50, maka dinyatakan TIDAK LULUS.

Nomer 3. Pilihan untuk pengisian perulangan

Pada MEN3

Display berfungsi untuk menampilkan, perintahnya sama seperti print. Accept berfungsi untuk membaca variabel dan menyimpan nya untuk ditampilkan. Varrying I from 1 by 1 until I > N adalah perintah program untuk melakukan looping sebanyak N satu demi satu sampai dengan N.

After J From 1 by 1 until J > I untuk melakukan perulangan setelah J dari 1 by 1 sampai J lebih besar dari I. Cetak untuk mencetak “*”, jika J sama dengan I maka membuat garis baru.

TANYA
berfungsi untuk menanyakan apakah ingin melalukan pemilihan menu dan mengiput data kembali, atau tidak. Jika pilih Y, maka akan ditampilkan pilihan menu. Jika pilih T, maka program akan berhenti.

Nomer 4. Pilihan untuk berhenti/keluar dari program.

Pada MEN4

Display berfungsi untuk menampilkan, perintahnya sama seperti print. Stop Run untuk berhenti.

Setelah program sudah dibuat, sebelum menjalankannya, program harus di compile terlebih dahulu untuk mengetahui kesalahan / error yang terjadi pada program.

Read More

Contoh Laporan Akhir Sequential pada COBOL

File-Control

Untuk mendeklarasika file dan jenis penyimpanan yang kita gunakan yaitu sequential.

File Section

FD Barang

Untuk membuat folder Barang yang bertipe standart didalamnya terdapat file BARANG.DAT dan mempunyai record bernama RECBARANG

Didalam RECBARANG terdapat

Nama-Barang bertipe Alfabet dapat diisi sebanyak 25 chacarter

Kode-Barang bertipe Numerik dapat diisi sebanyak 3 chacarter

Alamat-Barang bertipe Alfanumerik dapat diisi sebanyak 25 chacarter

01 Tambah-Barang

88 Ya Value

88 Tidak Value

Untuk menambah barang dan memanggil statement sebelumnya. Pada layar output jika kita ketik ‘Ya’ maka akan kembali ke proses input jika kita ketik ‘Tidak’ maka program akan berhenti.

01 Hapus-Layar

02 Blank Screen

Untuk menghapus layar

01 Input-Nama

Untuk menampilkan Nama Barang, Kode Barang dan Alamat Barang pada kolom dan baris yang sudah ditentukan dan data yang sudah kita input akan tersimpan di data masing-masing

Open Output Barang untuk membuka file Barang yang tadi kita buat. MULAI berfungsi untuk memulai program. Lalu DISPLAY untuk menampilkan tulisan pada layar sesuai baris yang kolom yang kita tentukan. Accept untuk memanggil data. STOP RUN  berhenti.

Setelah program sudah dibuat, sebelum menjalankannya, program harus di compile terlebih dahulu untuk mengetahui kesalahan / error yang terjadi pada program.

Read More

Contoh Laporan Akhir Array pada COBOL

Cobol memiliki 4 divisi, yaitu :

1. identification Division : yang berfungsi untuk membuat nama program, tanggal program, nama pembuat program

2. environment division : untuk input & output program, dan configuration section

3. data division : untuk variabel variabel yang akan diolah

4. procedure division : untuk proses.   

02 NILAI X OCCURS 2 TIMES

03 NILAI PIC 9 OCCURS 2 TIMES

Variabel nilai x bertipe data numerik dan OCCURS 2 TIMES untuk melakukan perulangan sebanyak 2 kali.

77 I pic 9.

77 J pic 9.

Pada line 77 maksudnya adalah mengawali item yang berdiri sendiri dan bertipe data numerik.

Pada codingan ini MULAI berfungsi untuk memulai program. Lalu DISPLAY untuk menampilkan tulisan pada layar. Varying I FROM 1 BY 1 UNTIL I > 2 untuk melakukan looping sebanyak I satu demi satu sampai dengan I > 5 , setelah looping sampai sama dengan nilai variable I maka program akan berhenti sendiri. AFTER J FROM 1 BY 1 UNTIL J > 2 untuk melakukan perulangan setelah J dari 1 by 1 sampai J lebih besar dari 2. STOP RUN  berhenti.

Setelah program sudah dibuat, sebelum menjalankannya, program harus di compile terlebih dahulu untuk mengetahui kesalahan / error yang terjadi pada program.

DISPLAY ( , ) NILAI untuk mencetak Nilai. IF J = 2 DISPLAY SPACE maksudnya adalah jika J sama dengan 2 maka akan membuat baris baru.

I dimulai dari 1,       I = 2 SPACE (Baris Baru)

I	J	CETAK (baris dan kolom)
1	1	(01, 01)
	2	(01, 02)
	3	-

Output

Read More

Contoh Laporan Akhir Looping pada COBOL

Cobol memiliki 4 divisi, yaitu :

1. identification Division : yang berfungsi untuk membuat nama program, tanggal program, nama pembuat program

2. environment division : untuk input & output program, dan configuration section

3. data division : untuk variabel variabel yang akan diolah

4. procedure division : untuk proses.   

77 A pic 9.

77 B pic 9.

Pada line 77 maksudnya adalah mengawali item yang berdiri sendiri dan bertipe data numerik.

Pada codingan ini MULAI berfungsi untuk memulai program. Lalu PERFORM CETAK untuk menampilkan  / mencetak. Varying A FROM 1 BY 1 UNTIL A > 5 untuk melakukan looping sebanyak A satu demi satu sampai dengan A > 5 , setelah looping sampai sama dengan nilai variable A maka program akan berhenti sendiri. AFTER B FROM 1 BY 1 UNTIL B > A untuk melakukan perulangan setelah B dari 1 by 1 sampai B lebih besar dari A. STOP RUN  berhenti.

Setelah program sudah dibuat, sebelum menjalankannya, program harus di compile terlebih dahulu untuk mengetahui kesalahan / error yang terjadi pada program.

DISPLAY ( , ) A untuk mencetak A. IF B = A DISPLAY SPACE maksudnya adalah jika B sama dengan A maka akan membuat baris baru.

A dimulai dari 1,     B = A SPACE (Baris Baru)

A	B>A	CETAK
1>5	1>1	1
	2>1
2>5	1>2	2
	2>2	2
	3>2
3>5	1>3	3
	2>3	3
	3>3	3
	4>3
4>5	1>4	4
	2>4	4
	3>4	4
	4>4	4
	5>4
5>5	1>5	5
	2>5	5
	3>5	5
	4>5	5
	5>5	5
	6>5
6>5

Penjelasan :

1          1>1 kondisi ini tidak terpenuhi karna 1 tidak lebih besar dari 1, jadi tercetak 1

2>1 kondisi ini terpenuhi karena 2 lebih besar dari 1, jadi tidak tercetak dan membuat baris baru

2          1>2 kondisi ini tidak terpenuhi karna 1 tidak lebih besar dari 2, jadi tercetak 2

2>2 kondisi ini tidak terpenuhi karna 2 tidak lebih besar dari 2, jadi tercetak 2

3>2 kondisi ini terpenuhi karena 3 lebih besar dari 2, jadi  tercetak dan membuat baris baru

3          1>3 kondisi ini tidak terpenuhi karena 1 tidak lebih besar dari 3, jadi tercetak 3

2>3 kondisi ini tidak terpenuhi karena 2 tidak lebih besar dari 3, jadi tercetak 3

3>3 kondisi ini tidak terpenuhi karena 3 tidak lebih besar dari 3, jadi tercetak 3

4>3 kondisi ini terpenuhi karena 4 lebih besar dari 3, jadi tidak tercetak dan membuat baris baru

4          1>4 kondisi ini tidak terpenuhi karena 1 tidak lebih besar dari 4, jadi tercetak 4

2>4 kondisi ini tidak terpenuhi karena 2 tidak lebih besar dari 4, jadi tercetak 4

3>4 kondisi ini tidak terpenuhi karena 3 tidak lebih besar dari 4, jadi tercetak 4

4>4 kondisi ini tidak terpenuhi karena 4 tidak lebih besar dari 4, jadi tercetak 4

5>4 kondisi ini terpenuhi karena 5 lebih besar dari 4, jadi tidak tercetak dan membuat baris baru

5          1>5 kondisi ini tidak terpenuhi karena 1 tidak lebih besar dari 5, jadi tercetak 5

2>5 kondisi ini tidak terpenuhi karena 2 tidak lebih besar dari 5, jadi tercetak 5

3>5 kondisi ini tidak terpenuhi karena 3 tidak lebih besar dari 5, jadi tercetak 5

4>5 kondisi ini tidak terpenuhi karena 4 tidak lebih besar dari 5, jadi tercetak 5

5>5 kondisi ini tidak terpenuhi karena 5 tidak lebih besar dari 5, jadi tercetak 5

6>5 kondisi ini terpenuhi karena 6 lebih besar dari 5, jadi tidak tercetak dan membuat baris baru

6          1>6 kondisi ini tidak terpenuhi karena lebih dari 5

Output

Read More