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.