Pilihan Menu dalam COBOL

Disini saya akan membuat program menu pilihan menggunakan cobol. Saya hanya membuat 5 menu pilihan.

Berikut Listing kode yang saya buat :

IDENTIFICATION DIVISION.

PROGRAM-ID. GOTO1.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 JAWAB PIC X.

PROCEDURE DIVISION.

TANYAKAN.

DISPLAY ‘=====================’.

DISPLAY ‘1. MAKANAN PEMBUKA’.

DISPLAY ‘2. MAKANAN UTAMA’.

DISPLAY ‘3. MAKANAN PENUTUP’.

DISPLAY ‘4. MINUMAN’.

DISPLAY ‘5. EXIT’.

DISPLAY ‘=====================’.

DISPLAY ‘PILIH KATEGORI YANG KAMU INGINKAN ? ‘.

ACCEPT JAWAB.

SELEKSI.

IF JAWAB = ‘1’ GO TO MAKANP.

IF JAWAB = ‘2’ GO TO MAKANU.

IF JAWAB = ‘3’ GO TO MAKANPE.

IF JAWAB = ‘4’ GO TO MINUM.

IF JAWAB = ‘5’ GO TO SELESAI.

MAKANP.

DISPLAY ‘ ‘.

DISPLAY ‘-ROTI COKELAT’.

DISPLAY ‘-LEMPER’.

GO TO SELESAI.

MAKANU.

DISPLAY ‘ ‘.

DISPLAY ‘-NASI GORENG’.

DISPLAY ‘-AYAM BAKAR + NASI’.

DISPLAY ‘-SOTO AYAM + NASI’.

DISPLAY ‘-NASI PADANG’.

GO TO SELESAI.

MAKANPE.

DISPLAY ‘ ‘.

DISPLAY ‘-PUDING COKELAT’.

DISPLAY ‘-BUAH-BUAHAN’

GO TO SELESAI.

MINUM.

DISPLAY ‘ ‘.

DISPLAY ‘-AIR PUTIH’.

DISPLAY ‘-ES TEH MANIS’.

DISPLAY ‘-JUS’.

GO TO SELESAI.

SELESAI.

STOP RUN.

Outputt yang dihasilkan :