Identification division. Environment divison. Data division. Working-storage section. 77 jawab pic a. Procedure division.

Display 'masukan kode berupa huruf [d/e/j/k]?' Accept jawab. If jawab = 'd' go to kode-d.

If jawab = 'e' go to kode-e. If jawab = 'j' go to kode-j. If jawab = 'k' go to kode-k. Display 'kampus depok'. Go to selesai.

Display 'kampus kelapa 2'. Go to selesai. Display 'kampus kalimalang'. Go to selesai. Display 'kampus kemang'. Go to selesai.

Program sederhana yang saya tulis diantaranya. Ini sya punya kumpulan contoh program C++, smoga bisa saling melengkapi. Pada itu di hilang kan dan dibawah.

Contoh Program untuk memasukkan data IDENTIFICATION DIVISION. ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION. 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.

02 NAMA PIC X(10). 02 ALAMAT PIC X(20).

02 UMUR PIC 99. 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(10) TO NAMA.

02 LINE 5 COLUMN 5 ‘ALAMAT:’ 02 COLUMN PLUS 1 PIC X(25) TO ALAMAT. 02 LINE 6 COLUMN 5 ‘UMUR:’ 02 COLUMN PLUS 1 PIC 99 TO UMUR. PROCEDURE DIVISION. OPEN OUTPUT PEGAWAI.

MOVE SPACE TO SUDAH-BENAR PERFORM INPUT-DATA UNTIL BENAR PERFORM REKAM-DATA PERFORM ADA-LAGI. IF LAGI GO TO MULAI.

Gcs proxipen driver. Detex ProxiPen Kit Watchman Clock with TopGuard Software. Accessories & Supplies: Details ID Product Name Description Price Add To Cart 75 Detex ProxiPen II TAG Reader Detex RFID TAG READER $715.00 128 Detex 30MM Tag GCS-PP-TAG30-U $3.75 129 Detex 50mm Tag GCS-PP-TAG50-U $9.50 71 Detex Keyfob RFID Tag for Proxipen System GCS-PP-KF-U $10.25 244 Detex ProxiPen Holster Detex Holster GCS-PP-HOL $70.00 259 Detex TopGuard Incident Book GCS-PP-INCBK $99.00 130 DetexTop Guard Plus Software GCS-TGPLUS $995.00 131 Detex Top Guard Technical Support Annual Technical Support $99.00 • • • • •. Detex TopGuard Guardtour System Software Features: • Fast, logical set-up.

CLOSE PEGAWAI. DISPLAY HAPUS-LAYAR DISPLAY LAYAR-DATA ACCEPT LAYAR-DATA.

DISPLAY (10, 5) ‘SUDAH BENAR (Y/T)?’ ACCEPT (, ) SUDAH-BENAR. MOVE SPACE TO STATUS-SALAH WRITE REC-PEG. PERFORM TANYA-REKAM. DISPLAY (12, 5) ‘ADA LAGI DATA (Y/T)? ‘ ACCEPT (, ) MASUKKAN-DATA-LAGI.

IF STATUS-SALAH =’34’ DISPLAY (12, 5) ‘DISK FULL’. ------------------------------------********----------------------------------- NILAI STATUS ORGANISASI FILE URUT NILAI KETERANGAN 00 TDK TERJADI KESALAHAN 10 EOF 30 FILE NOT FOUND 34 DISK SPACE FULL 91 STRUKTUR FILE RUSAK.