Beberapa contoh program kondisi

Kondisi 1.

IDENTIFICATION DIVISION.

PROGRAM-ID. HARI.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 PILIHAN PIC X(2).

PROCEDURE DIVISION.

PILIHAN-HARI.

    DISPLAY (2, 2 “PILIHAN KAMPUS [J1/J2/J3/K] ?”.

    ACCEPT ( , ) PILIHAN.

SELEKSI.

     IF PILIHAN = “J1” OR PILIHAN = “j1” GO TO KAMPUS-J1.

     IF PILIHAN = “J1” OR PILIHAN = “j2” GO TO KAMPUS-J2.

     IF PILIHAN = “J1” OR PILIHAN = “j3” GO TO KAMPUS-J3.

     IF PILIHAN = “J1” OR PILIHAN = “k” GO TO KAMPUS-K.

     GO TO PILIHAN-SALAH.

KAMPUS-J1.

     DISPLAY (4, 2) “EX DUTA PLAZA”.

     GO TO AKHIR.

KAMPUS-J2.

     DISPLAY (4, 2) “RUMAH ANTU JAKA PERMAI”.

     GO TO AKHIR.

KAMPUS-J3.

     DISPLAY (4, 2) “EX PLAZA NIAGA KALIMAS”.

     GO TO AKHIR.

KAMPUS-K.

     DISPLAY (4, 2) “RUKO JAM GADANG”.

     GO TO AKHIR.

PILIHAN-SALAH.

     DISPLAY (4, 2) “SALAH INPUT”.

     GO TO AKHIR.

AKHIR.

     STOP RUN.

Kondisi 2.

IDENTIFICATION DIVISION.

PROGRAM-ID. HARI.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77 PILIHAN PIC 9.

PROCEDURE DIVIION.

PILIH-HARI.

    DISPLAY (2, 2) “PILIH SALAH SATU WAKTU INDONESIA (1..3) ?”.

    ACCEPT ( , ) PILIHAN.

    IF PILIHAN = 1 GO TO WAKTU-1.

    IF PILIHAN = 2 GO TO WAKTU-2.

    IF PILIHAN = 3 GO TO WAKTU-3.

    GO TO LAINNYA.

WAKTU-1.

    DISPLAY (4, 2 ) “’WIB (WAKTU INDONESIA BARAT)”.

    GO TO AKHIR.

WAKTU-2.

    DISPLAY (4, 2 ) “WITA (WAKTU INDONESIA TENGAH)”.

    GO TO AKHIR.

WAKTU-3.

    DISPLAY (4, 2 ) “WIT (WAKTU INDONESIA TIMUR)”.

    GO TO AKHIR.

LAINNYA.

     DISPLAY (4, 2) “ANDA SALAH PILIH”.

AKHIR.
      STOP RUN.