IDENTIFICATION DIVISION.
PROGRAM-ID. MHSA.
AUTHOR. CAKRA.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MAHASISWA ASSIGN TO DISK
ORGANIZATION IS RELATIVE
ACCESS MODE IS SEQUENTIAL
RELATIVE KEY IS NO-REL
FILE STATUS IS STATUS-SALAH.
DATA DIVISION.
FILE SECTION.
FD MAHASISWA
LABEL RECORD IS STANDARD
VALUE OF FILE-ID IS 'TSEQ.DAT'
DATA RECORD IS MHS.
01 MHS.
02 NPM PIC X(8).
02 NAMA PIC X(20).
WORKING-STORAGE SECTION.
01 JUDUL.
02 WS-NPM PIC X(8).
02 WS-NAMA PIC X(20).
02 NPM-CARI PIC X(8).
01 TAMBAH-DATA PIC X.
88 LAGI VALUE 'Y', 'y'.
88 TDK VALUE 'T', 't'.
01 X PIC 9 VALUE 0.
77 STATUS-SALAH PIC XX.
77 NO-REL PIC X(8).
77 PIL PIC X.
77 PIL2 PIC X.
77 PIL3 PIC X.
77 CR-NPMX PIC X VALUE 'Y'.
SCREEN SECTION.
01 HAPUS.
02 BLANK SCREEN.
01 MASUKKAN.
02 LINE 5 COLUMN 24 VALUE 'NPM : '.
02 COLUMN PLUS 2 PIC X(8) TO NPM.
02 LINE 7 COLUMN 24 VALUE 'NAMA : '.
02 COLUMN PLUS 2 PIC X(20) TO NAMA.
01 MENU.
02 LINE 5 COLUMN 27 VALUE '(( MENU ))'.
02 LINE PLUS 2 COLUMN 21 '[1] BUAT / INPUT FILE'.
02 LINE PLUS 1 COLUMN 21 '[2] TAMPIL FILE'.
02 LINE PLUS 1 COLUMN 21 '[3] CARI DATA'.
02 LINE PLUS 1 COLUMN 21 '[4] EXIT'.
02 LINE PLUS 2 COLUMN 21 'PILIH : '.
02 COLUMN PLUS 1 PIC X TO PIL.
01 CARI-X.
02 BLANK SCREEN.
02 LINE 5 COLUMN 25 'NPM YANG DICARI :'.
02 COLUMN PLUS 1 PIC X(8) TO NPM-CARI.
PROCEDURE DIVISION.
PROGRAM-UTAMA.
COMPUTE X = 0
DISPLAY HAPUS.
DISPLAY MENU.
ACCEPT MENU.
IF PIL = '1' GO TO BUKA.
IF PIL = '2' GO TO TAMPIL.
IF PIL = '3' GO TO CARI.
IF PIL = '4' GO TO SELESAI.
BUKA.
OPEN OUTPUT MAHASISWA.
GO TO BUKA2.
BUKA2.
DISPLAY HAPUS.
DISPLAY MASUKKAN.
ACCEPT MASUKKAN.
WRITE MHS.
DISPLAY (15, 23) 'MASIH ADA DATA [Y/T] ? '.
ACCEPT TAMBAH-DATA.
IF LAGI GO TO BUKA2.
CLOSE MAHASISWA.
GO TO PROGRAM-UTAMA.
TAMPIL.
DISPLAY HAPUS,
DISPLAY (1, 1) 'NPM'.
DISPLAY (1, 15) 'NAMA'.
OPEN INPUT MAHASISWA.
COMPUTE X = 1.
GO TO TAMPIL2.
TAMPIL2.
IF PIL = 'Y' GO TO TAMPIL3.
TAMPIL3.
COMPUTE X = X + 1.
MOVE X TO LIN.
READ MAHASISWA NEXT RECORD AT END GO TO TAMPIL4.
MOVE NPM TO WS-NPM.
MOVE NAMA TO WS-NAMA.
DISPLAY (LIN, 1) WS-NPM.
DISPLAY (LIN, 15) WS-NAMA.
GO TO TAMPIL2.
TAMPIL4.
ACCEPT PIL.
CLOSE MAHASISWA.
GO TO PROGRAM-UTAMA.
CARI.
MOVE 'N' TO CR-NPMX.
DISPLAY CARI-X.
ACCEPT CARI-X
OPEN INPUT MAHASISWA.
GO TO CARI2.
CARI2.
READ MAHASISWA NEXT AT END GO TO CARI3.
MOVE NPM TO WS-NPM.
MOVE NAMA TO WS-NAMA.
IF NPM-CARI = WS-NPM GO TO KETEMU.
GO TO CARI2.
KETEMU.
DISPLAY HAPUS.
DISPLAY (5, 23) 'Data Pegawai : '.
DISPLAY (7, 23) 'NPM : '.
DISPLAY (9, 23) 'Nama : '.
DISPLAY (13, 23) 'CARI DATA LAGI ? '.
ACCEPT ( , ) PIL2.
CLOSE MAHASISWA.
IF PIL2 = 'Y' OR PIL2 = 'y' GO TO CARI.
GO TO PROGRAM-UTAMA.
CARI3.
DISPLAY HAPUS.
DISPLAY 'DATA TIDAK ADA...'.
DISPLAY 'Press Escape / Enter Untuk Cari Lagi..'.
DISPLAY 'X Untuk Ke Menu Utama, Lalu Tekan Enter..'.
ACCEPT ( , ) PIL3.
CLOSE MAHASISWA.
IF PIL3 = 'X' OR PIL3 = 'x' GO TO PROGRAM-UTAMA.
GO TO CARI.
SELESAI.
DISPLAY HAPUS.
DISPLAY (2, 2) 'Good Bye.......'.
CLOSE MAHASISWA.
STOP RUN.
Langganan:
Posting Komentar (Atom)
Layanan Masyarakyat 'Pola Hidup Sehat'
A. Langkah Membuat Video Animasi Dalam Blog ini, saya akan menjelaskan tentang langkah-langkah membuat video animasi 2d dan menje...
-
A.Pengertian Animasi Animasi adalah gambar begerak berbentuk dari sekumpulan objek (gambar) yang disusun secara beraturan mengik... -
Sejarah Linux Pada tanggal 5 oktober 1991, Linus Benedict Torvalds, seorang mahasiswa Universitas helsinki di Finlandia, mengungumkan ...
-
1. Cara kerja JARVIS ( Just A Rather Very Intelegent System ) merupakan kecerdasan buatan atau AI dalam film Iron Man ia di...
Tidak ada komentar:
Posting Komentar