home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / dict / fldvars.rpt < prev    next >
Encoding:
Text File  |  1986-02-17  |  2.7 KB  |  97 lines
  1. * FLDVARS.RPT
  2. * Paul Ferrara [70075,252]
  3. * Bill Lonborg [70045,1237]
  4. * Last Change: 02-17-86 00:05
  5. *
  6. IF FILE("PARAM.MEM")
  7.    RESTORE FROM param ADDITIVE
  8. ELSE
  9.    STORE CHR(14) TO mprintwide
  10.    STORE 80 TO mpagewdth
  11.    STORE 66 TO mpagelen
  12. ENDIF
  13. SET COLOR TO &mtitl./&mnorb.,&menhf./&menhb.,&mbord
  14. CLEAR
  15. @  1, 0 SAY "PRINT THE DICTIONARY"
  16. @  1,72 SAY date()
  17. @  2, 0 SAY "═══════════════════════════════════════════════════════"
  18. @  2,55 SAY "═════════════════════════"
  19. @ 23, 0 SAY "═══════════════════════════════════════════════════════"
  20. @ 23,55 SAY "═════════════════════════"
  21. * prepare printer
  22. SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  23. @  4,32 SAY "Prepare printer."
  24. SET COLOR TO &mmess./&mnorb.,&menhf./&menhb.,&mbord
  25. @  5,19 SAY 'Press "Q" to quit or any key to continue.'
  26. SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  27. SET CONSOLE OFF
  28. WAIT TO option
  29. SET CONSOLE ON
  30. IF UPPER(option)="Q"
  31.    CLEAR
  32.    RETURN
  33. ENDIF
  34. @  4, 0
  35. @  5, 0
  36. * test for existence of dictnary file
  37. IF .NOT. FILE("DICTNARY.DBF")
  38.    SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  39.    @ 20,28 SAY "Dictionary file missing."
  40.    SET COLOR TO &mmess./&mnorb.,&menhf./&menhb.,&mbord
  41.    @ 21,24 SAY "Press any key to return to menu."
  42.    SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  43.    SET CONSOLE OFF
  44.    WAIT
  45.    SET CONSOLE ON
  46.    CLEAR
  47.    RETURN
  48. ENDIF
  49. SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  50. @  4,34 SAY "Please wait."
  51. SELECT 1
  52. USE dictnary
  53. INDEX ON field_name TO temp
  54. SET COLOR TO &mblnk.*/&mnorb.,&menhf./&menhb.,&mbord
  55. @  4, 0
  56. @  4,32 SAY "Printing report."
  57. SET COLOR TO &mnorf./&mnorb.,&menhf./&menhb.,&mbord
  58. SET MARGIN TO INT(mpagewdth-69)/2
  59. SET DEVICE TO PRINT
  60. GO TOP
  61. STORE 1 TO mpage
  62. STORE mpagelen-5 TO mrow
  63. DO WHILE .NOT. EOF()
  64.    IF field_type="X"
  65.       SKIP
  66.       LOOP
  67.    ENDIF
  68.    IF mrow>(mpagelen-6)
  69.       @  1, 0 SAY date()
  70.       @  2, 0 SAY "Page"+STR(mpage,2)
  71.       @  3,13 SAY "Cross Reference of Database Field Variables"
  72.       @  5, 0 SAY " FIELDVAR  WHERE USED"
  73.       @  6, 0 SAY "========== =========================================================="
  74.       *            0          11        21        31
  75.       STORE mpage+1 TO mpage
  76.       STORE 7 TO mrow
  77.    ENDIF
  78.    @ mrow, 0 SAY field_name
  79.    STORE field_name TO mfieldname
  80.    DO WHILE field_name=mfieldname .AND. .NOT. EOF()
  81.       STORE 11 TO mcol
  82.       DO WHILE field_name=mfieldname .AND. mcol<70 .AND. .NOT. EOF()
  83.          @ mrow,mcol SAY LOWER(file_name)
  84.          STORE mcol+10 TO mcol
  85.          SKIP
  86.       ENDDO
  87.       STORE mrow+1 TO mrow
  88.    ENDDO
  89. ENDDO
  90. SET DEVICE TO SCREEN
  91. SET MARGIN TO 0
  92. EJECT
  93. CLOSE DATABASES
  94. ERASE temp.ndx
  95. CLEAR
  96. RETURN
  97.