Tutorial IF dan GO TO Sederhana Pada Cobol

Assalamualaikum Wr. Wb.

Sekali lagi saya akan mendemokan instruksi-instruksi pada cobol. Kali ini postingan saya mengenai perintah atau instruksi IF. Dimana IF berdampingan dengan GO TO. Penggunaannya tidak begitu berbeda dengan progam lain, seperti pascal ataupun visual basic.

     Yang berbeda dengan pascal dalam penggunaan IF pada cobol yaitu, dalam cobol tidak menggunakan ELSE. Dalam cobol bisa menggunakan ELSE atau tanpa menggunakan ELSE

Bentuk umun IF pada PASCAL

IF THEN ELSE

Contoh :  IF a = ”3” print ya;

          Else print tidak;

Bentuk umum IF pada Cobol

IF

Contoh :   IF a = “3” display ya.

IF a = “4” display tidak.

       IDENTIFICATION DIVISION.

       PROGRAM-ID. IF.

       AUTHOR. PLAYING FOOTBALL.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 MASUKAN.

           02 A PIC 9.

       SCREEN SECTION.

       01 HAPUS-LAYAR.

           02 BLANK SCREEN.

       PROCEDURE DIVISION.

       MULAI.

           DISPLAY HAPUS-LAYAR.

           DISPLAY " ".

           DISPLAY "UNIVERSITAS GUNADARMA".

           DISPLAY " ".

           DISPLAY " ".

           DISPLAY "PILIH FAKULTAS YANG ANDA SENANGI"

           DISPLAY " ".

           DISPLAY "1. FAKULTAS ILMU KOMPUTER".

           DISPLAY "2. FAKULTAS EKONOMI".

           DISPLAY " ".

           DISPLAY "MASUKAN NOMOR :".

           ACCEPT A.

           IF A = "1" GO TO SATU.

           IF A = "2" GO TO DUA.

           DISPLAY "ANDA SALAH MEMILIH, TEKAN ENTER".

           GO TO MULAI.

       SATU.

           DISPLAY HAPUS-LAYAR.

           DISPLAY " ".

           DISPLAY "FAKULTAS ILMU KOMPUTER".

           DISPLAY " ".

           DISPLAY "PROGRAM S1 : SISTEM KOMPUTER".

           DISPLAY "             SISTEM INFORMASI".

           DISPLAY " ".

           DISPLAY "PROGRAM D3 : TEHNIK KOMUTER".

           DISPLAY "             MANAGEMENT INFORMATIKA".

           GO TO SELESAI.

       DUA.

           DISPLAY HAPUS-LAYAR.

           DISPLAY " ".

           DISPLAY "FAKULTAS EKONOMI".

           DISPLAY " ".

           DISPLAY "PROGRAM S1  : AKUNTANSI".

           DISPLAY "              MANAGEMENT".

           DISPLAY " ".

           DISPLAY "PROGRAM D3  : AKUNTANSI KEUANGAN".

           DISPLAY "              AKUNTANSI PERBANKAN".

           DISPLAY "              MANAGEMENT KEUANGAN".

           DISPLAY "              MANAGEMENT PEMASARAN".

           GO TO SELESAI.

       SELESAI.

           STOP RUN.

Itulah program cobol menggunakan IF. Gimana mudah bukan… apa lagi bahasanya hampir sama dengan pascal..

Selamat mencoba yah… tentunya dengan logika-logika yang lebih ok lagi… karena itu hanya sebagian kecil dari IF. Kita dapat menambahkan lagi IF di di dalam IF…

Semoga share saya kali ini bermanfaat…

Wassalamualaikum Wr.Wb.

Please Wait....We Want Moving You Redirect in

OR

click this if nothing happened

Tutorial Procedure Sederhana pada Cobol

Assalamualaikum Wr. Wb.

Hai.. ketemu lagi dengan saya di playing football blog... Saya akan mendemokan lagi ni tentang tutorial cobol mengenai procedure.. Sudah tahu belum mengenai procedure dalam cobol.. ayo kalo belum tahu baca postingan kali ini, dijamin bakal ngerti sengerti ngertinya deh…

     Sebelumnya jika anda belum tahu tentang cara penempatan statement atau instruksi pada cobol, anda dapat mampir ke posting saya yang pertama mengenai penempatan instruksi pada cobol. Jika anda sudah mengerti anda dapat melanjutkan ke tahap ini.

     Procedure dalam cobol adalah,instruksi yang dapat dipanggil berulang kali, di mana ketika program mengeksekusi, program tersebut akan kembali lagi setelah perintah procedure tersebut.

Bentuk umunnya seperti ini :

Procedure nama_paragraf

Dan untuk memanggilnya :

perform nama_paragraf

Untuk lebih memahami...berikut listing programnya....

      

       IDENTIFICATION DIVISION.

       PROGRAM-ID. PROCEDURE.

       AUTHOR. PLAYING FOOTBALL.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       SCREEN SECTION.

       01 HAPUS-LAYAR.

           02 BLANK SCREEN.

       PROCEDURE DIVISION.

       MULAI.

           PERFORM PROCEDURE-E.

           PERFORM PROCEDURE-A.

           PERFORM PROCEDURE-C.

           PERFORM PROCEDURE-B.

           PERFORM PROCEDURE-D.

           PERFORM PROCEDURE-A.

           PERFORM PROCEDURE-E.

       SELESAI.

           STOP RUN.

       PROCEDURE-A.

           DISPLAY "* * * * * * * * * * * * * *".

       PROCEDURE-B.

           DISPLAY "  MARI BELAJAR PROCEDURE ".

       PROCEDURE-C.

           DISPLAY "HALO SAYA PLAYING FOOTBALL".

       PROCEDURE-D.

           DISPLAY "        PADA COBOL".

       PROCEDURE-E.

           DISPLAY "---------------------------".

Ini adalah program sederhana untuk procedure.

Logika program.

DATA DIVISION.

     Merupakan dimana tempat untuk mendeklarasikan variable dan string

SCREEN SECTION.

          Merupakan tempat untuk mengubah tampilan layer(mengatur format).

MULAI.

     Nama paragraph untuk procedure division.

PROCEDURE-A.

     Nama procedure yang akan dipanggil.

PERFORM PROCEDURE-A.

     Statement untuk memanggil procedure A.

STOP RUN.

     Merupakan statement untuk menghentikan eksekusi.

Sekali lagi saya ingatkan, ini hanyalah bentuk sederhananya, andalah yang harus mengembangkannya sendiri.

Sekian dari saya semoga bermanfaat.

Wassalamualaikum Wr.Wb.

Tutorial GO TO Sederhana Pada Cobol

Assalamualaikum Wr. Wb

Hai kawan… saya akan sharenih tentang koding atau listing pada program cobol. Pengalaman ini saya dapatkan ketika saya mengikuti ujian praktikum ILAB. Nah dari situ saya akan membagikan ilmu saya kepada anda-anda sekalian Saya akan mendemokan dalam penggunaan go to. Sebelumnya dalam penggunaah statement ini harus mengetahui syaratnya. Di mana syaratnya atau bentuk umumnya adalah :

GO TO nama_paragraf.

Dimana nama paragraflah yang akan menjadi loncatan untuk pemberhentian GO TO. GO TO sendiri merupakan loncatan tanpa syarat.

Agar lebih pahamnya lagi langsung aja deh keprogramnya..hihihi….

       IDENTIFICATION DIVISION.

       PROGRAM-ID. PLAY-FOOTBALL.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       SCREEN SECTION.

       01 HAPUS-LAYAR.

           02 BLANK-SCREEN.

       PROCEDURE DIVISION.

       MULAI.

           GO TO BERSIH.       

       AWAL.

           DISPLAY "UNIVERSITAS GUNADARMA".

           DISPLAY "SISTEM INFORMASI".

           DISPLAY " ".

           GO TO SATU.

       SATU.

           DISPLAY "SAYA TINGGAL DI JAKARTA".

           DISPLAY "KELURAHAN KERAMAT JATI".

           DISPLAY " ".

           GO TO DUA.

       DUA.

           DISPLAY "NAMA SAYA PLAYING FOOTBALL"

           DISPLAY "SAYA SUKA BERMAIN SEPAK BOLA".

           DISPLAY " ".

           GO TO EMPAT.

       TIGA.

           DISPLAY "MARI BELAJAR COBOL".

           DISPLAY "DENGAN STATEMENT GO TO".

           DISPLAY " ".

           GO TO SELESAI.

       EMPAT.

           DISPLAY "SAYA KULIAH DI UNIVERSITAS GUNADARMA".

           DISPLAY "JURUSAN SAYA SISTEM INFORMASI".

           DISPLAY " ".

           GO TO TIGA.

       BERSIH.  

           DISPLAY HAPUS-LAYAR.

           GO TO AWAL.

       SELESAI.

           STOP RUN.

 

    Ya, itulah program untuk statement go to. Itu hanya bentuk sederhananya dari go to. Dan tentu saja nada sendiri yang harus mengembangkannya. 

     Tentunya anda harus tahu aturan penulisan dalam cobol. Jika anda belummengetahuinya anda dapat mengklik ini.

Sekian dari saya semoga bermanfaat.

                                                  Wasalamualaikum Wr.wb