Array Satu Dimensi Cobol

Array adalah Sekumpulan data yang berjenis sama (integer) atau homogen.

Bentuk Umum Array :

Array dalam cobol dapat dilakukan dengan perintah atau statement OCCURS pada bagian deklarasi datanya.

Contoh program array satu dimensi :

    IDENTIFICATION DIVISION.
    PROGRAM-ID. TABEL1.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    77 n PIC 99.
    01 TABEL-NILAI-SISWA.
        02 NILAI-SISWA PIC 999 OCCURS 10 TIMES.
    SCREEN SECTION.
    01 HAPUS-LAYAR.
        02 BLANK SCREEN.
    PROCEDURE DIVISION.
    PROGRAM UTAMA.
        PERFORM PEMASUKAN-NILAI-SISWA
        VARYING n FROM 1 BY 1 UNTIL n > 10.
        DISPLAY hapus-layar.
        PERFORM TAMPILAN-NILAI-SISWA
        VARYING n FROM 1 BY 1 UNTIL n > 10.
        STOP RUN.
    PEMASUKAN-NILAI-SISWA.
        DISPLAY ( , ) ‘MASUKAN NILAI SISWA : ‘.
        ACCEPT ( , ) NILAI-SISWA (n).
        DISPLAY SPACE.
    TAMPILAN-NILAI-SISWA.
        DISPLAY ( , ) ‘NILAI KE ‘, n , ‘ : ‘ NILAI-SISWA(n).
        DISPLAY SPACE.

Looping pada COBOL

Apa yang dimaksud Perulangan atau Looping pada COBOL ?

Perulangan/Looping adalah Beberapa instruksi diulang untuk suatu jumlah pengulangan yang tertentu. Jumlah pengulangan dapat diketahui sebelumnya atau ditentukan dalam perjalanan program.

Bentuk umum Looping pada COBOL :

GO TO Verb : GO TO . . . DEPENDING VERB, ALTER Verb, PERFORM Verb,  Exit Verb

             

Contoh program Looping pada COBOL :

IDENTIFICATION DIVISION.

PROGRAM-ID. LOOPING.

AUTHOR. DIMAS.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01  INPUT-AREA.

02 I PIC 9.

02 J PIC 9.

02 NILAI PIC 9.

SCREEN SECTION.

01 CLS.

02 BLANK SCREEN.

PROCEDURE DIVISION.

            MULAI.

                        DISPLAY (, ) “MASUKKAN ANGKA DIBAWAH 10 :”.

                        ACCEPT NILAI.

                        PERFORM CETAK

                        VARYING I FROM 1 BY 1 UNTIL I > NILAI.

                        AFTER J FROM 1 BY 1 UNTIL J > I.

            SELESAI.

                        STOP RUN.

            CETAK.

                        DISPLAY (, ) J “ “.

                        IF I = J DISPLAY SPACE.

Kondisi COBOL

Apa yang dimaksud statement kondisi pada cobol

Statement kondisi adalah statement yang digunakan untuk menyelesaikan permasalahan kondisi pada cobol yang sifatnya optional.

Bentuk umum kondisi pada COBOL

-         IF . . . = . . .

-         IF . . . >= . . .

-         IF . . .=< . . .

-         IF . . . NOT= . . .

IF disini digunakan untuk kondisi dan . . . adalah statementnya.

Contoh program Kondisi pada COBOL

          IDENTIFICATION DIVISION.

            PROGRAM-ID. LOGIN.

            AUTHOR. DIMAS.

            ENVIRONMENT DIVISION.

            DATA DIVISION.

            WORKING-STORAGE SECTION.

            01 MASUKKAN.

                        02 PASS PIC X(5).

            SCREEN SECTION.

            01 CLS.

                        02 BLANK SCREEN.

            PROCEDURE DIVISION.

            MULAI.

                        DISPLAY(, ) “MASUKKAN PASSWORD: “.

                        ACCEPT PASS.

                        IF PASS = 2KA31 DISPLAY “WELCOME”.

                        IF PASS NOT= 2KA31 DISPLAY “LOGIN FAILED”.

            SELESAI.

Input & Output COBOL

1. Perintah Input & Output Pada COBOL :

   1. DISPLAY

   2. ACCEPT

2. Perbedaan Picture Clause dan Picture Editing :

Picture clause

Picture clause digunakan untuk menerangkan masing-masing data-item yang digunakan, mengenai ukuran dari field dan memberikan informasi dari nilai data tersebut, juga mengatur bentuk data dimemori.
Macam-macam picture clause:
1. Picture karakter 9 : Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-nilai numerik saja. Ukuran panjang data-item ditentukan oleh banyaknya karakter 9 yang digunakan. Bersifat right justified.
2. Picture karakter V : Menunjukkan lengkap anggapan dari titik desimal. Anggapan disini maksudnya adalah titik desimal tersebut tidak ditulis di memori, sehingga tidak termasuk sebagai panjang field.
3. Picture karakter P : Digunakan dengan gabungan Picture karakter V, yang digunakan untuk menimbulkan angka 0.
4. Picture karakter S : Digunakan untuk menyimpan tanda dari nilai data, dan tidak dihitung sebagai panjang field.
5. Picture karakter A : Digunakan untuk menyimpan nilai data huruf(alphabetic).Bersifat left justified.
6. Picture karakter X : Digunakan untuk menyimpan nilai data alphanumerik, dapat berupa gabungan angka, huruf, ataupun karakter khusus.

Picture editing

Picture editing Berguna untuk perubahan bentuk data dari data yang telah tersimpan distorage (memori). Dengan adanya editing (perubahan), data yang dicetak pada output akan tampak lebih mudah dibaca, mudah dimengerti dan mempunyai susunan yang lebih baik dibandingkan dengan bentuk data asli yang tersimpan di storage.
Macam-macam picture editing :
1. Picture editing Z : digunakan untuk menggantika angka 0 diawal agar tidak tampak pada waktu pencetakan.

2. Picture editing $ : pada saat pencetakan karakter $ akan tampak pada ujung paling kiri.

3. Picture editing “.” : digunakan untuk menunjukkan letak posisi dari titik desimal pada pencetakan, hanya boleh dipergunaka 1 saja.

4. Picture editing “,” : digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1.

5. Picture editing “-“ : Jika data asli bernilai minus maka penggunaan tanda minus di awal atau diakhir akan menyebabkan tanda minus muncul pada saat pencetakan, sedangkan bila data positif akan digantikan dengan blank.

6. Picture editing “+” : jika tanda plus digunakan diawal atau diakhir data maka akan tampak pada pencetakan bila data bernilai positif, jika data negatif akan muncul tanda minus, jika tidak bertanda dianggap positif.

7. Picture editing B : digunakan untuk mengedit nilai data bukan numerik.Blank akan disisipkan pada posisi dinama karakter B ditempatkan.

8. Picture editing “*” : digunakan untuk menggantikan nilai nol pada nilai data disebelah kanan dengan tanda *.

9. Picture editing 0(nol) : digunakan untuk menyisipkan angka 0 pada posisi dimana karakter 0 ditempatkan.

10. Picture editing “/” : digunakan untuk menyisipkan karakter “/” diposisi dimana karakter tersebut ditempatkan.

11. Picture editing DB dan CR : Sering digunakan pada aplikasi akuntansi. Ditulis mulai ujung sebelah kanan dari picture, dan hasilnya hanya tampak pada hasil edit bila nilai datanya negatif.

3. Contoh Program Sederhana COBOL :

        identification division.

        program-id. asd.

        data division.

        working-storage section.

        01 nm pic a(40).

        screen section.

        01 hapus.

                02 blank screen.

        procedure division.

        mulai.

                display ( , ) 'Nama : '.

                accept nm.

                display ' '.

                display nm.

        selesai.

                stop run.