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

 
Output of file : JOBLABEL.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..: JOBLABEL.PRG
* Author...: Dennis W Christensen
* Date.....: 03/24/87
* Notice...: Copyright 1986, All Rights Reserved
* Reserved.: select, condition, extra
*
SET TALK OFF
SET BELL OFF
STORE "S" TO select
STORE "S" TO mANS
STORE " " TO mSTATE
USE EMPLOYER
CLEAR
@ 2, 0 SAY "E M P L O Y E R M A I L I N G L A B E L S"
@ 2,72 SAY DTOC(DATE())
@ 3, 0 SAY "========================================"
@ 3,40 SAY "========================================"
CLEAR GETS
@ 5,0 SAY "(A)LL or by (S)tate -->";
GET mANS PICTURE "X"
READ
IF mANS = "S"
@ 5,0 SAY "Enter State choice -->";
GET mSTATE PICTURE "XX"
READ
ENDIF
STORE " " TO select
@ 7,0 SAY "Output to the screen or printer? [S/P] ";
GET select PICTURE "!"
READ
DO CASE
CASE select = "S"
CLEAR
CASE select = "P"
@ 10,20 SAY "ENSURE PRINTER ON WITH CORRECT LABELS..."
WAIT
SET PRINT ON
OTHERWISE
CLEAR
SET BELL ON
SET TALK ON
RETURN
ENDCASE
* ---Enter FOR for the labels, such as,
* ---STORE "STATE = 'CA'" TO condition
STORE " " TO condition
STORE 0 TO CTR
DO CASE
CASE mANS # 'S'
DO WHILE .NOT. EOF() .AND. (mANS # 'S'.OR. mANS # 's')
IF CTR >= 5 .AND. select = 'S'
WAIT
CLEAR
STORE 0 TO CTR
ENDIF
IF condition <> " "
IF .NOT. (&condition)
SKIP
LOOP
ENDIF
ENDIF
STORE 0 TO extra
IF COMPANY # ' '
? TRIM(COMPANY)
IF KEYPERS1 # ' '
? TRIM(KEYPERS1)
ENDIF
? TRIM(ADDRESS)
? trim(CITY) + ', ' + STATE + ' ' + TRIM(ZIP)
?
ENDIF
DO WHILE extra > 0
?
STORE extra - 1 TO extra
ENDDO
SKIP
STORE CTR+1 TO CTR
ENDDO
*
CASE mANS = 'S'
LOCATE FOR STATE = mSTATE
DO WHILE .NOT. EOF() .AND. (mANS = 'S'.OR. mANS = 's')
IF CTR >= 5 .AND. select = 'S'
WAIT
CLEAR
STORE 0 TO CTR
ENDIF
IF condition <> " "
IF .NOT. (&condition)
CONTINUE
ENDIF
ENDIF
STORE 0 TO extra
IF COMPANY # ' '
? TRIM(COMPANY)
IF KEYPERS1 # ' '
? TRIM(KEYPERS1)
ENDIF
? TRIM(ADDRESS)
? trim(CITY) + ', ' + STATE + ' ' + TRIM(ZIP)
?
ENDIF
DO WHILE extra > 0
?
STORE extra - 1 TO extra
ENDDO
CONTINUE
STORE CTR+1 TO CTR
ENDDO
ENDCASE
*
IF select = 'P'
EJECT
SET PRINT OFF
ENDIF
?
? "THAT'S ALL ..."
CLEAR ALL
SET TALK ON
SET BELL ON
WAIT
RETURN
* EOF: JOBLABEL.PRG