IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT.
AUTHOR. FERDIAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MHS.
02 NAMA PIC A(10).
02 NPM PIC X(8).
02 KELAS PIC X(9).
SCREEN SECTION.
01 BERSIHKAN-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY BERSIHKAN-LAYAR.
DISPLAY (09, 09) ” NAMA :”.
ACCEPT NAMA.
DISPLAY (10, 09) ” NPM :”.
ACCEPT NPM.
DISPLAY (11, 09) ” KELAS :”.
ACCEPT KELAS.
DISPLAY (13 , 09) ” NAMA :” NAMA.
DISPLAY (14 , 09) ” KELAS :” NPM.
DISPLAY (15 , 09) ” NPM :” KELAS.
SELESAI.
STOP RUN.
- Lalu save as aktivitas biodatanya
- Buka cmd untuk menjalankan aktivitas tersebu
- Setelah itu kite lihat apakah ada kesalahan dalam aktivitas dngan cara ketik cobol biodata.cob
Gambar di atas membuktikan tidak ada kesalahan
- setelah itu ketuk RUNCOB biodata.cob untuk menjalankan aktivitas maka aktivitas akan berjalan dan meminta anda untuk memasukan nama,npm,kelas menyerupai gambar brikut
sehabis anda memasukan nama, npm, kelas klik enter
Keterangan aktivitas biodata dengan cobol
- IDETIFICATION DIVISION merupakan divisi yang pertama dalam cobol yang sederhana.
- PROGRAM-ID. INPUT. (Nama aktivitas Input) : panjang maks hanya 6 karakter.
- AUTHOR. FERDIAN. (Nama programmer ferdian)
- ENVIROMENT DIVISION. Menyediakan warta mengenai peralatan yang digunakan.
- WORKING-STORAGE SECTION. Untuk pemesanan aktivitas di internal memory (STORAGE) yang diharapkan oleh pekerjaan (working) proses program.
- NAMA PIC A(10). Untuk memilih type data karakter
- 02 NPM PIC X(8). Untuk memilih type data abjad dan numeric
- 02 KELAS PIC X (9). Untuk memilih type data abjad dan numeric
- SCREEN SECTION. Digunakan u/ membuktikan format dari layar terminal u/ menampilkan data atau memasukan data.
- BERSIHKAN-LAYAR
- BLANK SCREEN. dipakai untuk membersihkan layar dan menempatkan kursor pada posisi kiri atas.
- PROCEDURE DIVISION. Meruoakan inti dari pemrograman COBOL.
- DISPLAY BERSIHKAN-LAYAR
- DISPLAY (09, 09) “ NAMA : “. Digunakan untuk menapilkan “NAMA” pada baris 9 kolom ke 9.
- ACCEPT ( , ) NAMA. Digunakan untuk memasukan data lewat layar sewaktu aktivitas tersebut dijalankan (runtime).
- DISPLAY (09, 09) “ NPM : “. Digunakan untuk menapilkan “NPM” pada baris 10 kolom ke 9.
- ACCEPT ( , ) NAMA. Digunakan untukmemasukan data lewat layar sewaktu aktivitas tersebut dijalankan (runtime).
- DISPLAY (09, 09) “ KELAS : “. Digunakan untuk menapilkan “KELAS” pada baris 11 kolom ke 9 .
sekian postingan kali ini perihal belajar bahasa pemrogramn cobol bila ada pertanyaan silahkan coment