CREATE TABLE cqrlog_main (
qsodate VARCHAR(10),
time_on VARCHAR(5),
time_off VARCHAR(5),
call VARCHAR(20),
freq NUMERIC(10,4),
mode VARCHAR(8),
rst_s VARCHAR(20),
rst_r VARCHAR(20),
name VARCHAR(40),
qth VARCHAR(60),
qsl_s VARCHAR(3),
qsl_r VARCHAR(3),
qsl_via VARCHAR(30),
iota VARCHAR(6),
pwr VARCHAR(10),
itu INTEGER,
waz INTEGER,
loc VARCHAR(6),
my_loc VARCHAR(6),
county VARCHAR(30),
award VARCHAR(50),
remarks VARCHAR(200),
dxcc_ref VARCHAR(10),
band VARCHAR(6),
qso_dxcc INTEGER DEFAULT 0,
profile INTEGER,
id_cqrlog INTEGER NOT NULL PRIMARY KEY,
idcall VARCHAR(20),
state VARCHAR(4),
lotw_qslsdate varchar(10),
lotw_qslrdate varchar(10),
lotw_qsls varchar(3),
lotw_qslr varchar(3),
cont varchar(3),
qsls_date varchar(10),
qslr_date varchar(10)
);
CREATE TABLE remarks(
call VARCHAR(20),
longremarks VARCHAR(256),
id_remarks INTEGER NOT NULL PRIMARY KEY
);
CREATE TABLE bandcn (
prefix VARCHAR(6),
country VARCHAR(50),
F137 VARCHAR(2),C137 VARCHAR(2),D137 VARCHAR(2),
F160 VARCHAR(2),C160 VARCHAR(2),D160 VARCHAR(2),
F80 VARCHAR(2),C80 VARCHAR(2), D80 VARCHAR(2),
F60 VARCHAR(2),C60 VARCHAR(2), D60 VARCHAR(2),
F40 VARCHAR(2),C40 VARCHAR(2), D40 VARCHAR(2),
F30 VARCHAR(2),C30 VARCHAR(2), D30 VARCHAR(2),
F20 VARCHAR(2),C20 VARCHAR(2), D20 VARCHAR(2),
F17 VARCHAR(2),C17 VARCHAR(2), D17 VARCHAR(2),
F15 VARCHAR(2),C15 VARCHAR(2), D15 VARCHAR(2),
F12 VARCHAR(2),C12 VARCHAR(2), D12 VARCHAR(2),
F10 VARCHAR(2),C10 VARCHAR(2), D10 VARCHAR(2),
F6 VARCHAR(2),C6 VARCHAR(2), D6 VARCHAR(2),
F4 VARCHAR(2),C4 VARCHAR(2),D4 VARCHAR(2),
F2 VARCHAR(2),C2 VARCHAR(2),D2 VARCHAR(2),
F220 VARCHAR(2),C220 VARCHAR(2),D220 VARCHAR(2),
F70 VARCHAR(2),C70 VARCHAR(2),D70 VARCHAR(2),
F900 VARCHAR(2),C900 VARCHAR(2),D900 VARCHAR(2),
F1300 VARCHAR(2),C1300 VARCHAR(2),D1300 VARCHAR(2),
F2450 VARCHAR(2),C2450 VARCHAR(2),D2450 VARCHAR(2),
F3475 VARCHAR(2),C3475 VARCHAR(2),D3475 VARCHAR(2),
F5850 VARCHAR(2),C5850 VARCHAR(2),D5850 VARCHAR(2),
F10500 VARCHAR(2),C10500 VARCHAR(2),D10500 VARCHAR(2),
F24250 VARCHAR(2),C24250 VARCHAR(2),D24250 VARCHAR(2),
F47200 VARCHAR(2),C47200 VARCHAR(2),D47200 VARCHAR(2),
F84000 VARCHAR(2),C84000 VARCHAR(2),D84000 VARCHAR(2),
F137L VARCHAR(2),C137L VARCHAR(2),D137L VARCHAR(2),
F160L VARCHAR(2),C160L VARCHAR(2),D160L VARCHAR(2),
F80L VARCHAR(2),C80L VARCHAR(2), D80L VARCHAR(2),
F60L VARCHAR(2),C60L VARCHAR(2), D60L VARCHAR(2),
F40L VARCHAR(2),C40L VARCHAR(2), D40L VARCHAR(2),
F30L VARCHAR(2),C30L VARCHAR(2), D30L VARCHAR(2),
F20L VARCHAR(2),C20L VARCHAR(2), D20L VARCHAR(2),
F17L VARCHAR(2),C17L VARCHAR(2), D17L VARCHAR(2),
F15L VARCHAR(2),C15L VARCHAR(2), D15L VARCHAR(2),
F12L VARCHAR(2),C12L VARCHAR(2), D12L VARCHAR(2),
F10L VARCHAR(2),C10L VARCHAR(2), D10L VARCHAR(2),
F6L VARCHAR(2),C6L VARCHAR(2), D6L VARCHAR(2),
F4L VARCHAR(2),C4L VARCHAR(2),D4L VARCHAR(2),
F2L VARCHAR(2),C2L VARCHAR(2),D2L VARCHAR(2),
F220L VARCHAR(2),C220L VARCHAR(2),D220L VARCHAR(2),
F70L VARCHAR(2),C70L VARCHAR(2),D70L VARCHAR(2),
F900L VARCHAR(2),C900L VARCHAR(2),D900L VARCHAR(2),
F1300L VARCHAR(2),C1300L VARCHAR(2),D1300L VARCHAR(2),
F2450L VARCHAR(2),C2450L VARCHAR(2),D2450L VARCHAR(2),
F3475L VARCHAR(2),C3475L VARCHAR(2),D3475L VARCHAR(2),
F5850L VARCHAR(2),C5850L VARCHAR(2),D5850L VARCHAR(2),
F10500L VARCHAR(2),C10500L VARCHAR(2),D10500L VARCHAR(2),
F24250L VARCHAR(2),C24250L VARCHAR(2),D24250L VARCHAR(2),
F47200L VARCHAR(2),C47200L VARCHAR(2),D47200L VARCHAR(2),
F84000L VARCHAR(2),C84000L VARCHAR(2),D84000L VARCHAR(2),
deleted INTEGER DEFAULT 0,
id_bandcn INTEGER NOT NULL PRIMARY KEY
);
CREATE TABLE ref_dxcc (
pref VARCHAR(15),
name VARCHAR(50),
cont VARCHAR(6),
utc VARCHAR(12),
lat VARCHAR(10),
longit VARCHAR(10),
itu VARCHAR(20),
waz VARCHAR(20),
adif INTEGER,
deleted SMALLINT DEFAULT 0,
id_ref_dxcc INTEGER NOT NULL PRIMARY KEY
);
CREATE TABLE exceptions(
exp VARCHAR(10),
id_exceptions INTEGER NOT NULL PRIMARY KEY
);
CREATE INDEX exp ON exceptions (exp);
CREATE TABLE bands (
band INTEGER,
b_begin NUMERIC(10,4),
b_end NUMERIC(10,4),
cw NUMERIC(10,4),
rtty NUMERIC(10,4),
ssb NUMERIC(10,4),
id_bands INTEGER NOT NULL PRIMARY KEY
);
CREATE TABLE profiles (
nr INTEGER,
locator VARCHAR(6),
qth VARCHAR(250),
rig VARCHAR(250),
remarks VARCHAR(250),
visible INTEGER
);
CREATE TABLE version (
major INTEGER DEFAULT 0,
minor INTEGER DEFAULT 9,
releas INTEGER DEFAULT 0
);
CREATE TABLE dxclusters (
description VARCHAR(100),
address VARCHAR(100),
port VARCHAR(10),
dxcuser VARCHAR(12),
pass VARCHAR(12),
id_dxclusters INTEGER NOT NULL PRIMARY KEY
);
CREATE TABLE ambiguous (am VARCHAR(10),
id_ambiguous INTEGER NOT NULL PRIMARY KEY
);
CREATE TABLE iota_list (
iota_nr VARCHAR(6),
island_name VARCHAR(250),
dxcc_ref VARCHAR(15),
pref VARCHAR(15),
id_iota_list INTEGER NOT NULL PRIMARY KEY
);
CREATE TABLE award1 EXTERNAL FILE 'award1.tbl'
(
CLUB_NR Char(100),
CLUBCALL Char(100),
FRMDATE Char(11),
TODATE Char(11),
NEW_LINE CHAR(1)
);
CREATE TABLE award2 EXTERNAL FILE 'award2.tbl'
(
CLUB_NR Char(100),
CLUBCALL Char(100),
FRMDATE Char(11),
TODATE Char(11),
NEW_LINE CHAR(1)
);
CREATE TABLE award3 EXTERNAL FILE 'award3.tbl'
(
CLUB_NR Char(100),
CLUBCALL Char(100),
FRMDATE Char(11),
TODATE Char(11),
NEW_LINE CHAR(1)
);
CREATE TABLE award4 EXTERNAL FILE 'award4.tbl'
(
CLUB_NR Char(100),
CLUBCALL Char(100),
FRMDATE Char(11),
TODATE Char(11),
NEW_LINE CHAR(1)
);
CREATE TABLE award5 EXTERNAL FILE 'award5.tbl'
(
CLUB_NR Char(100),
CLUBCALL Char(100),
FRMDATE Char(11),
TODATE Char(11),
NEW_LINE CHAR(1)
);
CREATE TABLE long_note
(
note BLOB SUB_TYPE text,
id_long_note INTEGER NOT NULL PRIMARY key
);
CREATE TABLE zipcode1 EXTERNAL FILE 'zipcode1.tbl'
(
zip Char(20),
county Char(100),
NEW_LINE CHAR(1)
);
CREATE TABLE zipcode2 EXTERNAL FILE 'zipcode2.tbl'
(
zip Char(20),
county Char(100),
NEW_LINE CHAR(1)
);
CREATE TABLE zipcode3 EXTERNAL FILE 'zipcode3.tbl'
(
zip Char(20),
county Char(100),
NEW_LINE CHAR(1)
);
CREATE TABLE qslmgr EXTERNAL FILE 'qslmgr.tbl'
(
call Char(20),
qsl_via Char(20),
fromdate Char(11),
NEW_LINE CHAR(1)
);
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_DXCCREF
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpcall varchar(20);
BEGIN
tmpcall='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by DXCC_REF';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpcall <> DXCC_REF) then
begin
tmpcall = DXCC_REF;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_REMARKS
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmprem varchar(200);
BEGIN
tmprem='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by REMARKS';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmprem <> REMARKS) then
begin
tmprem = REMARKS;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_AWARD
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpaward varchar(50);
BEGIN
tmpaward='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by AWARD';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpaward <> AWARD) then
begin
tmpaward = AWARD;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_CALL
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpcall varchar(20);
BEGIN
tmpcall='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by CALL';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpcall <> CALL) then
begin
tmpcall = CALL;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_IDCALL
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpcall varchar(20);
BEGIN
tmpcall='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by IDCALL';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpcall <> IDCALL) then
begin
tmpcall = IDCALL;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_LOC
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmploc varchar(6);
BEGIN
tmploc='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by LOC';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmploc <> LOC) then
begin
tmploc = LOC;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_IOTA
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpiota varchar(6);
BEGIN
tmpiota='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by IOTA';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpiota <> IOTA) then
begin
tmpiota = IOTA;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_WAZ
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpwaz INTEGER;
BEGIN
tmpwaz=0;
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by WAZ';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpwaz <> WAZ) then
begin
tmpwaz = WAZ;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_ITU
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpitu INTEGER;
BEGIN
tmpitu=0;
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by ITU';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpitu <> ITU) then
begin
tmpitu = ITU;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_STATE
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpstate varchar(4);
BEGIN
tmpstate='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by STATE';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpstate <> STATE) then
begin
tmpstate = STATE;
SUSPEND;
end
end
END;
CREATE OR ALTER PROCEDURE GRB_CQRLOG_MAIN_COUNTY
(WhereParam varchar(1000))RETURNS ( QSODATE Varchar(10), TIME_ON Varchar(5), TIME_OFF Varchar(5), CALL Varchar(20), FREQ Numeric(10,4), MODE Varchar(8), RST_S Varchar(20), RST_R Varchar(20), NAME Varchar(40), QTH Varchar(60), QSL_S Varchar(3), QSL_R Varchar(3), QSL_VIA Varchar(30), IOTA Varchar(6), PWR Varchar(10), ITU Integer, WAZ Integer, LOC Varchar(6), MY_LOC Varchar(6), COUNTY Varchar(30), AWARD Varchar(50), REMARKS Varchar(200), DXCC_REF Varchar(10), BAND Varchar(6), QSO_DXCC Integer, PROFILE Integer, ID_CQRLOG Integer, IDCALL Varchar(20), STATE Varchar(4), lotw_qslsdate varchar(10), lotw_qslrdate varchar(10), lotw_qsls varchar(3), lotw_qslr varchar(3), cont varchar(3), qsls_date varchar(10), qslr_date varchar(10))AS declare variable tmpsel varchar(1000);
declare variable tmpcounty varchar(30);
BEGIN
tmpcounty='';
tmpsel = 'SELECT QSODATE, TIME_ON, TIME_OFF, CALL, FREQ, MODE, RST_S, RST_R, NAME, QTH, QSL_S, QSL_R, QSL_VIA, IOTA, PWR, ITU, WAZ, LOC, MY_LOC, COUNTY, AWARD, REMARKS, DXCC_REF, BAND, QSO_DXCC, PROFILE, ID_CQRLOG, IDCALL,STATE,lotw_qslsdate,lotw_qslrdate,lotw_qsls,lotw_qslr,cont,qsls_date,qslr_date FROM CQRLOG_MAIN ' || whereparam || ' order by County';
FOR execute statement tmpsel INTO :QSODATE, :TIME_ON, :TIME_OFF, :CALL, :FREQ, :MODE, :RST_S, :RST_R, :NAME, :QTH, :QSL_S, :QSL_R, :QSL_VIA, :IOTA, :PWR, :ITU, :WAZ, :LOC, :MY_LOC, :COUNTY, :AWARD, :REMARKS, :DXCC_REF, :BAND, :QSO_DXCC, :PROFILE, :ID_CQRLOG, :IDCALL, :STATE, :lotw_qslsdate, :lotw_qslrdate, :lotw_qsls, :lotw_qslr, :cont, :qsls_date, :qslr_date DO begin
if (tmpcounty <> COUNTY) then
begin
tmpcounty = COUNTY;
SUSPEND;
end
end
END;