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  