Input data menggunakan cobol

COBOL

Cobol (Common Businnes Oriented Language) adalah suatu bahasa computer tingkat tinggi yang berorientasi langsung pada permasalahan bisnis. COBOL hampir dapat digunakan pada semua computer bila terdapat compiler COBOLnya. Diciptakan pada tahun 1959 dan dikembangkan oleh suatu grup bernama CODASYL (Conference on Data System Language).

Diperkenalkan pertama secara formal pada bulan Januari 1960. COBOL terus dikembangkan dan di standarisasi pada tahun 1968 dan 1974, diberi nama ANSI COBOL (American National Standard Institute COBOL).

LISTING  PROGRAM :

IDENTIFICATION DIVISION.

PROGRAM-ID. ERIKA.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 INPUTAN.

     02 Nama pic x(25).

     02 NPM pic x(10).

     02 Kelas pic X(5).

SCREEN SECTION.

01 BERSIH.

     02 BLANK SCREEN.

01 DATA-MASUK.

     02 LINE 2 COLUMN 35 VALUE 'Data Mahasiswa'

          foreground-color 1 highlight blink.

     02 LINE 4 COLUMN 2 VALUE 'Nama  = '.

     02 column plus 2 pic x(25) to Nama.

     02 LINE 5 COLUMN 2 VALUE 'NPM   = '.

     02 COLUMN PLUS 2 PIC X(8) TO NPM.

     02 LINE 6 COLUMN 2 VALUE 'Kelas = '.

     02 column plus 2 pic x(5) to kelas.

PROCEDURE DIVISION

MULAI.

      DISPLAY BERSIH.

      DISPLAY DATA-MASUK.

      ACCEPT DATA-MASUK.

      DISPLAY SPACE.

      DISPLAY ‘ ‘.

      DISPLAY '========================================'.

      DISPLAY ‘ ‘.

      DISPLAY 'Data yang sudah diinput:'.

      DISPLAY NAMA.

      DISPLAY NPM.

      DISPLAY KELAS.

      STOP RUN.

Output pertama ketika program di jalankan seperti di bawah ini. Output ini berfungsi untuk menginput data.

Output kedua setelah data diinput.

Output ketiga setelah data diinput lalu tekan ENTER maka akan tampil sebuah informasi mengenai data yang sudah diinput.