PROGRAM SEDERAHANA COBOL

1.  CONTOH PROGRAM SEDERHANA PADA COBOL

LISTING :

        IDENTIFICATION DIVISION

        PROGRAM-ID. PIC.

        AUTHOR. SAYA.

        ENVIRONMENT DIVISION.

        DATA DIVISION.

        WORKING-STORAGE SECTION.

        77 NAMA PIC A(20).

        77 NPM PIC 9(8).

        77 KELAS PIC X(5).

        SCREEN SECTION.

        01 CLS.

            02 BLANK SCREEN.

        01 INPUTAN.

            02 LINE 5 COLUMN 8 VALUE 'MASUKAN NAMA : '.

            02 COLUMN PLUS 1 PIC A(20) TO NAMA.

            02 LINE 6 COLUMN 8 VALUE 'MASUKAN NPM : '.

            02 COLUMN PLUS 1 PIC 9(8) TO NPM.

            02 LINE 7 COLUMN 8 VALUE 'MASUKAN KELAS : '.

            02 COLUMN PLUS 1 PIC X(5) TO KELAS.

        PROCEDURE DIVISION.

        MULAI.

            ACCEPT INPUTAN.

            DISPLAY(9, 8) 'NAMA ANDA ADALAH :' NAMA.

            DISPLAY(10, 8) 'NPM ANDA ADALAH :' NPM.

            DISPLAY(11, 8) 'BERADA DI KELAS :' KELAS.

            STOP RUN.

IDENTIFICATION DIVISION digunakan sebagai mengidentifikasi program cobol seperti PROGRAM-ID (Nama Program) dan AUTHOR (Pembuat Program)

DATA DIVISION digunakan untuk mengawali awalan dari record

WORKING-STORAGE SECTION. Digunakan untuk pemberian tipe jenis data pada cobol.

77 NAMA PIC A(20). Digunakan untuk pemberian tipe jenis data ‘NAMA’ sebagai karakter/A dengan jumlah maksimal digit 20.

01 CLS

02 BLANK SCREEN perintah ‘CLS’ sebagai menghapus layar

01 INPUTAN

            02  LINE 5 COLUMN 8 VALUE ‘MASUKAN NAMA :’, digunakan untuk memasukan data dengan kolom ke 8 dan baris ke 5

            02 COLUMN PLUS 1 PIC A(20) TO NAMA. Digunakan untuk menginput data NAMA sebagai character(A) dengan maksimal digit 20 tepat berada di samping kanan kolom 8 (COLUMN PLUS 1) yang berarti di kolom ke 9

PROCEDURE DIVISION. digunakan tempat membuat instruksi statement pada cobol/memulai program.

ACCEPT INPUTAN. Digunakan sebagai mengkonfirmasi data yang telah diinput di record awal ’01 INPUTAN’

DISPLAY perintah untuk menampilkan object pada output dan object harus diawali dan diakhiri dengan kutip satu (‘)

Contoh : DISPLAY ‘NAMA ANDA ADALAH :’.

STOP RUN. Perintah untuk mengakhiri program cobol

Catatan :

AREA A diawali dari kolom 8-11

AREA B diawali dari kolom 12-72

Gunakan DIVISI COBOL jika diperlukan

Untuk memeriksa program cobol tidak ada kesalahan maka harus di check dengan mengetik “COBOL NAMA-FILE.COB”. Jika muncul tulisan “No errors or warnings” makan program cobol OK OK aja