COBOL : IF DAN COMPUTE

         IDENTIFICATION DIVISION.

       PROGRAM-ID. TUGAS.

       AUTHOR. COWO.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 MASUKAN.

           02 NILAI1 PIC 99.

           02 NILAI2 PIC 99.

           02 HASIL PIC 99.

       SCREEN SECTION.

       01 HAPUS-LAYAR.

           02 BLANK SCREEN.

       01 INPUT-DATA.

           02 LINE 4 COLUMN 28 VALUE '>>MASUKAN NILAI<<'.

           02 LINE 5 COLUMN 26 VALUE '====================='.

           02 LINE 6 COLUMN 30 VALUE 'NILAI A ='.

           02 COLUMN PLUS 2 PIC 99 TO NILAI1.

           02 LINE 7 COLUMN 30 VALUE 'NILAI B ='.

           02 COLUMN PLUS 2 PIC 99 TO NILAI2.

           02 LINE 8 COLUMN 26 VALUE '====================='.

       01 LAYAR-TAMPIL.

           02 LINE 9 COLUMN 30 VALUE 'HASIL   ='.

           02 COLUMN PLUS 2 PIC 99 FROM HASIL.

       01 LULUS.

           02 LINE 13 COLUMN 32 VALUE 'ANDA LULUS'.

       01 TIDAK-LULUS.

           02 LINE 13 COLUMN 29 VALUE 'ANDA TIDAK LULUS'.

       PROCEDURE DIVISION.

       MULAI.

           DISPLAY HAPUS-LAYAR.

           DISPLAY INPUT-DATA.

           ACCEPT INPUT-DATA.

           COMPUTE HASIL=(NILAI1 + NILAI2)/2.

           DISPLAY LAYAR-TAMPIL.

       SELEKSI.

           IF HASIL =60

           DISPLAY LULUS.

           ACCEPT LULUS.

           IF HASIL >60

           DISPLAY LULUS.

           ACCEPT LULUS.

           IF HASIL <59

           DISPLAY TIDAK-LULUS.

           ACCEPT TIDAK-LULUS.

       SELESAI.

           STOP RUN.     

Keteranagan:

SYARAT PROGRAM COBOL ADA 4 DIVISI.

1.       IDENTIFICATION DIVISION.

DISINI BERISI TENTANG JUDUL PROGRAM  YAITU PROGRAM –ID DAN PEMBUAT PROGRAM YAITU AUTHOR.

2.         ENVIRONMENT DIVISION.

PADA PROGRAM DI ATAS ENVIRONMENT DIVISION TERDAPAT 1 SECTION YANG BERISI TENTANG KOMPONEN-KOMPONEN YANG DI PAKAI.

3.    DATA DIVISION.
       ADA DUA SECTION DI DALAMNYA CODINGAN DI ATAS,YAITU:

+ WORKING-STORAGE SECTION.

           UNTUK MENDEKLARASIKAN VARIABLE DAN TIPE DATA YANG DI GUNAKAN.

CONTOH:

01 MASUKAN.                  : ADALAH RECORD.

02 NILAI1 PIC 9.               : ADALAH KET. DARI RECORD YANG BERTIPE NUMERIC.

+ SCREEN SECTION.

              ADALAH PROSES UNTUK FORMAT TAMPILAN PADA PROGRAM INI BAIK INPUT MAUPUN   OUTPUT.

CONTOH  : 
01 HAPUS-LAYAR.            :ADALAH  LEVEL NUMBER NAMA LAYAR.

02 BLANK SCREEN.           : PERINTAH UNTUK MENGHAPUS LAYAR.

4.   PROCEDURE DIVISION.

BERISI TENTANG SEMUA STATEMENT INTRUKSI DI BUAT.

CONTOH :

MULAI.                                     : ADALAH NAMA INTRUKSI.

DISPLAY HAPUS-LAYAR      : UNTUK SCREEN ATAU MEMBERSIHKAN LAYAR.

DISPLAY INPUT-DATA.         :UNTUK MENJALANKAN RECORD INPUT-DATA.

ACCEPT INPUT-DATA.           :UNTUK MENERIMA INPUTAN KETERANGAN RECORD 
                                                     TERSEBUT

COMPUTE HASIL=(NILAI1 +NILAI2)/2.

COMPUTE ADALAH STATEMEN UNTUK PENGHITUNGAN.

KETERANGAN RECORD HASIL = (KET.REC. NILA1 + KET.REC. NILA2)/2.

DISPLAY LAYAR-TAMPIL      :MENCETAK NAMA-LAYAR TERSEBUT.

SELEKSI.                                    :NAMA INTRUKSI.

IF HASIL =60

DISPLAY LULUS.

ACCEPT LULUS.

IF HASIL >60

DISPLAY LULUS

ACCEPT ULUS.

IF HASIL <59

DISPLAY TIDAK-LULUS.

ACCEPT TIDAK-LULUS.

JIKA HASIL  SAMA DENGAN 60 CETAK  RECORD LULUS

JIKA HASIL   LEBIH DARI 60 CETAK RECORD LULUS.

JIKA HASIL KURANG DARI 59 CETAK RECORD TIDAK-LULUS.

SELESAI.                : NAMA INTRUKSI.

STOP RUN.            : MENGAKHIRI PROGRAM.

Keluarga di Luar keluarga

               Maksut dari kata keluarga di luar keluarga adalah sahabat atau teman. Sahabat atau teman menurut saya adalah keluarga di luar keluarga. Kenapa saya berkata demikian??..  .Menurut saya sebagian remaja jika terkena masalah pasti akan cerita kepada sahabat atau teman-temannya terlebih dahulu. Apa lagi masalah negatif yang biasanya orang tua akan marah, contoh kasus-kasus di sekolah ,nilai jelek,bertengkar dengan anak yang lain,merokok,bolos ketahuan guru,itu adalah contoh masalah negatif,dan sahabat atau teman lah yang kita ceritakan terlebih dulu. Tanpa keluarga di luar keluarga seseorang akan ansos,karena tidak bisa membaur dengan yang lain.

                Keluarga di luar keluarga sangat penting,karena jika terkena masalah kehadiran sabahat atau teman menjadi peran penting dan bisa meminta bantuan. Banyak sekali keluarga sendiri tidak tahu apa yang si anak rasakan,masalah keluarga,masalah sekolah,masalah pribadi semua bercampur,dan kebanyakan keluarga tidak tahu menau apa yang di rasakan anak. Dari sini lah kita mencari keluarga di luar keluarga. Sangat bagus jika mendapat teman-teman dan sahabat yang baik dan tidak menjerumuskan.

                Saya sangat merasakan mempunyai kawan-kawan yang solid,selalu ada jika saya kesusahan. Mereka semua anak nakal,brandal,masa bodoan. Tetapi tidak satupun yang menjerumuskan,semua solid jika salah satu ada yang terkena masalah,solidaritaslah yang bisa membangun pertemanan yang kokoh,yang bisa menjadi keluarga di luar keluarga. Pentingnya solidaritas terhadap pertemanan sangat mempunyai peran,karena dari situ kita dapat tau arti dari sebuah pertemanan dan persahabatan.

IBUKOTA DENGAN ANAK JALANANNYA

DKI Jakarta adalah Ibukota Indonesia,dan sangat identik dengan kemacetannya. Cermin dari kata Ibukota pun hilang melihat sebagian warganya hidup di bawah garis kemiskinan. Banyak sekali anggota keluarga di DKI jakarta,dan banyak juga yang terlantar,dan anak – anak mereka pun banyak yang putus sekolah karena tidak mampu mendapatkan biaya,sementara untuk sekolah dana menimba ilmu biaya sangat lah di perlukan dan putus sekolah karena faktor diri sendiri yang malas.

            Hidup di jalanan adalah jalan mereka untuk mencari sesuap makanan,dan karena tak ada perhatian dari orang tua juga faktor mereka hidup di jalan.  Hampir di sebagiandan pelosok sang Ibukota banyak sekali anak jalanan. Hidup mereka pun sangat tidak mudah dengan apa yang saya rasakan. Demi memenuhi keinginan makan dan lain – lain mereka harus mengemis dan mengamen dr tempat ke tempat dari bus ke bus. Di samping itu pun para petugas mengejar – ngejar mereka,sampai mereka lari kesana kemari dan membela diri sekuat tenaga.

Banyak anak jalanan yang mengamen dan minta –minta bukan karena keinginan diri sendiri. Ada orang yag memaksa mereka untuk melakukan hal tersebut dan menargetkan berapa banya mata uang yang terkumpul dan di dapat untuk kepentingan pribadi dan sangat menekankan agar target tercapai. Jika tidak banyak yang di siksa,di caci maki,dan di lakukan bukan seperti manusia. Dengan enak memakan hasil keringat dan jeripayah para anak jalanan.

Hari demi hari mereka melewati profesi ini dengan raut wajah yang harusnya di jaman ini tak ada. Yang berwenang dan para petinggi negaraa mesti sadar mereka butuh perhatian,jangan setelah di atas lupa dengan yang bawah,jika tak ada bawah atas tak akan jadi. Jalankan visi dan misi yaang di janjikan,harus terbukti. Mereka di pilih bukan karena sesuatu,akan tetapi untuk menangani masalah – maslah di negara ini,dan salah satunya kasus ini. Karena nasib mereka harus di pedulikan. 

Bahasa Pemrograman COBOL

COBOL adalah bahasa pemrograman komputer,di rancang dan digunakan oleh orang yang akan memberikan intruksi untuk persoalan bisnis. COBOL merupakan HIGH LEVEL LANGUAGE (Bahasa Tingkat Tinggi) yang di gunakan intruksi dalam bahasa inggris.

Di ciptakan pada tahun 1959,dan di kembangkan oleh suatu group yang di sebut CODASYL (Conference on Data System Language). Pada tahun 1960 bahasa pemrograman COBOL di perkenalkan yaitu versi COBOL-60 (versi pertama). Di perbaharui pada tahun 1965, pada tahun 1968 COBOL di kembangkan dan di sempurnakan dengan nama ANSI (American National Standart Institute), sampai 1974 dan sampai 1985 terus berkembang.

Contoh :

·         MS. COBOL versi 2.2 à ANSI COBOL 1974

·         MS. COBOL versi 3.0 à ANSI COBOL 1985 yang di luncurkan tahun 1988.

Ada 4 struktur utama pada program COBOL yaitu :

-      IDENTIFICATION DIVISION.

Informasi tentang identitas program .

-      ENVIRONMENT DIVISION.

Informasi tentang keadaan komputer dan alat – alat yang di gunakan.

-      DATA DIVISION.

Informasi tentang bentuk,jenis dari data yang di gunakan.

-      PROCEDURE DIVISION.

Informasi yang memuat prosedur pemrosesan dari DATA DIVISION untuk menghasilkan OUTPUT.

Contoh program sederhana COBOL :

       IDENTIFICATION DIVISION.

       PROGRAM-ID. MAULANA.

       AUTHOR. MOL.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       PROCEDURE DIVISION.

       MULAI.

           DISPLAY '>>>>SAYA COBOL<<<<'.

           STOP RUN.

pada awal pembuatan preogram di atas di awali di colomn 08

dan pada statement display di awali di colomn 012.

Mudah – mudahan berguna untuk di pelajari.

By: Maulana Syarif Hidayatulloh.