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

 
Output of file : JOBSCREN.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..: JOBSCREN.PRG
* Author...: DENNIS W. CHRISTENSEN
* ADDRESS..: 5799 RAYBURN AVE., APT 261, ALEXANDRIA, VA 22311
* Notice...: Copyright 1986, All Rights Reserved
* DATE.....: MAR 21, 1987
* Reserved.: select, selectnum
*
CLEAR
USE EMPLOYER
GO TOP
SET TALK OFF
SET ECHO OFF
SET ESCAPE ON
SET DELETED ON
@ 1,15 SAY "** SCREEN COMPANIES IN DATABASE **"
STORE ' ' TO mCITY
STORE ' ' TO mSTATE
STORE 1 TO ANSS
STORE ' ' TO ANS
STORE 2 TO MLINE
STORE 'S' TO ANSP
@ 3,25 SAY "1--> BY STATE"
@ 4,25 SAY "2--> BY CITY"
@ 6,25 SAY "YOUR CHOICE-->" GET ANSS PICTURE '9'
READ
@ 9,20 SAY "DISPLAY TO (S)CREEN OR (P)RINT-->" GET ANSP
READ
@ 7,0 CLEAR
IF ANSS = 1
@ 7,0 CLEAR
@ 7,20 SAY "ENTER STATE CODE (Tx)-->"
@ 7,45 GET mSTATE PICTURE 'XX'
READ
@ 2, 0 CLEAR
LOCATE FOR STATE = mSTATE
IF STATE # mSTATE
@ 10,20 SAY "STATE SELECTION NOT FOUND..."
WAIT
RETURN
ENDIF
IF ANSP = 'P'
@ 10,15 SAY "ENSURE PRINTER IS ONLINE WITH CORRECT PAPER..."
WAIT
@ 10,0 CLEAR
@ 10,25 SAY "NOW PRINTING..."
SET DEVICE TO PRINT
@ MLINE,10 SAY "** EMPLOYER LISTING FOR STATE-->"+mSTATE
STORE MLINE+2 TO MLINE
ENDIF
DO WHILE .NOT. EOF() .AND. STATE = mSTATE
IF MLINE >= 22 .AND. ANSP = 'S'
@ 24, 20 SAY "CONTINUE (Y/N):";
GET ANS PICTURE 'X'
READ
IF ANS = 'Y' .OR. ANS = 'y'
STORE 2 TO MLINE
@ 2, 0 CLEAR
ELSE
CLEAR
RETURN
ENDIF
ENDIF
@ MLINE, 1 SAY RECNO()
@ MLINE, 10 SAY COMPANY
STORE MLINE+1 TO MLINE
CONTINUE
ENDDO
ENDIF
*
IF ANSS = 2
@ 7,0 CLEAR
@ 6,20 SAY "ENTER CITY-->"
@ 6,33 GET mCITY PICTURE 'XXXXXXXXXXXXXXXXXXXX'
READ
@ 2, 0 CLEAR
LOCATE FOR CITY = mCITY
IF CITY # mCITY
@ 10,20 SAY "CITY SELECTION NOT FOUND..."
WAIT
RETURN
ENDIF
IF ANSP = 'P'
@ 10,15 SAY "ENSURE PRINTER IS ONLINE WITH CORRECT PAPER..."
WAIT
@ 10,0 CLEAR
@ 10,25 SAY "NOW PRINTING..."
SET DEVICE TO PRINT
@ MLINE,10 SAY "** EMPLOYER LISTING FOR CITY-->"+mCITY
STORE MLINE+2 TO MLINE
ENDIF
DO WHILE .NOT. EOF() .AND. CITY = mCITY
IF MLINE = 22
@ 24, 20 SAY "CONTINUE (Y/N):";
GET ANS PICTURE 'X'
READ
IF ANS = 'Y'.OR. ANS = 'y'
STORE 2 TO MLINE
@ 2, 0 CLEAR
ELSE
WAIT
CLEAR
RETURN
ENDIF
ENDIF
@ MLINE, 0 SAY RECNO()
@ MLINE, 15 SAY COMPANY
STORE MLINE+1 TO MLINE
CONTINUE
ENDDO
ENDIF
@ MLINE, 25 SAY "** EOF **"
IF ANSP = 'P'
EJECT
SET DEVICE TO SCREEN
@ 10,25 SAY "PRINTING COMPLETED..."
ENDIF
WAIT
RETURN
* EOF: JOBSCREN.PRG