Tugas Cobol

IDENTIFICATION DIVISION .

PROGRAM-ID. LATIHAN1 .

AUTHOR . DIAHFP.

ENVIRONMENT DIVISION .

INPUT-OUTPUT SECTION .

FILE-CONTROL.

SELECT PEGAWAI ASSIGN TO DISK.

ORGANIZATION IS SEQUENTIAL

ACCESS MODE IS SEQUENTIAL.

FILE STATUS IS STATUS-SALAH .

DATA DIVISION .

FILE SECTION .

FD PEGAWAI.

LABEL RECORD IS STANDARD.

VALUE OF FILE-ID IS ‘ PEG . DAT ‘.

DATA RECORD IS REC-PEG.

01 REC-PEG.

02 NAMA PIC X (30) .

02 NIP PIC A

02 ALAMAT PIC X (25)

WORKING-STORAGE SECTION .

77 STATUS-SALAH PIC XX .

01 SUDAH-BENAR PIC X .

88 BENAR VALUE ‘ Y ‘ , ‘ y ‘ .

88 BELUM VALUE ‘ T ‘ , ‘ t ‘ .

01 MASUKKAN-DATA-LAGI PIC X .

88 LAGI VALUE ‘ Y ‘ , ‘ y ‘ .

88 TIDAK VALUE ‘ T ‘ , ‘ t ‘ .

SCREEN SECTION .

01 HAPUS LAYAR .

02 BLANK SCREEN .

01 LAYAR-DATA .

02 LINE 4 COLUMN 5 ‘NAMA:’.

02 COLUMN PLUS 1 PIC X ( 30 ) TO NAMA.

02 LINE 5 COLUMN 5 ‘NIP:’.

02 COLUMN PLUS 1 PIC X A  TO NIP.

02 LINE 6 COLUMN 5 ‘ALAMAT:’.

02 COLUMN PLUS 1 PIC X(25) TO ALAMAT .

PROCEDURE DIVISION .

BUKA-FILE .

OPEN OUTPUT PEGAWAI.

MULAI .

MOVE SPACE TO SUDAH-BENAR.

PERFORM INPUT-DATA UNTIL BENAR.

PERFORM REKAM-DATA.

PERFORM ADA-LAGI.

TANYA-ADA-LAGI.

IF LAGI GO TO MULAI .

SELESAI .

CLOSE PEGAWAI.

STOP RUN .

INPUT-DATA .

DISPLAY HAPUS-LAYAR.

DISPLAY LAYAR-DATA.

ACCEPT LAYAR-DATA .

DISPLAY ( 10 , 5 ) ‘ SUDAH BENAR ( Y / T ) ? ‘.

ACCEPT ( , ) SUDAH-BENAR .

REKAM – DATA .

MOVE ‘ ‘ TO STATUS-SALAH.

WRITE REC-PEG.

PERFORM TANYA-REKAM.

ADA-LAGI.

DISPLAY ( 12 , 5 ) ‘ ADA DATA LAINNYA ( Y / T ) ? ‘.

ACCEPT ( , ) MASUKKAN-DATA-LAGI.

TANYA-REKAM .

IF STATUS – SALAH = ‘ 34 ‘.

DISPLAY ( 15 , 5 ) ‘ DATA TIDAK TEREKAM , DISK PENUH ‘ .

IF STATUS – SALAH = ‘ 91 ‘.

DISPLAY ( 18 , 5 ) ‘ STRUKTUR FILE RUSAK ‘ .

Inti logika dari program diatas :

1.      Membuat data baru sebagai output karna data yang dibuat adalah data baru.

2.      Nama bertipe integer dengan panjang 30. NIP merupakan nomor induk pegawai dan alamat bertipe integer dengan panjang 25.

3.      Data dimasukan bertahap tiap-tiap record yaitu data nama data NIP dan data Alamat.

4.      Data tidak bisa loncat karna organisasi dan akses mode file nya adalah sequensial.

5.      Akan ada konfirmasi apakah dara yang dimasukan sudah benar atau belum untuk verifikasi ke tahap selanjutnya.

6.      Jika data yang dimasukan sudah benar maka data akan direkam.

7.      Akan ada konfirmasi apakah ingin menginput data lagi.

8.      Jika iya maka akan muncul tampilan seperti awal memasukan data pada langkah 3.

9.      Lalu data baru akan disimpan kembali.

10.  Jika tidak maka file ditutup dan proses selesai

sumber:

http://bryantpurba.blogspot.com/2012/11/bentuk-dan-macam-macam-file-pada-bahasa.html

http://aditpato7.wordpress.com/2009/12/29/file-sequential-1-pada-cobol/