Selasa, 22 November 2011

BIODATA

     IDENTIFICATION DIVISION.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       01 BIODATA.
           02 NAMA PIC A(20).
           02 KELAS PIC X(5).
           02 NPM PIC X(8)
       SCREEN SECTION.
       01 HAPUS.
          02 BLANK SCREEN.
       PROCEDURE DIVISION.
       BIODATA-DATA.
         
           DISPLAY (, ) 'INPUT NAMA : '.
           ACCEPT NAMA.
           DISPLAY (, ) 'INPUT KELAS : '.
           ACCEPT KELAS.
           DISPLAY (, ) 'INPUT NPM : '.
           ACCEPT NPM.
           DISPLAY SPACE.
           DISPLAY HAPUS.
           DISPLAY NAMA.
           DISPLAY KELAS.
           DISPLAY NPM.
           BIODATA-SELESAI.
           ACCEPT NAMA.

           STOP RUN.
 

OUTPUT 1

OUTPUT 2

Tidak ada komentar:

Posting Komentar