Coding-an IdeCobol

Bagi kalian yang baru belajar, ini salah satu contoh codingan-nya tapi masih standart. Gue cuma mau bagi buat-buat belajar, bagi yang udah ahli ya gausah, ini standart banget kok :)

Nih :D

IDENTIFICATION DIVISION
PROGRAM-ID. DATA.
AUTHRO. (BEBAS MAU NAMA KALIAN JUGA BOLEH)
ENVIROMENT DIVISION.
DATA DIVISON.
WORKING-STORAGE SECTION.
01 DATA-MASUKAN.
    02 NAMA PIC X(20).
    02 NPM PIC X(8).
    02 KELAS PIC X(5).
SCREEN SELECTION.
01 HAPUS-LAYAR.
    02 CLS.
PROCEDURE DIVISION
MASUKAN-DATA.
    DISPLAY HAPUS-LAYAR.
    DISPLAY 'NAMA  :'.
    ACCEPT NAMA.
    DISPLAY 'NPM    :'.
    ACCEPT NPM
    DISPLAY 'KELAS  :'.
    ACCEPT KELAS.
    STOP "ENTER".
SELESAI.
    STOP RUN.

01 sama 02 itu merupakan level number, kalo  nomor 01 itu biasanya digunakan pada kolom 8 klo level number 02 biasanya digunakan pada kolom 12.

02 NAMA PIC X(20), gunanya buat memberi nama dan PIC X itu mereupakan picture clause alfanumerik. Begitu juga dengan NPM, KELAS.

SCREEN SECTION BUAT MENGHAPUS LAYAR.

Display untuk menampilkan nama dengan accept sebagai 


Yap itu walaupun sederhana lumayan lah buat belajar-belajar
(Screen Capture-nya nyusul,ngeblog dihape soalnya)
See ya XD