Statment Kondisi COBOL

CONDITIONAL STATEMENT
Perintah kondisi dipergunakan untuk menyeleksi suatu kondisi. Perbedaan conditional statement dengan imperative statement yang sering dijumpai adalah :

• Conditional statement adalah suatu statement yang dipergunakan untuk menyeleksi suatu kondisi/syarat dan akan mengerjakan suatu operasi tergantung dari nilai kondisinya

• Imperative statement adalah statement yang langsung mengerjakan operasi tanpa ada penyeleksian suatu kondisi.

Seluruh perintah kondisi dalam COBOL diawali dengan IF Verb. Ada beberapa jenis perintah

• kondisi dalam COBOL.
• Kondisi sederhana (Simple condition)
• Kondisi tanda (Sign condition)
• Kondisi kelas (class condition)
• Kondisi bersarang (Nested condition)
• Kondisi kompleks/jamak (Complex condition/Compound condition)

Dan bla bla bla.....
bisa download modul na lengkap disini huehehe (^.^)

Contoh program Statment Kondisi pada COBOL :

Cotoh 1 :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST.
       AUTHOR. SHIRO.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 DATA-INPUT.
           02 NAMA PIC X(20).
           02 NILAI PIC 99.
           02 HASIL PIC X(20).
       SCREEN SECTION.
       01 CLS.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY CLS.
           DISPLAY (9, 9) 'NAMA : '.
           ACCEPT NAMA.
           DISPLAY (10, 9) 'NILAI : '.
           ACCEPT NILAI.
           IF NILAI < 70
             MOVE 'TIDAK LULUS' TO HASIL
             ELSE
             MOVE 'LULUS' TO HASIL.
           DISPLAY (13, 9) NAMA.
           DISPLAY (14, 9) "ANDA " HASIL.
       SELESAI.
           STOP RUN.
Output :

Contoh 2 :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST.
       AUTHOR. SHIRO.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 JAWAB PIC A.
       SCREEN SECTION.
       01 CLS.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY 'Masukan jawaban berupa huruf (D/E/F/G) ?'.
           ACCEPT JAWAB.
       SELEKSI.
           IF JAWAB = 'D' GO TO KODE-D.
           IF JAWAB = 'E' GO TO KODE-E.
           IF JAWAB = 'F' GO TO KODE-F.
           IF JAWAB = 'G' GO TO KODE-G.
       SELESAI.
           STOP RUN.
       KODE-D.
           DISPLAY (4, 3) 'KAMPUS D'.
           GO TO SELESAI.
       KODE-E.
           DISPLAY (4, 3) 'KAMPUS KELAPA 2'.
           GO TO SELESAI.
       KODE-F.
           DISPLAY (4, 3) 'KAMPUS CIKINI'.
           GO TO SELESAI.
       KODE-G.
           DISPLAY (4, 3) 'KAMPUS KELAPA DUA PEREMPATAN'.
           GO TO SELESAI.
Output :

Contoh 3 :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. TEST.
       AUTHOR. SHIRO.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 pilihan PIC 9.
       SCREEN SECTION.
       01 CLS.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       mulai.
           DISPLAY CLS.
           DISPLAY 'Pilih satu kode daerah waktu di indonesia (1..3) = '
           ACCEPT pilihan.
           DISPLAY ' '.
             GO TO waktu-1, waktu-2, waktu-3 DEPENDING ON pilihan.
             GO TO pesan-salah.
       waktu-1.
           DISPLAY 'Waktu indonesia bagian barat'.
           GO TO selesai.
       waktu-2.
           DISPLAY 'Waktu indonesia bagian tengah'.
           GO TO selesai.
       waktu-3.
           DISPLAY 'Waktu indonesia bagian timur'.
           GO TO selesai.
       pesan-salah.
           DISPLAY 'Kode yang dimasukan salah !!!!'.
           GO TO selesai.
       selesai.
           STOP RUN.
Output :