Secure UTS TPT

       IDENTIFICATION DIVISION.
       PROGRAM-ID. UTS-KA.
       AUTHOR. ARNA.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT-DATA ASSIGN TO DISK.
       DATA DIVISION.
       FILE SECTION.
       FD INPUT-DATA
             LABEL RECORD IS STANDARD
             VALUE OF FILE-ID IS 'DATA.DAT'
           DATA RECORD IS RECORD-DTA.

       01 RECORD-DTA.
           02 NOPER PIC X(5).
           02 NAMA PIC X(30).
           02 ALAMAT PIC X(50).
           02 TL PIC 9(2)/9(2)/9(4).
           02 KOTA PIC A(10).
           02 TLP PIC 9(12).
           02 HASIL PIC 9(7).
           02 GENDER PIC A(10).

       WORKING-STORAGE SECTION.
       77 PASS PIC X(5).
       77 PIL PIC X.

       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.

       01 LAYAR-AWAL.
           02 LINE 10 COLUMN 5 VALUE 'Password : '.
           02 COLUMN PLUS 1 PIC X(5) TO PASS SECURE, FULL, REQUIRED.

       01 LAYAR-MASUK.
           02 LINE 1 COLUMN 3 VALUE 'Input Data', HIGHLIGHT.
           02 LINE 3 COLUMN 5 VALUE 'NOPER : '.
           02 COLUMN PLUS 1 PIC X(5) TO NOPER FULL, REQUIRED.
           02 LINE 4 COLUMN 5 VALUE 'Nama : '.
           02 COLUMN PLUS 1 PIC X(30) TO NAMA REQUIRED.
           02 LINE 5 COLUMN 5 VALUE 'Alamat : '.
           02 COLUMN PLUS 1 PIC X(50) TO ALAMAT.
           02 LINE 6 COLUMN 5 VALUE 'Tanggal Lahir(DD/MM/YYYY) : '.
           02 COLUMN PLUS 1 PIC 9(2)/9(2)/9(4) TO TL.
           02 LINE 7 COLUMN 5 VALUE 'Kota : '.
           02 COLUMN PLUS 1 PIC A(10) TO KOTA.
           02 LINE 8 COLUMN 5 VALUE 'TLP / HP : '.
           02 COLUMN PLUS 1 PIC 9(12) TO TLP.
           02 LINE 9 COLUMN 5 VALUE 'Penghasilan : Rp '.
           02 COLUMN PLUS 1 PIC A(7) TO HASIL.
           02 LINE 10 COLUMN 5 VALUE 'Jenis Kelamin : '.
           02 COLUMN PLUS 1 PIC A(10) TO GENDER.

       01 TAMPILKAN.
           02 LINE 1 COLUMN 3 VALUE 'Output Data', HIGHLIGHT.

       PROCEDURE DIVISION.

       OPEN-FILE.
           OPEN OUTPUT INPUT-DATA.

       MULAI.
           DISPLAY HAPUS-LAYAR.
           PERFORM PASSWORD.
           PERFORM REKAM-DATA.
           PERFORM TAMPILAN.

       SELESAI.
           CLOSE INPUT-DATA.
           STOP ' '.
           STOP RUN.


       PASSWORD.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-AWAL.
           ACCEPT LAYAR-AWAL.
           IF PASS = '2KA02'
              GO TO MASUKAN-DATA.
           IF PASS = '1KA12'
              GO TO MASUKAN-DATA.
           ELSE
              DISPLAY ( 15, 3 ) ' PASSWORD SALAH !!! '.
              STOP ' '.
              GO TO PASSWORD.

       MASUKAN-DATA.
           DISPLAY ( 15, 35 ) ' Masuk '
           STOP ' '.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-MASUK.
           ACCEPT LAYAR-MASUK.
           STOP ' '.
           DISPLAY ( 12, 5 ) ' Apakah Data Sudah Benar (Y/T) ? : '.
           ACCEPT PIL.
           IF PIL = 'T' OR 't'
             GO TO MASUKAN-DATA.
           ELSE
             STOP ' '.

       REKAM-DATA.
           WRITE RECORD-DTA.

       TAMPILAN.
           DISPLAY HAPUS-LAYAR.
           DISPLAY TAMPILKAN.
           DISPLAY( 3, 5 )'NOPER         : ' NOPER.
           DISPLAY( 4, 5 )'Nama          : ' NAMA.
           DISPLAY( 5, 5 )'Alamat        : ' ALAMAT.
           DISPLAY( 6, 5 )'Tanggal Lahir : ' TL.
           DISPLAY( 7, 5 )'Kota          : ' KOTA.
           DISPLAY( 8, 5 )'Penghasilan   : Rp ' HASIL.
           DISPLAY( 9, 5 )'Jenis Kelamin : ' GENDER.
           STOP ' '.