contoh program cobol : Looping dan substring (REVISI)

ALGORITMA:

01.   Mendefinisikan variable variable yang di butuhkan.

02.   Memberikan nilai awal pada variable R yaitu 0.

03.   Menginput variable KATAF .

04.   Menghapus layar.

05.   Memindahkan isi dari variable KATAF kedalam  variable array 01 KAMPRET sehigga di peroleh substringnya, Gambaranya sebagai berikut :

KATA(1)=S

KATA(2)=A

KATA(3)=L

KATA(4)=A

KATA(5)=M

Jika isi dari variable KATAF adalah SALAM.

06.   Menggunakan double looping Untuk Menyusun Huruf dan katanya misal :

Looping-1 dari 1 sampai  5 Untuk menyusun kata.

Looping-2 dari variable looping-1 sampai 5 untuk menyusun huruf.

Looping-1 bernilai 1                    - S

Looping-2 bernilai 1 Karena kita ingin menampilkan KATA(1) untuk perulangan pertama ini maka kita harus menjdikan variable Looping-2 sebagai index . Maka perulangan pertama ini menghasilkan KATA(1)=S                               -SA

Looping-1 bernilai 1                   

Looping-2 bernilai 2

KATA(2)= A

Dst.

Setelah Seluruh pengulangan selesai maka dapat di lihat gambaran hasilnya sebagai berikut :

Perulangan pertama         :              Looping-1 “SALAM”

Perulangan kedua            :              Looping-1 “ ALAM”

Perulangan ketiga            :              Looping-1 “ LAM”

Perulangan keempat        :              Looping-1 “ AM”

Perulangan kelima           :             Looping-1 “M”

       IDENTIFICATION DIVISION.

       PROGRAM-ID. SALAM.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 P PIC 9.

       77 Q PIC 9.

       01 KUCING.

          02 KATAF PIC X(05).

       01 KAMPRET.

          02 KATA OCCURS 5 TIMES PIC X(01).

       SCREEN SECTION.

       01 HAPUS.

          02 BLANK SCREEN.

       PROCEDURE DIVISION.

       UTAMA.

           PERFORM MASUK.

           DISPLAY HAPUS.

           PERFORM KELUAR VARYING P

           FROM 1 BY 1 UNTIL P > 5.

           ACCEPT P.

           STOP RUN.

       MASUK.

           DISPLAY(, ) 'MASUKKAN KATA YANG INGIN DI BENTUK : '.

           ACCEPT KATAF.

           MOVE KATAF TO KAMPRET.

       KELUAR.

           PERFORM TAMPI VARYING Q

           FROM P BY 1 UNTIL Q > 5 .

           DISPLAY SPACE.

       TAMPI.

           DISPLAY(, ) KATA(Q) .

OUTPUT 1 :

                OUTPUT 2 :