Memubuat Program menggunakan kondisi GO TO Menggunakan Cobol

Pertama kita buat program Biodata, buka cmd di start menu kemudian pada kotak isian search ketik cmd lalu ok maka akan muncul command promt seperti gambar dibawah :

Masuk ke program cobol dengan cara masuk ke folder cobol melalui command promt lalu bila sudah masuk ke folder cobol ketik edit coba2.cob untuk mencreate cobol coba2

Jika sudah muncul seperti kotak di atas maka ketikan kode program seperti di bawah ini, dengan menspasi 8 x terlebih dahulu

Keterangan :

IDENTIFICATION DIVISION. Berfungsi untuk memberikan informasi mengenai program yang dibuat.

PROGRAM-ID. INPUT. Berfungsi untuk memberi nama sebuah program yang akan dibuat.

AUTHOR. HANZ. Berfungsi untuk memberi nama pembuat program/programmer.

YANG WAJIB DI TULIS DI IDENTIFICATION DIVISION ADALAH  IDENTIFICATION DIVISION dan PROGRAM-ID.

ENVIRONMENT DIVISION. Berfungsi untuk memberikan informasi peralatan yang di gunakan dalam program.

DATA DIVISION. Berfungsi untuk memberikan penjelasan tentang input data dan output yang di pergunakan. Isi dari divisi ini adalah semua keterangan tentang file, record, nama-data, serta bentuk format yang akan digunakan di Procedure  Division.

WORKING – STORAGE SECTION. Berfungsi untuk  Sifatnya optional, ada bilamana diperlukan pemesanan tempat di internal memori yang diperlukan oleh pekerjaan proses program.

77 JABATAN PIC 9. Berfungsi untuk mengawali data item yg berdiri sendiri.

Keterangan :  9 Punya arti tipe data yang digunakan adalah data NUMERIK.

PROCEDURE DIVISION. Berfungsi untuk tempat menaruh instruksi-instruksi dimana dilakukan prosedur pekerjaan proses dari input data menjadi output data.

TANYA-JABATAN. Berfungsi untuk perintah memulai instruksi – instruksi oleh programmer.

DISPLAY “JABATAN ANDA [1,2 ATAU 3]?”. Berfungsi untuk menampilkan JABATAN ANDA [1,2 ATAU3]? Ke layar.

ACCEPT JABATAN. Berfungsi untuk memasukan data JABATAN ANDA [1,2 ATAU 3]? ke layar saat program di jalan kan,

DISPLAY SPACE. Berfungsi untuk menspasi kebawah setelha JABATAN ANDA [1,2 ATAU 3]? Muncul.

GO TO TUNJ1, TUNJ2, TUNJ3 DEPENDING ON JABATAN.  Berfungsi untuk membuat statement yang akan membawa proses program menuju ke suatu paragraf tertentu ( dengan   syarat tergantung dari data yang ditunjukkan dalam statemen DEPENDING ) dan data di sini adalah JABATAN.

DISPLAY “TIDAK ADA JABATAN TERSEBUT, ULANG!”. Berfungsi untuk menampilkan TIDAK ADA JABATAN TERSEBUT jika pada pilihan di atas di pilih selain 1,2 atau 3.

GO TO TANYA-JABATAN. Berfungsi untuk kembali ke statement TANYA-JABATAN.

TUNJ1. Berfungsi untuk tempat penyimpanan sementara sampai TUNJ1 di panggil

DISPLAY “TUNJANGAN ANDA SEBESAR RP. 100000”. Isian/inputan dari TUNJ1 bila TUNJ1 dipanggil maka akan muncul TUNJANGAN ANDA SEBESAR RP. 100000.

GO TO SELESAI. Untuk menuju ke statement SELESAI.

TUNJ2. Berfungsi untuk tempat penyimpanan sementara sampai TUNJ2 di panggil

DISPLAY “TUNJANGAN ANDA SEBESAR RP. 200000”. Isian/inputan dari TUNJ2 bila TUNJ2 dipanggil maka akan muncul TUNJANGAN ANDA SEBESAR RP. 200000.

GO TO SELESAI. Untuk menuju ke statement SELESAI.

TUNJ3. Berfungsi untuk tempat penyimpanan sementara sampai TUNJ3 di panggil

DISPLAY “TUNJANGAN ANDA SEBESAR RP. 300000”. Isian/inputan dari TUNJ3 bila TUNJ3 dipanggil maka akan muncul TUNJANGAN ANDA SEBESAR RP. 300000.

GO TO SELESAI. Untuk menuju ke statement SELESAI.

SELESAI. Statement untuk mengakhiri kondisi GO TO.

STOP RUN. Berfungsi untuk menghentikan program secara permanen.

Jika sudah mengetik kode program seperti diatas, jalankan kode program tersebut dengan langkah dibawah ini\

Save file terlebih dahulu dengan cara klik file lalu save jika sudah ikuti langkah berikutnya

Klik file lalu exit pada table diatas maka muncul tabell seperti dibawah :

Lalu kita compiler dahulu file yang tadi kita buat dengan cara ketik cobol coba2.cob dan tekan enter sebanyak 3x. seperti gambar di bawah :

Kemudian ketik runcobol coba2.cob untuk menjalankan program seperti gambar di bawah jika masih errors periksa kembali kode program yang di buat tadi dengan ccara edit coba2.cob kemudian Ketik kembali runcobol coba2.cob jika jalan akan muncul seperti table dibawah ini :