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

 
Output of file : JOBEDIT.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..: JOBEDIT.PRG
* DATE.....: 03/21/87
* AUTHOR...: DENNIS W. CHRISTENSEN
* ADDRESS..: 5799 RAYBURN AVE., APT 261, ALEXANDRIA, VA 22311
* NOTICE....: COPYRIGHT 1986, ALL RIGHTS RESERVED
*
SET TALK OFF
SET BELL OFF
SET DELIMITER OFF
CLEAR
*
USE EMPLOYER
GO TOP
*
STORE 0 TO mNUM
*!! Logical constant converted.
STORE .T. TO ADD
DO WHILE ADD
STORE ' ' TO ANS
@ 1,25 SAY "** EDIT EMPLOYER RECORD **"
@ 3,10 SAY "ENTER COMPANY NUMBER(001)|";
GET mNUM PICTURE '999'
READ
LOCATE FOR mNUM = RECNO()
IF .NOT. EOF() .AND. COMPANY # ' '
@ 2, 0 CLEAR
@ 3, 5 SAY "COMPANY:";
GET COMPANY PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 4, 5 SAY "KEY PERSON:";
GET KEYPERS1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 5, 5 SAY "ADDRESS:";
GET ADDRESS PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 6, 5 SAY "CITY:";
GET CITY PICTURE 'XXXXXXXXXXXXXXXXXXXX'
@ 6,35 SAY "STATE:";
GET STATE PICTURE 'XX'
@ 6,49 SAY "ZIPCODE:";
GET ZIP PICTURE '99999.9999'
@ 7,5 SAY "PHONES:";
GET PHONE PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 9, 5 SAY "COMPANY PURPOSE:";
GET PURPOSE PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 10, 5 SAY "COMPANY OFFICES:";
GET OFFICES PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 12, 5 SAY "CONTACT 1:";
GET CONTACT1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 13, 5 SAY "CONTACT 2:";
GET CONTACT2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 15, 5 SAY "REMARKS:";
GET REM1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 16, 5 SAY " ";
GET REM2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 17, 5 SAY " ";
GET REM3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 18, 5 SAY " ";
GET REM4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 19, 5 SAY " ";
GET REM5 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 20, 5 SAY " ";
GET REM6 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 21, 5 SAY " ";
GET REM7 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 22, 5 SAY " ";
GET REM8 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
READ
ELSE
@ 5,10 SAY " RECORD DOES NOT EXIST..."
@ 24,10 WAIT
ENDIF
*
* This routine allows for another record to be added.
@ 24,10 SAY "DO YOU WANT TO EDIT ANOTHER EMPLOYER RECORD? (Y/N) ";
GET ANS PICTURE '!'
READ
IF ANS = "Y"
CLEAR
SELECT A
APPEND BLANK
LOOP
ELSE
*!! Logical constant converted.
STORE .F. TO ADD
ENDIF
ENDDO WHILE ADD
USE
CLEAR ALL
RELEASE
RETURN
* EOF: JOBEDIT.PRG