home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / jobhunt.zip / JOBLABEL.PRG < prev    next >
Text File  |  1987-03-24  |  3KB  |  125 lines
  1. * Program..: JOBLABEL.PRG
  2. * Author...: Dennis W Christensen
  3. * Date.....: 03/24/87
  4. * Notice...: Copyright 1986, All Rights Reserved
  5. * Reserved.: select, condition, extra
  6. *
  7. SET TALK OFF
  8. SET BELL OFF
  9. STORE "S" TO select
  10. STORE "S" TO mANS
  11. STORE "  " TO mSTATE
  12. USE EMPLOYER
  13. ERASE
  14. @ 2, 0 SAY "E M P L O Y E R    M A I L I N G    L A B E L S"
  15. @ 2,72 SAY DATE()
  16. @ 3, 0 SAY "========================================"
  17. @ 3,40 SAY "========================================"
  18. CLEAR GETS
  19. @ 5,0 SAY "(A)LL or by (S)tate -->";
  20.       GET mANS PICTURE "X"
  21.       READ
  22. IF mANS = "S"
  23.    @ 5,0 SAY "Enter State choice -->";
  24.          GET mSTATE PICTURE "XX"
  25.          READ
  26. ENDIF
  27. STORE " " TO select
  28. @ 7,0 SAY "Output to the screen or printer? [S/P] ";
  29.       GET select PICTURE "!"
  30. READ
  31. DO CASE
  32.    CASE select = "S"
  33.       ERASE
  34.    CASE select = "P"
  35.       @ 10,20 SAY "ENSURE PRINTER ON WITH CORRECT LABELS..."
  36.       WAIT
  37.       SET PRINT ON
  38.    OTHERWISE
  39.       ERASE
  40.       SET BELL ON
  41.       SET TALK ON
  42.       RETURN
  43. ENDCASE
  44. * ---Enter FOR <expression> for the labels, such as,
  45. * ---STORE "STATE = 'CA'" TO condition
  46. STORE " " TO condition
  47. STORE 0 TO CTR
  48. DO CASE
  49.    CASE mANS # 'S'
  50. DO WHILE .NOT. EOF .AND. (mANS # 'S'.OR. mANS # 's')
  51. IF CTR >= 5 .AND. select = 'S'
  52.    WAIT
  53.    ERASE
  54.    STORE 0 TO CTR
  55. ENDIF
  56.    IF condition <> " "
  57.       IF .NOT. (&condition)
  58.          SKIP
  59.          LOOP
  60.       ENDIF
  61.    ENDIF
  62.    STORE 0 TO extra
  63. IF COMPANY # '       '
  64.    ? TRIM(COMPANY)
  65.    IF KEYPERS1 # '   '
  66.       ? TRIM(KEYPERS1)
  67.    ENDIF
  68.    ? TRIM(ADDRESS)
  69.    ? trim(CITY) + ', ' + STATE + '  ' + TRIM(ZIP)
  70.    ?
  71. ENDIF
  72.    DO WHILE extra > 0
  73.       ?
  74.       STORE extra - 1 TO extra
  75.    ENDDO
  76.    SKIP
  77.    STORE CTR+1 TO CTR
  78. ENDDO
  79. *
  80. CASE mANS = 'S'
  81.    LOCATE FOR STATE = mSTATE
  82. DO WHILE .NOT. EOF .AND. (mANS = 'S'.OR. mANS = 's')
  83. IF CTR >= 5 .AND. select = 'S'
  84.    WAIT
  85.    ERASE
  86.    STORE 0 TO CTR
  87. ENDIF
  88.    IF condition <> " "
  89.       IF .NOT. (&condition)
  90.          CONTINUE
  91.       ENDIF
  92.    ENDIF
  93.    STORE 0 TO extra
  94.    IF COMPANY # '       '
  95.       ? TRIM(COMPANY)
  96.       IF KEYPERS1 # '   '
  97.          ? TRIM(KEYPERS1)
  98.       ENDIF
  99.    ? TRIM(ADDRESS)
  100.    ? trim(CITY) + ', ' + STATE + '  ' + TRIM(ZIP)
  101.    ?
  102.    ENDIF
  103.    DO WHILE extra > 0
  104.       ?
  105.       STORE extra - 1 TO extra
  106.    ENDDO
  107.    CONTINUE
  108.    STORE CTR+1 TO CTR
  109. ENDDO
  110. ENDCASE
  111. *
  112. IF select = 'P'
  113.    EJECT
  114.    SET PRINT OFF
  115. ENDIF
  116. ?
  117. ? "THAT'S ALL ..."
  118. CLEAR
  119. SET TALK ON
  120. SET BELL ON
  121. WAIT
  122. RETURN
  123. * EOF: JOBLABEL.PRG
  124.      SET TALK ON
  125.       RE