Coding dasar untuk membuat aplikasi di cobol
Input :
IDENTIFICATION DIVISION.
PROGRAM-ID. LAT1.
AUTHOR. PUTRI.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MHS.
02 NAMA PIC A(9) VALUE 'PUTRI'.
SCREEN SECTION.
01 HAPUS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS.
DISPLAY 'NAMA ', NAMA.
STOP ' '.
SELESAI.
STOP RUN.
PROGRAM-ID. LAT1.
AUTHOR. PUTRI.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MHS.
02 NAMA PIC A(9) VALUE 'PUTRI'.
SCREEN SECTION.
01 HAPUS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS.
DISPLAY 'NAMA ', NAMA.
STOP ' '.
SELESAI.
STOP RUN.
Output :
Tidak ada komentar:
Posting Komentar