Category : Science and Education
Archive   : DB4WAZLG.ZIP
Filename : DB4WAZ01.PRG

 
Output of file : DB4WAZ01.PRG contained in archive : DB4WAZLG.ZIP

**********************************************************************
* Program......: DB4WAZ01.PRG
* Author.......: Paul M. Elliott N3GPU
* Date.........: 3-12-90
* Notice.......:
* dBASE Ver....:
* Generated by.: APGEN version 1.0
* Description..: Main Menu

* Description..: Menu actions
**********************************************************************
PROCEDURE DB4WAZ01
PARAMETER entryflg
PRIVATE gc_prognum
gc_prognum="01"

DO SET01
IF gn_error > 0
gn_error=0
RETURN
ENDIF

*-- Before menu code


ACTIVATE MENU DB4WAZ01

@ 0,0 CLEAR TO 3,79

*-- After menu

RETURN
*-- EOP DB4WAZ01

PROCEDURE SET01
ON KEY LABEL F1 DO 1HELP1

DO DBF01 && open menu level database

IF gn_error = 0
IF ISCOLOR()
SET COLOR OF NORMAL TO R/N
SET COLOR OF MESSAGES TO R/N
SET COLOR OF TITLES TO R/N
SET COLOR OF HIGHLIGHT TO GR+/N
SET COLOR OF BOX TO GR+/N
SET COLOR OF INFORMATION TO GR+/N
SET COLOR OF FIELDS TO GR+/N
ENDIF

SET BORDER TO
@ 0,0 TO 3,79 DOUBLE COLOR GR+/N
@ 1,1 CLEAR TO 2,78
@ 1,1 FILL TO 2,78 COLOR R/N
@ 1,5 SAY "CQ WAZ Tracking" COLOR R/N
@ 1,31 SAY "ITU WAZ Tracking" COLOR R/N
@ 1,72 SAY "Exit" COLOR R/N
@ 22,00
ENDIF
RETURN

PROCEDURE DBF01
CLOSE DATABASES
*-- Open menu level view/database
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF"
lc_new='Y'
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
RETURN

PROCEDURE ACT01
*-- Begin DB4WAZ01: BAR Menu Actions.
*-- (before item, action, and after item)
*
PRIVATE lc_new, lc_dbf
lc_new=' '
lc_dbf=' '
DO CASE
CASE "PAD_1" = PAD()
lc_new='Y'
DO CQWAZ1 WITH " 01"
CASE "PAD_2" = PAD()
lc_new='Y'
DO ITUWAZ1 WITH " 01"
CASE "PAD_3" = PAD()
lc_new='Y'
DO EXIT1 WITH " 01"
OTHERWISE
@ 24,00
@ 24,21 SAY "This item has no action. Press a key."
x=INKEY(0)
@ 24,00
ENDCASE
SET MESSAGE TO
IF SET("STATUS")="ON"
SET STATUS OFF
ENDIF
IF gc_quit='Q'
DEACTIVATE MENU && DB4WAZ01
ENDIF
IF lc_new='Y'
lc_file="SET"+gc_prognum
DO &lc_file.
ENDIF
RETURN
**********************************************************************
* Program......: CQWAZ1.PRG
* Author.......: Paul M. Elliott N3GPU
* Date.........: 3-12-90
* Notice.......:
* dBASE Ver....:
* Generated by.: APGEN version 1.0
* Description..: CQ Worked All Zones Award Status Menu

* Description..: Menu actions
**********************************************************************
PROCEDURE CQWAZ1
PARAMETER entryflg
PRIVATE gc_prognum
gc_prognum="02"

DO SET02
IF gn_error > 0
gn_error=0
RETURN
ENDIF

*-- Before menu code


ACTIVATE MENU CQWAZ1

@ 4,0 CLEAR TO 6,79

*-- After menu

RETURN
*-- EOP CQWAZ1

PROCEDURE SET02
ON KEY LABEL F1 DO 1HELP1

DO DBF02 && open menu level database

IF gn_error = 0
IF ISCOLOR()
SET COLOR OF NORMAL TO R/N
SET COLOR OF MESSAGES TO R/N
SET COLOR OF TITLES TO R/N
SET COLOR OF HIGHLIGHT TO GR+/N
SET COLOR OF BOX TO GR+/N
SET COLOR OF INFORMATION TO GR+/N
SET COLOR OF FIELDS TO GR+/N
ENDIF

SET BORDER TO
@ 4,0 TO 6,79 DOUBLE COLOR GR+/N
@ 5,1 CLEAR TO 5,78
@ 5,1 FILL TO 5,78 COLOR R/N
@ 5,4 SAY "Maintain Status Log" COLOR R/N
@ 5,31 SAY "Print Reports" COLOR R/N
@ 5,52 SAY "Housekeeping" COLOR R/N
@ 5,72 SAY "Exit" COLOR R/N
@ 22,00
ENDIF
RETURN

PROCEDURE DBF02
CLOSE DATABASES
*-- Open menu level view/database
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
lc_new='Y'
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
RETURN

PROCEDURE ACT02
*-- Begin CQWAZ1: BAR Menu Actions.
*-- (before item, action, and after item)
*
PRIVATE lc_new, lc_dbf
lc_new=' '
lc_dbf=' '
DO CASE
CASE "PAD_1" = PAD()
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
ACTIVATE WINDOW Browscr
SET SCOREBOARD ON
SET MESSAGE TO "Review or change CQ WAZ status records for all zones and bands"
*-- Desc: attach format file CQWAZ
SET FORMAT TO CQWAZ
EDIT NOAPPEND NODELETE
*-- close format file so as not to affect READ's
SET FORMAT TO
SET SCOREBOARD OFF
DEACTIVATE WINDOW Browscr
CASE "PAD_2" = PAD()
public band,worked,confirm,rptmode
store "CQ" to rptmode
set console off
lc_new='Y'
DO CQWAZRPT WITH " 02"
CASE "PAD_3" = PAD()
lc_new='Y'
DO HOUSKEEP WITH " 02"
CASE "PAD_4" = PAD()
lc_new='Y'
DO ESCAPE WITH " 02"
OTHERWISE
@ 24,00
@ 24,21 SAY "This item has no action. Press a key."
x=INKEY(0)
@ 24,00
ENDCASE
SET MESSAGE TO
IF SET("STATUS")="ON"
SET STATUS OFF
ENDIF
IF gc_quit='Q'
DEACTIVATE MENU && CQWAZ1
ENDIF
IF lc_new='Y'
lc_file="SET"+gc_prognum
DO &lc_file.
ENDIF
RETURN
**********************************************************************
* Program......: ITUWAZ1.PRG
* Author.......: Paul M. Elliott N3GPU
* Date.........: 3-12-90
* Notice.......:
* dBASE Ver....:
* Generated by.: APGEN version 1.0
* Description..: ITU WORKED ALL ZONES STATUS MENU

* Description..: Menu actions
**********************************************************************
PROCEDURE ITUWAZ1
PARAMETER entryflg
PRIVATE gc_prognum
gc_prognum="03"

DO SET03
IF gn_error > 0
gn_error=0
RETURN
ENDIF

*-- Before menu code


ACTIVATE MENU ITUWAZ1

@ 4,0 CLEAR TO 6,79

*-- After menu

RETURN
*-- EOP ITUWAZ1

PROCEDURE SET03
ON KEY LABEL F1 DO 1HELP1

DO DBF03 && open menu level database

IF gn_error = 0
IF ISCOLOR()
SET COLOR OF NORMAL TO R/N
SET COLOR OF MESSAGES TO R/N
SET COLOR OF TITLES TO R/N
SET COLOR OF HIGHLIGHT TO GR+/N
SET COLOR OF BOX TO GR+/N
SET COLOR OF INFORMATION TO GR+/N
SET COLOR OF FIELDS TO GR+/N
ENDIF

SET BORDER TO
@ 4,0 TO 6,79 DOUBLE COLOR GR+/N
@ 5,1 CLEAR TO 5,78
@ 5,1 FILL TO 5,78 COLOR R/N
@ 5,4 SAY "Maintain Status Log" COLOR R/N
@ 5,31 SAY "Print Reports" COLOR R/N
@ 5,52 SAY "Housekeeping" COLOR R/N
@ 5,72 SAY "Exit" COLOR R/N
@ 22,00
ENDIF
RETURN

PROCEDURE DBF03
CLOSE DATABASES
*-- Open menu level view/database
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE ITUWAZ
IF "" <> DBF()
SET INDEX TO ITUZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening ITUWAZ.DBF or index(es) ITUZONE"
lc_new='Y'
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
RETURN

PROCEDURE ACT03
*-- Begin ITUWAZ1: BAR Menu Actions.
*-- (before item, action, and after item)
*
PRIVATE lc_new, lc_dbf
lc_new=' '
lc_dbf=' '
DO CASE
CASE "PAD_1" = PAD()
ACTIVATE WINDOW Browscr
SET SCOREBOARD ON
SET MESSAGE TO "Review or change ITU WAZ award status records for all zones and bands"
*-- Desc: attach format file ITUWAZ
SET FORMAT TO ITUWAZ
EDIT NOAPPEND NODELETE
*-- close format file so as not to affect READ's
SET FORMAT TO
SET SCOREBOARD OFF
DEACTIVATE WINDOW Browscr
CASE "PAD_2" = PAD()
public band,worked,confirm,rptmode
store "ITU" to rptmode
set console off
lc_new='Y'
DO ITUWAZRP WITH " 03"
CASE "PAD_3" = PAD()
lc_new='Y'
DO HOUSKEEP WITH " 03"
CASE "PAD_4" = PAD()
lc_new='Y'
DO ESCAPE WITH " 03"
OTHERWISE
@ 24,00
@ 24,21 SAY "This item has no action. Press a key."
x=INKEY(0)
@ 24,00
ENDCASE
SET MESSAGE TO
IF SET("STATUS")="ON"
SET STATUS OFF
ENDIF
IF gc_quit='Q'
DEACTIVATE MENU && ITUWAZ1
ENDIF
IF lc_new='Y'
lc_file="SET"+gc_prognum
DO &lc_file.
ENDIF
RETURN
**********************************************************************
* Program......: EXIT1.PRG
* Author.......: Paul M. Elliott N3GPU
* Date.........: 3-12-90
* Notice.......:
* dBASE Ver....:
* Generated by.: APGEN version 1.0
* Description..: EXIT CHOICES MENU

* Description..: Menu actions
**********************************************************************
PROCEDURE EXIT1
PARAMETER entryflg
PRIVATE gc_prognum
gc_prognum="04"

DO SET04
IF gn_error > 0
gn_error=0
RETURN
ENDIF

*-- Before menu code


ACTIVATE POPUP EXIT1

*-- After menu

RETURN
*-- EOP EXIT1

PROCEDURE SET04
ON KEY LABEL F1 DO 1HELP1

DO DBF04 && open menu level database

IF gn_error = 0
IF ISCOLOR()
SET COLOR OF NORMAL TO R/N
SET COLOR OF MESSAGES TO R/N
SET COLOR OF TITLES TO R/N
SET COLOR OF HIGHLIGHT TO GR+/N
SET COLOR OF BOX TO GR+/N
SET COLOR OF INFORMATION TO GR+/N
SET COLOR OF FIELDS TO GR+/N
ENDIF
@ 22,00
ENDIF
RETURN

PROCEDURE DBF04
CLOSE DATABASES
*-- Open menu level view/database
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF"
lc_new='Y'
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
RETURN

PROCEDURE ACT04
*-- Begin EXIT1: POPUP Menu Actions.
*-- (before item, action, and after item)
*
PRIVATE lc_new, lc_dbf
lc_new=' '
lc_dbf=' '
DO CASE
CASE BAR() = 1
*-- Quit dBASE
CLOSE DATABASES
QUIT
CASE BAR() = 2
*-- Return to caller
gc_quit='Q'
IF LEFT(entryflg,1) <> "B"
DEACTIVATE POPUP && EXIT1
ELSE
DEACTIVATE MENU
ENDIF
RETURN
ENDCASE
SET MESSAGE TO
IF SET("STATUS")="ON"
SET STATUS OFF
ENDIF
IF gc_quit='Q'
DEACTIVATE POPUP && EXIT1
ENDIF
IF lc_new='Y'
lc_file="SET"+gc_prognum
DO &lc_file.
ENDIF
RETURN
**********************************************************************
* Program......: CQWAZRPT.PRG
* Author.......: Paul M. Elliott N3GPU
* Date.........: 3-12-90
* Notice.......:
* dBASE Ver....:
* Generated by.: APGEN version 1.0
* Description..: CQ Worked All Zones Status Reports Menu

* Description..: Menu actions
**********************************************************************
PROCEDURE CQWAZRPT
PARAMETER entryflg
PRIVATE gc_prognum
gc_prognum="05"

DO SET05
IF gn_error > 0
gn_error=0
RETURN
ENDIF

*-- Before menu code


ACTIVATE POPUP CQWAZRPT

*-- After menu

RETURN
*-- EOP CQWAZRPT

PROCEDURE SET05
ON KEY LABEL F1 DO 1HELP1

DO DBF05 && open menu level database

IF gn_error = 0
IF ISCOLOR()
SET COLOR OF NORMAL TO R/N
SET COLOR OF MESSAGES TO R/N
SET COLOR OF TITLES TO R/N
SET COLOR OF HIGHLIGHT TO GR+/N
SET COLOR OF BOX TO GR+/N
SET COLOR OF INFORMATION TO GR+/N
SET COLOR OF FIELDS TO GR+/N
ENDIF
@ 22,00
ENDIF
RETURN

PROCEDURE DBF05
CLOSE DATABASES
*-- Open menu level view/database
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF"
lc_new='Y'
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
RETURN

PROCEDURE ACT05
*-- Begin CQWAZRPT: POPUP Menu Actions.
*-- (before item, action, and after item)
*
PRIVATE lc_new, lc_dbf
lc_new=' '
lc_dbf=' '
DO CASE
CASE BAR() = 1
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
COUNT FOR WKD10CALL <> " " TO WORKED
COUNT FOR CFM10CALL <> " " TO CONFIRM
STORE "10" TO BAND
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 10 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 2
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
STORE "12" TO BAND
COUNT FOR WKD12CALL <> " " TO WORKED
COUNT FOR CFM12CALL <> " " TO CONFIRM
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 12 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 3
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
STORE "15" TO BAND
COUNT FOR WKD15CALL <> " " TO WORKED
COUNT FOR CFM15CALL <> " " TO CONFIRM
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 15 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 4
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
STORE "17" TO BAND
COUNT FOR WKD17CALL <> " " TO WORKED
COUNT FOR CFM17CALL <> " " TO CONFIRM
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 17 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 5
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
STORE "20" TO BAND
COUNT FOR WKD20CALL <> " " TO WORKED
COUNT FOR CFM20CALL <> " " TO CONFIRM
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 20 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 6
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
STORE "30" TO BAND
COUNT FOR WKD30CALL <> " " TO WORKED
COUNT FOR CFM30CALL <> " " TO CONFIRM
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 30 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 7
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
STORE "40" TO BAND
COUNT FOR WKD40CALL <> " " TO WORKED
COUNT FOR CFM40CALL <> " " TO CONFIRM
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 40 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 8
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
STORE "75/80" TO BAND
COUNT FOR WKD80CALL <> " " TO WORKED
COUNT FOR CFM80CALL <> " " TO CONFIRM
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 75/80 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 9
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
STORE "160" TO BAND
COUNT FOR WKD160CALL <> " " TO WORKED
COUNT FOR CFM160CALL <> " " TO CONFIRM
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 160 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 10
*-- Open Item level view/database and indexes
CLOSE DATABASES
lc_dbf='Y'
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
IF "" <> DBF()
SET INDEX TO ZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF or index(es) ZONE"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
DO mvarlst1
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - all bands 160-10 meters"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZALLXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
DO release1
ENDCASE
SET MESSAGE TO
IF SET("STATUS")="ON"
SET STATUS OFF
ENDIF
IF gc_quit='Q'
DEACTIVATE POPUP && CQWAZRPT
ENDIF
IF lc_new='Y'
lc_file="SET"+gc_prognum
DO &lc_file.
ENDIF
IF lc_dbf='Y' .AND. .NOT. lc_new='Y'
lc_file="DBF"+gc_prognum
DO &lc_file.
ENDIF
RETURN
**********************************************************************
* Program......: HOUSKEEP.PRG
* Author.......: Paul M. Elliott N3GPU
* Date.........: 3-12-90
* Notice.......:
* dBASE Ver....:
* Generated by.: APGEN version 1.0
* Description..: Database housekeeping menu

* Description..: Menu actions
**********************************************************************
PROCEDURE HOUSKEEP
PARAMETER entryflg
PRIVATE gc_prognum
gc_prognum="06"

DO SET06
IF gn_error > 0
gn_error=0
RETURN
ENDIF

*-- Before menu code


ACTIVATE POPUP HOUSKEEP

*-- After menu

RETURN
*-- EOP HOUSKEEP

PROCEDURE SET06
ON KEY LABEL F1 DO 1HELP1

DO DBF06 && open menu level database

IF gn_error = 0
IF ISCOLOR()
SET COLOR OF NORMAL TO R/N
SET COLOR OF MESSAGES TO R/N
SET COLOR OF TITLES TO R/N
SET COLOR OF HIGHLIGHT TO GR+/N
SET COLOR OF BOX TO GR+/N
SET COLOR OF INFORMATION TO GR+/N
SET COLOR OF FIELDS TO GR+/N
ENDIF
@ 22,00
ENDIF
RETURN

PROCEDURE DBF06
CLOSE DATABASES
*-- Open menu level view/database
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF"
lc_new='Y'
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
RETURN

PROCEDURE ACT06
*-- Begin HOUSKEEP: POPUP Menu Actions.
*-- (before item, action, and after item)
*
PRIVATE lc_new, lc_dbf
lc_new=' '
lc_dbf=' '
DO CASE
CASE BAR() = 1
SET EXCLUSIVE ON
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
SET EXCLUSIVE OFF
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Physically remove records previously marked for deletion."
lc_say='Looking for DELETED Records...'
DO info_box WITH lc_say
LOCATE FOR DELETED()
IF .NOT. EOF()
lc_say='Purging DELETED Records...'
DO info_box WITH lc_say
SET TALK ON
PACK
SET TALK OFF
GO TOP
ENDIF

DEACTIVATE WINDOW Savescr
CASE BAR() = 2
SET EXCLUSIVE ON
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF"
gn_error=0
lc_file="SET"+gc_prognum
DO &lc_file.
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
SET EXCLUSIVE OFF
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Rebuild log file indexes (use if records display or print in wrong order)."
lc_say='Reindexing Database...'
DO info_box WITH lc_say
SET TALK ON
REINDEX
SET TALK OFF

DEACTIVATE WINDOW Savescr
ENDCASE
SET MESSAGE TO
IF SET("STATUS")="ON"
SET STATUS OFF
ENDIF
IF gc_quit='Q'
DEACTIVATE POPUP && HOUSKEEP
ENDIF
IF lc_new='Y'
lc_file="SET"+gc_prognum
DO &lc_file.
ENDIF
RETURN
**********************************************************************
* Program......: ESCAPE.PRG
* Author.......: Paul M. Elliott N3GPU
* Date.........: 3-12-90
* Notice.......:
* dBASE Ver....:
* Generated by.: APGEN version 1.0
* Description..: TEXT ONLY

* Description..: Menu actions
**********************************************************************
PROCEDURE ESCAPE
PARAMETER entryflg
PRIVATE gc_prognum
gc_prognum="07"

DO SET07
IF gn_error > 0
gn_error=0
RETURN
ENDIF

*-- Before menu code


ACTIVATE POPUP ESCAPE

*-- After menu

RETURN
*-- EOP ESCAPE

PROCEDURE SET07
ON KEY LABEL F1 DO 1HELP1

DO DBF07 && open menu level database

IF gn_error = 0
IF ISCOLOR()
SET COLOR OF NORMAL TO W/B
SET COLOR OF MESSAGES TO W/B
SET COLOR OF TITLES TO W/B
SET COLOR OF HIGHLIGHT TO GR+/N
SET COLOR OF BOX TO GR+/N
SET COLOR OF INFORMATION TO GR+/N
SET COLOR OF FIELDS TO GR+/N
ENDIF
@ 22,00
ENDIF
RETURN

PROCEDURE DBF07
CLOSE DATABASES
*-- Open menu level view/database
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE CQWAZ
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening CQWAZ.DBF"
lc_new='Y'
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
RETURN

PROCEDURE ACT07
*-- Begin ESCAPE: POPUP Menu Actions.
*-- (before item, action, and after item)
*
PRIVATE lc_new, lc_dbf
lc_new=' '
lc_dbf=' '
DO CASE
ENDCASE
SET MESSAGE TO
IF SET("STATUS")="ON"
SET STATUS OFF
ENDIF
IF gc_quit='Q'
DEACTIVATE POPUP && ESCAPE
ENDIF
IF lc_new='Y'
lc_file="SET"+gc_prognum
DO &lc_file.
ENDIF
RETURN
**********************************************************************
* Program......: ITUWAZRP.PRG
* Author.......: Paul M. Elliott N3GPU
* Date.........: 3-12-90
* Notice.......:
* dBASE Ver....:
* Generated by.: APGEN version 1.0
* Description..: ITU WORKED ALL ZONES STATUS REPORTS

* Description..: Menu actions
**********************************************************************
PROCEDURE ITUWAZRP
PARAMETER entryflg
PRIVATE gc_prognum
gc_prognum="08"

DO SET08
IF gn_error > 0
gn_error=0
RETURN
ENDIF

*-- Before menu code


ACTIVATE POPUP ITUWAZRP

*-- After menu

RETURN
*-- EOP ITUWAZRP

PROCEDURE SET08
ON KEY LABEL F1 DO 1HELP1

DO DBF08 && open menu level database

IF gn_error = 0
IF ISCOLOR()
SET COLOR OF NORMAL TO R/N
SET COLOR OF MESSAGES TO R/N
SET COLOR OF TITLES TO R/N
SET COLOR OF HIGHLIGHT TO GR+/N
SET COLOR OF BOX TO GR+/N
SET COLOR OF INFORMATION TO GR+/N
SET COLOR OF FIELDS TO GR+/N
ENDIF
@ 22,00
ENDIF
RETURN

PROCEDURE DBF08
CLOSE DATABASES
*-- Open menu level view/database
lc_message="0"
ON ERROR lc_message=LTRIM(STR(ERROR()))+" "+MESSAGE()
USE ITUWAZ
IF "" <> DBF()

SET INDEX TO ITUZONE
ENDIF
ON ERROR
gn_error=VAL(lc_message)
IF gn_error > 0
DO Pause WITH ;
"Error opening ITUWAZ.DBF or index(es) ITUZONE"
lc_new='Y'
RETURN
ENDIF
lc_new='Y'
RELEASE lc_message
RETURN

PROCEDURE ACT08
*-- Begin ITUWAZRP: POPUP Menu Actions.
*-- (before item, action, and after item)
*
PRIVATE lc_new, lc_dbf
lc_new=' '
lc_dbf=' '
DO CASE
CASE BAR() = 1
store "10" to band
count for wkd10call <> " " to worked
count for cfm10call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 10 meter bands only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 2
store "12" to band
count for wkd12call <> " " to worked
count for cfm12call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 12 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 3
store "15" to band
count for wkd15call <> " " to worked
count for cfm15call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 15 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 4
store "17" to band
count for wkd17call <> " " to worked
count for cfm17call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 17 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 5
store "20" to band
count for wkd20call <> " " to worked
count for cfm20call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 20 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 6
store "30" to band
count for wkd30call <> " " to worked
count for cfm30call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 30 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 7
store "40" to band
count for wkd40call <> " " to worked
count for cfm40call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 40 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 8
store "75/80" to band
count for wkd80call <> " " to worked
count for cfm80call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 75/80 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 9
store "160" to band
count for wkd160call <> " " to worked
count for cfm160call <> " " to confirm
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - 160 meter band only"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
CASE BAR() = 10
do mvarlst1
ACTIVATE WINDOW Savescr
SET MESSAGE TO "Status report for all zones - all bands 160-10 meters"
*-- Desc: Report
SET PRINT ON
REPORT FORM WAZALLXX
SET PRINT OFF
DEACTIVATE WINDOW Savescr
do release1
ENDCASE
SET MESSAGE TO
IF SET("STATUS")="ON"
SET STATUS OFF
ENDIF
IF gc_quit='Q'
DEACTIVATE POPUP && ITUWAZRP
ENDIF
IF lc_new='Y'
lc_file="SET"+gc_prognum
DO &lc_file.
ENDIF
RETURN