Pelajaran modul (1/2)
Item dan Catatan Grup
Dalam COBOL, variabel dasar dapat dikelompokkan menjadi struktur hierarki yang disebut item grup atau catatan. Hal ini memungkinkan Anda memperlakukan sekumpulan data terkait sebagai satu kesatuan (misalnya, untuk menyalin atau menampilkannya) atau sebagai bidang individual.
Angka Tingkat dan Hubungan Hierarki
Untuk menentukan data, gunakan angka level di DATA DIVISION:
- Level
01: Mendefinisikan record utama (nama grup). Ia tidak memiliki klausaPICTUREsendiri karena ukurannya ditentukan oleh jumlah kolom internalnya. - Tingkat bawahan (
05,10,15, dll.): Identifikasi bidang bawahan milik grup tingkat yang lebih tinggi. Mereka dapat berupa variabel dasar (dengan klausaPIC) atau, pada gilirannya, item grup lainnya (sub-catatan).
01 WS-EMPLOYEE-RECORD.
05 WS-EMP-ID PIC 9(5).
05 WS-EMP-NAME PIC X(20).
05 WS-EMP-SALARY PIC 9(6)V99.Dalam contoh ini, WS-EMPLOYEE-RECORD adalah struktur grup yang berisi tiga bidang bawahan. Jika kita mereferensikan WS-EMPLOYEE-RECORD, kita membaca atau menulis semua 5 + 20 + 8 = 33 karakter record sekaligus.
Pernyataan MOVE dan Item Grup
Kita dapat menetapkan nilai ke masing-masing bidang dasar:
MOVE 10023 TO WS-EMP-ID.
MOVE "JOHN DOE" TO WS-EMP-NAME.Atau kita dapat menyalin seluruh record ke record lain yang kompatibel dalam satu operasi:
MOVE WS-EMPLOYEE-RECORD TO WS-EMPLOYEE-BACKUP.Cobalah sendiri
Deklarasikan struktur grup 01 bernama WS-STUDENT-RECORD yang berisi tiga sub-bidang level 05: WS-STUDENT-ID (numerik 5 digit), WS-STUDENT-NAME (alfanumerik 15 karakter), dan WS-STUDENT-GPA (numerik dengan 1 digit bilangan bulat dan 2 desimal).
Tunjukkan petunjuk
Gunakan sintaks: 01 WS-STUDENT-RECORD. (dengan titik dan tanpa PIC), diikuti pada baris berikutnya dengan level 05 WS-ID-SISWA PIC 9(5)., 05 WS-NAMA-SISWA PIC X(15). dan 05 WS-SISWA-IPK PIC 9(1)V99.
Solusi tersedia setelah 3 upaya
Selesaikan DIVISI PROSEDUR dengan memindahkan nilai 10023 ke dalam WS-EMP-ID, teks 'JOHN DOE' ke dalam NAMA WS-EMP, dan terakhir tampilkan struktur grup WS-EMPLOYEE-RECORD menggunakan DISPLAY.
Tunjukkan petunjuk
Gunakan PINDAHKAN 10023 KE WS-EMP-ID. dan PINDAHKAN 'JOHN DOE' KE WS-EMP-NAME. untuk menetapkan nilai, lalu tulis DISPLAY WS-EMPLOYEE-RECORD. dan akhirnya BERHENTI LARI.
Solusi tersedia setelah 3 upaya