Perulangan pada COBOL Menggunakan Perform Varying

Saya akan menjelaskannya secara satu – persatu dari logika program diatas, sebelumnya mari kita bahas bagian – bagian atau struktur program cobol. Pada cobol struktur program dibagi menjadi beberapa bagian yang tiap – tiap bagiannya mempunya fungsi masing – masing. Mari kita urai satu persatu.

1.  IDENTIFICATION DIVISION

Identification division merupakan bagian pertama dalam struktur program cobol yang digunakan untuk memberi keterangan pada program. Divisi ini menampung beberapa keterangan yaitu.

·         PROGRAM-ID : Berguna untuk memberi judul program, disini kita berinama loop

       2.   ENVIRONMENT DIVISION

Environment division merupakan bagian selanjutnya pada struktur program cobol yang digunakan untuk memberi informasi peralatan apa saja yang digunakan dalam program. Dalam divisi ini terdapat.

             3.  DATA DIVISION

           Merupakan Bagian 3 dalam struktur program cobol yang berfungsi untuk medeskripsikan tipe            dan jenis variabel yang digunakan dalam cobol. Dalam bagian ini terdapat 3 section tetapi saya            hanya memakai 2 yaitu sebagai berikut.

·    WORKING-STORAGE SECTION : Berguna untuk mendeklarasikan variabel dan tipe data.

·   SCREEN SECTION : Berguna untuk menentukan format layar baik input maupun output.

               4.       PROCEDURE DIVISION

Merupakan bagian terakhir dalam struktur program cobol yang berfungsi untuk statement – statement intruksi dalam program.

     Selanjutnya kita akan membahas codingannya berikut adalah penjelasannya. Pertama kita ke bagian working section pada bagian ini kita akan mendeklarasikan 2 variabel bebas. Variabel bebas di deklarasikan dengan level number 77 kita gunakan 2 variabel, sebenarnya untuk penulisan variabel bebas tetapi kali ini saya menggunakan I dan J sebagai variabel. Kedua variabel ini di beri tipe numeric dengan angka 9 dibelakang kata PIC yang menandakan Picture clause. Gunakan angka 9 sebanyak digit yang di perlukan, karena disini kita hanya menggunakan 1 digit jadi hanya butuh 1 angka 9.  Lanjut ke bagian procedure, pada bagian ini memuat statement – statement intruksi untuk menjalankan program. Disini kita mulai dengan paragraph MULAI, yang menandakan awal suatu procedure atau bagian – bagian procedure lalu ada perulangan bersarang mengunakan statement perform. Sebenarnya banyak statement – statement intruksi pada cobol yang digunakan untuk melakukan perulangan seperti go to tetapi kali ini saya menggunakan perform varying. Sintaks umum dari perform varying adalah perform n_prosedur varying var from num by num until condition. Jika performnya bersarang maka tambah di bawahnya dengan after var from num by num condition lalu di beri titik di akhir. Setelah itu akan kita akan berhentikan dengan stop run. Lanjut ke paragraph atau prosedur cetak, display (, ) ‘ ‘ J digunakan untuk mencetak variabel j dari looping dan dilanjut IF J = I DISPLAY SPACE yang berarti untuk berpindah ke baris selanjutnya  jika nilai j = i. berikut perincian logikanya menggunakan tabel untuk lebih jelasnya

BARIS 1

I	J	J > I	OUTPUT
1	1	FALSE	1
1	2	TRUE	BLANK

BARIS 2

I	J	J > I	OUTPUT
2	1	FALSE	1
2	2	FALSE	1 2
2	3	TRUE	BLANK

BARIS 3

I	J	J > I	OUTPUT
3	1	FALSE	1
3	2	FALSE	1 2
3	3	FALSE	1 2 3
3	4	TRUE	BLANK

BARIS 4

I	J	J > I	OUTPUT
4	1	FALSE	1
4	2	FALSE	1 2
4	3	FALSE	1 2 3
4	4	FALSE	1 2 3 4
4	5	TRUE	BLANK

BARIS 5

I	J	J > I	OUTPUT
5	1	FALSE	1
5	2	FALSE	1 2
5	3	FALSE	1 2 3
5	4	FALSE	1 2 3 4
5	5	FALSE	1 2 3 4 5
5	6	TRUE	BLANK

Berikut hasil running dari program