Contoh Program Perform Pernyataan Go To pada Cobol

Pernyataan GO TO
Bentuk 1 :

GO TO nama-paragraph.

Contoh Programnya :

IDENTIFICATION DIVISION.
PROGRAM-ID. go-to2.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 Jawab PIC A.
PROCEDURE DIVISION.
Tanya.
DISPLAY ‘ Masukkan Jawab berupa huruf ( D/E/F/G ) ? ‘
ACCEPT Jawab.
Seleksi-Jawab.
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.
Kode-D.
DISPLAY ‘ Kampus Depok ‘
GO TO Selesai.
Kode-E.
DISPLAY ‘ Kampus Kelapa Dua ‘
GO TO Selesai.
Kode-F.
DISPLAY ‘ Kampus Cikini ‘
GO TO Selesai.
Kode-G.
DISPLAY ‘ Kampus Kelapa Dua Perempatan ‘
GO TO Selesai.
Selesai.
STOP RUN.

Tampilan outputnya dari Program diatas :

Masukkan Jawab berupa huruf ( D/E/F/G ) ?
E
Kampus Kelapa Dua

Masukkan Jawab berupa huruf ( D/E/F/G ) ?
D
Kampus Depok

Bentuk 2 :

GO TO nama-paragraph-1 [ , nama-paragraph-2 , .... ] DEPENDING ON variable

ContohProgramnya :

IDENTIFICATION DIVISION.
PROGRAM-ID. hari.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 pilihan PIC 9.
PROCEDURE DIVISION.
pilih-hari.
DISPLAY ( , ) ‘ Pilih salah satu kode daerah waktu di Indonesia ( 1 .. 3 ) = ‘
ACCEPT ( , ) pilihan WITH AUTO SKIP.
DISPLAY SPACES.
GO TO waktu-1, waktu-2, waktu-3 DEPENDING ON pilihan.
GO TO pesan-salah.
waktu-1.
DISPLAY ‘ Waktu Indonesia Bagian Barat ‘.
GO TO akhir-program.
waktu-2.
DISPLAY ‘ Waktu Indonesia Bagian Tengah ‘.
GO TO akhir-program.
waktu-3.
DISPLAY ‘ Waktu Indonesia Bagian Timur ‘.
GO TO akhir-program.
pesan-salah.
DISPLAY ‘ Kode yang dimasukkan salah !!! ‘.
akhir-program.
STOP RUN.

Hasil eksekusi :

Pilih salah satu kode daerah waktu di Indonesia ( 1 .. 3 ) = 1
Waktu Indonesia Bagian Barat
Pilih salah satu kode daerah waktu di Indonesia ( 1 .. 3 ) = 5