Jumat, 14 Oktober 2011

inputan pada cobol

       identification division.
       program-id. coba1.
       author. labsi.
       environment division.
       data division.
       working-storage section.
       01 masukan.
           02 nama pic x(20).
           02 npm pic x(8).
           02 kelas pic x(10).
       screen section.
       01 hapus-layar.
           02 blank screen.
       procedure division.
       masukan-data.
           display hapus-layar.
           display 'nama:'.
           accept nama.
           display 'npm:'.
           accept npm.
           display 'kelas:'.
           accept kelas.
       selesai.
           stop run.

Tidak ada komentar:

Posting Komentar