Program cobol berdimensi 1

 artikel kali ini saya akan membahas tentang sebuat program cobol berdimensi 1,

 seperti ini lah contoh program dan outputnya..

A.   Tabel 1 Dimensi

1.      Listing Program

Untuk membuat program tabel 1 dimensi, yang pertama kali harus dilakukan adalah membuka program IDECobol pada windows 7 32-bit atau windows 8 64-bit yang sudah di install, kemudian ketikkan source code-nya seperti dibawah ini :

  

    IDENTIFICATION DIVISION.

    PROGRAM-ID. TABEL1.

   AUTHOR. GILANG.

    ENVIRONMENT DIVISION.

    DATA DIVISION.

    WORKING-STORAGE SECTION.

    77 n PIC 99.

    01 tabel-nilai-siswa.

        02 nilai-siswa PIC 99 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 (  ,  ) "Nilai :".

        ACCEPT (  ,  ) nilai-siswa (n).

        DISPLAY SPACE.       TAMPILAN-NILAI-SISWA.

        DISPLAY (  ,  ) "Nilai ke",  n  ,  " : "  nilai-siswa (n).

        DISPLAY SPACE.

Setelah source code selesai ditulis/diketik kemudian file di save.

 2.      Output

Untuk meng-compile dan melihat output program yang pertama dilakukan adalah mengistal aplikasi dosboox menjalankan program DOSBOX seperti pada gambar dibawah ini :

 

1.1  Compile Program

 

1.2 Output (Hasil Eksekusi)