Cara MEMBUAT PROGRAM MENU PILIHAN COBOL

Langsung aja guys Nih copas kodingnya . .

ini adalah codding programnya :


IDENTIFICATION DIVISION. (8)
PROGRAM-ID. BIODATA. (8)
AUTHOR. MARIYANTO (8)
ENVIRONMENT DIVISION. (8)
CONFIGURATION SECTION. (8)
SOURCE-COMPUTER. TOSHIBA. (8)
OBJECT-COMPUTER. THOSHIBA. (8)
DATA DIVISION. (8)
WORKING-STORAGE SECTION. (8)
01 BIODATA. (8)
02 NAMAPASIEN PIC A(16). (12)
02 UMUR PIC 9(2). (12)
01 JAWAB PIC X VALUE SPACE. (8)
88 LAGI VALUE "Y", "y". (12)
88 TIDAK VALUE "T", "t". (12)
77 PIL PIC X. (8)
SCREEN SECTION. (8)
01 HAPUS-LAYAR. (8)
02 BLANK SCREEN. (12)
01 MENU. (8)
02 LINE 2 COLUMN 20 VALUE '>>>MENU<<<', FOREGROUND-COLOR 9. (12)
02 LINE 3 COLUMN 20 VALUE '[1]. MASUKKAN DATA', (12)
FOREGROUND-COLOR 9, BACKGROUND-COLOR 4, BLINK.
02 LINE 5 COLUMN 20 VALUE 'SILAKAN MASUKKAN PILIHAN ANDA'. (12)
02 COLUMN PLUS 2 PIC X TO PIL. (12)
01 INPUT-DATA. (8)
02 LINE 4 COLUMN 6 VALUE 'NAMA PASIEN : '. (12)
02 COLUMN PLUS 2 PIC A(16) TO NAMAPASIEN. (12)
02 LINE 5 COLUMN 6 VALUE 'UMUR : '. (12)
02 COLUMN PLUS 2 PIC 9(2) TO UMUR. (12)
PROCEDURE DIVISION. (8)
MULAI. (8)
DISPLAY HAPUS-LAYAR. (12)
DISPLAY MENU. (12)
ACCEPT MENU. (12)
SELEKSI. (8)
IF PIL=1 (12)
PERFORM HASIL (12)
PERFORM TANYA. (12)
IF PIL=2 (12)
PERFORM DATAKU (12)
ELSE GO TO
SELESAI. (12)
SELESAI. (8)
STOP RUN.
TANYA. (8)
DISPLAY SPACE. (12)
DISPLAY 'APAKAH ANDA INGIN MEMASUKKAN DATA BARU [Y/T] :'. (12)
ACCEPT JAWAB. (12)
IF LAGI GO TO HASIL. (12)
IF TIDAK GO TO MULAI (12)
ELSE GO TO (12)
SELESAI. (12)
HASIL. (8)
DISPLAY HAPUS-LAYAR. (12)
DISPLAY INPUT-DATA. (12)
ACCEPT INPUT-DATA. (12)
GO TO TANYA. (12)
DATAKU. (8)
DISPLAY HAPUS-LAYAR. (12)
DISPLAY (2, 12) 'DATA PASIEN YANG SUDAH ADA'. (12)
DISPLAY SPACE. (12)
DISPLAY (5, 12) 'NAMA PASIEN : ', NAMAPASIEN. (12)
DISPLAY SPACE. (12)
DISPLAY (6, 12) 'UMUR PASIEN : ', UMUR. (12)

ini adalah outputnya :