PROGRAM COBOL PASSWORD

Saya disini akan mencoba membuat program sederhana menggunakan program cobol , yang didalamnya kita bisa menggunakan pasword sehingga data yang kita punya bisa lebih aman..
 Ini dia programnya :
        IDENTIFICATION DIVISION.
        PROGRAM-ID. DEDEYUSUF.
        ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
            SELECT BIODATAPEGAWAI ASSIGN TO DISK
            ORGANIZATION IS SEQUENTIAL
            ACCESS MODE IS SEQUENTIAL
            FILE STATUS IS HASIL-SAVE.
        DATA DIVISION.
        FILE SECTION.
        FD BIODATAPEGAWAI
           LABEL RECORD IS STANDARD
           VALUE OF FILE-ID IS 'BIODATA.DATA'
           DATA RECORD IS RECORDBIODATA.

        01 RECORDBIODATA.
            02 NOPEG PIC X(6).
            02 NAMA PIC A(25).
            02 TGLAHIR.
                03 TG PIC XX.
                03 BL PIC XX.
                03 TH PIC XXXX.
            02 ALAMAT PIC X(20).
            02 KOTA PIC A(15).
            02 TELP PIC X(13).
            02 JK PIC X.
            02 PENGHASILAN PIC 9(12).

        WORKING-STORAGE SECTION.
        01 ID-LOGIN.
            02 USERNAME PIC X(15).
            02 PASSWORD PIC X(6).
            02 ANYKEY PIC X.

        01 APASUDAHBENAR PIC X.
            88 YA VALUE 'y', 'Y'.
            88 TIDAK vALUE 't', 'T'.

        77 HASIL-SAVE PIC XX.

        SCREEN SECTION.

        01 MASUKAN.
            02 LINE 3 COLUMN 10 VALUE 'NO.PEG         :'.
            02 COLUMN PLUS 1 PIC X(6) TO NOPEG, REQUIRED, FULL, AUTO.
           
            02 LINE 4 COLUMN 10 VALUE 'NAMA           :'.
            02 COLUMN PLUS 1 PIC A(25) TO NAMA, REQUIRED.

            02 LINE 5 COLUMN 10 VALUE 'TGL LAHIR      :'.
            02 COLUMN PLUS 1 PIC XX TO TG, AUTO.
            02 COLUMN PLUS 1 VALUE '-'.
            02 COLUMN PLUS 1 PIC XX TO BL, AUTO.
            02 COLUMN PLUS 1 VALUE '-'.
            02 COLUMN PLUS 1 PIC XXXX TO TH, AUTO.

            02 LINE 6 COLUMN 10 VALUE 'ALAMAT         :'.
            02 COLUMN PLUS 1 PIC X(20) TO ALAMAT.

            02 LINE 7 COLUMN 10 VALUE 'KOTA           :'.
            02 COLUMN PLUS 1 PIC A(15) TO KOTA.

            02 LINE 8 COLUMN 10 VALUE 'TELPON         :'.
            02 COLUMN PLUS 1 PIC X(13) TO TELP, UNDERLINE.

            02 LINE 9 COLUMN 10 VALUE 'J.KELAMIN (L/P):'.
            02 COLUMN PLUS 1 PIC X TO JK.
           
            02 LINE 10 COLUMN 10 VALUE 'PENGHASILAN    : Rp '.
            02 COLUMN 29 PIC ZZZ,ZZZ,ZZZ.00 TO PENGHASILAN, HIGHLIGHT.

        01 HAPUS.
            02 BLANK SCREEN.

        PROCEDURE DIVISION.
        LOGIN.
            DISPLAY HAPUS.
            DISPLAY (1, 20) '---------->PROGRAM BIODATA PEGAWAI<------------'.
            DISPLAY (3, 10)'           MASUKKAN USERNAME DAN PASSWORD.'
            DISPLAY (4, 10)'     ISIKAN KELUAR PADA USERNAME UNTUK MEMBATALKAN.'
            DISPLAY (5, 20) '-----------------------------------------------'.
            DISPLAY (6, 10)'USERNAME  : '.
            ACCEPT (, ) USERNAME.
            IF USERNAME = 'KELUAR' GO TO SELESAI.
            DISPLAY (8, 10) 'PASSWORD  : '.
            ACCEPT (, ) PASSWORD  WITH NO-ECHO.
            IF USERNAME = 'DEDE' AND PASSWORD = 'DEDE'
                GO TO PROGRAM-UTAMA
            ELSE GO TO SALAH.

        SALAH.
            DISPLAY (10, 10) 'USERNAME/PASSWORD SALAH'.
            ACCEPT ANYKEY.
            GO TO LOGIN.

        PROGRAM-UTAMA.
            OPEN OUTPUT BIODATAPEGAWAI.
            PERFORM INPUTBIODATA UNTIL YA.
            WRITE RECORDBIODATA.
            CLOSE BIODATAPEGAWAI.
            DISPLAY SPACE.
            PERFORM CEK-HASIL-SIMPANAN.
            STOP 'TEKAN TOMBOL APA SAJA UNTUK KELUAR DARI PROGRAM.'.

        SELESAI.
            DISPLAY HAPUS.
            STOP RUN.

        INPUTBIODATA.
            DISPLAY HAPUS.
            DISPLAY (1, 20) '----------->INPUT BIODATA PEGAWAI<-----------'.
            DISPLAY SPACE.
            DISPLAY MASUKAN.
            ACCEPT MASUKAN.
            DISPLAY (12, 10)'APAKAH DATA SUDAH BENAR (Y/T)? '.
            ACCEPT (, )APASUDAHBENAR.

        CEK-HASIL-SIMPANAN.
            IF HASIL-SAVE = '00' DISPLAY 'STATUS : SUKSES !'.
            IF HASIL-SAVE = '34' DISPLAY 'STATUS : DISK FULL !'.

ingat tata cara penulisan haru jelas terutama penggunaan tanda titik "."
Ini merupakan kodingan program untuk membuat pasword dalam cobol...
Terima kasih semoga bermanfaat  

TAHUN BARU

Menurut gua tahun baru merupakan yang biasa-biasa aja ga ada yang spesial atau yang lainnya,beda halnya dengan orang lain yang berharap tahun baru  ini kita harus punya pasangan lah hidup lebih mapan lah dan sebagainya. Emang ga salah sih kalo kita punya keinginan kaya gitu tapi yang jadi permasalahan kenapa harus saat itu kita ingin sesuatu,bukannya kita suatu saat bisa aja melakukan hal itu tentunya tergantung takdir juga sihhh..
Mengenai tahun baru banyak banget warga indonesia yang merayakan,banyak juga dengan hal-hal aneh yang mereka adakan buat menyambut tahun baru ini. Satu yang paling gua gregetan tuh aksinya mister LIMBAD yaitu dengan mengubur diri di tumpukan adukan beton. Aduhhhh aduhhhh miris banget w sebenernya denger kabar itu,karena maut juga udah deket bgt  coyyyy kenapa malah cari maut dengan cara yang aneh-aneh. Apa dia pikir punya ilmu gaib yang bisa bertahan di beton??? Secara normal orang tidak akan mampu bertahan,tapi kali ada bantun lain misalnya #### gua ga tau dehhh..
Tapi yang biasanya warga indonesia lakukan adalah meniup trompet dan menyalakan kembang api,behhhh kalo udah urusan tiup meniup dan bikin bising pokoknya indonesia dehhh pasti bisa...hehe
Intinya tahun baru ini semua manusia harus bisa menjadi lebih baik lagi....aamiin
Terima kasih
Wassalam mualaikum

MY STORY of ISLAM

 Assalammualaikum
Sebenernya aku dilahirkan dari keluarga yang menurut orang tentang agamanya lebih mengerti dari pada warga sekitar desa kami,tapi yang aku rasakan jauh sekali dengan syariat agama yang aku pelajari saat ini dan seterusnya. Karena masih banyak sunnah-sunnah Rasulullah Shallallahu ‘alaihi wa sallam tidak mereka gunakan dan banyak ibadah-ibadah yang tidak diajarkan beliau yang dilakukan oleh warga sekitar termasuk keluarga saya.
Awal cerita aku mengenal ISLAM yang sesungguhnya dari seorang temen akhwat di FB,dulu sebelum mengenal ISLAM aku lagi giat-giatnya mencari cewe buat jadiin pacar aku. Dan kriterian cewe aku tuh pengen yang berjilbab dan pastinya sholehah,dan salah satu caranya adalah dengan lewat FB itu. Banyak sekali cewe yang aku kenal tapi aku cuma liat mereka dari fisiknya aja cantik tapi kalo liat di statusnya alay-alay dan jauh dari tipe aku dulu. Terus aku berkenalan dengan seorang cewe yang dia sekolah disini dan aku juga baru tahu kalo dia tuh sekampung sama aku,aku sering banget liat update status dia dengan seksama banyak sekali status yang bikin aku jadi tertarik sama dia,aku semakin penasaran dengan dia dan akihrnya aku beranikan diri buat minta no nya dan gagal lah. Dari situ aku mulai makin penasaran dengan dia dan suatu ketika ada temen deket aku yang kenal sama dia akhirnya aku minta no dia tanpa sepengetahuan dia. Terus aku mulai kenalan dengan dia aku tanya-tanya ISLAM lebih jauh lagi dan aku di kasih salah satu radio yang bener-bener hanya untuk kebangkitan ISLAM yaitu FAJRI FM. Hari berlalu aku sering ikut kajian,holakoh,dengerin radionya dan yang lain hingga aku mengenal sunnah Rasulullah Shallallahu ‘alaihi wa sallam dan aku mengenal nikmatnya beribadah kepada Allah Ta’ala.
Aku nyaman dengan aku yang sekarang,aku ngerasa lebih baik dari aku yang dulu. Dan tujuan aku mengenal cewe itu pertamanya untuk deketin dia karena suka atau cinta sama dia berubah jadi aku bertanya lebih jauh tentang ISLAM yang benar-benar datang dari Allah Ta’ala dan Rosulnya.
Terima kasih ya Alloh untuk semuanya,semoga hamba bisa lebih dalam lagi mengenal ENGKAU..aamiinn
Walloh hualam
Wassalam mualaikum