Source Program Cobol Password untuk Menginput Barang.

ketikan source ini pada program cobol, dan lihat sendiri hasilnya ^_^ semoga bermanfaat.  dan apabila kurang memuaskan silahkan edit sesuka hati anda ^_^.
   

       IDENTIFICATION DIVISION.
       PROGRAM-ID.BARANG.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT FILE-DATA ASSIGN TO DISK.
       DATA DIVISION.
       FILE SECTION.
       FD FILE-DATA.
           LABEL RECORD IS STANDARD.
           VALUE OF FILE-ID IS 'DATA.DAT'.
           DATA RECORD IS RECORD-BRG.
       01 RECORD-BRG.
           02 NO-BARANG        PIC X(6).
           02 NAMA-BARANG      PIC X(15).
           02 JUMLAH-BARANG    PIC 999.
           02 HARGA-BARANG     PIC 9(6).
           02 TGL              PIC XX/XX/XXXX.
       WORKING-STORAGE SECTION.
       01 P PIC 9(5)
       01 BENAR-SALAH PIC X VALUE SPACE.
           88 BENAR VALUE 'Y' , 'y'.
           88 SALAH VALUE 'T' , 't'.
       01 LAGI-SUDAH PIC X VALUE SPACE.
           88 LAGI VALUE 'Y' , 'y'.
           88 SUDAH VALUE 'T' , 't'.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 PASS.
           02 LINE 8 COLUMN 10 VALUE ' ENTER PASSWORD : '.
           02 COLUMN PLUS 1 PIC X(5) TO P SECURE.     
       01 LAYAR-BETUL-SALAH.
           02 LINE 20 COLUMN 10 VALUE ' SUDAH BENAR (Y/T) ?'.
           02 COLUMN PLUS 1 PIC X USING BENAR-SALAH.
       01 LAYAR-LAGI-SUDAH.
           02 LINE 23 COLUMN 10 VALUE ' ADA LAGI (Y/T) ?'.
           02 COLUMN PLUS 1 PIC X USING LAGI-SUDAH.
       
       01 LAYAR-MENAMBAH.
           05 BLANK SCREEN.
           05 LINE 8 COLUMN 8 VALUE ' NO BARANG      : '.
           05 COLUMN PLUS 1 PIC X(6) TO NO-BARANG FULL,REQUIRED,AUTO.
           05 LINE 10 COLUMN 8 VALUE ' NAMA BARANG    : '.
           05 COLUMN PLUS 1 PIC X(15) TO NAMA-BARANG REQUIRED.
           05 LINE 12 COLUMN 8 VALUE ' HARGA SATUAN   : RP'.
           05 COLUMN PLUS 1 PIC 9(6) TO HARGA-BARANG REQUIRED.
           05 LINE 14 COLUMN 8 VALUE ' JUMLAH BARANG  : '.
           05 COLUMN PLUS 1 PIC 999 TO JUMLAH-BARANG,BLINK.
           05 LINE 16 COLUMN 8 VALUE ' TGL. TRANSAKSI : '.
           05 COLUMN PLUS 1 PIC XX/XX/XXXX TO TGL.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN OUTPUT FILE-DATA.
       PASSWORD.
           DISPLAY HAPUS-LAYAR.
           DISPLAY PASS.
           ACCEPT PASS.
           IF P = 12345 GO TO TAMBAH-BARU ELSE GO TO SALAH.
       SALAH.
           DISPLAY (15, 12) 'PASSWORD SALAH, MOHON ULANGI!'.
           STOP' '.
           GO TO PASSWORD.

       TAMBAH-BARU.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-MENAMBAH.
           ACCEPT LAYAR-MENAMBAH.
           DISPLAY LAYAR-BETUL-SALAH.
           ACCEPT LAYAR-BETUL-SALAH.
           IF SALAH GO TO TAMBAH-BARU ELSE MASUKAN-LAGI.
           WRITE RECORD-BRG.
       MASUKAN-LAGI.
           DISPLAY LAYAR-LAGI-SUDAH.
           ACCEPT LAYAR-LAGI-SUDAH.
           IF LAGI GO TO TAMBAH-BARU ELSE GO TO SELESAI.
           CLOSE FILE-DATA.
       SELESAI.
           STOP RUN.