Contoh Program LOOPING pada COBOL
“IDENTIFICATION DIVISION” itu digunakan untuk identitas pada sebuah program, biasanya pada identitas program berisikan tentang judul atau nama program yang akan dibuat, nama si pembuat program, tanggal pembuatan program dan lain sebagainya. Penulisannya selalu ditulis pada baris 1 dan kolom 8. “DATA DIVISION” digunakan untuk mengetahui gambaran jenis dan bentuk inputan serta hasil outputnya. “WORKING-STORAGE SECTION” ini digunakan untuk mendeklarasikan sebuah variabel yang akan digunakan, serta berisikan record-record yang menyimpan beberapa field. “77” adalah level number yang digunakan untuk mengawali data item yang berdiri sendiri.
“IDENTIFICATION DIVISION” itu digunakan untuk identitas pada sebuah program, biasanya pada identitas program berisikan tentang judul atau nama program yang akan dibuat, nama si pembuat program, tanggal pembuatan program dan lain sebagainya. Penulisannya selalu ditulis pada baris 1 dan kolom 8. “DATA DIVISION” digunakan untuk mengetahui gambaran jenis dan bentuk inputan serta hasil outputnya. “WORKING-STORAGE SECTION” ini digunakan untuk mendeklarasikan sebuah variabel yang akan digunakan, serta berisikan record-record yang menyimpan beberapa field. “77” adalah level number yang digunakan untuk mengawali data item yang berdiri sendiri.
“SCREEN SECTION” berfungsi sebagai
format layar pada output. Pada gambar dibawah ini terlihat bahwa “SCREEN
SECTION” terdiri dari 2 record, yaitu “01 HAPUS-LAYAR” untuk
membersihkan layar output, dan “01 INPUTAN” untuk menentukan jenis
inputan apa yang akan ditampilkan pada layar output.
“02 LINE 6 COLUMN 6 VALUE
‘MASUKKAN NAMA : ’.” tulisan tersebut akan menampilkan hasil output pada
baris ke 6 dan kolm ke 6. “02 COLUMN
PLUS 2 PIC X(30) TO NAMA.” Ddigunakan untuk memberikan jarak space sebanyak
2 kolom dan akan memanggil variabel nama.
“02 LINE 7 COLUMN 6 VALUE ‘MASUKKAN NPM : ’.” akan
menampilkan pada baris ke 7 dan kolom ke 6. “02 COLUMN PLUS 2 PIC X(8) TO NPM.” Ddigunakan untuk memberikan
jarak space sebanyak 2 kolom dan akan memanggil variabel npm.
“02 LINE 8 COLUMN 6 VALUE ‘MASUKKAN KELAS : ’.” akan
menampilkan pada baris ke 8 dan kolom ke 6 . “02 COLUMN PLUS 2 PIC X(30) TO KELAS.” Ddigunakan untuk memberikan
jarak space sebanyak 2 kolom dan akan memanggil variabel kelas.
“PROCEDURE DIVISION” digunakan untuk proses pada
program dan akan menentukan apa saja yang akan ditampilkan pada layar output. “DISPLAY INPUTAN.” Digunakan untuk
menampilkan variabel pada record “INPUTAN”
yang ada pada “SCREEN SECTION”. “ACCEPT
INPUTAN” untuk memanggil record inputan. “PERFORM CETAK LOOP TIMES”
digunakan untuk looping atau mengulang inputan yang akan di looping. “CETAK” untuk mendeklarasikan tampilan
apa saja yang akan dijadikan output.
Gambar dibawah ini adalah
outputnya:
Tidak ada komentar:
Posting Komentar