section data division

Section pada Data Division.

Adalah divisi yang ketiga dari empat divisi di dalam bahasa pemrograman COBOL. Divisi ini berguna untuk mendeklarasikan data input maupun output, tentang bagaimana jenis data yang digunakan dan sifat dari data tersebut. Dibagi menjadi 5 divisi yaitu :
1. FILE SECTION.
2. WORKING-STORAGE SECTION.
3. SCREEN SECTION.
4. LINKAGE SECTION.
5. REPORT SECTION.

Sedangkan bentuk umumnya (singkat ) adalah : DATA DIVISION.
FILE SECTION. FD nama-file
WORKING-STORAGE SECTION.

{Level-number deskripsi data.}


{deskripsi record}. SCREEN SECTION.
{level-number nama-layar}

{BLANK SCREEN}.

DLL.



2.1. FILE SECTION.

Section ini digunakan untuk menjelaskan semua keterangan mengenai file-file yang dipakai didalam program (akan dijelaskan di operasi file).


2.2. WORKING-STORAGE SECTION.

Section ini adalah section yang paling penting dari semua section pada DATA DIVISION karena pada section ini kita mendeklarasikan semua variable dan jenis tipe data yang nantinya akan kita gunakan pada PROCEDURE DIVISION. Untuk sekedar review, anda dapat menulis level number dan picture karakter pada section ini.
Terdapat 2 jenis data yaitu data item individu ditulis dengan level number

77 sedangkan group data item dinyatakan dengan level number 01 untuk nama record dan 02 sampai 49 untuk deskripsi record.


2.3. SCREEN SECTION.

Section ini berguna untuk mengatur bentuk format dari layar input maupun output. Pada section ini juga anda dapat menuliskan level number, tetapi hanya level number 01 sampai 49 saja yang dapat digunakan, sedangkan level number 77 hanya dapat ditulis di WORKING- STORAGE SECTION. SCREEN SECTION berhubungan dengan statement DISPLAY dan ACCEPT pada PROCEDURE DIVISION. Berikut ini beberapa perintah display formatting pada SCREEN SECTION.
LINE clause untuk menempatkan kursor pada baris yang ditentukan. COLUMN clause untuk menempatkan kursor pada kolom yang ditentukan.

Contoh :
LINE 1 COLUMN 5 VALUE ‘ NAMA ANDA : ‘.

COLUMN PLUS 1 PIC 9(6) TO HARGA. UNDERLINE clause, untuk memberi garis bawah. REVERSE-VIDEO clause, membalik warna layar.
HIGLIGHT clause, untuk menampilkan tampilan yang lebih terang.
BLINK clause, digunakan untuk membuat blinking layar.


Contoh Program :

M2A.COB Mon Aug 21 20:04:00 2006 Page 1 line number source line Microsoft COBOL Version 2.20

1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. LAYAR.
3 AUTHOR. SAYA.
4 ENVIRONMENT DIVISION.
5 DATA DIVISION.
6 SCREEN SECTION.
7 01 HAPUS-LAYAR.
8 02 BLANK SCREEN.
9 01 LAYAR.
10 02 LINE 2 COLUMN 25 'UNIVERSITAS GUNADARMA' UNDERLINE.
11 02 LINE 5 COLUMN 25 'LAB SISTEM INFORMASI' HIGHLIGHT.
12 02 LINE 7 COLUMN 28 'PRAKTIKUM COBOL' REVERSE-VIDEO.
13 02 LINE 9 COLUMN 28 'SELAMAT DATANG' BLINK.
14 PROCEDURE DIVISION.
15 MULAI.
16 DISPLAY HAPUS-LAYAR.
17 DISPLAY LAYAR.
18 SELESAI.
19 STOP RUN.