LA KE-2 COBOL

Pada praktikum kedua praktikum cobol, kita membuat program cobol untuk membuat nama,kelas , dan npm  kita pertama yang kita harus lakukan adalah mengetik codingan yg ada seperti dibawah:

Setelah selesai seperti biasa  save nama file denga akhiran .cob dibelakang nama file,karna kita menggunaka aplikasi dosbox maka kita menggunakan  (runcobol nama file .cob)  

IDENTIFICATION DIVISION. = Untuk  mengidentifikasi data.

PROGRAM-ID. BIODATA.= untuk memberikan ama program.

  AUTHOR. ADIT. = memberikan nama program yang dibuat.

  ENVIRONMENT DIVISION. = untuk memberikan informasi-informasi.

        DATA DIVISION. = untuk memberikan informasi data apa saja yang digunakan.

        WORKING-STORAGE SECTION.

        01 MHS.

            02 NAMA PIC X(20).

                    02 Npm PIC X(8).

                    02 KELAS PIC X(5).

        SCREEN SECTION.

        01 CLS.

            02 BLANK SECTION.

        PROCEDURE DIVISION :  untuk memasukan procedure.

                MULAI. = untuk memulai program

                    DISPLAY CLS.

                    DISPLAY 'MASUKAN NAMA:'. :untuk memasukan nama.

                    ACCEPT NAMA.   

            DISPLAY 'MASUKAN NPM:'. : untuk memasukan npm.

            ACCEPT NPM.   

            DISPLAY 'MASUKAN KELAS:'. :untuk memasukan kelas.

            ACCEPT KELAS.

                    DISPLAY (10, 15)'NAMA ANDA ADALAH ', NAMA.

                    DISPLAY (11, 15)'NPM ANDA ADALAH ', NPM.

            DISPLAY (12, 15)'KELAS ANDA ADALAH ', KELAS.

        SELESAI. = untuk mengakhiri program yang telah dibuat.

            STOP RUN = untuk mengakhiri program.

maka akan keluar hasil outout sebagai berikut: