Program Looping Dasar Pada COBOL

Program Looping Dasar pada Cobol

  Pict gambar coding-nya :


Penjelasannya:

Pada umumnya program cobol diawali dengan penulisan program pada kolom ke 8 atau disebut dengan Area A. Judul divisi, judul section, nama paragraph, judul file description dan level number di mulai pada kolom ini.

Penulisan pada program cobol menggunakan huruf besar dan harus diakhiri dengan tanda titik.

Penulisan division harus secara berurut mulai dari:

IDENTIFICATION DIVISION.

Informasi tentang program.

PROGRAM-ID. LOOP.

Jenis program, ditujukan untuk proses looping (perulangan).

ENVIRONMENT DIVISION.

Berisi informasi computer yang digunakan dan input/output untuk memproses file.

DATA DIVISION.

Bagian isi dari data program yang diolah.

Masuk ke bagian (section) dari DATA DIVISION.

WORKING-STORAGE SECTION.

Tempat atau nilai untuk hasil pengerjaan proses ke perhimpunan selanjutnya.

01 DAATA.

Level number 01 dengan judul section DAATA. Menggunakan 2 huruf A di depan dengan maksud sebagai judul section DATA, agar judul section ini tidak mengganggu posisi dari DATA DIVISION.

02 NILAI PIC 9(2) VALUE 10.

Level number 02 untuk variable NILAI dengan tipe data numeric berjumlah 2 dan bernilai 10.

02 NILAI1 PIC 9(2) VALUE 10.

Level number 02 untuk variable NILAI1 dengan tipe data numeric berjumlah 2 dan bernilai 10.

i PIC 99.

Variable i menggunakan tipe data numeric yang ditampilan sebanyak 2 digit.

j PIC 99.

Variable j menggunakan tipe data numeric yang ditampilan sebanyak 2 digit.

SCREEN SECTION.

Untuk mendefinisikan bentuk dari layar untuk tampilan input data maupun hasil output. Kembali ke kolom 8.

01 CLS.

Level number 01 dengan nama record CLS.

02 BLANK SCREEN.

Level number 02 ditulis pada kolom 12 berisi perintah BLANK SCREEN untuk membersihkan layar sebagai isi perintah dari record CLS.

PROCEDURE DIVISION.

Menunjukan prosedur atau aturan dari instruksi yang mempunyai akibat secara langsung menghasilkan output yang diminta dari sejumlah input yang ada.

MULAI.

Judul section untuk menunjukan memulai program.

PERFORM CETAK.

Instruksi untuk melompat ke paragraph CETAK.

VARYING i FROM 1 BY 1 UNTIL i > NILAI1.

AFTER j FROM 1 BY 1 UNTIL j > i.

18-19: variasi bentuk nilai i dimulai dari 1 bertahap 1 langkah sampai nilai i lebih besar dari nilai variable NILAI1. Kemudian j dimulai dari 1 dan bertahap juga 1 langkah sampai j lebih besar dari nilai i.

STOP RUN.

Instruksi untuk menghentikan proses.

CETAK.

Paragraph atau section CETAK.

DISPLAY ( , ) j.

Menampilkan nilai j di bari dan kolom awal.

IF i = j DISPLAY SPACE.

      Jika nilai i sama dengan nilai j maka akan ditampilkan spasi ke baris baru. Dimana i diartikan sebagai nilai
      yang tercetak menyamping per baris dan j nilai yang tercetak ke bawah per kolom.

Compile Program:




Tampilan Program:





Semoga bermanfaat :) 
Sumber : http://agustronger.blogspot.com