Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : JOBHUNT.ZIP
Filename : JOBMAINT.PRG

 
Output of file : JOBMAINT.PRG contained in archive : JOBHUNT.ZIP

*!!* dBASE CONVERT - dBASE III File Conversion Aid v2.01 1/10/86
*
SET HEADING OFF
SET SAFETY OFF
* Program..: JOBMAINT.PRG
* Author...: DENNIS W. CHRISTENSEN
* ADDRESS..: 5799 RAYBURN AVE., APT 261, ALEXANDRIA, VA 22311
* Notice...: Copyright 1986, All Rights Reserved
* DATE.....: MAR 24, 1987
* Reserved.: select, selectnum
*
CLEAR
USE EMPLOYER
STORE ' ' TO ANS
STORE 0 TO mREC
@ 2, 10 SAY "** DELETE RECORDS/PACK DATABASE **"
@ 5, 15 SAY "ENTER RECORD NUMBER TO DELETE-->";
GET mREC PICTURE '999'
READ
IF mREC > 0
GOTO mREC
DELETE
ENDIF
@ 7, 15 SAY "DO YOU WISH TO PACK THE DATABASE NOW? (Y/N)";
GET ANS PICTURE 'X'
READ
IF ANS = 'Y'
@ 10,25 SAY "PACKING EMPLOYER DATABASE..."
PACK
ENDIF
@ 3, 0 CLEAR
RETURN
* EOF: JOBMAINT.PRG