HDR*PowerBuilder 0600ٵU7 Objects for RAPIDS Source Groups and Level Selection FRE* 0 NOD* 9
ENT*0600 | -b? f_recalc_notify.srf ENT*0600 MA f_sqlcheck.fun ENT*0600 r MA f_recalc_notify.fun ENT*0600 -b?Q f_sqlcheck.srf ENT*0600 4 ; VO5 d_ss_tv_result_set.srd ENT*0600 9 2A r_ss_county_data.dwo ENT*0600 : 2A d_ss_tv_result_set.dwo ENT*0600 o iJ5 r_ss_county_data.srd ENT*0600 <$ d_ss_sources_at_county.srd ENT*0600 0 2A r_ss_device_data.dwo ENT*0600 2A d_ss_sources_at_county.dwo ENT*0600 M!9 r_ss_device_data.srd ENT*0600 E6/ d_ss_sic_from_buffer.srd ENT*0600 h 2A r_ss_filter_sub_report.dwo ENT*0600 A 2A d_ss_sic_from_buffer.dwo ENT*0600 u SO5 r_ss_filter_sub_report.srd ENT*0600 K>5? % d_ss_sic_at_selection_sub_source.srd ENT*0600 r 2A r_ss_group_sub_report.dwo ENT*0600 2A % d_ss_sic_at_selection_sub_source.dwo ENT*0600 & SO5 r_ss_group_sub_report.srd ENT*0600
\3>5& d_ss_sic_at_selection.srd ENT*0600 8 2A r_ss_nation_data.dwo ENT*0600 " 2A d_ss_sic_at_selection.dwo ENT*0600 F C hJ5 r_ss_nation_data.srd ENT*0600 l E6/ d_ss_scc_from_buffer.srd ENT*0600 N & 2A r_ss_process_data.dwo ENT*0600 R ] 2A d_ss_scc_from_buffer.dwo ENT*0600 v ' diJ5 r_ss_process_data.srd ENT*0600 8 I6& d_ss_scc_at_selection.srd ENT*0600 3A r_ss_selection_report.dwo ENT*0600 9 3A d_ss_scc_at_selection.dwo ENT*0600
TO5 r_ss_selection_report.srd ENT*0600
5w9& d_ss_processes_at_device.srd ENT*0600 1 3A r_ss_source_data.dwo ENT*0600 9 3A d_ss_processes_at_device.dwo ENT*0600 ,iJ5 r_ss_source_data.srd ENT*0600 ) ; 5B d_ss_hierarchy_to_county.srd ENT*0600 " 3A r_ss_source_sub_report.dwo ENT*0600 3A d_ss_hierarchy_to_county.dwo ENT*0600 " UO5 r_ss_source_sub_report.srd ENT*0600 P% ~
55 d_ss_group_source_criteria.srd ENT*0600 4 3A r_ss_state_data.dwo ENT*0600 | B% 3A d_ss_group_source_criteria.dwo ENT*0600 D k
iJ5 r_ss_state_data.srd ENT*0600 V # U+.6 d_ss_group_result_set_ora.srd ENT*0600 P W -b? u_class_source_group.sru ENT*0600 . & 3A d_ss_group_result_set_ora.dwo ENT*0600 v MA u_class_source_group.udo ENT*0600 u#
50 d_ss_group_result_set.srd ENT*0600 2 ! -b?# u_class_ss_client.sru ENT*0600 % 3A d_ss_group_result_set.dwo ENT*0600 /F 6+ d_ss_group_data.srd NOD* 0 8 ENT*0600 f I SFb? w_source_selector.srw ENT*0600 V NA w_source_selector.win ENT*0600
& -b?. w_test_client.srw ENT*0600 [ NA w_test_client.win NOD*
ENT*0600 p k-w9$ d_ss_devices_at_source.srd ENT*0600 ^ ! 3A d_ss_devices_at_source.dwo ENT*0600 D >-w9 d_ss_client_result.srd ENT*0600 ( 3A d_ss_client_result.dwo ENT*0600 | 3A d_ss_group_data.dwo DAT* * PDW0800 pdw Pl V W ` ` ` `
F$ n n a a DAT* ,
@ H T E ` DAT* .
<
$ 0 % Arial Arial $ 2 $
-9 $ 700 $ 16777215 $ 9 $ 4 $ DAT* 0 < 60 $ V 393 % State State ` %
" $ Z 411 $ ! V 393 % # $ County County ` -
& ( * $ ' . 814 $ ) DAT* 2 942 % + , Source Name Source Name ` 5 %
. 0 2 $ / 1765 $ 1 133 % 3 4 Type Type ` = -
6 8 : $ 7 r 1906 $ 9 ? 288 % ; DAT* 4 < SIC Code SIC Code ` E 5
> @ B $ ? 2203 $ A > 283 % C D SCC Code SCC Code ` = F
K M O Q <
G
I $ H -12 $ J DAT* 6 400 $ L " 2496 $ N L 76 $ P 0 219 % R S
Source Id
Source Id $ U
536870912 @ T @ H T X g Y W Z
] _ a c f DAT* 8 state_name <
[
I $ \ -8 $ ^ 9 $ ` @ 64 $ b V 393 & d e
[general]
[general] n X h W Z
i _ k c m county_name $ j Z 411DAT* : $ l V 393 u g o W Z
p _ r c t source_name $ q . 814 $ s 942 | n v W Z
w _ y c { source_type $ x 1765 $ z DAT* < 133 u } W Z
~ _ c sic_code $ r 1906 $ ? 288 | W Z
_ c scc_code $ 2203 $ > DAT* > 283 W Z
c
source_id $ " 2496 $ 0 $ 8 56 $ 0 219 @ T DAT* @ X 3 g 3 n 3 u DAT* B | D ge al_nationArray al_stateArray al_countyArray al_sourceArray al_sourceSub1Array al_sourceSub2Array al_sourceSub3Array al_sourceSub4Array state_name v_rap_ss_scc.state_name X county_name DAT* v_rap_ss_scc.county_name g
source_id v_rap_ss_scc.source_id source_name v_rap_ss_scc.source_name n source_type v_rap_ss_scc.source_type u sic_code v_rap_ss_scc.sic_code | scc_code v_rap_ss_scc.scc_code SELECT
v_rap_ss_scc.state_name,
v_rap_ss_scc.county_name,
v_rap_ss_scc.source_id,
v_rap_ss_scc.source_name,
v_rap_ss_scc.souDAT* F TEST Client Window Reportrelease 6;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=72 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=72 color="536870DAT* H 912" )
table(column=(type=char(50) updatewhereclause=yes name=state_name dbname="v_rap_ss_scc.state_name" )
column=(type=char(50) updatewhereclause=yes name=county_name dbname="v_rap_ss_scc.county_name" )
column=(type=char(10) updatewhereclause=yes name=source_id dbname="v_rap_ss_scc.source_id" )
column=(type=char(50) updatewhereclause=yes name=source_name dbname="v_rap_ss_scc.source_name" )
column=(type=char(1) updatewhereclause=yes name=source_type dbname="v_rap_ss_scc.source_type" )
DAT* J column=(type=char(4) updatewhereclause=yes name=sic_code dbname="v_rap_ss_scc.sic_code" )
column=(type=char(10) updatewhereclause=yes name=scc_code dbname="v_rap_ss_scc.scc_code" )
retrieve="SELECT
v_rap_ss_scc.state_name,
v_rap_ss_scc.county_name,
v_rap_ss_scc.source_id,
v_rap_ss_scc.source_name,
v_rap_ss_scc.source_type,
v_rap_ss_scc.sic_code,
v_rap_ss_scc.scc_code
FROM
v_rap_ss_scc
WHERE 1 = 1
ORDER BY
v_rap_ss_scc.state_name ASC,
v_rap_ss_scc.counDAT* L ty_name ASC,
v_rap_ss_scc.source_id ASC,
v_rap_ss_scc.scc_code ASC
" arguments=(("al_nationArray", numberlist),("al_stateArray", numberlist),("al_countyArray", numberlist),("al_sourceArray", numberlist),("al_sourceSub1Array", numberlist),("al_sourceSub2Array", numberlist),("al_sourceSub3Array", numberlist),("al_sourceSub4Array", numberlist)) )
text(band=header alignment="0" text="State"border="0" color="0" x="9" y="4" height="60" width="393" font.face="Arial" font.height="-9" font.weDAT* N ight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="County"border="0" color="0" x="411" y="4" height="60" width="393" font.face="Arial" font.height="-9" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Name"border="0" color="0" x="814" y="4" height="60" width="942" font.face="Arial" font.heDAT* P ight="-9" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Type"border="0" color="0" x="1765" y="4" height="60" width="133" font.face="Arial" font.height="-9" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="SIC Code"border="0" color="0" x="1906" y="4" height="60" width="288" font.face="DAT* R Arial" font.height="-9" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="SCC Code"border="0" color="0" x="2203" y="4" height="60" width="283" font.face="Arial" font.height="-9" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="9" y="4" height="64"DAT* T width="393" format="[general]" name=state_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="411" y="4" height="64" width="393" format="[general]" name=county_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400"DAT* V font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="814" y="4" height="64" width="942" format="[general]" name=source_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=5 alignment="0" tabsequencDAT* X e=32766 border="0" color="0" x="1765" y="4" height="64" width="133" format="[general]" name=source_type edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=6 alignment="0" tabsequence=32766 border="0" color="0" x="1906" y="4" height="64" width="288" format="[general]" name=sic_code edit.limit=0 edit.case=any edit.autoselect=yesDAT* Z font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=7 alignment="0" tabsequence=32766 border="0" color="0" x="2203" y="4" height="64" width="283" format="[general]" name=scc_code edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215"DAT* \ )
column(band=detail id=3 alignment="0" tabsequence=0 border="0" color="0" x="2501" y="0" height="56" width="219" name=source_id font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Id"border="0" color="0" x="2496" y="4" height="76" width="224" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" backgDAT* round.mode="2" background.color="16777215" )
htmltable(border="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes") DAT* ` PDW0800 e pdw Pl O / 0 N ` ` ` ` $ F$ e n n a a DAT* b ^
@ X - % ` DAT* d
<
$ 0 % Arial Arial $ 2 $
-12 $ 400 $ 16777215 $ 9 $ 4 $ DAT* f L 76 $ ^ 430 % device_rid device_rid ` %
" $ b 448 $ ! 649 % # $
device_id
device_id `
& ( * $ ' R 1106 $ DAT* h ) ~ 1746 % + , device_name device_name $ .
536870912 @ - @ T - 1 G = 2 0
3 5 7 9 < rid $ 4 9 $ 6 0 $ DAT* j 8 ^ 430 & : ;
[general]
[general] G 1 > 0
? 5 A C F id $ @ b 448 $ B 649 & D E
[general]
[general] = H 0
I 5 K C DAT* l M name $ J R 1106 $ L ~ 1746 @ - P R ] DAT* n V 1 T U
Y = W X \ G Z [ 3 Q :an_source_rid 0S an_source_rid rid rap_devices.rid 1 id rap_devices.id = name rap_devices.name G $ PBSELECT( VERSION(400) TABLE(NAME="rap_devices" ) COLUMN(NAMEDAT* q="rap_devices.rid") COLUMN(NAME="rap_devices.id") COLUMN(NAME="rap_devices.name")WHERE( EXP1 ="rap_devices.source_rid" OP ="=" EXP2 =" " ) ) ORDER(NAME="rap_devices.id" ASC=yes ) ARG(NAME = "an_source_rid" TYPE = number) _ a c " ` no " b yes $ d 1 DAT* r Select devices at a specific source.release 6;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=88 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=84 coDAT* t lor="536870912" )
table(column=(type=decimal(0) updatewhereclause=yes name=rid dbname="rap_devices.rid" )
column=(type=char(15) updatewhereclause=yes name=id dbname="rap_devices.id" )
column=(type=char(50) updatewhereclause=yes name=name dbname="rap_devices.name" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_devices~" ) COLUMN(NAME=~"rap_devices.rid~") COLUMN(NAME=~"rap_devices.id~") COLUMN(NAME=~"rap_devices.name~")WHERE( EXP1 =~"rap_devices.source_rid~" OP =~"=~" EXP2 =~" :aDAT* v n_source_rid~" ) ) ORDER(NAME=~"rap_devices.id~" ASC=yes ) ARG(NAME = ~"an_source_rid~" TYPE = number) " arguments=(("an_source_rid", number)) )
text(band=header alignment="0" text="device_rid"border="0" color="0" x="9" y="4" height="76" width="430" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="device_id"border="0" color="0" x="448" y="4" height="76" wiDAT* x dth="649" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="device_name"border="0" color="0" x="1106" y="4" height="76" width="1746" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" colorDAT* z ="0" x="9" y="0" height="76" width="430" format="[general]" name=rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="448" y="0" height="76" width="649" format="[general]" name=id edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-12" fonDAT* 4 t.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="1106" y="0" height="76" width="1746" format="[general]" name=name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
htmltable(border="1" cellpadding="0" cDAT* ~ PDW0800 pdw Pl e d ` ` ` ` - F$ n n a a DAT* }
@ @ DAT* $
536870912 @ ` ` &
! #
group_name_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $DAT* -8 $ 700 $ 1 $
553648127 $ 8388608 $ 18 $ $ 36 $ @ 64 $ " 530 % $ % Group Name: Group Name: ? ' ( 0
2 4
6 8 DAT*
0 ; group_name <
) , . % * + Arial Arial $ - -10 $ / 400 $ 1 16777215 $ 3 I 585 $ 5 1243 $ 7 5 & 9 :
[general]
[general] < = > DAT*
d_ss_group_dddw group_name group_name ` F & @
A ! C
group_desc_t $ B 132 % D E Group Description: Group Description: K ? G ( 0
2 A H 4
6 8 J @ group_desc $ I 160 ` R F DAT* L
M ! O
data_level_t $ N D 324 % P Q Data Level: Data Level: Y K S ( 0
2 M T 6 V data_level $ U 512 & W X
[General]
[General] ` ` R Z DAT*
[ ! ] filter_logic_t $ \ 420 % ^ _ Filter Logic: Filter Logic: Y a
2 [ b
V ( @
filter_logic $ c 439 @ f h k j DAT* | @ l m
p & n o @ s F q r A @ v R t u w DAT*
@ z ` x y {
@ g :as_groupName i
as_groupName rap_group_data
group_rid rap_group_data.group_rid group_name rap_group_data.group_name & group_desc rap_group_data.group_desc F data_level rap_group_data.data_level R 7 Nation 1/State 2/County 3/Source 4/Device 5/Process 6/
filter_logic rap_grouDAT* p_data.filter_logic ` OR 0/AND 1/ s PBSELECT( VERSION(400) TABLE(NAME="rap_group_data" ) COLUMN(NAME="rap_group_data.group_rid") COLUMN(NAME="rap_group_data.group_name") COLUMN(NAME="rap_group_data.group_desc") COLUMN(NAME="rap_group_data.data_level") COLUMN(NAME="rap_group_data.filter_logic")WHERE( EXP1 ="rap_group_data.group_name" OP ="=" EXP2 ="" ) ) ARG(NAME = "as_groupName" TYPE = string) ~
" no " DAT* yes DAT* Group data set used by u_class_source_grouprelease 6;
datawindow(units=0 timer_interval=0 color=79741120 processing=0 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=520 color="536870912" )
table(column=(type=decimDAT* al(0) update=yes updatewhereclause=yes key=yes name=group_rid dbname="rap_group_data.group_rid" )
column=(type=char(24) update=yes updatewhereclause=yes name=group_name dbname="rap_group_data.group_name" )
column=(type=char(64) update=yes updatewhereclause=yes name=group_desc dbname="rap_group_data.group_desc" )
column=(type=decimal(0) update=yes updatewhereclause=yes name=data_level dbname="rap_group_data.data_level" values="Nation 1/State 2/County 3/Source 4/Device 5/Process 6/" )
columnDAT* =(type=decimal(0) update=yes updatewhereclause=yes name=filter_logic dbname="rap_group_data.filter_logic" values="OR 0/AND 1/" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_group_data~" ) COLUMN(NAME=~"rap_group_data.group_rid~") COLUMN(NAME=~"rap_group_data.group_name~") COLUMN(NAME=~"rap_group_data.group_desc~") COLUMN(NAME=~"rap_group_data.data_level~") COLUMN(NAME=~"rap_group_data.filter_logic~")WHERE( EXP1 =~"rap_group_data.group_name~" OP =~"=~" EXP2 =~":as_groupName~" ) ) ARDAT* G(NAME = ~"as_groupName~" TYPE = string) " update="rap_group_data" updatewhere=2 updatekeyinplace=yes arguments=(("as_groupName", string)) )
text(band=detail alignment="1" text="Group Name:"border="0" color="8388608" x="18" y="36" height="64" width="530" name=group_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
column(band=detail id=2 alignment="0" tabsequence=10 border="5" DAT* color="0" x="585" y="36" height="64" width="1243" format="[general]" name=group_name dddw.name=d_ss_group_dddw dddw.displaycolumn=group_name dddw.datacolumn=group_name dddw.percentwidth=170 dddw.lines=10 dddw.limit=24 dddw.allowedit=yes dddw.useasborder=yes dddw.case=upper dddw.vscrollbar=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=detail alignment="1" text="Group DescriptiDAT* on:"border="0" color="8388608" x="18" y="132" height="64" width="530" name=group_desc_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
column(band=detail id=3 alignment="0" tabsequence=20 border="5" color="0" x="585" y="132" height="160" width="1243" format="[general]" name=group_desc edit.limit=64 edit.case=any edit.focusrectangle=no edit.autoselect=yes font.face="Arial" font.heiDAT* ght="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=detail alignment="1" text="Data Level:"border="0" color="8388608" x="18" y="324" height="64" width="530" name=data_level_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
column(band=detail id=4 alignment="1" tabsequence=30 border="5" color="0" x="DAT* 585" y="324" height="64" width="512" format="[General]" name=data_level ddlb.limit=0 ddlb.allowedit=no ddlb.case=any ddlb.vscrollbar=yes ddlb.useasborder=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=detail alignment="1" text="Filter Logic:"border="0" color="8388608" x="18" y="420" height="64" width="530" name=filter_logic_t font.face="MS Sans Serif" font.height="-8" font.wDAT* eight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
column(band=detail id=5 alignment="1" tabsequence=40 border="0" color="0" x="585" y="420" height="64" width="439" format="[General]" name=filter_logic radiobuttons.columns=2 radiobuttons.scale=no radiobuttons.threed=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
htmltDAT* P able(border="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes") DAT* PDW0800 P pdw Pl @ ) * ? ` ` ` ` F$ P n n a a DAT*
@ I ` DAT*
group_name_t <
$ 0 %
Arial Arial $ 2 $ -8 $ 700 $ 1 $
536870912 $ 9 DAT* $ 4 $ A 65 $ 686 % Group Group ` ! " $ &
group_desc_t $ # 704 $ % & @ 1344 % ' ( Description Description @ @ IDAT* + 8 8 , * - 0 2 4 ( 7 @ group_desc <
. $ / 400 $ 1 704 $ 3 & A 1345 & 5 6
[general]
[general] + 9 * DAT* : < 4 ( > group_name $ ; 9 $ = 686 @ A C K L DAT* G 8 E F J + H I A ouB :al_rid 68D al_rid group_name rap_group_data.group_name 8 group_desc rap_group_data.group_desc + " PBSELECT( VERSION(400) TABLE(NAME="rap_group_data" ) COLUMN(NAME="rap_group_data.group_naDAT* me") COLUMN(NAME="rap_group_data.group_desc")WHERE( EXP1 ="rap_group_data.group_rid" OP ="<>" EXP2 ="" ) ) ORDER(NAME="rap_group_data.group_name" ASC=yes ) ARG(NAME = "al_rid" TYPE = number) M N O
(empty list) (no groups have been retrieved) DAT* A list of saved groupsrelease 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=73 color="536870912" )
table(column=(type=char(24) updatewheDAT* reclause=yes name=group_name dbname="rap_group_data.group_name" )
column=(type=char(64) updatewhereclause=yes name=group_desc dbname="rap_group_data.group_desc" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_group_data~" ) COLUMN(NAME=~"rap_group_data.group_name~") COLUMN(NAME=~"rap_group_data.group_desc~")WHERE( EXP1 =~"rap_group_data.group_rid~" OP =~"<>~" EXP2 =~":al_rid~" ) ) ORDER(NAME=~"rap_group_data.group_name~" ASC=yes ) ARG(NAME = ~"al_rid~" TYPE = number) " arguments=((DAT* "al_rid", number)) )
data("(empty list)","(no groups have been retrieved)",)
text(band=header alignment="0" text="Group"border="0" color="0" x="10" y="4" height="65" width="686" name=group_name_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Description"border="0" color="0" x="705" y="4" height="65" width="1345" name=group_desc_t font.face="Arial" DAT* font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="705" y="4" height="65" width="1345" format="[general]" name=group_desc edit.limit=64 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1"DAT* background.color="536870912" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="10" y="4" height="65" width="686" format="[general]" name=group_name edit.limit=24 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* PDW0800 d pdw Pl S 2 3 R ` ` ` ` F$ d n n a a DAT*
@ I ) ` DAT* filter_value_t <
$ 0 %
Arial Arial $ 2 $ -8 $ 700 $ 1 $
536870912 $ 66DAT* 7 $ 4 $ A 65 $ F @ 320 %
Filter Value
Filter Value ` ) ! " $ & group_rid_t $ # 9 $ % F @ 320 % ' (
Group Rid
Group Rid ` * + DAT* - / filter_name_t $ , J R 338 $ . F @ 320 % 0 1 Filter Name Filter Name @ @ I 4 H A 5 3 6 9 ; = ( @
filter_value <
DAT* 7 $ 8 400 $ : 667 $ < F A 321 & > ?
[general]
[general] H 4 B 3 6 C E = ( G filter_name $ D J R 338 $ F F A 321 A I 3 DAT* 6 J L N ( Q
group_rid $ K 9 $ M F A 321 & O P
[General]
[General] @ T V Y X c DAT* \ H Z [
_ A ] ^ ! b 4 ` a ! _sU y
:al_grouprid _sW al_grouprid rap_group_filter_criteria
group_rid $ rap_group_filter_crDAT* iteria.group_rid H filter_name & rap_group_filter_criteria.filter_name A
filter_value ' rap_group_filter_criteria.filter_value 4 W PBSELECT( VERSION(400) TABLE(NAME="rap_group_filter_criteria" ) COLUMN(NAME="rap_group_filter_criteria.group_rid") COLUMN(NAME="rap_group_filter_criteria.filter_name") COLUMN(NAME="rap_group_filter_criteria.filter_value")WHERE( EXP1 ="rap_group_filter_criteria.group_rid" OP ="=" EXP2 ="" ) ) ADAT* Filter Criteria data set used by u_class_source_grouprelease 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=73 color="536870912" )
table(DAT* column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=group_rid dbname="rap_group_filter_criteria.group_rid" )
column=(type=char(32) update=yes updatewhereclause=yes key=yes name=filter_name dbname="rap_group_filter_criteria.filter_name" )
column=(type=char(32) update=yes updatewhereclause=yes key=yes name=filter_value dbname="rap_group_filter_criteria.filter_value" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_group_filter_criteria~" ) COLUMN(NAME=~"rap_group_filter_crDAT* iteria.group_rid~") COLUMN(NAME=~"rap_group_filter_criteria.filter_name~") COLUMN(NAME=~"rap_group_filter_criteria.filter_value~")WHERE( EXP1 =~"rap_group_filter_criteria.group_rid~" OP =~"=~" EXP2 =~":al_grouprid~" ) ) ARG(NAME = ~"al_grouprid~" TYPE = number) " update="rap_group_filter_criteria" updatewhere=2 updatekeyinplace=no arguments=(("al_grouprid", number)) )
text(band=header alignment="0" text="Filter Value"border="0" color="0" x="668" y="4" height="65" width="321" name=filter_DAT* value_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Group Rid"border="0" color="0" x="10" y="4" height="65" width="321" name=group_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Filter Name"border="0" cDAT* olor="0" x="339" y="4" height="65" width="321" name=filter_name_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="668" y="4" height="65" width="321" format="[general]" name=filter_value edit.limit=32 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8"DAT* font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="339" y="4" height="65" width="321" format="[general]" name=filter_name edit.limit=32 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.coloDAT* r="536870912" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="10" y="4" height="65" width="321" format="[General]" name=group_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* PDW0800 pdw Pl g h ` ` ` ` F$
n n a a DAT*
@ I e ] ` DAT*
<
$ 0 % Arial Arial $ 2 $
-8 $ 700 $ 15793151 $ 997 $ 4 $ DAT* 9 57 $ F @ 320 % County Rid County Rid ` %
" $ " . 1326 $ ! F @ 320 % # $ Source Rid Source Rid ` -
& ( * $ ' j w 1655 DAT* $ ) F @ 320 % + , Source Type Source Type ` 5 %
. 0 2 $ / 1984 $ 1 F @ 320 % 3 4 Source Sub1 Rid Source Sub1 Rid ` = -
6 8 : $ 7 2313 $ 9 DAT* F @ 320 % ; < Source Sub2 Rid Source Sub2 Rid ` E 5
> @ B $ ? B R
2642 $ A F @ 320 % C D Source Sub3 Rid Source Sub3 Rid ` M =
F H J $ G 2971 $ I DAT* F @ 320 % K L Source Sub4 Rid Source Sub4 Rid ` U E
N P R $ O 9 $ Q F @ 320 % S T
Group Rid
Group Rid ` ] M
V X Z $ W J R 338 $ Y F @ 320DAT* % [ \ Nation Rid Nation Rid ` U
^ ` b $ _ 667 $ a F @ 320 % c d
State Rid
State Rid $ f
536870912 @ e @ I e i x j h DAT* k
n p r t
d w source_sub4_rid <
l $ m 400 $ o 2971 $ q A 65 $ s F A 321 & u v
[general]
[general] i y h k
z p | DAT* t 2 ~ source_rid $ { " . 1326 $ } F A 321 x h k
p < source_type $ j w 1655 $ F A 321 &
[general]
[general] h DAT* k
p t F source_sub1_rid $ 1984 $ F A 321 h k
p t P source_sub2_rid $ 2313 $ F A 321 h DAT* k
p t
group_rid $ 9 $ F A 321 h k
p t Z source_sub3_rid $ B R
2642 $ F A 321 h k
DAT* p t nation_rid $ J R 338 $ F A 321 h k
p t
state_rid $ 667 $ F A 321 h k
DAT* p t ( county_rid $ 997 $ F A 321 @ e DAT*
x
DAT*
i
T
ge al_nationArray al_stateArray al_countyArray al_sourceArray al_sourceSub1Array al_sourceSub2Array al_sourceSub3Array al_sourceSub4Array as_sicArray as_sccArray
DAT* group_rid
group_rid nation_rid v_rap_ss_scc.nation_rid
state_rid v_rap_ss_scc.state_rid county_rid v_rap_ss_scc.county_rid source_rid v_rap_ss_scc.source_rid x source_type v_rap_ss_scc.source_type source_sub1_rid v_rap_ss_scc.source_sub1_rid source_sub2_rid v_rap_ss_scc.source_sub2_rid DAT* source_sub3_rid source_sub3_rid source_sub4_rid source_sub4_rid i PBSELECT( VERSION(400) TABLE(NAME="v_rap_ss_scc" ) COMPUTE(NAME="group_rid = cast(null as decimal(20,0))") COLUMN(NAME="v_rap_ss_scc.nation_rid") COLUMN(NAME="v_rap_ss_scc.state_rid") COLUMN(NAME="v_rap_ss_scc.county_rid") COLUMN(NAME="v_rap_ss_scc.source_rid") COLUMN(NAME="v_rap_ss_scc.source_type") COLUMN(NAME="v_rap_ss_scc.source_sub1_rid") COLUMN(NAME="v_rap_ss_scc.sDAT* ource_sub2_rid") COMPUTE(NAME="source_sub3_rid = cast(null as decimal(20,0))") COMPUTE(NAME="source_sub4_rid = cast(null as decimal(20,0))")WHERE( EXP1 ="1" OP ="=" EXP2 ="1" ) ) ARG(NAME = "al_nationArray" TYPE = numberlist) ARG(NAME = "al_stateArray" TYPE = numberlist) ARG(NAME = "al_countyArray" TYPE = numberlist) ARG(NAME = "al_sourceArray" TYPE = numberlist) ARG(NAME = "al_sourceSub1Array" TYPE = numberlist) ARG(NAME = "al_sourceSub2Array" TYPE = numberlist) ARG(NAME = "al_sourcDAT*
Result Set data set used by u_class_source_grouprelease 5;
datawindow(units=0 timer_interval=0 color=15793151 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=73 color="536870912" )
table(columDAT* n=(type=decimal(0) updatewhereclause=yes name=group_rid dbname="group_rid" )
column=(type=decimal(0) updatewhereclause=yes name=nation_rid dbname="v_rap_ss_scc.nation_rid" )
column=(type=decimal(0) updatewhereclause=yes name=state_rid dbname="v_rap_ss_scc.state_rid" )
column=(type=decimal(0) updatewhereclause=yes name=county_rid dbname="v_rap_ss_scc.county_rid" )
column=(type=decimal(0) updatewhereclause=yes name=source_rid dbname="v_rap_ss_scc.source_rid" )
column=(type=char(1) updatewhDAT* ereclause=yes name=source_type dbname="v_rap_ss_scc.source_type" )
column=(type=decimal(0) updatewhereclause=yes name=source_sub1_rid dbname="v_rap_ss_scc.source_sub1_rid" )
column=(type=decimal(0) updatewhereclause=yes name=source_sub2_rid dbname="v_rap_ss_scc.source_sub2_rid" )
column=(type=decimal(0) updatewhereclause=yes name=source_sub3_rid dbname="source_sub3_rid" )
column=(type=decimal(0) updatewhereclause=yes name=source_sub4_rid dbname="source_sub4_rid" )
retrieve="PBSELECT( VERDAT* SION(400) TABLE(NAME=~"v_rap_ss_scc~" ) COMPUTE(NAME=~"group_rid = cast(null as decimal(20,0))~") COLUMN(NAME=~"v_rap_ss_scc.nation_rid~") COLUMN(NAME=~"v_rap_ss_scc.state_rid~") COLUMN(NAME=~"v_rap_ss_scc.county_rid~") COLUMN(NAME=~"v_rap_ss_scc.source_rid~") COLUMN(NAME=~"v_rap_ss_scc.source_type~") COLUMN(NAME=~"v_rap_ss_scc.source_sub1_rid~") COLUMN(NAME=~"v_rap_ss_scc.source_sub2_rid~") COMPUTE(NAME=~"source_sub3_rid = cast(null as decimal(20,0))~") COMPUTE(NAME=~"source_sub4_rid = cast(null DAT* as decimal(20,0))~")WHERE( EXP1 =~"1~" OP =~"=~" EXP2 =~"1~" ) ) ARG(NAME = ~"al_nationArray~" TYPE = numberlist) ARG(NAME = ~"al_stateArray~" TYPE = numberlist) ARG(NAME = ~"al_countyArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub1Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub2Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub3Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub4Array~" TYPE = numberlist) ARG(NAME = ~"aDAT* s_sicArray~" TYPE = stringlist) ARG(NAME = ~"as_sccArray~" TYPE = stringlist) " arguments=(("al_nationArray", numberlist),("al_stateArray", numberlist),("al_countyArray", numberlist),("al_sourceArray", numberlist),("al_sourceSub1Array", numberlist),("al_sourceSub2Array", numberlist),("al_sourceSub3Array", numberlist),("al_sourceSub4Array", numberlist),("as_sicArray", stringlist),("as_sccArray", stringlist)) )
text(band=header alignment="0" text="County Rid"border="0" color="0" x="997" y="4" heigDAT* ht="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Source Rid"border="0" color="0" x="1326" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Source Type"border="0" color=DAT* "0" x="1655" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Source Sub1 Rid"border="0" color="0" x="1985" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="SDAT* ource Sub2 Rid"border="0" color="0" x="2314" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Source Sub3 Rid"border="0" color="0" x="2643" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(bDAT* and=header alignment="0" text="Source Sub4 Rid"border="0" color="0" x="2972" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Group Rid"border="0" color="0" x="10" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.coDAT* lor="15793151" )
text(band=header alignment="0" text="Nation Rid"border="0" color="0" x="339" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="State Rid"border="0" color="0" x="668" y="4" height="57" width="321" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.modDAT* e="2" background.color="15793151" )
column(band=detail id=10 alignment="0" tabsequence=100 border="0" color="0" x="2972" y="4" height="65" width="321" format="[general]" name=source_sub4_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=5 alignment="0" tabsequence=50 border="0" color="0" x="1326" y="4" height="65" width="DAT* " 321" format="[general]" name=source_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=6 alignment="0" tabsequence=60 border="0" color="0" x="1655" y="4" height="65" width="321" format="[general]" name=source_type edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.famDAT* $ ily="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=7 alignment="0" tabsequence=70 border="0" color="0" x="1985" y="4" height="65" width="321" format="[general]" name=source_sub1_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=8 alignment="0" tabsequence=80 borDAT* & der="0" color="0" x="2314" y="4" height="65" width="321" format="[general]" name=source_sub2_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=1 alignment="0" tabsequence=10 border="0" color="0" x="10" y="4" height="65" width="321" format="[general]" name=group_rid edit.limit=0 edit.case=any edit.autoselect=yes font.faceDAT* ( ="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=9 alignment="0" tabsequence=90 border="0" color="0" x="2643" y="4" height="65" width="321" format="[general]" name=source_sub3_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
colDAT* * umn(band=detail id=2 alignment="0" tabsequence=20 border="0" color="0" x="339" y="4" height="65" width="321" format="[general]" name=nation_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=3 alignment="0" tabsequence=30 border="0" color="0" x="668" y="4" height="65" width="321" format="[general]" name=state_rid edit.limiDAT* , t=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=4 alignment="0" tabsequence=40 border="0" color="0" x="997" y="4" height="65" width="321" format="[general]" name=county_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mDAT* ) ode="2" background.color="15793151" )
DAT* 0 PDW0800 pdw Pl g h ` ` ` ` i F$
n n a a DAT* 2
@ H e ] ` DAT* 4
<
$ 0 % Arial Arial $ 2 $
-8 $ 700 $ 15793151 $ 9 $ 4 $ DAT* 6 8 56 $ F @ 320 %
Group Rid
Group Rid ` %
" $ J R 338 $ ! E ; 315 % # $ Nation Rid Nation Rid ` -
& ( * $ ' 663 $ )DAT* 8 E ; 315 % + ,
State Rid
State Rid ` 5 %
. 0 2 $ / 987 $ 1 E ; 315 % 3 4 County Rid County Rid ` = -
6 8 : $ 7 1312 $ 9 E ; DAT* : 315 % ; < Source Rid Source Rid ` E 5
> @ B $ ? f e 1637 $ A E ; 315 % C D Source Type Source Type ` M =
F H J $ G 1961 $ I ] 425 % K DAT* < L Source Sub1 Rid Source Sub1 Rid ` U E
N P R $ O [ 2395 $ Q ] 425 % S T Source Sub2 Rid Source Sub2 Rid ` ] M
V X Z $ W k 2830 $ Y ] 425 % [ DAT* > \ Source Sub3 Rid Source Sub3 Rid ` U
^ ` b $ _ 3264 $ a ] 425 % c d Source Sub4 Rid Source Sub4 Rid $ f
536870912 @ e @ H e i x j h DAT* @ k
n p r t
w
group_rid <
l $ m 400 $ o 9 $ q @ 64 $ s F @ 320 & u v
[general]
[general] i y h k
z p | ~ DAT* B nation_rid $ { J R 338 $ } E ; 315 &
[general]
[general] x h k
p ~
state_rid $ 663 $ E ; 315 h kDAT* D
p ~ ( county_rid $ 987 $ E ; 315 h k
p ~ 2 source_rid $ 1312 $ E ; 315 h k
DAT* F p < source_type $ f e 1637 $ E ; 315 &
[general]
[general] h k
p ~ F source_sub1_rid $ 1961 $ ] 425 DAT* H h k
p ~ P source_sub2_rid $ [ 2395 $ ] 425 h k
p t Z source_sub3_rid $ k 2830 $ ] 425 DAT* J h k
p t
d source_sub4_rid $ 3264 $ ] 425 @ e DAT* L i x
DAT* N
T
ge al_nationArray al_stateArray al_countyArray al_sourceArray al_sourceSub1Array al_sourceSub2Array al_sourceSub3ArrDAT* P ay al_sourceSub4Array as_sicArray as_sccArray
group_rid
group_rid i nation_rid v_rap_ss_scc.nation_rid x
state_rid v_rap_ss_scc.state_rid county_rid v_rap_ss_scc.county_rid source_rid v_rap_ss_scc.source_rid source_type v_rap_ss_scc.source_type source_sub1_rid v_rap_ss_scc.source_sub1_rid sourDAT* R ce_sub2_rid v_rap_ss_scc.source_sub2_rid source_sub3_rid source_sub3_rid source_sub4_rid source_sub4_rid 7 PBSELECT( VERSION(400) TABLE(NAME="v_rap_ss_scc" ) COMPUTE(NAME="to_number(null, '99999999999999999999') group_rid") COLUMN(NAME="v_rap_ss_scc.nation_rid") COLUMN(NAME="v_rap_ss_scc.state_rid") COLUMN(NAME="v_rap_ss_scc.county_rid") COLUMN(NAME="v_rap_ss_scc.source_rid") COLUMN(NAME="v_rap_ss_scc.source_type") CDAT* T OLUMN(NAME="v_rap_ss_scc.source_sub1_rid") COLUMN(NAME="v_rap_ss_scc.source_sub2_rid") COMPUTE(NAME="to_number(null, '99999999999999999999') source_sub3_rid") COMPUTE(NAME="to_number(null, '99999999999999999999') source_sub4_rid")WHERE( EXP1 ="1" OP ="=" EXP2 ="1" ) ) ARG(NAME = "al_nationArray" TYPE = numberlist) ARG(NAME = "al_stateArray" TYPE = numberlist) ARG(NAME = "al_countyArray" TYPE = numberlist) ARG(NAME = "al_sourceArray" TYPE = numberlist) ARG(NAME = "al_sourceSub1Array" TYDAT* PE = numberlist) ARG(NAME = "al_sourceSub2Array" TYPE = numberlist) ARG(NAME = "al_sourceSub3Array" TYPE = numberlist) ARG(NAME = "al_sourceSub4Array" TYPE = numberlist) ARG(NAME = "as_sicArray" TYPE = stringlist) ARG(NAME = "as_sccArray" TYPE = stringlist) " no " yes $ 1 DAT* X release 6;
datawindow(units=0 timer_interval=0 color=15793151 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=72 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=72 color="536870912" )
table(column=(typDAT* Z e=number updatewhereclause=yes name=group_rid dbname="group_rid" )
column=(type=decimal(0) updatewhereclause=yes name=nation_rid dbname="v_rap_ss_scc.nation_rid" )
column=(type=decimal(0) updatewhereclause=yes name=state_rid dbname="v_rap_ss_scc.state_rid" )
column=(type=decimal(0) updatewhereclause=yes name=county_rid dbname="v_rap_ss_scc.county_rid" )
column=(type=decimal(0) updatewhereclause=yes name=source_rid dbname="v_rap_ss_scc.source_rid" )
column=(type=char(1) updatewhereclause=DAT* \ yes name=source_type dbname="v_rap_ss_scc.source_type" )
column=(type=decimal(0) updatewhereclause=yes name=source_sub1_rid dbname="v_rap_ss_scc.source_sub1_rid" )
column=(type=decimal(0) updatewhereclause=yes name=source_sub2_rid dbname="v_rap_ss_scc.source_sub2_rid" )
column=(type=number updatewhereclause=yes name=source_sub3_rid dbname="source_sub3_rid" )
column=(type=number updatewhereclause=yes name=source_sub4_rid dbname="source_sub4_rid" )
retrieve="PBSELECT( VERSION(400) TABLE(NADAT* ^ ME=~"v_rap_ss_scc~" ) COMPUTE(NAME=~"to_number(null, '99999999999999999999') group_rid~") COLUMN(NAME=~"v_rap_ss_scc.nation_rid~") COLUMN(NAME=~"v_rap_ss_scc.state_rid~") COLUMN(NAME=~"v_rap_ss_scc.county_rid~") COLUMN(NAME=~"v_rap_ss_scc.source_rid~") COLUMN(NAME=~"v_rap_ss_scc.source_type~") COLUMN(NAME=~"v_rap_ss_scc.source_sub1_rid~") COLUMN(NAME=~"v_rap_ss_scc.source_sub2_rid~") COMPUTE(NAME=~"to_number(null, '99999999999999999999') source_sub3_rid~") COMPUTE(NAME=~"to_number(null, '999999999DAT* ` 99999999999') source_sub4_rid~")WHERE( EXP1 =~"1~" OP =~"=~" EXP2 =~"1~" ) ) ARG(NAME = ~"al_nationArray~" TYPE = numberlist) ARG(NAME = ~"al_stateArray~" TYPE = numberlist) ARG(NAME = ~"al_countyArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub1Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub2Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub3Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub4Array~" TYPE = numberlist) ARDAT* b G(NAME = ~"as_sicArray~" TYPE = stringlist) ARG(NAME = ~"as_sccArray~" TYPE = stringlist) " arguments=(("al_nationArray", numberlist),("al_stateArray", numberlist),("al_countyArray", numberlist),("al_sourceArray", numberlist),("al_sourceSub1Array", numberlist),("al_sourceSub2Array", numberlist),("al_sourceSub3Array", numberlist),("al_sourceSub4Array", numberlist),("as_sicArray", stringlist),("as_sccArray", stringlist)) )
text(band=header alignment="0" text="Group Rid"border="0" color="0" x="9" yDAT* d ="4" height="56" width="320" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Nation Rid"border="0" color="0" x="338" y="4" height="56" width="315" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="State Rid"border="0" DAT* f color="0" x="663" y="4" height="56" width="315" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="County Rid"border="0" color="0" x="987" y="4" height="56" width="315" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="SoDAT* h urce Rid"border="0" color="0" x="1312" y="4" height="56" width="315" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Source Type"border="0" color="0" x="1637" y="4" height="56" width="315" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=headerDAT* j alignment="0" text="Source Sub1 Rid"border="0" color="0" x="1961" y="4" height="56" width="425" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Source Sub2 Rid"border="0" color="0" x="2395" y="4" height="56" width="425" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.coloDAT* l r="15793151" )
text(band=header alignment="0" text="Source Sub3 Rid"border="0" color="0" x="2830" y="4" height="56" width="425" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
text(band=header alignment="0" text="Source Sub4 Rid"border="0" color="0" x="3264" y="4" height="56" width="425" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" bacDAT* n kground.mode="2" background.color="15793151" )
column(band=detail id=1 alignment="0" tabsequence=10 border="0" color="0" x="9" y="4" height="64" width="320" format="[general]" name=group_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=2 alignment="0" tabsequence=20 border="0" color="0" x="338" y="4" height="64" width="3DAT* p 15" format="[general]" name=nation_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=3 alignment="0" tabsequence=30 border="0" color="0" x="663" y="4" height="64" width="315" format="[general]" name=state_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family=DAT* r "2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=4 alignment="0" tabsequence=40 border="0" color="0" x="987" y="4" height="64" width="315" format="[general]" name=county_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=5 alignment="0" tabsequence=50 border="0" coDAT* t lor="0" x="1312" y="4" height="64" width="315" format="[general]" name=source_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=6 alignment="0" tabsequence=60 border="0" color="0" x="1637" y="4" height="64" width="315" format="[general]" name=source_type edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" foDAT* v nt.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=7 alignment="0" tabsequence=70 border="0" color="0" x="1961" y="4" height="64" width="425" format="[general]" name=source_sub1_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=deDAT* x tail id=8 alignment="0" tabsequence=80 border="0" color="0" x="2395" y="4" height="64" width="425" format="[general]" name=source_sub2_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=9 alignment="0" tabsequence=90 border="0" color="0" x="2830" y="4" height="64" width="425" format="[general]" name=source_sub3_rid edit.liDAT* z mit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="15793151" )
column(band=detail id=10 alignment="0" tabsequence=100 border="0" color="0" x="3264" y="4" height="64" width="425" format="[general]" name=source_sub4_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" baDAT* ckground.mode="2" background.color="15793151" )
htmltable(border="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes") DAT* ~ PDW0800 pdw Pl q r ` ` ` ` F$ n n a a DAT*
@ I h ` DAT* source_type_t <
$ 0 %
Arial Arial $ 2 $ -8 $ 700 $ 1 $
536870912 $ j w 165DAT* 5 $ 4 $ A 65 $ F @ 320 % Source Type Source Type ` ) ! " $ & source_sub1_rid_t $ # 1984 $ % F @ 320 % ' ( Source Sub1 Rid Source Sub1 Rid ` 2 * DAT* + - / source_sub2_rid_t $ , 2313 $ . F @ 320 % 0 1 Source Sub2 Rid Source Sub2 Rid ` ; ) 3 4 6 8 source_sub3_rid_t $ 5 B R
2642 $ 7 F @ 320 % 9 : Source Sub3 Rid Source Sub3 Rid ` D 2 DAT* < = ? A group_rid_t $ > 9 $ @ F @ 320 % B C
Group Rid
Group Rid ` M ; E F H J
nation_rid_t $ G J R 338 $ I F @ 320 % K L Nation Rid Nation Rid ` V DDAT* N O Q S state_rid_t $ P 667 $ R F @ 320 % T U
State Rid
State Rid ` _ M W X Z \
county_rid_t $ Y 997 $ [ F @ 320 % ] ^ County Rid County Rid ` DAT* h V ` a c e
source_rid_t $ b " . 1326 $ d F @ 320 % f g Source Rid Source Rid ` _ i j l n source_sub4_rid_t $ k 2971 $ m F @ 320 % o p Source Sub4 RidDAT* Source Sub4 Rid @ @ I s t r u x z | 2 ( source_rid <
v $ w 400 $ y " . 1326 $ { F A 321 & }DAT* ~
[General]
[General] s r u < ( source_type $ j w 1655 $ F A 321 &
[general]
[general] r u | F ( DAT* source_sub1_rid $ 1984 $ F A 321 r u | P ( source_sub2_rid $ 2313 $ F A 321 r u | Z ( DAT* source_sub3_rid $ B R
2642 $ F A 321 r u |
(
group_rid $ 9 $ F A 321 r u | ( nation_rid DAT* $ J R 338 $ F A 321 r u | (
state_rid $ 667 $ F A 321 r u | ( ( county_rid $ DAT* 997 $ F A 321 r u |
d ( source_sub4_rid $ 2971 $ F A 321 @ DAT*
s DAT*
at
:al_grouprid en al_grouprid rap_group_source_criteria
group_rid $ rap_groDAT* up_source_criteria.group_rid nation_rid % rap_group_source_criteria.nation_rid
state_rid $ rap_group_source_criteria.state_rid county_rid % rap_group_source_criteria.county_rid source_rid % rap_group_source_criteria.source_rid s source_type & rap_group_source_criteria.source_type source_sub1_rid * rap_group_source_criteria.source_sub1_rid DAT* source_sub2_rid * rap_group_source_criteria.source_sub2_rid source_sub3_rid * rap_group_source_criteria.source_sub3_rid source_sub4_rid * rap_group_source_criteria.source_sub4_rid PBSELECT( VERSION(400) TABLE(NAME="rap_group_source_criteria" ) COLUMN(NAME="rap_group_source_criteria.group_rid") COLUMN(NAME="rap_group_source_criteria.nation_rid") COLUMN(NAME="rap_group_source_criteria.state_rid") COLUMN(NADAT* ME="rap_group_source_criteria.county_rid") COLUMN(NAME="rap_group_source_criteria.source_rid") COLUMN(NAME="rap_group_source_criteria.source_type") COLUMN(NAME="rap_group_source_criteria.source_sub1_rid") COLUMN(NAME="rap_group_source_criteria.source_sub2_rid") COLUMN(NAME="rap_group_source_criteria.source_sub3_rid") COLUMN(NAME="rap_group_source_criteria.source_sub4_rid")WHERE( EXP1 ="rap_group_source_criteria.group_rid" OP ="=" EXP2 ="" ) ) ARG(NAME = "al_grouprid" TYPE = number) DAT* Source Criteria data set used by u_class_source_grouprelease 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=73 color="536870912" )
table(DAT* column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=group_rid dbname="rap_group_source_criteria.group_rid" )
column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=nation_rid dbname="rap_group_source_criteria.nation_rid" )
column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=state_rid dbname="rap_group_source_criteria.state_rid" )
column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=county_rid dbname="rap_group_source_criteriDAT* a.county_rid" )
column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=source_rid dbname="rap_group_source_criteria.source_rid" )
column=(type=char(1) update=yes updatewhereclause=yes key=yes name=source_type dbname="rap_group_source_criteria.source_type" )
column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=source_sub1_rid dbname="rap_group_source_criteria.source_sub1_rid" )
column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=source_sub2_DAT* rid dbname="rap_group_source_criteria.source_sub2_rid" )
column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=source_sub3_rid dbname="rap_group_source_criteria.source_sub3_rid" )
column=(type=decimal(0) update=yes updatewhereclause=yes key=yes name=source_sub4_rid dbname="rap_group_source_criteria.source_sub4_rid" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_group_source_criteria~" ) COLUMN(NAME=~"rap_group_source_criteria.group_rid~") COLUMN(NAME=~"rap_group_source_cDAT* riteria.nation_rid~") COLUMN(NAME=~"rap_group_source_criteria.state_rid~") COLUMN(NAME=~"rap_group_source_criteria.county_rid~") COLUMN(NAME=~"rap_group_source_criteria.source_rid~") COLUMN(NAME=~"rap_group_source_criteria.source_type~") COLUMN(NAME=~"rap_group_source_criteria.source_sub1_rid~") COLUMN(NAME=~"rap_group_source_criteria.source_sub2_rid~") COLUMN(NAME=~"rap_group_source_criteria.source_sub3_rid~") COLUMN(NAME=~"rap_group_source_criteria.source_sub4_rid~")WHERE( EXP1 =~"rap_group_sDAT* ource_criteria.group_rid~" OP =~"=~" EXP2 =~":al_grouprid~" ) ) ARG(NAME = ~"al_grouprid~" TYPE = number) " update="rap_group_source_criteria" updatewhere=2 updatekeyinplace=no arguments=(("al_grouprid", number)) )
text(band=header alignment="0" text="Source Type"border="0" color="0" x="1655" y="4" height="65" width="321" name=source_type_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" DAT* )
text(band=header alignment="0" text="Source Sub1 Rid"border="0" color="0" x="1985" y="4" height="65" width="321" name=source_sub1_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Source Sub2 Rid"border="0" color="0" x="2314" y="4" height="65" width="321" name=source_sub2_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2"DAT* font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Source Sub3 Rid"border="0" color="0" x="2643" y="4" height="65" width="321" name=source_sub3_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Group Rid"border="0" color="0" x="10" y="4" height="65" width="321" name=group_rid_t fDAT* ont.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Nation Rid"border="0" color="0" x="339" y="4" height="65" width="321" name=nation_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="State Rid"border="0" color="0" DAT* x="668" y="4" height="65" width="321" name=state_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="County Rid"border="0" color="0" x="997" y="4" height="65" width="321" name=county_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=DAT* header alignment="0" text="Source Rid"border="0" color="0" x="1326" y="4" height="65" width="321" name=source_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Source Sub4 Rid"border="0" color="0" x="2972" y="4" height="65" width="321" name=source_sub4_rid_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.chDAT* arset="0" background.mode="1" background.color="536870912" )
column(band=detail id=5 alignment="0" tabsequence=50 border="0" color="0" x="1326" y="4" height="65" width="321" format="[General]" name=source_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=6 alignment="0" tabsequDAT* ence=60 border="0" color="0" x="1655" y="4" height="65" width="321" format="[general]" name=source_type edit.limit=1 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=7 alignment="0" tabsequence=70 border="0" color="0" x="1985" y="4" height="65" width="321" format="[General]" name=source_sub1_rDAT* id edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=8 alignment="0" tabsequence=80 border="0" color="0" x="2314" y="4" height="65" width="321" format="[General]" name=source_sub2_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.faDAT* ce="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=9 alignment="0" tabsequence=90 border="0" color="0" x="2643" y="4" height="65" width="321" format="[General]" name=source_sub3_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" backgroDAT* und.mode="1" background.color="536870912" )
column(band=detail id=1 alignment="0" tabsequence=10 border="0" color="0" x="10" y="4" height="65" width="321" format="[General]" name=group_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=20 border="0" cDAT* olor="0" x="339" y="4" height="65" width="321" format="[General]" name=nation_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=30 border="0" color="0" x="668" y="4" height="65" width="321" format="[General]" name=state_rid edit.limit=0 edit.case=anyDAT* edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=4 alignment="0" tabsequence=40 border="0" color="0" x="997" y="4" height="65" width="321" format="[General]" name=county_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weDAT* ight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=10 alignment="0" tabsequence=100 border="0" color="0" x="2972" y="4" height="65" width="321" format="[General]" name=source_sub4_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="53DAT* 6870912" )
DAT* PDW0800 pdw Pl M N ` ` ` ` F$ n n a a DAT*
@ U D ` DAT*
nation_rid_t <
$ 0 %
Arial Arial $ 2 $ -10 $ 400 $ 1 $
536870912 $ 9 DAT* $ 8 $ A 65 $ H I 329 % Nation Rid Nation Rid ` ) ! " $ & nation_name_t $ # L [ 347 $ % 640 % ' ( Nation Name Nation Name ` 2 * + DAT* - / state_rid_t $ , 997 $ . H I 329 % 0 1
State Rid
State Rid ` ; ) 3 4 6 8
state_name_t $ 5 $ 7 1335 $ 7 786 % 9 : State Name State Name ` D 2 < DAT* = ? A
county_rid_t $ > R 2130 $ @ H I 329 % B C County Rid County Rid ` ; E F H J county_name_t $ G 2469 $ I [ 603 % K L County Name County Name @ DAT* @ a O z [ P N Q S U W ( Z nation_rid $ R 9 $ T M 77 $ V H J 330 & X Y
[general]
[general] e O \ N ] S _ DAT* a ( d 2 nation_name $ ^ L [ 347 $ ` 641 & b c
[general]
[general] l [ f N g S i W ( k
state_rid $ h 997 $ j H J 330 s e m N DAT* n S p a ( r 2 state_name $ o $ 7 1335 $ q 787 z l t N u S w W ( y county_rid $ v R 2130 $ x H J 330 s { N DAT* | S ~ a ( 2 county_name $ } 2469 $ \ 604 @ DAT* O
[ 3 e
l 3 s
z 3 nation_rid v_rap_sDAT* s_sic.nation_rid O nation_name v_rap_ss_sic.nation_name [
state_rid v_rap_ss_sic.state_rid e state_name v_rap_ss_sic.state_name l county_rid v_rap_ss_sic.county_rid s county_name v_rap_ss_sic.county_name z PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME="v_rap_ss_sic" ) COLUMN(NAME="v_rap_ss_sic.nation_rid") COLUMN(NAME="v_rap_ss_sic.nation_name") COLDAT* /UMN(NAME="v_rap_ss_sic.state_rid") COLUMN(NAME="v_rap_ss_sic.state_name") COLUMN(NAME="v_rap_ss_sic.county_rid") COLUMN(NAME="v_rap_ss_sic.county_name")) ORDER(NAME="v_rap_ss_sic.nation_name" ASC=no) ORDER(NAME="v_rap_ss_sic.state_name" ASC=yes ) ORDER(NAME="v_rap_ss_sic.county_name" ASC=yes ) DAT* Select Geographic information for tree population to county level.release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=85 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=97 color="5368709DAT* 12" )
table(column=(type=decimal(0) updatewhereclause=yes name=nation_rid dbname="v_rap_ss_sic.nation_rid" )
column=(type=char(50) updatewhereclause=yes name=nation_name dbname="v_rap_ss_sic.nation_name" )
column=(type=decimal(0) updatewhereclause=yes name=state_rid dbname="v_rap_ss_sic.state_rid" )
column=(type=char(50) updatewhereclause=yes name=state_name dbname="v_rap_ss_sic.state_name" )
column=(type=decimal(0) updatewhereclause=yes name=county_rid dbname="v_rap_ss_sic.county_rid" )
DAT*
column=(type=char(50) updatewhereclause=yes name=county_name dbname="v_rap_ss_sic.county_name" )
retrieve="PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME=~"v_rap_ss_sic~" ) COLUMN(NAME=~"v_rap_ss_sic.nation_rid~") COLUMN(NAME=~"v_rap_ss_sic.nation_name~") COLUMN(NAME=~"v_rap_ss_sic.state_rid~") COLUMN(NAME=~"v_rap_ss_sic.state_name~") COLUMN(NAME=~"v_rap_ss_sic.county_rid~") COLUMN(NAME=~"v_rap_ss_sic.county_name~")) ORDER(NAME=~"v_rap_ss_sic.nation_name~" ASC=no) ORDER(NAME=~"v_rap_ss_sic.statDAT* e_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_sic.county_name~" ASC=yes ) " )
text(band=header alignment="2" text="Nation Rid"border="0" color="0" x="10" y="8" height="65" width="330" name=nation_rid_t font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Nation Name"border="0" color="0" x="348" y="8" height="65" width="641" name=nation_name_t font.face="Arial"DAT* font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="State Rid"border="0" color="0" x="997" y="8" height="65" width="330" name=state_rid_t font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="State Name"border="0" color="0" x="1335" y="8" DAT* height="65" width="787" name=state_name_t font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="County Rid"border="0" color="0" x="2131" y="8" height="65" width="330" name=county_rid_t font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header aliDAT* gnment="2" text="County Name"border="0" color="0" x="2469" y="8" height="65" width="604" name=county_name_t font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=1 alignment="1" tabsequence=32766 border="0" color="0" x="10" y="8" height="77" width="330" format="[general]" name=nation_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=DAT* yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="348" y="8" height="77" width="641" format="[general]" name=nation_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charseDAT* t="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="1" tabsequence=32766 border="0" color="0" x="997" y="8" height="77" width="330" format="[general]" name=state_rid edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=4 alignment="0" tabsequenDAT* ce=32766 border="0" color="0" x="1335" y="8" height="77" width="787" format="[general]" name=state_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=5 alignment="1" tabsequence=32766 border="0" color="0" x="2131" y="8" height="77" width="330" format="[general]" name=county_rDAT* id edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=6 alignment="0" tabsequence=32766 border="0" color="0" x="2469" y="8" height="77" width="604" format="[general]" name=county_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.fDAT* ace="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* PDW0800 e pdw Pl O / 0 N ` ` ` ` $ F$ e n n a a DAT* ^
@ X - % ` DAT*
<
$ 0 % Arial Arial $ 2 $
-12 $ 400 $ 16777215 $ 9 $ 4 $ DAT* L 76 $ ^ 430 % process_rid process_rid ` %
" $ b 448 $ ! 649 % # $ process_id process_id `
& ( * $ ' R 1106 DAT* $ ) ~ 1746 % + ,
process_name
process_name $ .
536870912 @ - @ T - 1 G = 2 0
3 5 7 9 < rid $ 4 9 $ 6 0 DAT* $ 8 ^ 430 & : ;
[general]
[general] G 1 > 0
? 5 A C F id $ @ b 448 $ B 649 & D E
[general]
[general] = H 0
I 5 K C DAT*
M name $ J R 1106 $ L ~ 1746 @ - P R ] DAT* V 1 T U
Y = W X \ G Z [ 3 Q :an_device_rid S an_device_rid rid rap_processes.rid 1 id rap_processes.id = name rap_processes.name G 0 PBSELECT( VERSION(400) TABLE(NAME="rap_processes"DAT* ) COLUMN(NAME="rap_processes.rid") COLUMN(NAME="rap_processes.id") COLUMN(NAME="rap_processes.name")WHERE( EXP1 ="rap_processes.device_rid" OP ="=" EXP2 =" " ) ) ORDER(NAME="rap_processes.id" ASC=yes ) ARG(NAME = "an_device_rid" TYPE = number) _ a c " ` no " b yes $ d 1 DAT* Select processes at a specific device.release 6;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=88 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=84 DAT* color="536870912" )
table(column=(type=decimal(0) updatewhereclause=yes name=rid dbname="rap_processes.rid" )
column=(type=char(15) updatewhereclause=yes name=id dbname="rap_processes.id" )
column=(type=char(50) updatewhereclause=yes name=name dbname="rap_processes.name" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_processes~" ) COLUMN(NAME=~"rap_processes.rid~") COLUMN(NAME=~"rap_processes.id~") COLUMN(NAME=~"rap_processes.name~")WHERE( EXP1 =~"rap_processes.device_rid~" OP =~"DAT* =~" EXP2 =~" :an_device_rid~" ) ) ORDER(NAME=~"rap_processes.id~" ASC=yes ) ARG(NAME = ~"an_device_rid~" TYPE = number) " arguments=(("an_device_rid", number)) )
text(band=header alignment="0" text="process_rid"border="0" color="0" x="9" y="4" height="76" width="430" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="process_id"border="0" color="0" x="448DAT* " y="4" height="76" width="649" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="process_name"border="0" color="0" x="1106" y="4" height="76" width="1746" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=1 alignment="0" tabsequenceDAT* =32766 border="0" color="0" x="9" y="0" height="76" width="430" format="[general]" name=rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="448" y="0" height="76" width="649" format="[general]" name=id edit.limit=0 edit.case=any edit.autoselect=yes font.face="ArialDAT* 6 " font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="1106" y="0" height="76" width="1746" format="[general]" name=name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
htmltable(bordeDAT* PDW0800 pdw Pl N O ` ` ` ` F$ n n a a DAT*
@ T D ` DAT* v_rap_ss_scc_scc_code_t <
$ 0 %
Arial Arial $ 2 $ -8 $ 700 $ 1 $
536870912 $ DAT* " 9 $ 8 $ 8 56 $ v 539 %
SCC AMS Code
SCC AMS Code ` ) ! " $ & rap_scc_ams_codes_desc_1_t $ # z . 558 $ % ` 864 % ' ( Description 1 Description 1 ` 2 * DAT* $ + - / rap_scc_ams_codes_desc_2_t $ , 9 1431 $ . ` 864 % 0 1 Description 2 Description 2 ` ; ) 3 4 6 8 rap_scc_ams_codes_desc_3_t $ 5 2304 $ 7 ` 864 % 9 : Description 3 DesDAT* & cription 3 ` D 2 < = ? A rap_scc_ams_codes_desc_4_t $ > i 3177 $ @ ` 864 % B C Description 4 Description 4 ` ; E G I K $ F 16777215 $ H v 4050 $ J 1 DAT* ( 224 % L M SCC Size SCC Size @ @ ` P { _ Q O R U W Y [ ( ^
scc_code <
S $ T 400 $ V 9 $ X DAT* * @ 64 $ Z v 539 & \ ]
[general]
[general] f P ` O R a W c [ ( e F
scc_name1 $ b z . 558 $ d ` 864 m _ g O R h W j [ ( DAT* , l F
scc_name2 $ i 9 1431 $ k ` 864 t f n O R o W q [ ( s F
scc_name3 $ p 2304 $ r ` 864 { m u O R v W x [ ( z F DAT* .
scc_name4 $ w i 3177 $ y ` 864 t | O R } W scc_size $ ~ v 4050 $ 1 224 &
[general]
[general] @ DAT* 0 P _ G f G DAT* 2 m G t G { 4 al_nationArray al_stateArray al_countyArray al_sourceArray al_sourceSub1Array al_sourceSub2Array scc_code v_rap_ss_scc.scc_code P
scc_name1 rap_scc_ams_codes.desc_1 _
scc_name2 DAT* 4 rap_scc_ams_codes.desc_2 f
scc_name3 rap_scc_ams_codes.desc_3 m
scc_name4 rap_scc_ams_codes.desc_4 t scc_size scc_size { o PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME="v_rap_ss_scc" ) TABLE(NAME="rap_scc_ams_codes" ) COLUMN(NAME="v_rap_ss_scc.scc_code") COLUMN(NAME="rap_scc_ams_codes.desc_1") COLUMN(NAME="rap_scc_ams_codes.desc_2") COLUMN(NAME="rap_scc_ams_codes.desc_3") COLUMN(NAME="rap_scc_ams_coDAT* 6 des.desc_4") COMPUTE(NAME="length(v_rap_ss_scc.scc_code) as scc_size") JOIN (LEFT="v_rap_ss_scc.scc_code" OP ="="RIGHT="rap_scc_ams_codes.code" OUTER1 ="v_rap_ss_scc.scc_code" )WHERE( EXP1 ="1" OP ="=" EXP2 ="1" ) ) ORDER(NAME="6" ASC=yes ) ORDER(NAME="v_rap_ss_scc.scc_code" ASC=yes ) ARG(NAME = "al_nationArray" TYPE = numberlist) ARG(NAME = "al_stateArray" TYPE = numberlist) ARG(NAME = "al_countyArray" TYPE = numberlist) ARG(NAME = "al_sourceArray" TYPE = numberlist) ARG(NAMDAT* E = "al_sourceSub1Array" TYPE = numberlist) ARG(NAME = "al_sourceSub2Array" TYPE = numberlist) " no " yes DAT* : SCC code selection for Source Selectorrelease 6;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=84 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=96 DAT* < color="536870912" )
table(column=(type=char(10) updatewhereclause=yes name=scc_code dbname="v_rap_ss_scc.scc_code" )
column=(type=char(70) updatewhereclause=yes name=scc_name1 dbname="rap_scc_ams_codes.desc_1" )
column=(type=char(70) updatewhereclause=yes name=scc_name2 dbname="rap_scc_ams_codes.desc_2" )
column=(type=char(70) updatewhereclause=yes name=scc_name3 dbname="rap_scc_ams_codes.desc_3" )
column=(type=char(70) updatewhereclause=yes name=scc_name4 dbname="rap_scc_ams_codes.desc_4DAT* > " )
column=(type=number updatewhereclause=yes name=scc_size dbname="scc_size" )
retrieve="PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME=~"v_rap_ss_scc~" ) TABLE(NAME=~"rap_scc_ams_codes~" ) COLUMN(NAME=~"v_rap_ss_scc.scc_code~") COLUMN(NAME=~"rap_scc_ams_codes.desc_1~") COLUMN(NAME=~"rap_scc_ams_codes.desc_2~") COLUMN(NAME=~"rap_scc_ams_codes.desc_3~") COLUMN(NAME=~"rap_scc_ams_codes.desc_4~") COMPUTE(NAME=~"length(v_rap_ss_scc.scc_code) as scc_size~") JOIN (LEFT=~"v_rap_ss_scc.scc_code~" DAT* @ OP =~"=~"RIGHT=~"rap_scc_ams_codes.code~" OUTER1 =~"v_rap_ss_scc.scc_code~" )WHERE( EXP1 =~"1~" OP =~"=~" EXP2 =~"1~" ) ) ORDER(NAME=~"6~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.scc_code~" ASC=yes ) ARG(NAME = ~"al_nationArray~" TYPE = numberlist) ARG(NAME = ~"al_stateArray~" TYPE = numberlist) ARG(NAME = ~"al_countyArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub1Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub2Array~" TYPE DAT* B = numberlist) " arguments=(("al_nationArray", numberlist),("al_stateArray", numberlist),("al_countyArray", numberlist),("al_sourceArray", numberlist),("al_sourceSub1Array", numberlist),("al_sourceSub2Array", numberlist)) )
text(band=header alignment="2" text="SCC AMS Code"border="0" color="0" x="9" y="8" height="56" width="539" name=v_rap_ss_scc_scc_code_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="DAT* D 536870912" )
text(band=header alignment="2" text="Description 1"border="0" color="0" x="558" y="8" height="56" width="864" name=rap_scc_ams_codes_desc_1_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Description 2"border="0" color="0" x="1431" y="8" height="56" width="864" name=rap_scc_ams_codes_desc_2_t font.face="Arial" font.height="-8" font.weighDAT* F t="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Description 3"border="0" color="0" x="2304" y="8" height="56" width="864" name=rap_scc_ams_codes_desc_3_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Description 4"border="0" color="0" x="3177" y="8" height=DAT* H "56" width="864" name=rap_scc_ams_codes_desc_4_t font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="SCC Size"border="0" color="0" x="4050" y="8" height="56" width="224" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=1 alignment="0"DAT* J tabsequence=32766 border="0" color="0" x="9" y="8" height="64" width="539" format="[general]" name=scc_code edit.limit=10 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="558" y="8" height="64" width="864" format="[general]" name=scc_nDAT* L ame1 edit.limit=70 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="1431" y="8" height="64" width="864" format="[general]" name=scc_name2 edit.limit=70 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.fDAT* N ace="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="2304" y="8" height="64" width="864" format="[general]" name=scc_name3 edit.limit=70 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" backgrouDAT* P nd.mode="1" background.color="536870912" )
column(band=detail id=5 alignment="0" tabsequence=32766 border="0" color="0" x="3177" y="8" height="64" width="864" format="[general]" name=scc_name4 edit.limit=70 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=6 alignment="0" tabsequence=32766 bordDAT* yer="0" color="0" x="4050" y="8" height="64" width="224" format="[general]" name=scc_size edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
htmltable(border="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes") DAT* T PDW0800 pdw Pl M N ` ` ` ` N F$ n n a a DAT* V
@ H D ` DAT* X scc_code_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $ -8 $ 700 $ 1 $
536870912 $ DAT* Z 9 $ 8 $ 4 52 $ M ` 352 % Code Code ` ) ! " $ & scc_name1_t $ # Q r 370 $ % 1243 % ' ( Description 1 Description 1 ` 2 * + DAT* \ - / scc_name2_t $ , c W 1623 $ . 1243 % 0 1 Description 2 Description 2 ` ; ) 3 4 6 8 scc_name3_t $ 5 u ; 2875 $ 7 1243 % 9 : Description 3 Description 3 ` D 2 < DAT* ^ = ? A scc_name4_t $ > 4128 $ @ 1243 % B C Description 4 Description 4 ` ; E F H J scc_size_t $ G 5381 $ I H I 329 % K L Scc Size Scc Size @ DAT* ` @ T O w [ P N Q S U W ( Z
scc_code $ R 9 $ T @ 64 $ V M ` 352 & X Y
[general]
[general] b O \ N ] DAT* b S _ W ( a F
scc_name1 $ ^ Q r 370 $ ` 1243 i [ c N d S f W ( h F
scc_name2 $ e c W 1623 $ g 1243 p b j N k S m DAT* d W ( o F
scc_name3 $ l u ; 2875 $ n 1243 w i q N r S t W ( v F
scc_name4 $ s 4128 $ u 1243 p x N y S { } DAT* f ( scc_size $ z 5381 $ | H I 329 & ~
[general]
[general] @ DAT* h O [ G b G i G p G w
DAT* j
:as_sccArray as_sccArray scc_code rap_scc_ams_codes.scc_code O
scc_name1 rap_scc_ams_codes.scc_name1 [
scc_name2 rap_scc_ams_codes.scc_name2 b
scc_name3 rap_scc_ams_codes.scc_name3 i
scc_name4 rap_scc_ams_codes.scc_name4 p scc_size scc_size w SELECT rap_scc_ams_codes.code as scc_code,
rap_scc_ams_coDAT* des.desc_1 as scc_name1,
rap_scc_ams_codes.desc_2 as scc_name2,
rap_scc_ams_codes.desc_3 as scc_name3,
rap_scc_ams_codes.desc_4 as scc_name4,
length(rap_scc_ams_codes.code) as scc_size
FROM rap_scc_ams_codes
WHERE rap_scc_ams_codes.code in ( )
ORDER BY scc_size ASC,
scc_code ASC
" no " yes DAT* n Select SCC data matching codes in filter bufferrelease 6;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=72 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(hDAT* p eight=84 color="536870912" )
table(column=(type=char(10) updatewhereclause=yes name=scc_code dbname="rap_scc_ams_codes.scc_code" )
column=(type=char(70) updatewhereclause=yes name=scc_name1 dbname="rap_scc_ams_codes.scc_name1" )
column=(type=char(70) updatewhereclause=yes name=scc_name2 dbname="rap_scc_ams_codes.scc_name2" )
column=(type=char(70) updatewhereclause=yes name=scc_name3 dbname="rap_scc_ams_codes.scc_name3" )
column=(type=char(70) updatewhereclause=yes name=scc_name4 dbname="rDAT* r ap_scc_ams_codes.scc_name4" )
column=(type=long updatewhereclause=yes name=scc_size dbname="scc_size" )
retrieve=" SELECT rap_scc_ams_codes.code as scc_code,
rap_scc_ams_codes.desc_1 as scc_name1,
rap_scc_ams_codes.desc_2 as scc_name2,
rap_scc_ams_codes.desc_3 as scc_name3,
rap_scc_ams_codes.desc_4 as scc_name4,
length(rap_scc_ams_codes.code) as scc_size
FROM rap_scc_ams_codes
WHERE rap_scc_ams_codes.code in ( :as_sDAT* t ccArray )
ORDER BY scc_size ASC,
scc_code ASC
" arguments=(("as_sccArray", stringlist)) )
text(band=header alignment="2" text="Code"border="0" color="0" x="9" y="8" height="52" width="352" name=scc_code_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Description 1"border="0" color="0" x="370" y="8" height="52" width="1243" DAT* v name=scc_name1_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Description 2"border="0" color="0" x="1623" y="8" height="52" width="1243" name=scc_name2_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="DAT* x 2" text="Description 3"border="0" color="0" x="2875" y="8" height="52" width="1243" name=scc_name3_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Description 4"border="0" color="0" x="4128" y="8" height="52" width="1243" name=scc_name4_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset=DAT* z "0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Scc Size"border="0" color="0" x="5381" y="8" height="52" width="329" name=scc_size_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="9" y="8" height="64" width="352" format="[general]" name=scc_code edit.limit=10DAT* | edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="370" y="8" height="64" width="1243" format="[general]" name=scc_name1 edit.limit=70 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS SaDAT* ~ ns Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="1623" y="8" height="64" width="1243" format="[general]" name=scc_name2 edit.limit=70 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" bDAT* ackground.mode="1" background.color="536870912" )
column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="2875" y="8" height="64" width="1243" format="[general]" name=scc_name3 edit.limit=70 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=5 alignment="0" tabseqDAT* uence=32766 border="0" color="0" x="4128" y="8" height="64" width="1243" format="[general]" name=scc_name4 edit.limit=70 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=6 alignment="1" tabsequence=32766 border="0" color="0" x="5381" y="8" height="64" width="329" format="[general]" namDAT* ^e=scc_size edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
htmltable(border="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes") DAT* PDW0800 X pdw Pl I ' ( H ` ` ` ` F$ X n n a a DAT*
@ I % ` DAT*
<
$ 0 % Arial Arial $ 2 $
-8 $ 700 $ 16777215 $ 9 $ 8 $ DAT* 9 57 $ n 503 % SIC Code SIC Code `
" $ r 521 $ ! 5 1413 % # $ SIC Name SIC Name $ & -1 @ % @ i % ) A DAT* A * ( + 1 3 5 7 9 ; = @ sic_code < ,
/ % - . MS Sans Serif MS Sans Serif $ 0 400 $ 2 1 $ 4
536870912 $ 6 9 $ 8 16 DAT* $ : A 65 $ < n 503 & > ?
[general]
[general] ) B ( + 1 3 C 7 9 E = G sic_name $ D r 521 $ F 5 1413 @ % J DAT* W S ) Q R V A T U 3 4
K L M N O P al_nationArray al_stateArrDAT* ay al_countyArray al_sourceArray al_sourceSub1Array al_sourceSub2Array sic_code v_rap_ss_sic.sic_code ) sic_name rap_sic_codes.name A PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME="v_rap_ss_sic" ) TABLE(NAME="rap_sic_codes" ) COLUMN(NAME="v_rap_ss_sic.sic_code") COLUMN(NAME="rap_sic_codes.name") JOIN (LEFT="v_rap_ss_sic.sic_code" OP ="="RIGHT="rap_sic_codes.code" OUTER1 ="v_rap_ss_sic.sic_code" )WHERE( EXP1 ="1" DAT* rOP ="=" EXP2 ="1" ) ) ORDER(NAME="v_rap_ss_sic.sic_code" ASC=yes ) ARG(NAME = "al_nationArray" TYPE = numberlist) ARG(NAME = "al_stateArray" TYPE = numberlist) ARG(NAME = "al_countyArray" TYPE = numberlist) ARG(NAME = "al_sourceArray" TYPE = numberlist) ARG(NAME = "al_sourceSub1Array" TYPE = numberlist) ARG(NAME = "al_sourceSub2Array" TYPE = numberlist) DAT* SIC code selection for Source Selectorrelease 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="-1" )
summary(height=1 color="-1" )
footer(height=1 color="-1" )
detail(height=105 color="-1" )
table(column=(type=char(4) updatewhereclause=yesDAT* name=sic_code dbname="v_rap_ss_sic.sic_code" )
column=(type=char(50) updatewhereclause=yes name=sic_name dbname="rap_sic_codes.name" )
retrieve="PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME=~"v_rap_ss_sic~" ) TABLE(NAME=~"rap_sic_codes~" ) COLUMN(NAME=~"v_rap_ss_sic.sic_code~") COLUMN(NAME=~"rap_sic_codes.name~") JOIN (LEFT=~"v_rap_ss_sic.sic_code~" OP =~"=~"RIGHT=~"rap_sic_codes.code~" OUTER1 =~"v_rap_ss_sic.sic_code~" )WHERE( EXP1 =~"1~" OP =~"=~" EXP2 =~"1~" ) ) ORDER(NAMDAT* E=~"v_rap_ss_sic.sic_code~" ASC=yes ) ARG(NAME = ~"al_nationArray~" TYPE = numberlist) ARG(NAME = ~"al_stateArray~" TYPE = numberlist) ARG(NAME = ~"al_countyArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub1Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub2Array~" TYPE = numberlist) " arguments=(("al_nationArray", numberlist),("al_stateArray", numberlist),("al_countyArray", numberlist),("al_sourceArray", numberlist),("al_sourceSub1Array",DAT* numberlist),("al_sourceSub2Array", numberlist)) )
text(band=header alignment="0" text="SIC Code"border="0" color="0" x="10" y="8" height="57" width="503" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="SIC Name"border="0" color="0" x="522" y="8" height="57" width="1413" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" DAT* font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="10" y="16" height="65" width="503" format="[general]" name=sic_code edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0DAT* " x="522" y="16" height="65" width="1413" format="[general]" name=sic_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* PDW0800 T pdw Pl E ' ( D ` ` ` ` j F$ T n n a a DAT*
@ I % ` DAT*
<
$ 0 % Arial Arial $ 2 $
-8 $ 700 $ 16777215 $ 9 1431 $ 4 $ DAT* A 65 $ f 466 % Sic Code Sic Code `
" $ 9 $ ! 5 1413 % # $ SIC Name SIC Name $ & -1 @ % @ I % ) = DAT* = * ( + 1 3 5 7 9 < sic_code < ,
/ % - . MS Sans Serif MS Sans Serif $ 0 400 $ 2 1 $ 4
536870912 $ 6 9 1431 $ 8 f 46DAT* 7 & : ;
[general]
[general] ) > ( + 1 3 ? A 9 C sic_name $ @ 9 $ B 5 1413 @ % F S DAT* O ) M N R = P Q 3 4 P@G H I J K L al_nationArray al_stateArray al_countyArray al_sourceArray al_sourceSub1Array al_sourcDAT* eSub2Array sic_code v_rap_ss_scc.sic_code ) sic_name rap_sic_codes.name = PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME="rap_sic_codes" ) TABLE(NAME="v_rap_ss_scc" ) COLUMN(NAME="v_rap_ss_scc.sic_code") COLUMN(NAME="rap_sic_codes.name") JOIN (LEFT="v_rap_ss_scc.sic_code" OP ="="RIGHT="rap_sic_codes.code" OUTER1 ="v_rap_ss_scc.sic_code" )WHERE( EXP1 ="1" OP ="=" EXP2 ="1" ) ) ORDER(NAME="v_rap_ss_scc.sic_code" ASC=yes ) ARG(NADAT* &ME = "al_nationArray" TYPE = numberlist) ARG(NAME = "al_stateArray" TYPE = numberlist) ARG(NAME = "al_countyArray" TYPE = numberlist) ARG(NAME = "al_sourceArray" TYPE = numberlist) ARG(NAME = "al_sourceSub1Array" TYPE = numberlist) ARG(NAME = "al_sourceSub2Array" TYPE = numberlist) DAT* SIC code selection for Source Selector at Sub-Source Data Levelrelease 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="-1" )
summary(height=1 color="-1" )
footer(height=1 color="-1" )
detail(height=73 color="-1" )
table(column=(type=char(DAT* 4) updatewhereclause=yes name=sic_code dbname="v_rap_ss_scc.sic_code" )
column=(type=char(50) updatewhereclause=yes name=sic_name dbname="rap_sic_codes.name" )
retrieve="PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME=~"rap_sic_codes~" ) TABLE(NAME=~"v_rap_ss_scc~" ) COLUMN(NAME=~"v_rap_ss_scc.sic_code~") COLUMN(NAME=~"rap_sic_codes.name~") JOIN (LEFT=~"v_rap_ss_scc.sic_code~" OP =~"=~"RIGHT=~"rap_sic_codes.code~" OUTER1 =~"v_rap_ss_scc.sic_code~" )WHERE( EXP1 =~"1~" OP =~"=~" EDAT* XP2 =~"1~" ) ) ORDER(NAME=~"v_rap_ss_scc.sic_code~" ASC=yes ) ARG(NAME = ~"al_nationArray~" TYPE = numberlist) ARG(NAME = ~"al_stateArray~" TYPE = numberlist) ARG(NAME = ~"al_countyArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub1Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub2Array~" TYPE = numberlist) " arguments=(("al_nationArray", numberlist),("al_stateArray", numberlist),("al_countyArray", numberlist),("al_sourceArray", numberlistDAT* ),("al_sourceSub1Array", numberlist),("al_sourceSub2Array", numberlist)) )
text(band=header alignment="0" text="Sic Code"border="0" color="0" x="1431" y="4" height="65" width="467" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="SIC Name"border="0" color="0" x="10" y="4" height="65" width="1413" font.face="Arial" font.height="-8" font.weight="700" font.fDAT* amily="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="1431" y="4" height="65" width="467" format="[general]" name=sic_code edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequenceDAT* 8=32766 border="0" color="0" x="10" y="4" height="65" width="1413" format="[general]" name=sic_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* PDW0800 P pdw Pl ? ) * > ` ` ` ` F$ P n n a a DAT* K
@ H ` DAT* sic_code_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $ -8 $ 700 $ 1 $
536870912 $ DAT* 9 $ 8 $ 4 52 $ F @ 320 % SIC Code SIC Code ` ! " $ & sic_name_t $ # J R 338 $ % 6 1417 % ' ( SIC Name SIC Name @ @DAT* T + 7 7 , * - / 1 3 ( 6 sic_code $ . 9 $ 0 @ 64 $ 2 F @ 320 & 4 5
[general]
[general] + 8 * 9 / ; 3 DAT* ( = 2 sic_name $ : J R 338 $ < 6 1417 @ @ B J DAT* F + D E I 7 G H 3 viA e
:as_sicArray viC as_sicArray sic_code rap_sic_codes.sic_code + sic_name rap_sic_codes.sic_name 7 SELECT rap_sic_codes.code as sic_code,
rap_sic_codes.name as sic_name
FROM rap_sic_codes
WHERE rap_sic_codes.code in ( DAT* )
ORDER BY sic_code ASC
L N " M no " O yes DAT* Select SIC data matching codes in filter bufferrelease 6;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=72 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(hDAT* eight=84 color="536870912" )
table(column=(type=char(4) updatewhereclause=yes name=sic_code dbname="rap_sic_codes.sic_code" )
column=(type=char(50) updatewhereclause=yes name=sic_name dbname="rap_sic_codes.sic_name" )
retrieve=" SELECT rap_sic_codes.code as sic_code,
rap_sic_codes.name as sic_name
FROM rap_sic_codes
WHERE rap_sic_codes.code in ( :as_sicArray )
ORDER BY sic_code ASC
" arguments=(("as_sicArray", stringlist)) )
text(band=header alignment="2" teDAT* xt="SIC Code"border="0" color="0" x="9" y="8" height="52" width="320" name=sic_code_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="SIC Name"border="0" color="0" x="338" y="8" height="52" width="1417" name=sic_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1DAT* " background.color="536870912" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="9" y="8" height="64" width="320" format="[general]" name=sic_code edit.limit=4 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" DAT* color="0" x="338" y="8" height="64" width="1417" format="[general]" name=sic_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
htmltable(border="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes") DAT* PDW0800 pdw Pl l ? @ k ` ` ` ` E F$ n n a a DAT*
@ X = / ` DAT*
<
$ 0 % MS Sans Serif MS Sans Serif $ 2 $
-12 $ 400 $ 16777215 $ 9 $ 8 DAT* $ P 80 $ ^ 430 % source_rid source_rid ` '
" $ $ b 448 $ ! 4 $ # 649 % % &
source_id
source_id ` /
( * , DAT* $ ) R 1106 $ + ~ 1746 % - . source_name source_name ` ' 0
4 6 8 : < 1
% 2 3 Arial Arial $ 5 r . 2862 $ 7 L 76 $ 9 = 279 % ; DAT* < Type Type $ >
536870912 @ = @ X = A b Q B @ C = E G I K M P rid $ D 1 $ F 9 $ H 0 $ J @ 64DAT* $ L ^ 430 & N O
[general]
[general] [ A R @ C = S G I U W Z id $ T b 448 $ V 649 & X Y
[general]
[general] b Q \ @ C = ] G I _ W DAT* a name $ ^ R 1106 $ ` ~ 1746 [ c @ C = d G f h W j type $ e r . 2862 $ g D 68 $ i = 279 @ = D DAT* m o s A q r t
w Q u v x { [ y z | 3 DAT* Select sources at a specific county.release 6;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=88 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=88 coDAT* lor="536870912" )
table(column=(type=decimal(0) updatewhereclause=yes name=rid dbname="rap_sources.rid" initial="null" )
column=(type=char(15) updatewhereclause=yes name=id dbname="rap_sources.id" initial="null" )
column=(type=char(50) updatewhereclause=yes name=name dbname="rap_sources.name" initial="null" )
column=(type=char(1) updatewhereclause=yes name=type dbname="rap_sources.type" initial="null" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_sources~" ) COLUMN(NAME=~"rap_sourceDAT* s.rid~") COLUMN(NAME=~"rap_sources.id~") COLUMN(NAME=~"rap_sources.name~") COLUMN(NAME=~"rap_sources.type~")WHERE( EXP1 =~"rap_sources.geographic_county_rid~" OP =~"=~" EXP2 =~" :an_county_rid~" ) ) ORDER(NAME=~"rap_sources.id~" ASC=yes ) ARG(NAME = ~"an_county_rid~" TYPE = number) " arguments=(("an_county_rid", number)) )
text(band=header alignment="0" text="source_rid"border="0" color="0" x="9" y="8" height="80" width="430" font.face="MS Sans Serif" font.height="-12" font.weight="400" DAT* font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="source_id"border="0" color="0" x="448" y="4" height="80" width="649" font.face="MS Sans Serif" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="source_name"border="0" color="0" x="1106" y="4" height="80" width="1746" font.face="MS Sans SerDAT* if" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="9" y="0" height="64" width="430" format="[general]" name=rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(baDAT* nd=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="448" y="0" height="64" width="649" format="[general]" name=id edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="1106" y="0" height="64" width="1746" format="[general]" name=name edit.limitDAT*
=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=4 alignment="0" tabsequence=0 border="0" color="0" x="2866" y="0" height="68" width="279" name=type font.face="MS Sans Serif" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=headDAT* PDW0800 t pdw Pl 5 4 ` ` ` ` $ F$ t n n a a DAT*
@ I ` DAT*
<
$ 0 % Arial Arial $ 2 $
-8 $ 700 $ 16777215 $ R 1106 $ 4 $ DAT* 9 57 $ ^ 430 %
State Rid
State Rid ` %
" $ R 1545 $ ! 649 % # $ State Name State Name ` -
& ( * $ ' 2203 DAT* $ ) ^ 430 % + , County Rid County Rid ` 5 %
. 0 2 $ / B R
2642 $ 1 649 % 3 4 County Name County Name ` = -
6 8 : $ 7 3301 $ 9 ^ DAT* 430 % ; < Source Rid Source Rid ` E 5
> @ B $ ? 2 3739 $ A ^ 430 % C D
Source Id
Source Id ` M =
F H J $ G R 4178 $ I e 869 % K DAT* L Source Name Source Name ` U E
N P R $ O R 5056 $ Q . 210 % S T Source Type Source Type ` ] M
V X Z $ W 5275 $ Y ^ 430 % [ \ DAT*
Sic Code Sic Code ` e U
^ ` b $ _ R 5714 $ a ^ 430 % c d Source Sub1 Rid Source Sub1 Rid ` m ]
f h j $ g B 6153 $ i _ 434 % k l Source Sub1 Id DAT* Source Sub1 Id ` u e
n p r $ o 6597 $ q 654 % s t Source Sub1 Name Source Sub1 Name ` } m
v x z $ w 4 [ 7259 $ y _ 434 % { | Source Sub2 Rid SoDAT* urce Sub2 Rid ` u
~ $ 7703 $ ^ 430 % Source Sub2 Id Source Sub2 Id ` }
$ 8142 $ 654 % Source Sub2 Name Source DAT* Sub2 Name `
$ e" 8805 $ ^ 430 % Scc Code Scc Code `
$ 9 $ ^ 430 % Nation Rid Nation Rid ` DAT*
$ b 448 $ 649 % Nation Name Nation Name $
536870912 @ @ I -
DAT* nation_rid <
$ 400 $ 9 $ 0 $ M 77 $ ^ 430 &
[general]
[general]
DAT* nation_name $ b 448 $ 650 &
[general]
[general]
state_rid $ R 1106 $ ^ 430
DAT* state_name $ R 1545 $ 650
county_rid $ 2203 $ ^ 430
DAT* county_name $ B R
2642 $ 650
source_rid $ 3301 $ ^ 430
DAT*
source_id $ 2 3739 $ ^ 430
source_name $ R 4178 $ e 869
DAT* source_type $ R 5056 $ . 211
sic_code $ 5275 $ ^ 430
DAT* source_sub1_rid $ R 5714 $ ^ 430
source_sub1_id $
B 6153 $ _ 435
DAT* " source_sub1_name $ 6597 $ 654
source_sub2_rid $ 4 [ 7259 $ _ 435 &
! # % DAT* $ source_sub2_id $ " 7703 $ $ ^ 430 - '
( * , source_sub2_name $ ) 8142 $ + 654 & .
/ 1 3 scc_DAT* & code $ 0 e" 8805 $ 2 ^ 430 @ 6 s ? DAT* ( = >
B @ A 3 E C D
H F G 3 K I J
N L M 3 Q O P
T R S DAT* * W U V 3 Z X Y
] [ \ ` ^ _
c
a b
f d e 3 i g h
l j k DAT* , o & m n 3 r - p q 4 7 8 9 : ; < al_nationArray al_stateArray al_countyArray al_sourceArray al_sourceSub1Array al_sourceSub2Array nation_rid v_rap_ss_scc.nation_rid nation_name v_rap_ss_scc.nation_name
state_rid v_rap_ss_scc.state_rid DAT* . state_name v_rap_ss_scc.state_name county_rid v_rap_ss_scc.county_rid county_name v_rap_ss_scc.county_name source_rid v_rap_ss_scc.source_rid
source_id v_rap_ss_scc.source_id source_name v_rap_ss_scc.source_name source_type v_rap_ss_scc.source_type sic_code v_rap_ss_scc.sic_code DAT* 0 source_sub1_rid v_rap_ss_scc.source_sub1_rid source_sub1_id v_rap_ss_scc.source_sub1_id
source_sub1_name v_rap_ss_scc.source_sub1_name source_sub2_rid v_rap_ss_scc.source_sub2_rid source_sub2_id v_rap_ss_scc.source_sub2_id source_sub2_name v_rap_ss_scc.source_sub2_name & scc_code v_rap_ss_scc.scc_code - DAT* 2 PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME="v_rap_ss_scc" ) COLUMN(NAME="v_rap_ss_scc.nation_rid") COLUMN(NAME="v_rap_ss_scc.nation_name") COLUMN(NAME="v_rap_ss_scc.state_rid") COLUMN(NAME="v_rap_ss_scc.state_name") COLUMN(NAME="v_rap_ss_scc.county_rid") COLUMN(NAME="v_rap_ss_scc.county_name") COLUMN(NAME="v_rap_ss_scc.source_rid") COLUMN(NAME="v_rap_ss_scc.source_id") COLUMN(NAME="v_rap_ss_scc.source_name") COLUMN(NAME="v_rap_ss_scc.source_type") COLUMN(NAME="v_rap_ss_scc.sic_code") COLUMNDAT* (NAME="v_rap_ss_scc.source_sub1_rid") COLUMN(NAME="v_rap_ss_scc.source_sub1_id") COLUMN(NAME="v_rap_ss_scc.source_sub1_name") COLUMN(NAME="v_rap_ss_scc.source_sub2_rid") COLUMN(NAME="v_rap_ss_scc.source_sub2_id") COLUMN(NAME="v_rap_ss_scc.source_sub2_name") COLUMN(NAME="v_rap_ss_scc.scc_code")WHERE( EXP1 ="1" OP ="=" EXP2 ="1" ) ) ORDER(NAME="v_rap_ss_scc.nation_name" ASC=no) ORDER(NAME="v_rap_ss_scc.state_name" ASC=yes ) ORDER(NAME="v_rap_ss_scc.county_name" ASC=yes ) ORDER(NAME="v_rapDAT* 6 Result Set Treeview Datarelease 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=73 color="536870912" )
table(column=(type=decimal(0) updatDAT* 8 ewhereclause=yes name=nation_rid dbname="v_rap_ss_scc.nation_rid" )
column=(type=char(50) updatewhereclause=yes name=nation_name dbname="v_rap_ss_scc.nation_name" )
column=(type=decimal(0) updatewhereclause=yes name=state_rid dbname="v_rap_ss_scc.state_rid" )
column=(type=char(50) updatewhereclause=yes name=state_name dbname="v_rap_ss_scc.state_name" )
column=(type=decimal(0) updatewhereclause=yes name=county_rid dbname="v_rap_ss_scc.county_rid" )
column=(type=char(50) updatewhereclause=DAT* : yes name=county_name dbname="v_rap_ss_scc.county_name" )
column=(type=decimal(0) updatewhereclause=yes name=source_rid dbname="v_rap_ss_scc.source_rid" )
column=(type=char(10) updatewhereclause=yes name=source_id dbname="v_rap_ss_scc.source_id" )
column=(type=char(50) updatewhereclause=yes name=source_name dbname="v_rap_ss_scc.source_name" )
column=(type=char(1) updatewhereclause=yes name=source_type dbname="v_rap_ss_scc.source_type" )
column=(type=char(4) updatewhereclause=yes name=sic_DAT* < code dbname="v_rap_ss_scc.sic_code" )
column=(type=decimal(0) updatewhereclause=yes name=source_sub1_rid dbname="v_rap_ss_scc.source_sub1_rid" )
column=(type=char(10) updatewhereclause=yes name=source_sub1_id dbname="v_rap_ss_scc.source_sub1_id" )
column=(type=char(50) updatewhereclause=yes name=source_sub1_name dbname="v_rap_ss_scc.source_sub1_name" )
column=(type=decimal(0) updatewhereclause=yes name=source_sub2_rid dbname="v_rap_ss_scc.source_sub2_rid" )
column=(type=char(10) updatewhDAT* > ereclause=yes name=source_sub2_id dbname="v_rap_ss_scc.source_sub2_id" )
column=(type=char(50) updatewhereclause=yes name=source_sub2_name dbname="v_rap_ss_scc.source_sub2_name" )
column=(type=char(10) updatewhereclause=yes name=scc_code dbname="v_rap_ss_scc.scc_code" )
retrieve="PBSELECT( VERSION(400) DISTINCT ()TABLE(NAME=~"v_rap_ss_scc~" ) COLUMN(NAME=~"v_rap_ss_scc.nation_rid~") COLUMN(NAME=~"v_rap_ss_scc.nation_name~") COLUMN(NAME=~"v_rap_ss_scc.state_rid~") COLUMN(NAME=~"v_rap_ss_scc.sDAT* @ tate_name~") COLUMN(NAME=~"v_rap_ss_scc.county_rid~") COLUMN(NAME=~"v_rap_ss_scc.county_name~") COLUMN(NAME=~"v_rap_ss_scc.source_rid~") COLUMN(NAME=~"v_rap_ss_scc.source_id~") COLUMN(NAME=~"v_rap_ss_scc.source_name~") COLUMN(NAME=~"v_rap_ss_scc.source_type~") COLUMN(NAME=~"v_rap_ss_scc.sic_code~") COLUMN(NAME=~"v_rap_ss_scc.source_sub1_rid~") COLUMN(NAME=~"v_rap_ss_scc.source_sub1_id~") COLUMN(NAME=~"v_rap_ss_scc.source_sub1_name~") COLUMN(NAME=~"v_rap_ss_scc.source_sub2_rid~") COLUMN(NAME=~"v_raDAT* B p_ss_scc.source_sub2_id~") COLUMN(NAME=~"v_rap_ss_scc.source_sub2_name~") COLUMN(NAME=~"v_rap_ss_scc.scc_code~")WHERE( EXP1 =~"1~" OP =~"=~" EXP2 =~"1~" ) ) ORDER(NAME=~"v_rap_ss_scc.nation_name~" ASC=no) ORDER(NAME=~"v_rap_ss_scc.state_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.county_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.source_id~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.source_sub1_id~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.source_sub2_id~" ASC=yes ) ARG(NAME = ~"al_nationArray~" TDAT* D YPE = numberlist) ARG(NAME = ~"al_stateArray~" TYPE = numberlist) ARG(NAME = ~"al_countyArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceArray~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub1Array~" TYPE = numberlist) ARG(NAME = ~"al_sourceSub2Array~" TYPE = numberlist) " arguments=(("al_nationArray", numberlist),("al_stateArray", numberlist),("al_countyArray", numberlist),("al_sourceArray", numberlist),("al_sourceSub1Array", numberlist),("al_sourceSub2Array", numberlist)) )
text(band=header DAT* F alignment="0" text="State Rid"border="0" color="0" x="1093" y="4" height="57" width="430" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="State Name"border="0" color="0" x="1527" y="4" height="57" width="650" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215"DAT* H )
text(band=header alignment="0" text="County Rid"border="0" color="0" x="2181" y="4" height="57" width="430" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="County Name"border="0" color="0" x="2615" y="4" height="57" width="650" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" backDAT* J ground.color="16777215" )
text(band=header alignment="0" text="Source Rid"border="0" color="0" x="3269" y="4" height="57" width="430" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Id"border="0" color="0" x="3703" y="4" height="57" width="426" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" bacDAT* L kground.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Name"border="0" color="0" x="4138" y="4" height="57" width="869" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Type"border="0" color="0" x="5011" y="4" height="57" width="211" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch=DAT* N "2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Sic Code"border="0" color="0" x="5230" y="4" height="57" width="426" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Sub1 Rid"border="0" color="0" x="5665" y="4" height="57" width="426" font.face="Arial" font.height="-8" font.weight="700" foDAT* P nt.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Sub1 Id"border="0" color="0" x="6094" y="4" height="57" width="430" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Sub1 Name"border="0" color="0" x="6529" y="4" height="57" width="650" font.face="Arial" font.hDAT* R eight="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Sub2 Rid"border="0" color="0" x="7182" y="4" height="57" width="430" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Sub2 Id"border="0" color="0" x="7617" y="4" height="57" width=DAT* T "430" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Source Sub2 Name"border="0" color="0" x="8051" y="4" height="57" width="650" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Scc Code"border="0" color="0" x="8705DAT* V " y="4" height="57" width="430" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Nation Rid"border="0" color="0" x="5" y="4" height="57" width="430" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="0" text="Nation Name"border="DAT* X 0" color="0" x="439" y="4" height="57" width="650" font.face="Arial" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="5" y="0" height="77" width="430" format="[general]" name=nation_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0DAT* Z " background.mode="2" background.color="16777215" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="439" y="0" height="77" width="650" format="[general]" name=nation_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="1093" y="0" heigDAT* \ ht="77" width="430" format="[general]" name=state_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="1527" y="0" height="77" width="650" format="[general]" name=state_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weightDAT* ^ ="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=5 alignment="0" tabsequence=32766 border="0" color="0" x="2181" y="0" height="77" width="430" format="[general]" name=county_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=6 alignment="0" tabsDAT* ` equence=32766 border="0" color="0" x="2615" y="0" height="77" width="650" format="[general]" name=county_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=7 alignment="0" tabsequence=32766 border="0" color="0" x="3269" y="0" height="77" width="430" format="[general]" name=source_rid edit.limit=0 edit.case=any edit.autoseDAT* b lect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=8 alignment="0" tabsequence=32766 border="0" color="0" x="3703" y="0" height="77" width="430" format="[general]" name=source_id edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="DAT* d 16777215" )
column(band=detail id=9 alignment="0" tabsequence=32766 border="0" color="0" x="4138" y="0" height="77" width="869" format="[general]" name=source_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=10 alignment="0" tabsequence=32766 border="0" color="0" x="5011" y="0" height="77" width="211" format="[general]"DAT* f name=source_type edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=11 alignment="0" tabsequence=32766 border="0" color="0" x="5230" y="0" height="77" width="430" format="[general]" name=sic_code edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2DAT* h " font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=12 alignment="0" tabsequence=32766 border="0" color="0" x="5665" y="0" height="77" width="430" format="[general]" name=source_sub1_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=13 alignment="0" tabsequence=32766 border="0" colorDAT* j ="0" x="6094" y="0" height="77" width="435" format="[general]" name=source_sub1_id edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=14 alignment="0" tabsequence=32766 border="0" color="0" x="6529" y="0" height="77" width="654" format="[general]" name=source_sub1_name edit.limit=0 edit.case=any edit.autoselect=yes font.face=DAT* l "Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=15 alignment="0" tabsequence=32766 border="0" color="0" x="7182" y="0" height="77" width="435" format="[general]" name=source_sub2_rid edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
DAT* n column(band=detail id=16 alignment="0" tabsequence=32766 border="0" color="0" x="7617" y="0" height="77" width="430" format="[general]" name=source_sub2_id edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=17 alignment="0" tabsequence=32766 border="0" color="0" x="8051" y="0" height="77" width="654" format="[general]" name=soDAT* p urce_sub2_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=18 alignment="0" tabsequence=32766 border="0" color="0" x="8705" y="0" height="77" width="430" format="[general]" name=scc_code edit.limit=0 edit.case=any edit.autoselect=yes font.face="Arial" font.height="-8" font.weight="400" font.family="2" font.pitch="2" foDAT* D nt.charset="0" background.mode="2" background.color="16777215" )
DAT* t _@ d)b?MA _@_@t _@( `@`@2 j@j@@ k@k@L l@l@` m@m@l @@| @@ @@ @@ ^@^@
q@q@ 6 p 9 T 8 f_recalc_notify function_object structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo powerobject transaction sqlca SELECT recalc_group_rid FROM rap_db_prefs WHERE rid =0 DAT* j MA @ 4 MA f_sqlcheck SELECT count ( *) FROM rap_group_source_criteria WHERE rap_group_source_criteria.group_rid =0 \ ] { MA ta MA 4
8
2 f_recalc_notify
L
x function_object f_recalc_nDAT* x a@ e)b?MA a@a@ a@- `@`@7 j@j@E k@k@Q l@l@e m@m@q @@ @@ @@ @@! ^@^@ o@ o@o@ n@n@ F@F@ q@q@1 u@u@ ng li l v@v@a ed u_class_source_group nonvisualobject structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfDAT* z o powerobject u_ds_base al_nationArray al_stateArray al_countyArray al_sourceArray al_sourceSub1Array al_sourceSub2Array al_sourceSub3Array al_sourceSub4Array as_sicArray as_sccArray nation_rid state_rid county_rid source_rid source_sub1_rid source_sub2_rid source_sub3_rid source_sub4_rid sic_code scc_code group_rid group_name group_description data_level filter_logic source_type filter_name filter_value |; DAT* l |; |; |; |; datastore datawindow pointer transaction sqlca gs_database extobject f_get_sequence SELECT count ( *) FROM rap_group_data WHERE ( rap_group_data.group_name =' ' ) AND ( rap_group_data.group_rid <>DAT* ~ global type f_recalc_notify from function_object
end type
forward prototypes
global function long f_recalc_notify ()
end prototypes
global function long f_recalc_notify ();
//display message if there are items in the recalculate group
long ll_rc
long ll_groupRid
SELECT recalc_group_rid
INTO :ll_groupRid
FROM rap_db_prefs
WHERE rid = 0
USING SQLCA;
ll_rc = f_sqlCheck(SQLCA)
if ll_rc < 0 then
return -1
elseif ll_rc = 100 then
messageBox("Error", "No data found in raDAT* p_db_prefs.", exclamation!)
return -1
end if
SELECT count(*)
INTO :ll_rc
FROM rap_group_source_criteria
WHERE rap_group_source_criteria.group_rid = :ll_groupRid
USING SQLCA;
if f_sqlCheck(SQLCA) < 0 then return -1
if ll_rc > 0 then
messageBox("Saved Groups", "The RECALCULATE Group contains Sources which " +&
"may need to be recalculated.", information!)
end if
return 1
end function
DAT* _@ d)b?MA _@_@ _@# `@`@- j@j@; k@k@G l@l@[ m@m@g @@w @@ @@ @@a ^@^@ vi jm q@q@a f_sqlcheck function_object structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo powerobject transaction 2 at_trans f_sqlcheck $ LXCtransaction. DAT* h
x function_object f_sqlcheck structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo powerobject transaction @ j@ # k@@ J - @ m@ ; @ @ G @@ [ @ ^@q g jt@ q@ w @ @ i
@@ @
@ DAT* g@ )b? @@J `@`@aT j@j@qb k@k@n l@l@A m@m@A @@ @@ @@ @@ ^@^@ @@
@@A @@ @@+ @@ 9 @ @C Y@Y@qN @@`Y @@ Q a@ A v@v@A % I d@d@T p@ T ' b p@ b u( lt u_class_ss_client userobject userobjects windowobject borderstylDAT* > e structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo powerobject 0
g commandbutton fontcharset fontpitch fontfamily picturebutton alignment vtextalign statictext fillpattern 0
3 u_class_source_group ind0
x Debug MS Sans Serif sgprint.bmp Arial Data Level: Result Set: Filter Criteria: Source Criteria: &Source SelectDAT* Tests the DBCode for a transaction object. Produces error message for DBCode < 0global type f_sqlcheck from function_object
end type
forward prototypes
global function long f_sqlcheck (readonly transaction at_trans)
end prototypes
global function long f_sqlcheck (readonly transaction at_trans);
//Function: long f_sqlCheck(transaction at_trans)
//Returns the DBCode value of the given transaction object,
//and produces an error message if DBCode < 0.
//10-13-97 MDY
if at_tranDAT* s.SQLCode < 0 then
post messageBox("SQL Error", &
"Database Error: " + string(at_trans.SQLDBCode) + "~r~n~n" +&
at_trans.SQLErrText, &
exclamation!)
end if
return at_trans.SQLCode
end function
DAT* PDW0800 ^ pdw Pl O 2 3 N ` ` ` ` ! F$ ^ n n a a DAT*
@ I * ` DAT* nation_name_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $ -8 $ 700 $ 1 $
536870912 $ DAT* 9 $ 8 $ 5 53 $ ^ 430 % Nation Name Nation Name ` * ! # % ' $ "
553648127 $ $ b 448 $ & ^ 430 % ( ) State Name State Name ` DAT* ! + - / $ , w 887 $ . ] 425 % 0 1 County Name County Name @ @ U 4 G @ 5 3 6 8 : < ( ? 2 nation_name DAT* $ 7 9 $ 9 A 65 $ ; ^ 430 & = >
[general]
[general] G 4 A 3 B 8 D < F state_name $ C b 448 $ E ^ 430 @ H 3 I 8 K DAT* < M county_name $ J w 887 $ L ] 426 @ P R ] DAT* V 4 T U 3 Y @ W X 3 \ G Z [ 3 urQ e
:al_ridArray urS al_ridArray nation_name % rap_geographic_locations.nation_name 4 state_name $ rap_geographic_locations.state_name @ county_name % rap_gDAT* eographic_locations.county_name G L PBSELECT( VERSION(400) TABLE(NAME="rap_geographic_locations" ALIAS="rap_geographic_locations_a" ) TABLE(NAME="rap_geographic_locations" ALIAS="rap_geographic_locations_b" ) TABLE(NAME="rap_geographic_locations" ALIAS="rap_geographic_locations_c" ) COMPUTE(NAME="rap_geographic_locations_a.name as nation_name") COMPUTE(NAME="rap_geographic_locations_b.name as state_name") COMPUTE(NAME="rap_geographic_locations_c.name as county_name") JOIN DAT* (LEFT="rap_geographic_locations_b.parent_rid" OP ="="RIGHT="rap_geographic_locations_a.rid" ) JOIN (LEFT="rap_geographic_locations_c.parent_rid" OP ="="RIGHT="rap_geographic_locations_b.rid" )WHERE( EXP1 ="rap_geographic_locations_c.rid" OP ="in" EXP2 ="" ) ) ORDER(NAME="1" ASC=no) ORDER(NAME="2" ASC=yes ) ORDER(NAME="3" ASC=yes ) ARG(NAME = "al_ridArray" TYPE = numberlist) DAT* release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=85 color="536870912" )
table(column=(type=char(50) updatewhereclause=yes name=natiDAT* on_name dbname="rap_geographic_locations.nation_name" )
column=(type=char(50) updatewhereclause=yes name=state_name dbname="rap_geographic_locations.state_name" )
column=(type=char(50) updatewhereclause=yes name=county_name dbname="rap_geographic_locations.county_name" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_geographic_locations~" ALIAS=~"rap_geographic_locations_a~" ) TABLE(NAME=~"rap_geographic_locations~" ALIAS=~"rap_geographic_locations_b~" ) TABLE(NAME=~"rap_geographic_locDAT* ations~" ALIAS=~"rap_geographic_locations_c~" ) COMPUTE(NAME=~"rap_geographic_locations_a.name as nation_name~") COMPUTE(NAME=~"rap_geographic_locations_b.name as state_name~") COMPUTE(NAME=~"rap_geographic_locations_c.name as county_name~") JOIN (LEFT=~"rap_geographic_locations_b.parent_rid~" OP =~"=~"RIGHT=~"rap_geographic_locations_a.rid~" ) JOIN (LEFT=~"rap_geographic_locations_c.parent_rid~" OP =~"=~"RIGHT=~"rap_geographic_locations_b.rid~" )WHERE( EXP1 =~"rap_geographic_locatiDAT* ons_c.rid~" OP =~"in~" EXP2 =~":al_ridArray~" ) ) ORDER(NAME=~"1~" ASC=no) ORDER(NAME=~"2~" ASC=yes ) ORDER(NAME=~"3~" ASC=yes ) ARG(NAME = ~"al_ridArray~" TYPE = numberlist) " arguments=(("al_ridArray", numberlist)) )
text(band=header alignment="2" text="Nation Name"border="0" color="0" x="10" y="8" height="53" width="430" name=nation_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color=DAT* "536870912" )
text(band=header alignment="0" text="State Name"border="0" color="0" x="449" y="8" height="53" width="430" font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
text(band=header alignment="0" text="County Name"border="0" color="0" x="887" y="8" height="53" width="426" font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0DAT* " background.mode="1" background.color="553648127" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="10" y="8" height="65" width="430" format="[general]" name=nation_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsDAT* equence=32766 border="0" color="0" x="449" y="8" height="65" width="430" format="[general]" name=state_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="887" y="8" height="65" width="426" format="[general]" name=county_name edit.limit=0 edit.case=any editDAT* .autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* PDW0800 pdw Pl ] ^ ` ` ` ` F$ n n a a DAT*
@ H U ` DAT*
state_name_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $ -8 $ 700 $ 1 $
536870912 $ b DAT* 448 $ 8 $ 4 52 $ ^ 430 % State Name State Name ` ) ! " $ & county_name_t $ # w 887 $ % ^ 430 % ' ( County Name County Name ` 2 * DAT* + - / source_id_t $ , " . 1326 $ . E ; 315 % 0 1
Source Id
Source Id ` ; ) 3 4 6 8 source_name_t $ 5 i r 1650 $ 7 649 % 9 : Source Name Source Name ` D 2 < DAT* = ? A nation_name_t $ > 9 $ @ ^ 430 % B C Nation Name Nation Name ` M ; E F H J sic_code_t $ G 2309 $ I F @ 320 % K L Sic Code Sic Code ` U D DAT* N P R $ O A N
2638 $ Q E ; 315 % S T
Device Id
Device Id ` M V X Z $ W 2962 $ Y 654 % [ \ Device Name Device Name @ DAT* @ H _ i ` ^ a c e ( h 2 state_name $ b b 448 $ d ^ 430 & f g
[general]
[general] p _ j ^ k m e ( o 2 DAT* county_name $ l w 887 $ n ^ 430 w i q ^ r t e ( v
source_id $ s " . 1326 $ u E ; 315 ~ p x ^ y { e ( } 2 sDAT* ource_name $ z i r 1650 $ | 649 w ^ e ( 2 nation_name $ 9 $ ^ 430 ~ ^ e ( sic_code $ DAT* 2309 $ F @ 320 ^ e
device_id $ A N
2638 $ E ; 315 ^ e device_name $ DAT* 2962 $ 654 @ D ~ DAT* 3 _ 3 i 3 p w 3 3
:al_DAT* ridArray al_ridArray nation_name v_rap_ss_sic.nation_name ~ state_name v_rap_ss_sic.state_name _ county_name v_rap_ss_sic.county_name i
source_id v_rap_ss_sic.source_id p source_name v_rap_ss_sic.source_name w sic_code v_rap_ss_sic.sic_code
device_id rap_devices.device_id device_name rapDAT* _devices.device_name + PBSELECT( VERSION(400) TABLE(NAME="v_rap_ss_sic" ) TABLE(NAME="rap_devices" ) COLUMN(NAME="v_rap_ss_sic.nation_name") COLUMN(NAME="v_rap_ss_sic.state_name") COLUMN(NAME="v_rap_ss_sic.county_name") COLUMN(NAME="v_rap_ss_sic.source_id") COLUMN(NAME="v_rap_ss_sic.source_name") COLUMN(NAME="v_rap_ss_sic.sic_code") COMPUTE(NAME="rap_devices.id as device_id") COMPUTE(NAME="rap_devices.name as device_name") JOIN (LEFT="rap_devices.source_rid" OP ="="RIGDAT* HT="v_rap_ss_sic.source_rid" )WHERE( EXP1 ="rap_devices.rid" OP ="in" EXP2 =" " ) ) ORDER(NAME="v_rap_ss_sic.nation_name" ASC=no) ORDER(NAME="v_rap_ss_sic.state_name" ASC=yes ) ORDER(NAME="v_rap_ss_sic.county_name" ASC=yes ) ORDER(NAME="v_rap_ss_sic.source_id" ASC=yes ) ORDER(NAME="7" ASC=yes ) ARG(NAME = "al_ridArray" TYPE = numberlist) " no " yes DAT* release 6;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no print.buttons=no print.preview.buttons=no grid.lines=0 )
header(height=72 color="536870912" )
summary(height=0 color="536870912" )
footer(height=0 color="536870912" )
detail(height=72 color="536870912" )
table(column=(typDAT* e=char(50) updatewhereclause=yes name=nation_name dbname="v_rap_ss_sic.nation_name" )
column=(type=char(50) updatewhereclause=yes name=state_name dbname="v_rap_ss_sic.state_name" )
column=(type=char(50) updatewhereclause=yes name=county_name dbname="v_rap_ss_sic.county_name" )
column=(type=char(15) updatewhereclause=yes name=source_id dbname="v_rap_ss_sic.source_id" )
column=(type=char(50) updatewhereclause=yes name=source_name dbname="v_rap_ss_sic.source_name" )
column=(type=char(4) updDAT* atewhereclause=yes name=sic_code dbname="v_rap_ss_sic.sic_code" )
column=(type=char(15) updatewhereclause=yes name=device_id dbname="rap_devices.device_id" )
column=(type=char(50) updatewhereclause=yes name=device_name dbname="rap_devices.device_name" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"v_rap_ss_sic~" ) TABLE(NAME=~"rap_devices~" ) COLUMN(NAME=~"v_rap_ss_sic.nation_name~") COLUMN(NAME=~"v_rap_ss_sic.state_name~") COLUMN(NAME=~"v_rap_ss_sic.county_name~") COLUMN(NAME=~"v_rap_ss_sDAT* ic.source_id~") COLUMN(NAME=~"v_rap_ss_sic.source_name~") COLUMN(NAME=~"v_rap_ss_sic.sic_code~") COMPUTE(NAME=~"rap_devices.id as device_id~") COMPUTE(NAME=~"rap_devices.name as device_name~") JOIN (LEFT=~"rap_devices.source_rid~" OP =~"=~"RIGHT=~"v_rap_ss_sic.source_rid~" )WHERE( EXP1 =~"rap_devices.rid~" OP =~"in~" EXP2 =~" :al_ridArray~" ) ) ORDER(NAME=~"v_rap_ss_sic.nation_name~" ASC=no) ORDER(NAME=~"v_rap_ss_sic.state_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_sic.county_name~" ASDAT* C=yes ) ORDER(NAME=~"v_rap_ss_sic.source_id~" ASC=yes ) ORDER(NAME=~"7~" ASC=yes ) ARG(NAME = ~"al_ridArray~" TYPE = numberlist) " arguments=(("al_ridArray", numberlist)) )
text(band=header alignment="0" text="State Name"border="0" color="0" x="448" y="8" height="52" width="430" name=state_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="DAT* County Name"border="0" color="0" x="887" y="8" height="52" width="430" name=county_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Source Id"border="0" color="0" x="1326" y="8" height="52" width="320" name=source_id_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mDAT* ode="1" background.color="536870912" )
text(band=header alignment="0" text="Source Name"border="0" color="0" x="1655" y="8" height="52" width="649" name=source_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Nation Name"border="0" color="0" x="9" y="8" height="52" width="430" name=nation_name_t font.face="MS Sans Serif" font.height="-8" DAT* font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Sic Code"border="0" color="0" x="2313" y="8" height="52" width="320" name=sic_code_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Device Id"border="0" color="0" x="2642" y="8" height="52" wiDAT* dth="315" font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Device Name"border="0" color="0" x="2967" y="8" height="52" width="654" font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 bDAT* order="0" color="0" x="448" y="8" height="52" width="430" format="[general]" name=state_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="887" y="8" height="52" width="430" format="[general]" name=county_name eDAT* dit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="1330" y="8" height="52" width="315" format="[general]" name=source_id edit.limit=15 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes fontDAT* .face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=5 alignment="0" tabsequence=32766 border="0" color="0" x="1655" y="8" height="52" width="649" format="[general]" name=source_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.DAT* charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="9" y="8" height="52" width="430" format="[general]" name=nation_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=6 alignmentDAT* ="0" tabsequence=32766 border="0" color="0" x="2313" y="8" height="52" width="320" format="[general]" name=sic_code edit.limit=4 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=7 alignment="0" tabsequence=32766 border="0" color="0" x="2642" y="8" height="52" width="315" format="[generaDAT* l]" name=device_id edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=8 alignment="0" tabsequence=32766 border="0" color="0" x="2967" y="8" height="52" width="654" format="[general]" name=device_name edit.limit=0 edit.case=any edit.autoselect=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.famiDAT* ly="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
htmltable(border="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes") DAT* PDW0800 ` pdw Pl U ? A T ` ` ` ` % F$ _ ` n n a a DAT*
@ $ 6 ` DAT*
<
$ 0 % Arial Arial $ 2 $
-12 $ 700 $ 16777215 $ 19 $ 20 $ DAT* Q 81 $ 215 % Filters Filters ` / " $
& ( * , filter_name_t <
$ ! -10 $ # 1 $ %
536870912 $ ' 132 $ ) A 65 DAT* $ + S 339 % - . Filter Name Filter Name ` 6 0 " $
1 & ( * 3 filter_value_t $ 2 659 % 4 5
Filter Value
Filter Value P / " 7 9 ; = ; $ 8
553648127 $ : 14 $ < DAT* 212 $ > % 4389 @ ) $ @ @ P ? " 7 9 = @ I $ B O O C A D " $ 1 G ( I K ( N
filter_value <
E DAT* $ F 400 $ H 4 $ J 439 & L M
[general]
[general] B P A D " $ G ( Q K ( S filter_name $ R 421 @ $ DAT* ^ V W
Z O X Y ! ] B [ \ !
group_rid $ rapDAT* _group_filter_criteria.group_rid filter_name & rap_group_filter_criteria.filter_name O
filter_value ' rap_group_filter_criteria.filter_value B PBSELECT( VERSION(400) TABLE(NAME="rap_group_filter_criteria" ) COLUMN(NAME="rap_group_filter_criteria.group_rid") COLUMN(NAME="rap_group_filter_criteria.filter_name") COLUMN(NAME="rap_group_filter_criteria.filter_value")) filter_name DAT* release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=0 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no )
header(height=233 color="536870912" )
summary(height=1 color="536870912" )
footer(height=41 color="536870912" )
detail(height=73 color="536870912" )
table(column=(type=decimal(0) updatewhereclause=yes name=group_rid dbnDAT* ame="rap_group_filter_criteria.group_rid" )
column=(type=char(32) updatewhereclause=yes name=filter_name dbname="rap_group_filter_criteria.filter_name" )
column=(type=char(32) updatewhereclause=yes name=filter_value dbname="rap_group_filter_criteria.filter_value" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_group_filter_criteria~" ) COLUMN(NAME=~"rap_group_filter_criteria.group_rid~") COLUMN(NAME=~"rap_group_filter_criteria.filter_name~") COLUMN(NAME=~"rap_group_filter_criteria.filterDAT* _value~")) " )
text(band=header alignment="0" text="Filters"border="0" color="0" x="19" y="20" height="81" width="215" font.face="Arial" font.height="-12" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="2" text="Filter Name"border="0" color="0" x="19" y="132" height="65" width="339" name=filter_name_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charseDAT*
t="0" background.mode="1" background.color="536870912" )
text(band=header alignment="2" text="Filter Value"border="0" color="0" x="659" y="132" height="65" width="339" name=filter_value_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="659" y="4" height="65" width="439" format="[general]" name=filter_value ediDAT* t.limit=32 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="19" y="4" height="65" width="421" format="[general]" name=filter_name edit.limit=32 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" fontDAT* .family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
line(band=header x1="19" y1="212" x2="4389" y2="212" pen.style="0" pen.width="14" pen.color="0" background.mode="1" background.color="553648127" )
line(band=footer x1="19" y1="20" x2="4389" y2="20" pen.style="0" pen.width="14" pen.color="0" background.mode="1" background.color="553648127" )
sparse(names="filter_name") DAT* PDW0800 pdw Pl r S U q ` ` ` ` % F$ n n a a DAT*
@ J ` DAT*
group_desc_t <
$ 0 %
Arial Arial $ 2 $ -10 $ 700 $ 1 $
536870912 $ % 549DAT* $ 132 $ A 65 $
522 % Group Description Group Description ` ) ! " $ &
data_level_t $ # % 1829 $ % 7 311 % ' ( Data Level Data Level ` 2 * DAT* + - / filter_logic_t $ , 2213 $ . J 330 % 0 1
Filter Logic
Filter Logic ` ; ) 3 4 6 8
group_name_t $ 5 19 $ 7 n 366 % 9 : Group Name Group Name ` J 2 DAT* < ? 4 A C E G < = $ > -12 $ @ 16777215 $ B 20 $ D Q 81 $ F 398 % H I Group Data Group Data P ; K M 4 O Q O $ L
DAT* 553648127 $ N 14 $ P 212 $ R % 4389 @ ) T T P S K M 4 A Q A @ I V o c W U X K 4 [ ] _ b group_namDAT* e <
Y $ Z 400 $ \ 4 $ ^ 494 & ` a
[general]
[general] h V d U X K [ e _ ( g @ group_desc $ f 1244 o c i U X DAT* K " [ j l data_level $ k \ 348 & m n
[General]
[General] h p U X K + [ j l
filter_logic @ DAT* " s t
w V u v z c x y A } h { | ~ DAT* $
o
group_rid rap_group_data.group_rid group_name rap_group_data.group_name V group_desc rap_group_data.group_desc c data_level rap_group_data.data_level h 7 Nation 1/State 2/County 3/Source 4/Device 5/Process 6/
filter_logic rap_group_data.filter_logic o OR 0/AND 1/ PBSELECT( VERSION(400) TABLE(NAME="rap_groDAT* up_data" ) COLUMN(NAME="rap_group_data.group_rid") COLUMN(NAME="rap_group_data.group_name") COLUMN(NAME="rap_group_data.group_desc") COLUMN(NAME="rap_group_data.data_level") COLUMN(NAME="rap_group_data.filter_logic")) DAT* ( release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=0 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no )
header(height=233 color="536870912" )
summary(height=1 color="536870912" )
footer(height=41 color="536870912" )
detail(height=73 color="536870912" )
table(column=(type=decimal(0) updatewhereclause=yes name=group_rid dbnDAT* * ame="rap_group_data.group_rid" )
column=(type=char(24) updatewhereclause=yes name=group_name dbname="rap_group_data.group_name" )
column=(type=char(64) updatewhereclause=yes name=group_desc dbname="rap_group_data.group_desc" )
column=(type=decimal(0) updatewhereclause=yes name=data_level dbname="rap_group_data.data_level" values="Nation 1/State 2/County 3/Source 4/Device 5/Process 6/" )
column=(type=decimal(0) updatewhereclause=yes name=filter_logic dbname="rap_group_data.filter_logic" valDAT* , ues="OR 0/AND 1/" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_group_data~" ) COLUMN(NAME=~"rap_group_data.group_rid~") COLUMN(NAME=~"rap_group_data.group_name~") COLUMN(NAME=~"rap_group_data.group_desc~") COLUMN(NAME=~"rap_group_data.data_level~") COLUMN(NAME=~"rap_group_data.filter_logic~")) " )
text(band=header alignment="0" text="Group Description"border="0" color="0" x="549" y="132" height="65" width="522" name=group_desc_t font.face="Arial" font.height="-10" font.weight="700" foDAT* . nt.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Data Level"border="0" color="0" x="1829" y="132" height="65" width="311" name=data_level_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Filter Logic"border="0" color="0" x="2213" y="132" height="65" width="330" name=fDAT* 0 ilter_logic_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Group Name"border="0" color="0" x="19" y="132" height="65" width="366" name=group_name_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Group Data"bDAT* 2 order="0" color="0" x="19" y="20" height="81" width="398" font.face="Arial" font.height="-12" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="19" y="4" height="65" width="494" format="[general]" name=group_name edit.limit=0 edit.case=any edit.focusrectangle=no edit.autoselect=no font.face="Arial" font.height="-10" font.weight="400" font.family="2DAT* 4 " font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="549" y="4" height="65" width="1244" format="[general]" name=group_desc edit.limit=64 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
column(band=detaDAT* 6 il id=4 alignment="2" tabsequence=32766 border="0" color="0" x="1829" y="4" height="65" width="348" format="[General]" name=data_level ddlb.limit=0 ddlb.allowedit=no ddlb.case=any font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
column(band=detail id=5 alignment="2" tabsequence=32766 border="0" color="0" x="2213" y="4" height="65" width="348" format="[General]" name=filter_logic ddlb.limit=DAT* 0 ddlb.allowedit=no ddlb.case=any font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
line(band=header x1="19" y1="212" x2="4389" y2="212" pen.style="0" pen.width="14" pen.color="0" background.mode="1" background.color="553648127" )
line(band=footer x1="19" y1="20" x2="4389" y2="20" pen.style="0" pen.width="14" pen.color="0" background.mode="1" background.color="553648127" )
DAT* : PDW0800 8 pdw Pl / ! . ` ` ` ` F$ 8 n n a a DAT* <
@ I ` DAT* > nation_name_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $ -8 $ 700 $ 1 $
536870912 $ DAT* @ 9 $ 8 $ 5 53 $ ^ 430 % Nation Name Nation Name @ @ U " " # ! $ & ( * ( - 2 nation_name $ % DAT* B 9 $ ' A 65 $ ) ^ 430 & + ,
[general]
[general] @ 0 2 7 DAT* D 6 " 4 5 3 C 1
:al_ridArray 773 al_ridArray nation_name % rap_geographic_locations.nation_name "
PBSELECT( VERSION(400) TABLE(NAME="rap_geographic_locations" ) COMPUTE(NAME="rap_geographic_locations.name as nation_name")WHERE( EXP1 ="rap_geographic_locations.rid" OP ="in" EXP2 ="" ) ) ORDER(NAME="1" ASC=no) ARG(NAME =DAT* ( "al_ridArray" TYPE = numberlist) DAT* H release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=85 color="536870912" )
table(column=(type=char(50) updatewhereclause=yes name=natiDAT* J on_name dbname="rap_geographic_locations.nation_name" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_geographic_locations~" ) COMPUTE(NAME=~"rap_geographic_locations.name as nation_name~")WHERE( EXP1 =~"rap_geographic_locations.rid~" OP =~"in~" EXP2 =~":al_ridArray~" ) ) ORDER(NAME=~"1~" ASC=no) ARG(NAME = ~"al_ridArray~" TYPE = numberlist) " arguments=(("al_ridArray", numberlist)) )
text(band=header alignment="2" text="Nation Name"border="0" color="0" x="10" y="8" height="53" widtDAT* L h="430" name=nation_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="10" y="8" height="65" width="430" format="[general]" name=nation_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.DAT* a family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* P PDW0800 pdw Pl z { ` ` ` ` J F$ n n a a DAT* R
@ I q ` DAT* T source_id_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $ -8 $ 700 $ 1 $
536870912 $ " .DAT* V 1326 $ 8 $ 5 53 $ F @ 320 %
Source Id
Source Id ` ) ! " $ & source_name_t $ # j w 1655 $ % 649 % ' ( Source Name Source Name ` 2 * DAT* X + - / sic_code_t $ , 2313 $ . F @ 320 % 0 1 Sic Code Sic Code ` ; ) 3 4 6 8 device_id_t $ 5 B R
2642 $ 7 F @ 320 % 9 :
Device Id
Device Id ` D 2 < DAT* Z = ? A device_name_t $ > 2971 $ @ 649 % B C Device Name Device Name ` M ; E F H J
process_id_t $ G . 3630 $ I F @ 320 % K L Process Id Process Id ` V D N DAT* \ O Q S process_name_t $ P b w 3959 $ R 649 % T U
Process Name
Process Name ` _ M W X Z \ scc_code_t $ Y 4617 $ [ F @ 320 % ] ^ Scc Code Scc Code ` h V ` DAT* ^ a c e nation_name_t $ b 9 $ d ^ 430 % f g Nation Name Nation Name ` q _ i j l n
state_name_t $ k b 448 $ m ^ 430 % o p State Name State Name ` h r DAT* ` s u w county_name_t $ t w 887 $ v ^ 430 % x y County Name County Name @ @ I | } { ~ ( 2 DAT* b state_name $ b 448 $ ^ 430 &
[general]
[general] | { ( 2 county_name $ w 887 $ ^ 430 { DAT* d (
source_id $ " . 1326 $ F A 321 { ( 2 source_name $ j w 1655 $ 650 { DAT* f ( sic_code $ 2313 $ F A 321 { (
device_id $ B R
2642 $ F A 321 { ( DAT* h 2 device_name $ 2971 $ 650 { (
process_id $ . 3630 $ F A 321 {
( 2 DAT* j
process_name $ b w 3959 $ 650 { (
scc_code $ 4617 $ F A 321 { ( 2 naDAT* l tion_name $ 9 $ ^ 430 @ DAT* n 3 | 3 3 3 3 DAT* p
3 c_
:al_ridArray c_ al_ridArray nation_name v_rap_ss_scc.nation_name state_name v_rap_ss_scc.state_name | county_name v_rap_ss_scc.county_name
source_id v_rap_ss_scc.source_id DAT* r source_name v_rap_ss_scc.source_name sic_code v_rap_ss_scc.sic_code
device_id v_rap_ss_scc.device_id device_name v_rap_ss_scc.device_name process_id v_rap_ss_scc.process_id
process_name v_rap_ss_scc.process_name scc_code v_rap_ss_scc.scc_code PBSELECT( VERSION(400) TABLE(NAME="v_rap_ss_scDAT* t c" ) COLUMN(NAME="v_rap_ss_scc.nation_name") COLUMN(NAME="v_rap_ss_scc.state_name") COLUMN(NAME="v_rap_ss_scc.county_name") COLUMN(NAME="v_rap_ss_scc.source_id") COLUMN(NAME="v_rap_ss_scc.source_name") COLUMN(NAME="v_rap_ss_scc.sic_code") COMPUTE(NAME="v_rap_ss_scc.source_sub1_id as device_id") COMPUTE(NAME="v_rap_ss_scc.source_sub1_name as device_name") COMPUTE(NAME="v_rap_ss_scc.source_sub2_id as process_id") COMPUTE(NAME="v_rap_ss_scc.source_sub2_name as process_name") COLUMN(NAME="v_rap_ss_sccDAT* z.scc_code")WHERE( EXP1 ="v_rap_ss_scc.source_sub2_rid" OP ="in" EXP2 ="" ) ) ORDER(NAME="v_rap_ss_scc.nation_name" ASC=no) ORDER(NAME="v_rap_ss_scc.state_name" ASC=yes ) ORDER(NAME="v_rap_ss_scc.county_name" ASC=yes ) ORDER(NAME="v_rap_ss_scc.source_id" ASC=yes ) ORDER(NAME="7" ASC=yes ) ORDER(NAME="9" ASC=yes ) ARG(NAME = "al_ridArray" TYPE = numberlist) DAT* x release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=73 color="536870912" )
table(column=(type=char(50) updatewhereclause=yes name=natiDAT* z on_name dbname="v_rap_ss_scc.nation_name" )
column=(type=char(50) updatewhereclause=yes name=state_name dbname="v_rap_ss_scc.state_name" )
column=(type=char(50) updatewhereclause=yes name=county_name dbname="v_rap_ss_scc.county_name" )
column=(type=char(10) updatewhereclause=yes name=source_id dbname="v_rap_ss_scc.source_id" )
column=(type=char(50) updatewhereclause=yes name=source_name dbname="v_rap_ss_scc.source_name" )
column=(type=char(4) updatewhereclause=yes name=sic_code dbname="vDAT* | _rap_ss_scc.sic_code" )
column=(type=char(10) updatewhereclause=yes name=device_id dbname="v_rap_ss_scc.device_id" )
column=(type=char(50) updatewhereclause=yes name=device_name dbname="v_rap_ss_scc.device_name" )
column=(type=char(10) updatewhereclause=yes name=process_id dbname="v_rap_ss_scc.process_id" )
column=(type=char(50) updatewhereclause=yes name=process_name dbname="v_rap_ss_scc.process_name" )
column=(type=char(10) updatewhereclause=yes name=scc_code dbname="v_rap_ss_scc.scc_cDAT* ~ ode" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"v_rap_ss_scc~" ) COLUMN(NAME=~"v_rap_ss_scc.nation_name~") COLUMN(NAME=~"v_rap_ss_scc.state_name~") COLUMN(NAME=~"v_rap_ss_scc.county_name~") COLUMN(NAME=~"v_rap_ss_scc.source_id~") COLUMN(NAME=~"v_rap_ss_scc.source_name~") COLUMN(NAME=~"v_rap_ss_scc.sic_code~") COMPUTE(NAME=~"v_rap_ss_scc.source_sub1_id as device_id~") COMPUTE(NAME=~"v_rap_ss_scc.source_sub1_name as device_name~") COMPUTE(NAME=~"v_rap_ss_scc.source_sub2_id as process_id~") CODAT* MPUTE(NAME=~"v_rap_ss_scc.source_sub2_name as process_name~") COLUMN(NAME=~"v_rap_ss_scc.scc_code~")WHERE( EXP1 =~"v_rap_ss_scc.source_sub2_rid~" OP =~"in~" EXP2 =~":al_ridArray~" ) ) ORDER(NAME=~"v_rap_ss_scc.nation_name~" ASC=no) ORDER(NAME=~"v_rap_ss_scc.state_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.county_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.source_id~" ASC=yes ) ORDER(NAME=~"7~" ASC=yes ) ORDER(NAME=~"9~" ASC=yes ) ARG(NAME = ~"al_ridArray~" TYPE = numberlist) " argumentDAT* s=(("al_ridArray", numberlist)) )
text(band=header alignment="0" text="Source Id"border="0" color="0" x="1326" y="8" height="53" width="321" name=source_id_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Source Name"border="0" color="0" x="1655" y="8" height="53" width="650" name=source_name_t font.face="MS Sans Serif" font.height="-8" font.wDAT* eight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Sic Code"border="0" color="0" x="2314" y="8" height="53" width="321" name=sic_code_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Device Id"border="0" color="0" x="2643" y="8" height="53" width="3DAT* 21" name=device_id_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Device Name"border="0" color="0" x="2972" y="8" height="53" width="650" name=device_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignmenDAT* t="0" text="Process Id"border="0" color="0" x="3630" y="8" height="53" width="321" name=process_id_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Process Name"border="0" color="0" x="3959" y="8" height="53" width="650" name=process_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charsetDAT* ="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Scc Code"border="0" color="0" x="4618" y="8" height="53" width="321" name=scc_code_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Nation Name"border="0" color="0" x="10" y="8" height="53" width="430" name=nation_name_t font.face="MS Sans Serif" font.DAT* height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="State Name"border="0" color="0" x="449" y="8" height="53" width="430" name=state_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="County Name"border="0" color="0" x="887" y="8DAT* " height="53" width="430" name=county_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="449" y="8" height="53" width="430" format="[general]" name=state_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.wDAT* eight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="887" y="8" height="53" width="430" format="[general]" name=county_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.colDAT* or="536870912" )
column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="1326" y="8" height="53" width="321" format="[general]" name=source_id edit.limit=10 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=5 alignment="0" tabsequence=32766 border="0" color="0" xDAT* ="1655" y="8" height="53" width="650" format="[general]" name=source_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=6 alignment="0" tabsequence=32766 border="0" color="0" x="2314" y="8" height="53" width="321" format="[general]" name=sic_code edit.limit=4 edit.caseDAT* =any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=7 alignment="0" tabsequence=32766 border="0" color="0" x="2643" y="8" height="53" width="321" format="[general]" name=device_id edit.limit=10 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" DAT* font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=8 alignment="0" tabsequence=32766 border="0" color="0" x="2972" y="8" height="53" width="650" format="[general]" name=device_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" backgroundDAT* .mode="1" background.color="536870912" )
column(band=detail id=9 alignment="0" tabsequence=32766 border="0" color="0" x="3630" y="8" height="53" width="321" format="[general]" name=process_id edit.limit=10 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=10 alignment="0" tabsequence=32DAT* 766 border="0" color="0" x="3959" y="8" height="53" width="650" format="[general]" name=process_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=11 alignment="0" tabsequence=32766 border="0" color="0" x="4618" y="8" height="53" width="321" format="[general]" name=sccDAT* _code edit.limit=10 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="10" y="8" height="53" width="430" format="[general]" name=nation_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yeDAT* s font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* PDW0800 k pdw O f ; < e ` ` ` ` @ ] F$ j k n n a a DAT*
@ 9 * n * DAT*
( <
$ 0 % Arial Arial $ 2 $
-10 $ 400 $ 16777215 $ % 3621 $ 20 DAT* $ Q 81 $ 7 823 &
[general]
[general] % ( 'Page ' + page() + ' of ' + pageCount() ^ ' ^ ! % ^ " $ #
Page & of $ ) 1 ` +
0 2 4 6 <
,
. DAT* ( $ - -14 $ / 700 $ 1 | 1660 $ 3 ] 93 $ 5 j 1130 % 7 8 Selection Summary Report Selection Summary Report $ :
536870912 @ 9 @ ) 9 = [ L K DAT* > < ? A C F E G @
report_group $ @ 19 $ B y 121 $ D J 4426 r_ss_group_sub_report H $ # I J 0 L S = L < ? M O C R Q @ report_result $ N 420 $ P 129 r_ss_sDAT* ource_sub_report L [ K T <
? U W C Z Y @ report_source $ V 276 $ X 137 r_ss_source_sub_report L S \ <
? ] A C ` _ a @ report_filter $ ^ 148 r_ss_filter_sub_report b $ # c d 0 @ 9 DAT* g h i a a DAT* release 5;
datawindow(units=0 timer_interval=0 color=1090519039 processing=5 print.documentname="" print.orientation = 1 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no )
header(height=201 color="536870912" )
summary(height=1 color="536870912" )
footer(height=9 color="536870912" )
detail(height=553 color="536870912" height.autosize=yes)
table(column=(type=char(10) updatewhereclause=yeDAT* s name=a dbname="a" )
unbound = "yes")
report(band=detail dataobject="r_ss_group_sub_report" x="19" y="20" height="121" width="4426" border="0" height.autosize=yes criteria="" nest_arguments=(("0")) trail_footer = yes name=report_group slideup=directlyabove )
report(band=detail dataobject="r_ss_source_sub_report" x="19" y="420" height="129" width="4426" border="0" height.autosize=yes criteria="" trail_footer = yes name=report_result slideup=directlyabove )
report(band=detail dataobject=DAT* "r_ss_source_sub_report" x="19" y="276" height="137" width="4426" border="0" height.autosize=yes criteria="" trail_footer = yes name=report_source slideleft=yes slideup=directlyabove )
report(band=detail dataobject="r_ss_filter_sub_report" x="19" y="148" height="121" width="4426" border="0" height.autosize=yes criteria="" nest_arguments=(("0")) trail_footer = yes name=report_filter slideleft=yes slideup=directlyabove )
compute(band=header alignment="1" expression="'Page ' + page() + ' ofDAT* ' + pageCount()"border="0" color="0" x="3621" y="20" height="81" width="823" format="[general]" font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
text(band=header alignment="2" text="Selection Summary Report"border="0" color="0" x="1660" y="20" height="93" width="1130" font.face="Arial" font.height="-14" font.weight="700" font.family="2" font.pitch="2" font.charset="0" font.underline="1" bacDAT* 2 kground.mode="2" background.color="16777215" )
DAT* PDW0800 pdw Pl } M N | ` ` ` ` J
F$ n n a a DAT*
@ I D ` DAT*
state_name_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $ -8 $ 700 $ 1 $
536870912 $ b DAT* 448 $ 8 $ 5 53 $ ^ 430 % State Name State Name ` ) ! " $ & county_name_t $ # w 887 $ % ^ 430 % ' ( County Name County Name ` 2 * DAT* + - / source_id_t $ , " . 1326 $ . F @ 320 % 0 1
Source Id
Source Id ` ; ) 3 4 6 8 source_name_t $ 5 j w 1655 $ 7 649 % 9 : Source Name Source Name ` D 2 < DAT* = ? A sic_code_t $ > 2313 $ @ F @ 320 % B C Sic Code Sic Code ` ; E F H J nation_name_t $ G 9 $ I ^ 430 % K L Nation Name Nation Name @ DAT* @ I O u Y P N Q S U ( X 2 state_name $ R b 448 $ T ^ 430 & V W
[general]
[general] ` O Z N [ ] U ( DAT* _ 2 county_name $ \ w 887 $ ^ ^ 430 g Y a N b d U ( f
source_id $ c " . 1326 $ e F A 321 n ` h N i k U ( DAT* m 2 source_name $ j j w 1655 $ l 650 u g o N p r U ( t sic_code $ q 2313 $ s F A 321 n v N w y U ( { 2 DAT* nation_name $ x 9 $ z ^ 430 @ ~ DAT* u 3 O 3 Y 3 ` g 3 n
:al_ridArray al_ridArray nation_name v_rap_ss_sic.nation_name DAT* u state_name v_rap_ss_sic.state_name O county_name v_rap_ss_sic.county_name Y
source_id v_rap_ss_sic.source_id ` source_name v_rap_ss_sic.source_name g sic_code v_rap_ss_sic.sic_code n M PBSELECT( VERSION(400) TABLE(NAME="v_rap_ss_sic" ) COLUMN(NAME="v_rap_ss_sic.nation_name") COLUMN(NAME="v_rap_ss_sic.state_name") COLUMN(NAME="v_rap_ss_sic.county_name")DAT* COLUMN(NAME="v_rap_ss_sic.source_id") COLUMN(NAME="v_rap_ss_sic.source_name") COLUMN(NAME="v_rap_ss_sic.sic_code")WHERE( EXP1 ="v_rap_ss_sic.source_rid" OP ="in" EXP2 ="" ) ) ORDER(NAME="v_rap_ss_sic.nation_name" ASC=no) ORDER(NAME="v_rap_ss_sic.state_name" ASC=yes ) ORDER(NAME="v_rap_ss_sic.county_name" ASC=yes ) ORDER(NAME="v_rap_ss_sic.source_id" ASC=yes ) ARG(NAME = "al_ridArray" TYPE = numberlist) DAT* release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=73 color="536870912" )
table(column=(type=char(50) updatewhereclause=yes name=natiDAT* on_name dbname="v_rap_ss_sic.nation_name" )
column=(type=char(50) updatewhereclause=yes name=state_name dbname="v_rap_ss_sic.state_name" )
column=(type=char(50) updatewhereclause=yes name=county_name dbname="v_rap_ss_sic.county_name" )
column=(type=char(10) updatewhereclause=yes name=source_id dbname="v_rap_ss_sic.source_id" )
column=(type=char(50) updatewhereclause=yes name=source_name dbname="v_rap_ss_sic.source_name" )
column=(type=char(4) updatewhereclause=yes name=sic_code dbname="vDAT* _rap_ss_sic.sic_code" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"v_rap_ss_sic~" ) COLUMN(NAME=~"v_rap_ss_sic.nation_name~") COLUMN(NAME=~"v_rap_ss_sic.state_name~") COLUMN(NAME=~"v_rap_ss_sic.county_name~") COLUMN(NAME=~"v_rap_ss_sic.source_id~") COLUMN(NAME=~"v_rap_ss_sic.source_name~") COLUMN(NAME=~"v_rap_ss_sic.sic_code~")WHERE( EXP1 =~"v_rap_ss_sic.source_rid~" OP =~"in~" EXP2 =~":al_ridArray~" ) ) ORDER(NAME=~"v_rap_ss_sic.nation_name~" ASC=no) ORDER(NAME=~"v_rap_ss_sic.state_DAT* name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_sic.county_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_sic.source_id~" ASC=yes ) ARG(NAME = ~"al_ridArray~" TYPE = numberlist) " arguments=(("al_ridArray", numberlist)) )
text(band=header alignment="0" text="State Name"border="0" color="0" x="449" y="8" height="53" width="430" name=state_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(DAT* band=header alignment="0" text="County Name"border="0" color="0" x="887" y="8" height="53" width="430" name=county_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Source Id"border="0" color="0" x="1326" y="8" height="53" width="321" name=source_id_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="DAT* 2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Source Name"border="0" color="0" x="1655" y="8" height="53" width="650" name=source_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Sic Code"border="0" color="0" x="2314" y="8" height="53" width="321" name=sic_code_t font.face="MS DAT* Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Nation Name"border="0" color="0" x="10" y="8" height="53" width="430" name=nation_name_t font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="DAT* 0" color="0" x="449" y="8" height="53" width="430" format="[general]" name=state_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="887" y="8" height="53" width="430" format="[general]" name=county_name edit.limDAT* it=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="1326" y="8" height="53" width="321" format="[general]" name=source_id edit.limit=10 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="DAT* MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=5 alignment="0" tabsequence=32766 border="0" color="0" x="1655" y="8" height="53" width="650" format="[general]" name=source_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charsetDAT* ="0" background.mode="1" background.color="536870912" )
column(band=detail id=6 alignment="0" tabsequence=32766 border="0" color="0" x="2314" y="8" height="53" width="321" format="[general]" name=sic_code edit.limit=4 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=1 alignment="0" tabDAT* osequence=32766 border="0" color="0" x="10" y="8" height="53" width="430" format="[general]" name=nation_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* PDW0800 pdw Pl m o ` ` ` ` % F$ n n a a DAT*
@ % f ` DAT* st_title <
$ 0 %
Arial Arial $ 2 $ -12 $ 700 $ 1 $
553648127 $ 19 DAT* $ 20 $ Q 81 $ \ 860 % Selection Data Selection Data ` 2 ! " % ' ) + - / sic_code_t < # $ $ -10 $ &
536870912 $ ( 1665 $ * DAT* 132 $ , A 65 $ . e 101 % 0 1 SIC SIC ` ; 3 " % 4 ) + 6 8
process_id_t $ 5 3310 $ 7 225 % 9 : Process Process ` D 2 < " % = ) + ? A sDAT* cc_code_t $ > % 3877 $ @ | 124 % B C SCC SCC ` M ; E " % F ) + H J device_id_t $ G 2213 $ I 197 % K L Device Device ` T D N " % ) + O Q
state_name_t DAT* $ P 151 % R S State State ` ] M U " % V ) + X Z county_name_t $ W % 549 $ Y 202 % [ \ County County ` f T ^ " % _ ) + a c source_id_t $ ` J 1098 $ b DAT* 206 % d e Source Source P ] g i k i $ h 14 $ j 212 $ l % 4389 @ ) % n n P m g k @ % p DAT* P s o q ) k ) $ r 5 p t o u % x + z | ( 2 state_name < # v $ w 400 $ y 4 $ { 494 & } ~
[general]
DAT* [general] s o u % 4 x + | (
process_id $ . 302 o u % = x + | (
scc_code o u % F x + | ( DAT*
device_id o u % V x + z | ( 2 county_name o u % _ x + | (
source_id $ 421 o u % ' x + | DAT* ( sic_code $ 238 o u % 4 + |
( 2
process_name $ D 68 $ % 1061 o u % F + | ( 2 devDAT* ice_name $ 1043 o u % _ + | ( 2 source_name @ % DAT* 3 s 3 3 3 DAT*
3
3 nation_name v_rap_ss_scc.nation_name state_name v_rap_ss_scc.state_name s county_name v_rap_ss_scc.county_name
souDAT* rce_id v_rap_ss_scc.source_id source_name v_rap_ss_scc.source_name sic_code v_rap_ss_scc.sic_code
device_id v_rap_ss_scc.device_id device_name v_rap_ss_scc.device_name process_id v_rap_ss_scc.process_id
process_name v_rap_ss_scc.process_name scc_code v_rap_ss_scc.scc_code $ PBSELDAT* ECT( VERSION(400) TABLE(NAME="v_rap_ss_scc" ) COLUMN(NAME="v_rap_ss_scc.nation_name") COLUMN(NAME="v_rap_ss_scc.state_name") COLUMN(NAME="v_rap_ss_scc.county_name") COLUMN(NAME="v_rap_ss_scc.source_id") COLUMN(NAME="v_rap_ss_scc.source_name") COLUMN(NAME="v_rap_ss_scc.sic_code") COMPUTE(NAME="v_rap_ss_scc.source_sub1_id as device_id") COMPUTE(NAME="v_rap_ss_scc.source_sub1_name as device_name") COMPUTE(NAME="v_rap_ss_scc.source_sub2_id as process_id") COMPUTE(NAME="v_rap_ss_scc.source_sub2_name asDAT* process_name") COLUMN(NAME="v_rap_ss_scc.scc_code")) ORDER(NAME="v_rap_ss_scc.nation_name" ASC=no) ORDER(NAME="v_rap_ss_scc.state_name" ASC=yes ) ORDER(NAME="v_rap_ss_scc.county_name" ASC=yes ) ORDER(NAME="v_rap_ss_scc.source_id" ASC=yes ) ORDER(NAME="7" ASC=yes ) ORDER(NAME="9" ASC=yes ) m state_name county_name source_id source_name sic_code device_id device_name process_id process_name scc_code DAT* release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=0 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no )
header(height=233 color="536870912" )
summary(height=1 color="536870912" )
footer(height=41 color="536870912" )
detail(height=137 color="536870912" )
table(column=(type=char(50) updatewhereclause=yes name=nation_name dbDAT* name="v_rap_ss_scc.nation_name" )
column=(type=char(50) updatewhereclause=yes name=state_name dbname="v_rap_ss_scc.state_name" )
column=(type=char(50) updatewhereclause=yes name=county_name dbname="v_rap_ss_scc.county_name" )
column=(type=char(10) updatewhereclause=yes name=source_id dbname="v_rap_ss_scc.source_id" )
column=(type=char(50) updatewhereclause=yes name=source_name dbname="v_rap_ss_scc.source_name" )
column=(type=char(4) updatewhereclause=yes name=sic_code dbname="v_rap_ss_scDAT* c.sic_code" )
column=(type=char(10) updatewhereclause=yes name=device_id dbname="v_rap_ss_scc.device_id" )
column=(type=char(50) updatewhereclause=yes name=device_name dbname="v_rap_ss_scc.device_name" )
column=(type=char(10) updatewhereclause=yes name=process_id dbname="v_rap_ss_scc.process_id" )
column=(type=char(50) updatewhereclause=yes name=process_name dbname="v_rap_ss_scc.process_name" )
column=(type=char(10) updatewhereclause=yes name=scc_code dbname="v_rap_ss_scc.scc_code" )
rDAT* etrieve="PBSELECT( VERSION(400) TABLE(NAME=~"v_rap_ss_scc~" ) COLUMN(NAME=~"v_rap_ss_scc.nation_name~") COLUMN(NAME=~"v_rap_ss_scc.state_name~") COLUMN(NAME=~"v_rap_ss_scc.county_name~") COLUMN(NAME=~"v_rap_ss_scc.source_id~") COLUMN(NAME=~"v_rap_ss_scc.source_name~") COLUMN(NAME=~"v_rap_ss_scc.sic_code~") COMPUTE(NAME=~"v_rap_ss_scc.source_sub1_id as device_id~") COMPUTE(NAME=~"v_rap_ss_scc.source_sub1_name as device_name~") COMPUTE(NAME=~"v_rap_ss_scc.source_sub2_id as process_id~") COMPUTE(NAMEDAT* =~"v_rap_ss_scc.source_sub2_name as process_name~") COLUMN(NAME=~"v_rap_ss_scc.scc_code~")) ORDER(NAME=~"v_rap_ss_scc.nation_name~" ASC=no) ORDER(NAME=~"v_rap_ss_scc.state_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.county_name~" ASC=yes ) ORDER(NAME=~"v_rap_ss_scc.source_id~" ASC=yes ) ORDER(NAME=~"7~" ASC=yes ) ORDER(NAME=~"9~" ASC=yes ) " )
text(band=header alignment="0" text="Selection Data"border="0" color="0" x="19" y="20" height="81" width="860" name=st_title font.face="Arial" font.hDAT* eight="-12" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
text(band=header alignment="0" text="SIC"border="0" color="0" x="1665" y="132" height="65" width="101" name=sic_code_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Process"border="0" color="0" x="3310" y="132" height="65" DAT* width="225" name=process_id_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="SCC"border="0" color="0" x="3877" y="132" height="65" width="124" name=scc_code_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="DeDAT* vice"border="0" color="0" x="2213" y="132" height="65" width="197" name=device_id_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="State"border="0" color="0" x="19" y="132" height="65" width="151" name=state_name_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.coloDAT* " r="536870912" )
text(band=header alignment="0" text="County"border="0" color="0" x="549" y="132" height="65" width="202" name=county_name_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="Source"border="0" color="0" x="1098" y="132" height="65" width="206" name=source_id_t font.face="Arial" font.height="-10" font.weight="700" font.family="2" font.pitDAT* $ ch="2" font.charset="0" background.mode="1" background.color="536870912" )
line(band=header x1="19" y1="212" x2="4389" y2="212" pen.style="0" pen.width="14" pen.color="0" background.mode="1" background.color="553648127" )
line(band=detail x1="19" y1="132" x2="4389" y2="132" pen.style="0" pen.width="5" pen.color="0" background.mode="1" background.color="553648127" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="19" y="4" height="65" width="494" format="[generaDAT* & l]" name=state_name edit.limit=50 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=9 alignment="0" tabsequence=32766 border="0" color="0" x="3310" y="4" height="65" width="302" format="[general]" name=process_id edit.limit=10 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10DAT* ( " font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=11 alignment="0" tabsequence=32766 border="0" color="0" x="3877" y="4" height="65" width="302" format="[general]" name=scc_code edit.limit=10 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
columDAT* * n(band=detail id=7 alignment="0" tabsequence=32766 border="0" color="0" x="2213" y="4" height="65" width="302" format="[general]" name=device_id edit.limit=10 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=3 alignment="0" tabsequence=32766 border="0" color="0" x="549" y="4" height="65" width="494" format="[generalDAT* , ]" name=county_name edit.limit=50 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=4 alignment="0" tabsequence=32766 border="0" color="0" x="1098" y="4" height="65" width="421" format="[general]" name=source_id edit.limit=10 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10"DAT* . font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=6 alignment="0" tabsequence=32766 border="0" color="0" x="1665" y="4" height="65" width="238" format="[general]" name=sic_code edit.limit=4 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(bDAT* 0 and=detail id=10 alignment="0" tabsequence=32766 border="0" color="0" x="3310" y="68" height="65" width="1061" format="[general]" name=process_name edit.limit=50 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=8 alignment="0" tabsequence=32766 border="0" color="0" x="2213" y="68" height="65" width="1043" format="[gDAT* 2 eneral]" name=device_name edit.limit=50 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.height="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=5 alignment="0" tabsequence=32766 border="0" color="0" x="1098" y="68" height="65" width="1043" format="[general]" name=source_name edit.limit=50 edit.case=any edit.autoselect=yes edit.autohscroll=yes font.face="Arial" font.heDAT* ight="-10" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
line(band=footer x1="19" y1="20" x2="4389" y2="20" pen.style="0" pen.width="14" pen.color="0" background.mode="1" background.color="553648127" )
sparse(names="state_name county_name source_id source_name sic_code device_id device_name process_id process_name scc_code") DAT* 6 PDW0800 L pdw Pl @ * + ? ` ` ` ` n F$ L n n a a DAT* 8
@ I ` DAT* : nation_name_t <
$ 0 %
MS Sans Serif MS Sans Serif $ 2 $ -8 $ 700 $ 1 $
536870912 $ DAT* < 9 $ 8 $ 5 53 $ ^ 430 % Nation Name Nation Name ` ! # % ' $ "
553648127 $ $ b 448 $ & ^ 430 % ( ) State Name State Name @ DAT* > @ U , 8 8 - + . 0 2 4 ( 7 2 nation_name $ / 9 $ 1 A 65 $ 3 ^ 430 & 5 6
[general]
[general] , 9 + DAT* @ : 0 < 4 > state_name $ ; b 448 $ = ^ 430 @ A C K DAT* B G , E F 3 J 8 H I 3 enB
:al_ridArray _gD al_ridArray nation_name % rap_geographic_locations.nation_name , state_name $ rap_geographic_locations.state_name 8 > PBSELECT( VERSION(400) TABLE(NAME="rap_geographic_locations" ALIAS=DAT* "rap_geographic_locations_a" ) TABLE(NAME="rap_geographic_locations" ALIAS="rap_geographic_locations_b" ) COMPUTE(NAME="rap_geographic_locations_a.name as nation_name") COMPUTE(NAME="rap_geographic_locations_b.name as state_name") JOIN (LEFT="rap_geographic_locations_b.parent_rid" OP ="="RIGHT="rap_geographic_locations_a.rid" )WHERE( EXP1 ="rap_geographic_locations_b.rid" OP ="in" EXP2 ="" ) ) ORDER(NAME="1" ASC=no) ORDER(NAME="2" ASC=yes ) ARG(NAME = "al_ridArray" TYPE = numberliDAT* F release 5;
datawindow(units=0 timer_interval=0 color=16777215 processing=1 print.documentname="" print.orientation = 0 print.margin.left = 110 print.margin.right = 110 print.margin.top = 97 print.margin.bottom = 97 print.paper.source = 0 print.paper.size = 0 print.prompt=no grid.lines=0 )
header(height=73 color="536870912" )
summary(height=1 color="536870912" )
footer(height=1 color="536870912" )
detail(height=85 color="536870912" )
table(column=(type=char(50) updatewhereclause=yes name=natiDAT* H on_name dbname="rap_geographic_locations.nation_name" )
column=(type=char(50) updatewhereclause=yes name=state_name dbname="rap_geographic_locations.state_name" )
retrieve="PBSELECT( VERSION(400) TABLE(NAME=~"rap_geographic_locations~" ALIAS=~"rap_geographic_locations_a~" ) TABLE(NAME=~"rap_geographic_locations~" ALIAS=~"rap_geographic_locations_b~" ) COMPUTE(NAME=~"rap_geographic_locations_a.name as nation_name~") COMPUTE(NAME=~"rap_geographic_locations_b.name as state_name~") JOIN (LEFT=DAT* J ~"rap_geographic_locations_b.parent_rid~" OP =~"=~"RIGHT=~"rap_geographic_locations_a.rid~" )WHERE( EXP1 =~"rap_geographic_locations_b.rid~" OP =~"in~" EXP2 =~":al_ridArray~" ) ) ORDER(NAME=~"1~" ASC=no) ORDER(NAME=~"2~" ASC=yes ) ARG(NAME = ~"al_ridArray~" TYPE = numberlist) " arguments=(("al_ridArray", numberlist)) )
text(band=header alignment="2" text="Nation Name"border="0" color="0" x="10" y="8" height="53" width="430" name=nation_name_t font.face="MS Sans Serif" font.height="-DAT* L 8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
text(band=header alignment="0" text="State Name"border="0" color="0" x="449" y="8" height="53" width="430" font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="553648127" )
column(band=detail id=1 alignment="0" tabsequence=32766 border="0" color="0" x="10" y="8" height="65" width="4DAT* N 30" format="[general]" name=nation_name edit.limit=50 edit.case=any edit.focusrectangle=no edit.autoselect=yes edit.autohscroll=yes font.face="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
column(band=detail id=2 alignment="0" tabsequence=32766 border="0" color="0" x="449" y="8" height="65" width="430" format="[general]" name=state_name edit.limit=0 edit.case=any edit.autoselect=yes font.faDAT* ce="MS Sans Serif" font.height="-8" font.weight="700" font.family="2" font.pitch="2" font.charset="0" background.mode="1" background.color="536870912" )
DAT* R Source Group object classforward
global type u_class_source_group from nonvisualobject
end type
end forward
global type u_class_source_group from nonvisualobject
end type
global u_class_source_group u_class_source_group
type variables
//Group Datastore
u_ds_base ids_groupData
//Source Criteria Datastore
u_ds_base ids_sourceCriteria
//Filter Criteria Datastore
u_ds_base ids_filterCriteria
//Result Set Datastore
u_ds_base ids_resultSet
//Constant data resolution values
cDAT* T onstant integer ii_nationLevel = 1
constant integer ii_stateLevel = 2
constant integer ii_countyLevel = 3
constant integer ii_sourceLevel = 4
constant integer ii_sourceSub1Level = 5
constant integer ii_sourceSub2Level = 6
constant integer ii_sourceSub3Level = 7
constant integer ii_sourceSub4Level = 8
//Instance Arrays for Client SQL Retrieve Use
long il_nationArray[]
long il_stateArray[]
long il_countyArray[]
long il_sourceArray[]
long il_sourceSub1Array[]
long il_sourceSub2Array[]DAT* V
long il_sourceSub3Array[]
long il_sourceSub4Array[]
string is_sicArray[]
string is_sccArray[]
boolean ib_nullSIC = FALSE
boolean ib_nullSCC = FALSE
//Column and Array Names for SQL Fragment Construction
//NOTE: these names should correspond to column and
//array names in the modules that will use the SQL.
//The prefix 'a' is used indicate retrieval arguments.
//These correspond to datawindow retrieval arguments
string is_nationArrayName = "al_nationArray"
string is_stateArrayNaDAT* X me = "al_stateArray"
string is_countyArrayName = "al_countyArray"
string is_sourceArrayName = "al_sourceArray"
string is_sourceSub1ArrayName = "al_sourceSub1Array"
string is_sourceSub2ArrayName = "al_sourceSub2Array"
string is_sourceSub3ArrayName = "al_sourceSub3Array"
string is_sourceSub4ArrayName = "al_sourceSub4Array"
string is_sicArrayName = "as_sicArray"
string is_sccArrayName = "as_sccArray"
//These correspond to view column names
string is_nationRidName = "nation_rid"
string isDAT* Z _stateRidName = "state_rid"
string is_countyRidName = "county_rid"
string is_sourceRidName = "source_rid"
string is_sourceSub1RidName = "source_sub1_rid"
string is_sourceSub2RidName = "source_sub2_rid"
string is_sourceSub3RidName = "source_sub3_rid"
string is_sourceSub4RidName = "source_sub4_rid"
string is_sicCodeName = "sic_code"
string is_sccCodeName = "scc_code"
//Column Name Aliases (object internal use)
//These are internal buffer column names
constant string is_groupRid = "groupDAT* \ _rid"
constant string is_groupName = "group_name"
constant string is_groupDescription = "group_description"
constant string is_groupDataLevel = "data_level"
constant string is_groupFilterLogic = "filter_logic"
constant string is_nationRid = "nation_rid"
constant string is_stateRid = "state_rid"
constant string is_countyRid = "county_rid"
constant string is_sourceRid = "source_rid"
constant string is_sourceType = "source_type"
constant string is_sourceSub1Rid = "source_sub1_rid"
constantDAT* ^ string is_sourceSub2Rid = "source_sub2_rid"
constant string is_sourceSub3Rid = "source_sub3_rid"
constant string is_sourceSub4Rid = "source_sub4_rid"
constant string is_filterColumnName = "filter_name"
constant string is_filterColumnValue = "filter_value"
constant string is_sicFilterColumnCode = "sic_code"
constant string is_sccFilterColumnCode = "scc_code"
end variables
forward prototypes
public function integer of_sortsources ()
public function integer of_sortfilters ()
publicDAT* ` function integer of_sort ()
public function integer of_modobjectsql (ref datastore ads_buffer)
public function integer of_modobjectsql (ref datawindow adw_buffer)
public function integer of_getsql (ref string as_sql)
public function integer of_getfiltersql (ref string as_filtersql)
public function integer of_getsourcesql (ref string as_sourcesql, integer ai_datasource)
public function integer of_runresultset ()
public function integer of_modsqlstring (ref string as_sql, integer ai_datasourDAT* b ce)
public function integer of_modobjectsql (ref datastore ads_buffer, integer ai_datasource)
public function integer of_modobjectsql (ref datawindow adw_buffer, integer ai_datasource)
public function integer of_savegroup ()
public function integer of_deletegroup (long al_grouprid)
public function integer of_loadgroup (string as_groupname)
public function integer of_reset ()
public function integer of_getdatalevel ()
public function integer of_getfilterlogic ()
public function integer of_DAT* d setdatalevel (integer ai_dataLevel)
public function boolean of_groupmodified ()
public function integer of_resetupdate ()
public function integer of_resetfilter (integer ai_code)
public function long of_finddata (string as_column, any aa_value)
public function integer of_setbufferdatalevel (integer ai_code)
public function integer of_sortresultset ()
public function integer of_loadarrays (integer ai_dataSource)
public function integer of_runselectionreport ()
public subroutine of_setdefauDAT* f ltnames ()
end prototypes
public function integer of_sortsources ();
//sorts the source criteria buffer
string ls_sortString
integer li_rc
ls_sortString = &
is_nationRid + " D," +&
is_stateRid + " A," +&
is_countyRid + " A," +&
is_sourceRid + " A," +&
is_sourceSub1Rid + " A," +&
is_sourceSub2Rid + " A," +&
is_sourceSub3Rid + " A," +&
is_sourceSub4Rid + " A"
li_rc = ids_sourceCriteria.setSort(ls_sortString)
if li_rc < 0 then returDAT* h n -1
li_rc = ids_sourceCriteria.sort()
if li_rc < 0 then return -1
return 1
end function
public function integer of_sortfilters ();
//sorts the filter buffer
string ls_sortString
integer li_rc
ls_sortString = &
is_filterColumnName + " A," +&
is_filterColumnValue + " A"
li_rc = ids_filterCriteria.setSort(ls_sortString)
if li_rc < 0 then return -1
li_rc = ids_filterCriteria.sort()
if li_rc < 0 then return -1
return 1
end function
public funcDAT* j tion integer of_sort ();
//sort the source and filter buffers
integer li_rc
li_rc = this.of_sortSources()
if li_rc < 0 then return -1
li_rc = this.of_sortFilters()
if li_rc < 0 then return -1
li_rc = this.of_sortResultSet()
if li_rc < 0 then return -1
return 1
end function
public function integer of_modobjectsql (ref datastore ads_buffer);
//Wrapper for overloaded function of_modObjectSQL().
//Calls of_modObjectSQL with default logic
//the 0 indicates that the resDAT* l ult set buffer will be used
//to generate the SQL.
return this.of_modObjectSQL(ads_buffer, 0)
end function
public function integer of_modobjectsql (ref datawindow adw_buffer);
//Wrapper for overloaded function of_modObjectSQL().
//Calls of_modObjectSQL with default logic
//the 0 indicates that the result set buffer will be used
//to generate the SQL.
return this.of_modObjectSQL(adw_buffer, 0)
end function
public function integer of_getsql (ref string as_sql);
//ConcatenatesDAT* n the output of of_getSourceSQL() and of_getFilterSQL()
//into a single string. The two fragments are AND-ed together.
//NOTE: the two called functions also load various arrays with data
//to be used as retrieval arguments for data objects.
integer li_rc
string ls_sourceSQL
string ls_filterSQL
//grab the source sql fragment
li_rc = this.of_getSourceSQL(ls_sourceSql, 1) //1 indicates that the source criteria
if li_rc < 0 then //buffer will be used (DAT* p not result set)
as_sql = ""
return -1 //error
elseif li_rc = 0 then
as_sql = ""
return 0 //no sql generated
end if
//grab the filter sql fragment
li_rc = this.of_getFilterSQL(ls_filterSql)
if li_rc < 0 then
as_sql = ""
return -1 //error
elseif li_rc = 0 then
as_sql = " ( " + ls_sourceSql + " ) " //no filter sql generated
else
as_sql = " ( " + ls_sourceSql + " AND " + ls_filterSql + " ) " //source and filter sql concatenated
end if
return 1
end function
puDAT* r blic function integer of_getfiltersql (ref string as_filtersql);
//Create an SQL fragment that can be added to a WHERE clause
//for the purpose of selecting records that meet the filter
//critera in ids_filterCriteria.
//NOTE: The SQL fragment contains "IN" clauses with column names and
//SQL retrieval argumant array names. The names that are used are defined
//by instance variables. Instance arrays are populated
//with the actual retrieval criteria values. These arrays will
//need DAT* t to be referenced directly (using dot notation) or
//copied to visible (in scope) arrays of the same names
//in the calling module(s) for the SQL to be usable.
//The ii_filterLogic instance variable determines the filter logic
//0 = OR Logic (sic codes OR scc codes) (default)
//1 = AND Logic (sic codes AND scc codes)
string ls_sql = ""
string ls_term
string ls_filterName
string ls_filterValue
string ls_logic
long ll_sicCount = 0
long ll_sccCount = 0
long ll_rowCount
long ll_rowDAT* v
string ls_empty[] //empty array to initialize other arrays
//initialize the filter criteria arrays
is_sicArray = ls_empty
is_sccArray = ls_empty
ib_nullSIC = false
ib_nullSCC = false
as_filterSql = ""
//check for existing filter criteria
ll_rowCount = ids_filterCriteria.rowCount()
if ll_rowCount = 0 then
return 0 //no SQL created
end if
//initialize the logic string
if this.of_getFilterLogic() = 0 then
ls_logic = " OR "
else
ls_logic = " AND "
end if
//processDAT* x filter criteria buffer and load arrays
for ll_row = 1 to ll_rowCount
ls_filterName = ids_filterCriteria.getItemString(ll_row, is_filterColumnName)
ls_filterValue = ids_filterCriteria.getItemString(ll_row, is_filterColumnValue)
if isNull(ls_filterName) then
continue
end if
if ls_filterName = is_sicFilterColumnCode then
if isNull(ls_filterValue) then
ib_nullSIC = true
else
ll_sicCount ++
is_sicArray[ll_sicCount] = ls_filterValue
end if
continue
enDAT* z d if
if ls_filterName = is_sccFilterColumnCode then
if isNull(ls_filterValue) then
ib_nullSCC = true
else
ll_sccCount ++
is_sccArray[ll_sccCount] = ls_filterValue
end if
continue
end if
next
//build the SQL fragment
if ll_sicCount > 0 or ib_nullSIC then
//create a new sql term
if ll_sicCount > 0 and ib_nullSIC then
ls_term = is_sicCodeName + " IN ( :" + is_sicArrayName + " ) OR " + is_sicCodeName + " IS NULL"//**
elseif ll_sicCount > 0 theDAT* | n
ls_term = is_sicCodeName + " IN ( :" + is_sicArrayName + " ) " //**
else
ls_term = is_sicCodeName + " IS NULL"//**
end if
//update the SQL fragment
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + ls_logic + ls_term
end if
end if
if ll_sccCount > 0 or ib_nullSCC then
//create a new sql term and update the SQL fragment
if ll_sccCount > 0 and ib_nullSCC then
ls_term = is_sccCodeName + " IN ( :" + is_sccArrayName + " ) OR " + is_sccCodDAT* ~ eName + " IS NULL"//**
elseif ll_sccCount > 0 then
ls_term = is_sccCodeName + " IN ( :" + is_sccArrayName + " ) " //**
else
ls_term = is_sccCodeName + " IS NULL"//**
end if
//update the SQL fragment
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + ls_logic + ls_term
end if
end if
//messageBox("Filter SQL", ls_sql, none!)
//add parens to SQL fragment
if trim(ls_sql) <> "" then
ls_sql = "( " + ls_sql + " )"
as_filterSql = ls_sql
returDAT* n 1 //normal return with SQL
else
return 0 //no SQL created
end if
end function
public function integer of_getsourcesql (ref string as_sourcesql, integer ai_datasource);
//Create an SQL fragment that can be added to a WHERE clause
//for the purpose of selecting records that meet the source
//critera in either ids_sourceCriteria or ids_resultSet.
//NOTE: The SQL fragment contains "IN" clauses with column names and
//SQL retrieval argumant array names. The names that are used DAT* are defined
//by instance variables. Instance arrays are populated
//with the actual retrieval criteria values. These arrays will
//need to be referenced directly (using dot notation) or
//copied to visible (in scope) arrays of the same names
//in the calling module(s) for the SQL to be usable.
//The parameter ai_dataSource determines which source buffer is used:
// 0 = result set buffer (default for client use)
// 1 = source criteria buffer
string ls_sql = ""
string ls_term
loDAT* ng ll_nationRid
long ll_stateRid
long ll_countyRid
long ll_sourceRid
long ll_sourceSub1Rid
long ll_sourceSub2Rid
long ll_sourceSub3Rid
long ll_sourceSub4Rid
long ll_nationCount = 0
long ll_stateCount = 0
long ll_countyCount = 0
long ll_sourceCount = 0
long ll_sourceSub1Count = 0
long ll_sourceSub2Count = 0
long ll_sourceSub3Count = 0
long ll_sourceSub4Count = 0
long ll_rowCount
long ll_row
long ll_empty[] //empty array to initialize other arrays
u_ds_base lds_buffer
//initDAT* ialize and validate the data buffer reference
if ai_dataSource = 0 then
lds_buffer = ids_resultSet
else
lds_buffer = ids_sourceCriteria
end if
if not isValid(lds_buffer) then
messageBox("Error", "u_class_source_group::of_getSourceSql(); data buffer object is not valid.", exclamation!)
return -1
end if
//initialize all the source criteria arrays
il_nationArray = ll_empty
il_stateArray = ll_empty
il_countyArray = ll_empty
il_sourceArray = ll_empty
il_sourceSub1Array = ll_empty
DAT*
il_sourceSub2Array = ll_empty
il_sourceSub3Array = ll_empty
il_sourceSub4Array = ll_empty
ll_rowCount = lds_buffer.rowCount()
if ll_rowCount = 0 then
as_sourceSQL = ""
return 0 //no SQL created
end if
//process source criteria buffer (or result set buffer) and load arrays
for ll_row = 1 to ll_rowCount
ll_nationRid = lds_buffer.getItemNumber(ll_row, is_nationRid)
if isNull(ll_nationRid) then
continue
end if
ll_stateRid = lds_buffer.getItemNumber(ll_row, is_statDAT* eRid)
if isNull(ll_stateRid) then
ll_nationCount++
il_nationArray[ll_nationCount] = ll_nationRid
continue
end if
ll_countyRid = lds_buffer.getItemNumber(ll_row, is_countyRid)
if isNull(ll_countyRid) then
ll_stateCount++
il_stateArray[ll_stateCount] = ll_stateRid
continue
end if
ll_sourceRid = lds_buffer.getItemNumber(ll_row, is_sourceRid)
if isNull(ll_sourceRid) then
ll_countyCount++
il_countyArray[ll_countyCount] = ll_countyRid
continue
end if
DAT*
ll_sourceSub1Rid = lds_buffer.getItemNumber(ll_row, is_sourceSub1Rid)
if isNull(ll_sourceSub1Rid) then
ll_sourceCount++
il_sourceArray[ll_sourceCount] = ll_sourceRid
continue
end if
ll_sourceSub2Rid = lds_buffer.getItemNumber(ll_row, is_sourceSub2Rid)
if isNull(ll_sourceSub2Rid) then
ll_sourceSub1Count++
il_sourceSub1Array[ll_sourceSub1Count] = ll_sourceSub1Rid
continue
end if
ll_sourceSub3Rid = lds_buffer.getItemNumber(ll_row, is_sourceSub3Rid)
if isNuDAT* ll(ll_sourceSub3Rid) then
ll_sourceSub2Count++
il_sourceSub2Array[ll_sourceSub2Count] = ll_sourceSub2Rid
continue
end if
ll_sourceSub4Rid = lds_buffer.getItemNumber(ll_row, is_sourceSub4Rid)
if isNull(ll_sourceSub4Rid) then
ll_sourceSub3Count++
il_sourceSub3Array[ll_sourceSub3Count] = ll_sourceSub3Rid
continue
else
ll_sourceSub4Count++
il_sourceSub4Array[ll_sourceSub4Count] = ll_sourceSub4Rid
end if
next
//build the SQL fragment
if ll_nationCountDAT* > 0 then
//create a new term and update the SQL fragment
ls_term = is_nationRidName + " IN ( :" + is_nationArrayName + " ) " //**
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + " OR " + ls_term
end if
end if
if ll_stateCount > 0 then
//create a new term and update the SQL fragment
ls_term = is_stateRidName + " IN ( :" + is_stateArrayName + " ) " //**
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + " OR " + ls_term
end ifDAT*
end if
if ll_countyCount > 0 then
//create a new term and update the SQL fragment
ls_term = is_countyRidName + " IN ( :" + is_countyArrayName + " ) " //**
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + " OR " + ls_term
end if
end if
if ll_sourceCount > 0 then
//create a new term and update the SQL fragment
ls_term = is_sourceRidName + " IN ( :" + is_sourceArrayName + " ) " //**
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql DAT* = ls_sql + " OR " + ls_term
end if
end if
if ll_sourceSub1Count > 0 then
//create a new term and update the SQL fragment
ls_term = is_sourceSub1RidName + " IN ( :" + is_sourceSub1ArrayName + " ) " //**
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + " OR " + ls_term
end if
end if
if ll_sourceSub2Count > 0 then
//create a new term and update the SQL fragment
ls_term = is_sourceSub2RidName + " IN ( :" + is_sourceSub2ArrayName + " ) " //**
if trimDAT* (ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + " OR " + ls_term
end if
end if
if ll_sourceSub3Count > 0 then
//create a new term and update the SQL fragment
ls_term = is_sourceSub3RidName + " IN ( :" + is_sourceSub3ArrayName + " ) " //**
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + " OR " + ls_term
end if
end if
if ll_sourceSub4Count > 0 then
//create a new term and update the SQL fragment
ls_term = is_sourceSub4RidName +DAT* " IN ( :" + is_sourceSub4ArrayName + " ) " //**
if trim(ls_sql) = "" then
ls_sql = ls_term
else
ls_sql = ls_sql + " OR " + ls_term
end if
end if
//add parens to SQL fragment
if trim(ls_sql) <> "" then
ls_sql = "( " + ls_sql + " )"
as_sourceSQL = ls_sql
return 1 //normal return with SQL
else
as_sourceSQL = ""
return 0 //no SQL created
end if
end function
public function integer of_runresultset ();
//retrieve the result set based on source and filter criDAT* teria
long ll_rc
string ls_dummy
//if result set is up to date, just update the arrays
if (ids_resultSet.rowCount() <> 0) and (not this.of_groupModified()) then
this.of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
return 1
end if
setPointer(hourGlass!)
ids_resultSet.shareDataOff()
ids_resultSet.dataObject = 'd_ss_group_result_set'
ids_resultSet.setTransObject(SQLCA)
//if no source criteria defined, update arrays and return 0
if idDAT* s_sourceCriteria.rowCount() = 0 then
messageBox("Result Set", "No source/geographic criteria have been specified. Cannot retrieve " +&
"result set data.", information!)
this.of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
return 0
end if
//if there are no filter criteria defined, then just share the source
//criteria buffer to the result set
if ids_filterCriteria.rowCount() = 0 then
ll_rc = ids_sourceCriteria.shareData(ids_resultSet)
thisDAT* .of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
if ll_rc < 0 then
messageBox("Error", "u_class_source_group::of_runResultSet(); " +&
"ids_sourceCriteria.shareData() failed.", exclamation!)
return -1
end if
return 1
end if
//refresh the data object of the result set datastore. This prevents
//the SQL modifications from cascading due to consecutive calls to of_modObjectSQL()
ids_resultSet.reset()
if gs_database = 'ORACLE' then
ids_reDAT* sultSet.dataObject = 'd_ss_group_result_set_ora'
ids_resultSet.setTransObject(SQLCA)
end if
//update the SQL of the result set
ll_rc = this.of_modObjectSQL(ids_resultSet, 3) //3 => SQL generated from source and filter criteria
//messageBox("Debug Result Set SQL", ids_resultSet.getSQLSelect(), none!)
if ll_rc < 0 then
this.of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
return -1
elseif ll_rc = 0 then
messageBox("Result Set", "No source/geoDAT* graphic criteria have been specified. Cannot retrieve " +&
"result set data.", information!)
this.of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
return 0
end if
//retrieve the result set
ll_rc = ids_resultSet.retrieve( &
il_nationArray, &
il_stateArray, &
il_countyArray, &
il_sourceArray, &
il_sourceSub1Array, &
il_sourceSub2Array, &
il_sourceSub3Array, &
il_sourceSub4Array, &
is_sicArray, &
is_sccArray)
DAT*
if ll_rc < 0 then
this.of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
return -1
elseif ll_rc = 0 then
messageBox("Result Set", "No records found matching current criteria.", information!)
this.of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
return 0
end if
//Correct the result set to match the group data level.
ll_rc = this.of_setBufferDataLevel(0) //0 => work on result set buffer
if ll_rc < 0 then DAT*
this.of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
return -1
end if
this.of_getSourceSQL(ls_dummy,0) //cause arrays to be in sync with result set buffer data
this.of_resetUpdate()
return 1
end function
public function integer of_modsqlstring (ref string as_sql, integer ai_datasource);
//Update the WHERE clause of the given SQL string to include
//the criteria defined by this source group object class instance
//The ai_dataSource parDAT* ameter determines whether the SQL is generated from
//the Result Set buffer or from various combinations of the Source and Filter
//criteria buffers.
//0 = result set buffer (default client logic)
//1 = only source criteria (e.g. retrieve SIC/SCC codes relevant to selected sources)
//2 = only filter criteria
//3 = source and filter criteria buffers (e.g. generate result set)
string ls_sqlWhere
string ls_sqlPatch
long ll_startWhere
integer li_rc
if isNull(as_sql) or trim(as_sql) DAT* = "" then return -1
//messageBox("Original SQL", as_sql)
ll_startWhere = pos(upper(as_sql), "WHERE")
//if SQL has no WHERE clause, produce error
if ll_startWhere = 0 then
messageBox("Error", "Cannot modify SQL. Original SQL has no WHERE clause.~r~n~n" + &
"Suggestion: add 'WHERE (1 = 1)' to original SQL.", exclamation!)
return -1
end if
//grab the SQL following the "WHERE" keyword
ls_sqlWhere = mid(as_sql, ll_startWhere + 5)
//grab the SQL up to and including the "WHERDAT* E" keyword
as_sql = mid(as_sql, 1, ll_startWhere + 5)
//grab the new sql fragment
choose case ai_dataSource
case 0
li_rc = this.of_getSourceSQL(ls_sqlPatch, 0) //0 => SQL from result set
case 1
li_rc = this.of_getSourceSQL(ls_sqlPatch, 1) //1 => SQL from source criteria
case 2
li_rc = this.of_getFilterSQL(ls_sqlPatch)
case 3
li_rc = this.of_getSQL(ls_sqlPatch)
case else
li_rc = -1
messageBox("Usage","Function: u_class_source_group::of_modSQLString(). " +&
DAT* "Invalid include code specified.", exclamation!)
end choose
if li_rc <= 0 then return li_rc //error or no SQL generated
if trim(ls_sqlWhere) = "" then
as_sql = as_sql + " " + ls_sqlPatch
else
as_sql = as_sql + " " + ls_sqlPatch + " AND " + ls_sqlWhere
end if
//messageBox("New SQL", as_sql)
return 1
end function
public function integer of_modobjectsql (ref datastore ads_buffer, integer ai_datasource);
//Update the WHERE clause of the given datastore to include
//the crDAT* iteria defined by this source group object class instance
//The ai_dataSource parameter determines whether the SQL is generated from
//the Result Set buffer or from various combinations of the Source and Filter
//criteria buffers.
//0 = result set buffer (default client logic)
//1 = only source criteria (e.g. retrieve SIC/SCC codes relevant to selected sources)
//2 = only filter criteria
//3 = source and filter criteria buffers (e.g. generate result set)
string ls_sql
integer li_rc
DAT*
if not isValid(ads_buffer) then return -1
//grab the current SQL from the datastore
ls_sql = ads_buffer.object.dataWindow.table.select
//call of_modSQLString() to modify the SQL
li_rc = of_modSQLString(ls_sql, ai_datasource)
if li_rc <= 0 then return li_rc
//update the SQL for the datastore object
ads_buffer.object.dataWindow.table.select = ls_sql
return 1
end function
public function integer of_modobjectsql (ref datawindow adw_buffer, integer ai_datasource);
//UpdateDAT* the WHERE clause of the given datawindow to include
//the criteria defined by this source group object class instance
//The ai_dataSource parameter determines whether the SQL is generated from
//the Result Set buffer or from various combinations of the Source and Filter
//criteria buffers.
//0 = result set buffer (default client logic)
//1 = only source criteria (e.g. retrieve SIC/SCC codes relevant to selected sources)
//2 = only filter criteria
//3 = source and filter criteria buffersDAT* (e.g. generate result set)
string ls_sql
integer li_rc
if not isValid(adw_buffer) then return -1
//grab the current SQL from the datawindow
ls_sql = adw_buffer.object.dataWindow.table.select
//call of_modSQLString() to modify the SQL
li_rc = of_modSQLString(ls_sql, ai_datasource)
if li_rc <= 0 then return li_rc
//update the SQL for the datawindow object
adw_buffer.object.dataWindow.table.select = ls_sql
return 1
end function
public function integer of_savegroup DAT* ();
//Save a group to the database. This function calls of_deleteGroup() to
//first delete the group, source and filter criteria records. That function
//does a COMMIT if successful. Then the new or modified group is added.
long ll_rc
long ll_row
long ll_groupRid
string ls_groupName
//validate that group data and source criteria exist
if ids_groupData.rowCount() = 0 then
messageBox("Save Group Error", "No group data record has been loaded. " +&
"Save group failed.", exDAT* clamation!)
return -1
elseif ids_sourceCriteria.rowCount() = 0 then
messageBox("Save Group Error", "No source criteria have been selected. " +&
"Save group failed.", exclamation!)
return -1
end if
//make sure the group has a RID
ll_groupRid = ids_groupData.getItemNumber(1, is_groupRid)
if ll_groupRid < 0 then
messageBox("Save Group Error", "Error reading group RID. " +&
"Save group failed.", exclamation!)
return -1
elseif isNull(ll_groupRid) then
//get a new rid
lDAT* l_groupRid = f_get_sequence()
if ll_rc < 0 then
messageBox("Save Group Error", "Error obtaining group RID. " +&
"Save group failed.", exclamation!)
return -1
end if
ll_rc = ids_groupData.setItem(1, is_groupRid, ll_groupRid)
if ll_rc < 0 then
messageBox("Save Group Error", "Error setting group RID. " +&
"Save group failed.", exclamation!)
return -1
end if
end if
//validate the uniqueness of the group name
ls_groupName = trim(ids_groupData.getItemString(1, isDAT* _groupName))
if isNull(ls_groupName) or ls_groupName = "" then
messageBox("Save Group Error", "Group name cannot be NULL or blank. " +&
"Save group failed.", exclamation!)
return -1
end if
SELECT count(*)
INTO :ll_rc
FROM rap_group_data
WHERE ( rap_group_data.group_name = :ls_groupName ) AND
( rap_group_data.group_rid <> :ll_groupRid )
USING SQLCA;
if f_sqlCheck(SQLCA) < 0 then
messageBox("Save Group Error", "Error validating group name. " +&
"Save DAT* group failed.", exclamation!)
return -1
elseif ll_rc > 0 then
messageBox("Save Group Error", "Group name '" + ls_groupName + "' is not unique. " +&
"Save group failed.", exclamation!)
ids_groupData.setItem(1, is_groupName, "")
return -1
end if
//delete any existing group with the same RID
ll_rc = this.of_deleteGroup(ll_groupRid)
if ll_rc < 0 then return -1
//update the group data
ids_groupData.resetUpdate() //clear all update flags
ids_groupData.setItemStatus(1, 0, prDAT* imary!, newModified!) //make the row "new"
ll_rc = ids_groupData.update(true, false)
if ll_rc < 0 then
ROLLBACK USING SQLCA;
messageBox("Save Group Error", "Error updating group data. " +&
"Save group failed.", exclamation!)
return -1
end if
//make sure all source criteria have correct group RID
ids_sourceCriteria.resetUpdate() //clear all update flags
for ll_row = 1 to ids_sourceCriteria.rowCount()
ids_sourceCriteria.setItemStatus(ll_row, 0, primary!, newModified!) //maDAT* ke the row "new"
ll_rc = ids_sourceCriteria.setItem(ll_row, is_groupRid, ll_groupRid)
if ll_rc < 0 then
ROLLBACK USING SQLCA;
messageBox("Save Group Error", "Error setting group RID for source criteria record. " +&
"Save group failed.", exclamation!)
return -1
end if
next
//update the source criteria
ll_rc = ids_sourceCriteria.update()
if ll_rc < 0 then
ROLLBACK USING SQLCA;
messageBox("Save Group Error", "Error updating source criteria. " +&
"Save group faileDAT* d.", exclamation!)
return -1
end if
//make sure all filter criteria have correct group RID
ids_filterCriteria.resetUpdate() //clear all update flags
for ll_row = 1 to ids_filterCriteria.rowCount()
ids_filterCriteria.setItemStatus(ll_row, 0, primary!, newModified!) //make the row "new"
ll_rc = ids_filterCriteria.setItem(ll_row, is_groupRid, ll_groupRid)
if ll_rc < 0 then
ROLLBACK USING SQLCA;
messageBox("Save Group Error", "Error setting group RID for filter criteria recordDAT* . " +&
"Save group failed.", exclamation!)
return -1
end if
next
//update the filter criteria
ll_rc = ids_filterCriteria.update()
if ll_rc < 0 then
ROLLBACK USING SQLCA;
messageBox("Save Group Error", "Error updating filter criteria. " +&
"Save group failed.", exclamation!)
return -1
end if
//commit the source and filter criteria records
COMMIT USING SQLCA;
if f_sqlCheck(SQLCA) < 0 then
ROLLBACK USING SQLCA;
messageBox("Save Group Error", "Error on commit.DAT* " +&
"Save group failed.", exclamation!)
return -1
end if
return 1
end function
public function integer of_deletegroup (long al_grouprid);
//remove existing filter criteria for current group
DELETE FROM rap_group_filter_criteria
WHERE rap_group_filter_criteria.group_rid = :al_groupRid
USING SQLCA;
if f_sqlCheck(SQLCA) < 0 then
ROLLBACK USING SQLCA;
messageBox("Delete Group Error", "Error deleting old filter criteria. " +&
"No database updates were made.", eDAT* xclamation!)
return -1
end if
//remove existing source criteria for current group
DELETE FROM rap_group_source_criteria
WHERE rap_group_source_criteria.group_rid = :al_groupRid
USING SQLCA;
if f_sqlCheck(SQLCA) < 0 then
ROLLBACK USING SQLCA;
messageBox("Delete Group Error", "Error deleting old source criteria. " +&
"No database updates were made.", exclamation!)
return -1
end if
//remove existing group record
//NOTE: this should cause a cascading delete of the souDAT* rce
//and filter criteria records, but code to explicitly delete those
//records has been included anyway.
DELETE FROM rap_group_data
WHERE rap_group_data.group_rid = :al_groupRid
USING SQLCA;
if f_sqlCheck(SQLCA) < 0 then
ROLLBACK USING SQLCA;
messageBox("Delete Group Error", "Error deleting old group data. " +&
"No database updates were made.", exclamation!)
return -1
end if
//commit all changes
COMMIT USING SQLCA;
if f_sqlCheck(SQLCA) < 0 then
ROLLBACK USING SQDAT* LCA;
messageBox("Delete Group Error", "Error on commit. " +&
"No database updates were made.", exclamation!)
return -1
end if
return 1
end function
public function integer of_loadgroup (string as_groupname);
//load a saved group from the database
long ll_rc
long ll_groupRid
//retrieve the group data
ll_rc = ids_groupData.retrieve(as_groupName)
if ll_rc <= 0 then return ll_rc
ll_groupRid = ids_groupData.getItemNumber(1, is_groupRid)
//retrieve source criteria
lDAT* l_rc = ids_sourceCriteria.retrieve(ll_groupRid)
if ll_rc < 0 then
return -1
elseif ll_rc = 0 then
messageBox("Not Found", "No source criteria found for group '" + as_groupName + "'.", information!)
return 0
end if
//retrieve filter criteria
ll_rc = ids_filterCriteria.retrieve(ll_groupRid)
if ll_rc < 0 then return -1
//clear the result set
ids_resultSet.reset()
return 1
end function
public function integer of_reset ();
//reset the group to a default state
long ll_rc
DAT*
//reset the group data buffer
ll_rc = ids_groupData.reset()
if ll_rc < 0 then
messageBox("Error", "u_class_source_group::of_reset(); group data reset failed.", exclamation!)
return -1
end if
//reset the source criteria buffer
ll_rc = ids_sourceCriteria.reset()
if ll_rc < 0 then
messageBox("Error", "u_class_source_group::of_reset(); source criteria reset failed.", exclamation!)
return -1
end if
//reset the filter criteria buffer
ll_rc = ids_filterCriteria.reset()
if ll_rc < DAT* 0 then
messageBox("Error", "u_class_source_group::of_reset(); filter criteria reset failed.", exclamation!)
return -1
end if
//create a default group data record
ll_rc = ids_groupData.insertRow(0)
if ll_rc < 0 then
messageBox("Error", "u_class_source_group::of_reset(); group data row insert failed.", exclamation!)
return -1
end if
//set default resolution level and filter logic
ids_groupData.setItem(1, is_groupDataLevel, ii_sourceLevel)
ids_groupData.setItem(1, is_groupFilterLoDAT* gic, 0) //OR logic
return 1
end function
public function integer of_getdatalevel ();
return integer(ids_groupData.getItemNumber(1, is_groupDataLevel))
end function
public function integer of_getfilterlogic ();
return integer(ids_groupData.getItemNumber(1, is_groupFilterLogic))
end function
public function integer of_setdatalevel (integer ai_dataLevel);
return ids_groupData.setItem(1, is_groupDataLevel, ai_dataLevel)
end function
public function boolean of_groupmodifieDAT* d ();
boolean lb_groupMod
boolean lb_sourceMod
boolean lb_filterMod
lb_groupMod = (ids_groupData.modifiedCount() > 0)
lb_sourceMod = (ids_sourceCriteria.modifiedCount() > 0)
lb_filterMod = (ids_filterCriteria.modifiedCount() > 0)
return (lb_groupMod or lb_sourceMod or lb_filterMod)
end function
public function integer of_resetupdate ();
//call reset update for all datastores (except result set)
ids_groupData.resetUpdate()
ids_sourceCriteria.resetUpdate()
ids_filterCriteriDAT* a.resetUpdate()
return 1
end function
public function integer of_resetfilter (integer ai_code);
//discards filter criteria rows containing either SIC or SCC filters
//Argument ai_code specifies which filters to discard:
//0 = SIC filters will be discarded
//1 = SCC filters will be discarded
string ls_filterString
integer li_rc
long ll_rows
if ai_code = 0 then
ls_filterString = is_filterColumnName + " <> '" + is_sicFilterColumnCode + "'"
else
ls_filterString = is_filteDAT* rColumnName + " <> '" + is_sccFilterColumnCode + "'"
end if
ids_filterCriteria.setFilter(ls_filterString)
li_rc = ids_filterCriteria.filter()
if li_rc < 0 then
messageBox("Error", "u_class_source_group::of_resetFilter(); apply filter failed.", exclamation!)
return -1
end if
ll_rows = ids_filterCriteria.filteredCount()
//messageBox("Debug", "Filter: " + ls_filterString + "~r~nRows filtered: " + string(ll_rows), none!)
if ll_rows > 0 then
li_rc = ids_filterCriteria.rowsDiDAT* scard(1, ll_rows, filter!)
if li_rc < 0 then
messageBox("Error", "u_class_source_group::of_resetFilter(); discard rows failed.", exclamation!)
return -1
end if
end if
ids_filterCriteria.setFilter("")
ids_filterCriteria.filter()
return 1
end function
public function long of_finddata (string as_column, any aa_value);
//Finds data in the source group buffers
string ls_findString
string ls_stringValue
long ll_longValue
long ll_rc
integer li_searchBuffer //0 = ids_groupDaDAT* ta; 1 = ids_sourceCriteria; 2 = ids_filterCriteria
integer li_dataType //0 = long; 1 = string
//messageBox("Find Data Type", className(aa_value))
choose case className(aa_value)
case "long"
li_dataType = 0
case "string"
li_dataType = 1
case else
messageBox("Error", "u_class_source_group::of_findData; invalid data type '" + className(aa_value) +&
"' recieved for search value.", exclamation!)
return -1
end choose
choose case as_column
case is_groupRid
li_sDAT* earchBuffer = 0
case is_groupName
li_searchBuffer = 0
case is_groupDescription
li_searchBuffer = 0
case is_groupDataLevel
li_searchBuffer = 0
case is_groupFilterLogic
li_searchBuffer = 0
case is_nationRid
li_searchBuffer = 1
case is_stateRid
li_searchBuffer = 1
case is_countyRid
li_searchBuffer = 1
case is_sourceRid
li_searchBuffer = 1
case is_sourceType
li_searchBuffer = 1
case is_sourceSub1Rid
li_searchBuffer = 1
case is_sourceSub2Rid
li_seaDAT* rchBuffer = 1
case is_sourceSub3Rid
li_searchBuffer = 1
case is_sourceSub4Rid
li_searchBuffer = 1
case is_filterColumnName
li_searchBuffer = 2
case is_filterColumnValue
li_searchBuffer = 2
case else
messageBox("Error", "u_class_source_group::of_findData; invalid column name '" + as_column +&
"' specified for search.", exclamation!)
return -1
end choose
//build a search string
if isNull(aa_value) then
ls_findString = "isNull(" + as_column +")"
else
if li_DAT* dataType = 0 then
ls_findString = as_column + " = " + string(long(aa_value)) + " "
else
ls_findString = as_column + " = '" + string(aa_value) + "' "
end if
end if
//look for item in appropiate buffer
choose case li_searchBuffer
case 0
ll_rc = this.ids_groupData.find(ls_findString, 1, this.ids_groupData.rowCount())
case 1
ll_rc = this.ids_sourceCriteria.find(ls_findString, 1, this.ids_sourceCriteria.rowCount())
case 2
ll_rc = this.ids_filterCriteria.find(ls_findStriDAT* ng, 1, this.ids_filterCriteria.rowCount())
case else
messageBox("Error", "u_class_source_group::of_findData; invalid data source " +&
"specified for search.", exclamation!)
return -1
end choose
return ll_rc
end function
public function integer of_setbufferdatalevel (integer ai_code);
//Correct the soruce criteria or result set buffer to match current group data level.
//This is done by discarding rows with duplicate rid values in the column designated by
//the current dataDAT* level. For rows that remain after duplicates are removed, all columns
//following the "data level" column are set to null.
//Parameter ai_code determines which buffer to operate on:
// 0 = result set buffer
// 1 = source criteria buffer
long ll_rc
long ll_rid
long ll_row
long ll_prevRid
long ll_nullColumnNumber
integer li_column
integer li_columnCount
string ls_levelColumn
string ls_nullColumn
string ls_temp
long ll_temp
u_ds_base lds_buffer //reference to a u_ds_base obDAT* ject
//determine which buffer to work on
if ai_code = 0 then
lds_buffer = ids_resultSet
ll_rc = this.of_sortResultSet()
if ll_rc < 0 then return -1
else
lds_buffer = ids_sourceCriteria
ll_rc = this.of_sortSources()
if ll_rc < 0 then return -1
end if
if not isValid(lds_buffer) then return -1
//if the buffer is empty, return 0
ll_rc = lds_buffer.rowCount()
if ll_rc < 0 then
return -1
elseif ll_rc = 0 then
return 0
end if
//set the data level column name
choose casDAT* e this.of_getDataLevel()
case ii_nationLevel
ls_levelColumn = is_nationRid
ls_nullColumn = is_stateRid
case ii_stateLevel
ls_levelColumn = is_stateRid
ls_nullColumn = is_countyRid
case ii_countyLevel
ls_levelColumn = is_countyRid
ls_nullColumn = is_sourceRid
case ii_sourceLevel
ls_levelColumn = is_sourceRid
ls_nullColumn = is_sourceSub1Rid
case ii_sourceSub1Level
ls_levelColumn = is_sourceSub1Rid
ls_nullColumn = is_sourceSub2Rid
case ii_sourceSub2Level
DAT* ls_levelColumn = is_sourceSub2Rid
ls_nullColumn = is_sourceSub3Rid
case ii_sourceSub3Level
ls_levelColumn = is_sourceSub3Rid
ls_nullColumn = is_sourceSub4Rid
case ii_sourceSub4Level
return 1
case else
return -1
end choose
//discard duplicate rows with respect to the group data level
ll_prevRid = 0
for ll_row = 1 to lds_buffer.rowCount()
//get the current rid in question
ll_rid = lds_buffer.getItemNumber(ll_row, ls_levelColumn)
if ll_rid < 0 then return -1
/DAT* /if the rid mathces the previous row's rid, discard the row
if ll_rid = ll_prevRid then
ll_rc = lds_buffer.rowsDiscard(ll_row, ll_row, primary!)
if ll_rc < 0 then return -1
//must manually handle the row pointer since a row was discarded
ll_row --
else
//row was not discarded, so set the null column and all subsequent columns to null
//get the null column number and the number of columns in the buffer
ll_rc = lds_buffer.setColumn(ls_nullColumn)
if ll_rc < 0 DAT* then return -1
ll_nullColumnNumber = lds_buffer.getColumn()
if ll_nullColumnNumber < 0 then return -1
li_columnCount = integer(lds_buffer.describe("dataWindow.column.count"))
//step through columns and set to null
for li_column = ll_nullColumnNumber to li_columnCount
//grab the column name
ls_temp = "#" + string(li_column) + ".name"
ls_temp = lds_buffer.describe(ls_temp)
//if the column is the 'source_type' column set it to null string, else set it to nDAT* ull number
if ls_temp = is_sourceType then
setNull(ls_temp)
ll_rc = lds_buffer.setItem(ll_row, li_column, ls_temp)
if ll_rc < 0 then return -1
else
setNull(ll_temp)
ll_rc = lds_buffer.setItem(ll_row, li_column, ll_temp)
if ll_rc < 0 then return -1
end if
next
end if
ll_prevRid = ll_rid
next
return 1
end function
public function integer of_sortresultset ();
//sorts the result set buffer
string ls_sortString
integer li_rcDAT*
ls_sortString = &
is_nationRid + " D," +&
is_stateRid + " A," +&
is_countyRid + " A," +&
is_sourceRid + " A," +&
is_sourceSub1Rid + " A," +&
is_sourceSub2Rid + " A," +&
is_sourceSub3Rid + " A," +&
is_sourceSub4Rid + " A"
li_rc = ids_resultSet.setSort(ls_sortString)
if li_rc < 0 then return -1
li_rc = ids_resultSet.sort()
if li_rc < 0 then return -1
return 1
end function
public function integer of_loadarrays (integer ai_dataSourcDAT* e);
//Populate instance arrays with data corresponding to values in either the
//source criteria buffer or the result set buffer. These arrays will
//need to be referenced directly (using dot notation) or
//copied to visible (in scope) arrays of the same names
//in the calling module(s).
//The parameter ai_dataSource determines which source buffer is used:
// 0 = result set buffer (default for client use)
// 1 = source criteria buffer
//string ls_sql = ""
//string ls_term
long lDAT* l_nationRid
long ll_stateRid
long ll_countyRid
long ll_sourceRid
long ll_sourceSub1Rid
long ll_sourceSub2Rid
long ll_sourceSub3Rid
long ll_sourceSub4Rid
long ll_nationCount = 0
long ll_stateCount = 0
long ll_countyCount = 0
long ll_sourceCount = 0
long ll_sourceSub1Count = 0
long ll_sourceSub2Count = 0
long ll_sourceSub3Count = 0
long ll_sourceSub4Count = 0
long ll_rowCount
long ll_row
long ll_empty[] //empty array to initialize other arrays
u_ds_base lds_buffer
//initialiDAT* ze and validate the data buffer reference
if ai_dataSource = 0 then
lds_buffer = ids_resultSet
else
lds_buffer = ids_sourceCriteria
end if
if not isValid(lds_buffer) then
messageBox("Error", "u_class_source_group::of_getSourceSql(); data buffer object is not valid.", exclamation!)
return -1
end if
//initialize all the source criteria arrays
il_nationArray = ll_empty
il_stateArray = ll_empty
il_countyArray = ll_empty
il_sourceArray = ll_empty
il_sourceSub1Array = ll_empty
il_DAT* sourceSub2Array = ll_empty
il_sourceSub3Array = ll_empty
il_sourceSub4Array = ll_empty
//check for empty buffer
ll_rowCount = lds_buffer.rowCount()
if ll_rowCount = 0 then return 0 //no rows in buffer
//process source criteria buffer (or result set buffer) and load arrays
for ll_row = 1 to ll_rowCount
ll_nationRid = lds_buffer.getItemNumber(ll_row, is_nationRid)
if isNull(ll_nationRid) then
continue
end if
ll_stateRid = lds_buffer.getItemNumber(ll_row, is_stateRid)DAT*
if isNull(ll_stateRid) then
ll_nationCount++
il_nationArray[ll_nationCount] = ll_nationRid
continue
end if
ll_countyRid = lds_buffer.getItemNumber(ll_row, is_countyRid)
if isNull(ll_countyRid) then
ll_stateCount++
il_stateArray[ll_stateCount] = ll_stateRid
continue
end if
ll_sourceRid = lds_buffer.getItemNumber(ll_row, is_sourceRid)
if isNull(ll_sourceRid) then
ll_countyCount++
il_countyArray[ll_countyCount] = ll_countyRid
continue
end if
DAT* ll_sourceSub1Rid = lds_buffer.getItemNumber(ll_row, is_sourceSub1Rid)
if isNull(ll_sourceSub1Rid) then
ll_sourceCount++
il_sourceArray[ll_sourceCount] = ll_sourceRid
continue
end if
ll_sourceSub2Rid = lds_buffer.getItemNumber(ll_row, is_sourceSub2Rid)
if isNull(ll_sourceSub2Rid) then
ll_sourceSub1Count++
il_sourceSub1Array[ll_sourceSub1Count] = ll_sourceSub1Rid
continue
end if
ll_sourceSub3Rid = lds_buffer.getItemNumber(ll_row, is_sourceSub3Rid)
if isNull(llDAT* _sourceSub3Rid) then
ll_sourceSub2Count++
il_sourceSub2Array[ll_sourceSub2Count] = ll_sourceSub2Rid
continue
end if
ll_sourceSub4Rid = lds_buffer.getItemNumber(ll_row, is_sourceSub4Rid)
if isNull(ll_sourceSub4Rid) then
ll_sourceSub3Count++
il_sourceSub3Array[ll_sourceSub3Count] = ll_sourceSub3Rid
continue
else
ll_sourceSub4Count++
il_sourceSub4Array[ll_sourceSub4Count] = ll_sourceSub4Rid
end if
next
return 1
end function
public function integer ofDAT*
_runselectionreport ();
//Run the report displaying what selections have been made, and what filters are being used.
long ll_rc
long ll_row
string ls_groupName
u_ds_base lds_report
u_ds_base lds_temp
datawindowchild ldwc_groupSubReport
datawindowchild ldwc_sourceSubReport
datawindowchild ldwc_resultSubReport
datawindowchild ldwc_filterSubReport
datawindowchild ldwc_temp
setPointer(hourGlass!)
//run the result set, which brings all internal data structures in synch
//and calDAT* culates the result set
ll_rc = this.of_runResultSet()
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); of_runResultSet() failed.", exclamation!)
return -1
elseif ll_rc = 0 then
return 0
end if
//sort the data in the source group object buffers
ll_rc = this.of_sort()
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); of_sort() failed.", exclamation!)
return -1
end if
//set up the report datastore
lds_reporDAT* t = create u_ds_base
if not isValid(lds_report) then
messageBox("Error","u_class_source_group::of_runSelectionReport(); lds_report object creation failed.", exclamation!)
return -1
end if
lds_report.dataObject = 'r_ss_selection_report'
lds_report.setTransObject(SQLCA)
//lds_report.insertRow(0)
//get references to the nested reports
ll_rc = lds_report.getChild('report_group', ldwc_groupSubReport)
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); lDAT* ds_report.getChild() failed.", exclamation!)
destroy lds_report
return -1
end if
ll_rc = lds_report.getChild('report_filter', ldwc_filterSubReport)
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); lds_report.getChild() failed.", exclamation!)
destroy lds_report
return -1
end if
ll_rc = lds_report.getChild('report_source', ldwc_sourceSubReport)
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); lds_report.geDAT* tChild() failed.", exclamation!)
destroy lds_report
return -1
end if
ll_rc = lds_report.getChild('report_result', ldwc_resultSubReport)
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); lds_report.getChild() failed.", exclamation!)
destroy lds_report
return -1
end if
//copy data to the group sub report
ll_rc = ids_groupData.rowsCopy(1, 1, primary!, ldwc_groupSubReport, 1, primary!)
if ll_rc < 0 then
messageBox("Error","u_class_source_group:DAT* :of_runSelectionReport(); ids_groupData.shareData() failed.", exclamation!)
destroy lds_report
return -1
end if
//if the group name is null, set it to "No Name"
ls_groupName = ldwc_groupSubReport.getItemString(1, 'group_name')
if isNull(ls_groupName) then
ls_groupName = "No Name"
ldwc_groupSubReport.setItem(1, 'group_name', ls_groupName)
end if
//share data to the filter sub report
ll_rc = ids_filterCriteria.shareData(ldwc_filterSubReport)
if ll_rc < 0 then
messageBox("Error"DAT* ,"u_class_source_group::of_runSelectionReport(); ids_filterCriteria.shareData() failed.", exclamation!)
destroy lds_report
return -1
end if
//load the source sub report with data corresponding to the rid values in the
//source criteria buffer
//set up the temp datastore
lds_temp = create u_ds_base
if not isValid(lds_temp) then
messageBox("Error","u_class_source_group::of_runSelectionReport(); lds_temp object creation failed.", exclamation!)
return -1
end if
//grab the rid daDAT* ta from both the source criteria and result set buffers and populate
//corresponding sub reports with meaningful information for the report
integer i
for i = 0 to 1
//if there are no filters, don't load the result set. this is done by manually
//setting i = 1, which skips the result set iteration of the loop
if ids_filterCriteria.rowCount() = 0 then i = 1
//load internal arrays to reflect the contents of the correct source data buffer
this.of_loadArrays(i)
//point the outpDAT* ut reference to the correct sub report buffer
if i = 0 then
ldwc_temp = ldwc_resultSubReport
ldwc_temp.modify("st_title.text = 'Result Set'")
else
ldwc_temp = ldwc_sourceSubReport
ldwc_temp.modify("st_title.text = 'Selection Data'")
end if
//get nation data, if any exists
if upperBound(il_nationArray) > 0 then
lds_temp.dataObject = 'r_ss_nation_data'
lds_temp.setTransObject(SQLCA)
ll_rc = lds_temp.retrieve(il_nationArray)
if ll_rc < 0 then
messageBox("ErrorDAT* ","u_class_source_group::of_runSelectionReport(); retrieval of nation data failed.", exclamation!)
destroy lds_report
destroy lds_temp
return -1
end if
//copy nation data to the sub report
for ll_row = 1 to lds_temp.rowCount()
ll_rc = ldwc_temp.insertRow(0)
ldwc_temp.setItem(ll_rc, 'nation_name', lds_temp.getItemString(ll_row, 'nation_name'))
next
end if
//get state data, if any exists
if upperBound(il_stateArray) > 0 then
lds_temp.dataObject = 'r_ssDAT* _state_data'
lds_temp.setTransObject(SQLCA)
ll_rc = lds_temp.retrieve(il_stateArray)
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); retrieval of state data failed.", exclamation!)
destroy lds_report
destroy lds_temp
return -1
end if
//copy state data to the sub report
for ll_row = 1 to lds_temp.rowCount()
ll_rc = ldwc_temp.insertRow(0)
ldwc_temp.setItem(ll_rc, 'nation_name', lds_temp.getItemString(ll_row, 'nation_nDAT* ame'))
ldwc_temp.setItem(ll_rc, 'state_name', lds_temp.getItemString(ll_row, 'state_name'))
next
end if
//get county data, if any exists
if upperBound(il_countyArray) > 0 then
lds_temp.dataObject = 'r_ss_county_data'
lds_temp.setTransObject(SQLCA)
ll_rc = lds_temp.retrieve(il_countyArray)
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); retrieval of county data failed.", exclamation!)
destroy lds_report
destroy lds_temp
DAT* " return -1
end if
//copy county data to the sub report
for ll_row = 1 to lds_temp.rowCount()
ll_rc = ldwc_temp.insertRow(0)
ldwc_temp.setItem(ll_rc, 'nation_name', lds_temp.getItemString(ll_row, 'nation_name'))
ldwc_temp.setItem(ll_rc, 'state_name', lds_temp.getItemString(ll_row, 'state_name'))
ldwc_temp.setItem(ll_rc, 'county_name', lds_temp.getItemString(ll_row, 'county_name'))
next
end if
//get source data, if any exists
if upperBound(il_sourceArray) > DAT* $ 0 then
lds_temp.dataObject = 'r_ss_source_data'
lds_temp.setTransObject(SQLCA)
ll_rc = lds_temp.retrieve(il_sourceArray)
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); retrieval of source data failed.", exclamation!)
destroy lds_report
destroy lds_temp
return -1
end if
//copy source data to the sub report
for ll_row = 1 to lds_temp.rowCount()
ll_rc = ldwc_temp.insertRow(0)
ldwc_temp.setItem(ll_rc, 'nation_name',DAT* & lds_temp.getItemString(ll_row, 'nation_name'))
ldwc_temp.setItem(ll_rc, 'state_name', lds_temp.getItemString(ll_row, 'state_name'))
ldwc_temp.setItem(ll_rc, 'county_name', lds_temp.getItemString(ll_row, 'county_name'))
ldwc_temp.setItem(ll_rc, 'source_id', lds_temp.getItemString(ll_row, 'source_id'))
ldwc_temp.setItem(ll_rc, 'source_name', lds_temp.getItemString(ll_row, 'source_name'))
ldwc_temp.setItem(ll_rc, 'sic_code', lds_temp.getItemString(ll_row, 'sic_code'))
next
eDAT* ( nd if
//get device data, if any exists
if upperBound(il_sourceSub1Array) > 0 then
lds_temp.dataObject = 'r_ss_device_data'
lds_temp.setTransObject(SQLCA)
ll_rc = lds_temp.retrieve(il_sourceSub1Array)
if ll_rc < 0 then
messageBox("Error","u_class_source_group::of_runSelectionReport(); retrieval of device data failed.", exclamation!)
destroy lds_report
destroy lds_temp
return -1
end if
//copy device data to the sub report
for ll_row = 1 to lds_temp.rowDAT* * Count()
ll_rc = ldwc_temp.insertRow(0)
ldwc_temp.setItem(ll_rc, 'nation_name', lds_temp.getItemString(ll_row, 'nation_name'))
ldwc_temp.setItem(ll_rc, 'state_name', lds_temp.getItemString(ll_row, 'state_name'))
ldwc_temp.setItem(ll_rc, 'county_name', lds_temp.getItemString(ll_row, 'county_name'))
ldwc_temp.setItem(ll_rc, 'source_id', lds_temp.getItemString(ll_row, 'source_id'))
ldwc_temp.setItem(ll_rc, 'source_name', lds_temp.getItemString(ll_row, 'source_name'))
ldwc_tDAT* , emp.setItem(ll_rc, 'sic_code', lds_temp.getItemString(ll_row, 'sic_code'))
ldwc_temp.setItem(ll_rc, 'device_id', lds_temp.getItemString(ll_row, 'device_id'))
ldwc_temp.setItem(ll_rc, 'device_name', lds_temp.getItemString(ll_row, 'device_name'))
next
end if
//get process data, if any exists
if upperBound(il_sourceSub2Array) > 0 then
lds_temp.dataObject = 'r_ss_process_data'
lds_temp.setTransObject(SQLCA)
ll_rc = lds_temp.retrieve(il_sourceSub2Array)
if ll_rc < 0 thenDAT* .
messageBox("Error","u_class_source_group::of_runSelectionReport(); retrieval of process data failed.", exclamation!)
destroy lds_report
destroy lds_temp
return -1
end if
//copy process data to the sub report
for ll_row = 1 to lds_temp.rowCount()
ll_rc = ldwc_temp.insertRow(0)
ldwc_temp.setItem(ll_rc, 'nation_name', lds_temp.getItemString(ll_row, 'nation_name'))
ldwc_temp.setItem(ll_rc, 'state_name', lds_temp.getItemString(ll_row, 'state_name'))
ldwc_teDAT* 0 mp.setItem(ll_rc, 'county_name', lds_temp.getItemString(ll_row, 'county_name'))
ldwc_temp.setItem(ll_rc, 'source_id', lds_temp.getItemString(ll_row, 'source_id'))
ldwc_temp.setItem(ll_rc, 'source_name', lds_temp.getItemString(ll_row, 'source_name'))
ldwc_temp.setItem(ll_rc, 'sic_code', lds_temp.getItemString(ll_row, 'sic_code'))
ldwc_temp.setItem(ll_rc, 'device_id', lds_temp.getItemString(ll_row, 'device_id'))
ldwc_temp.setItem(ll_rc, 'device_name', lds_temp.getItemString(ll_roDAT* 2 w, 'device_name'))
ldwc_temp.setItem(ll_rc, 'process_id', lds_temp.getItemString(ll_row, 'process_id'))
ldwc_temp.setItem(ll_rc, 'process_name', lds_temp.getItemString(ll_row, 'process_name'))
ldwc_temp.setItem(ll_rc, 'scc_code', lds_temp.getItemString(ll_row, 'scc_code'))
next
end if
next
//print the report
lds_report.print(false)
destroy lds_report
destroy lds_temp
return 1
end function
public subroutine of_setdefaultnames ();
//set the default array and colDAT* 4 umn names for SQL generation
//this function should be called when the source selector
//window is opened in order to reset any custom names
//assigned by client objects
//These correspond to datawindow retrieval argument names
//used in client SQL
is_nationArrayName = "al_nationArray"
is_stateArrayName = "al_stateArray"
is_countyArrayName = "al_countyArray"
is_sourceArrayName = "al_sourceArray"
is_sourceSub1ArrayName = "al_sourceSub1Array"
is_sourceSub2ArrayName = "al_sourceSub2DAT* 6 Array"
is_sourceSub3ArrayName = "al_sourceSub3Array"
is_sourceSub4ArrayName = "al_sourceSub4Array"
is_sicArrayName = "as_sicArray"
is_sccArrayName = "as_sccArray"
//These correspond to view column names
//used in client SQL
is_nationRidName = "nation_rid"
is_stateRidName = "state_rid"
is_countyRidName = "county_rid"
is_sourceRidName = "source_rid"
is_sourceSub1RidName = "source_sub1_rid"
is_sourceSub2RidName = "source_sub2_rid"
is_sourceSub3RidName = "source_sub3_rid"
is_sourceSubDAT* 8 4RidName = "source_sub4_rid"
is_sicCodeName = "sic_code"
is_sccCodeName = "scc_code"
end subroutine
event constructor;
//create the group data store
ids_groupData = create u_ds_base
if not isValid(ids_groupData) then
messageBox("Error", "Object creation failed: u_class_group_criteria::constructor()", exclamation!)
return
end if
ids_groupData.dataObject = 'd_ss_group_data'
ids_groupData.setTransObject(SQLCA)
//create the source criteria data store
ids_sourceCriteria = cDAT* : reate u_ds_base
if not isValid(ids_sourceCriteria) then
messageBox("Error", "Object creation failed: u_class_group_criteria::constructor()", exclamation!)
return
end if
ids_sourceCriteria.dataObject = 'd_ss_group_source_criteria'
ids_sourceCriteria.setTransObject(SQLCA)
//create the filter criteria data store
ids_filterCriteria = create u_ds_base
if not isValid(ids_filterCriteria) then
messageBox("Error", "Object creation failed: u_class_group_criteria::constructor()", exclamatiDAT* < on!)
return
end if
ids_filterCriteria.dataObject = 'd_ss_group_filter_criteria'
ids_filterCriteria.setTransObject(SQLCA)
//create the result set data store
ids_resultSet = create u_ds_base
if not isValid(ids_resultSet) then
messageBox("Error", "Object creation failed: u_class_group_criteria::constructor()", exclamation!)
return
end if
ids_resultSet.dataObject = 'd_ss_group_result_set'
ids_resultSet.setTransObject(SQLCA)
//set the object to the default state
this.of_reset(DAT* )
end event
event destructor;
if isValid(ids_groupData) then
destroy ids_groupData
end if
if isValid(ids_sourceCriteria) then
destroy ids_sourceCriteria
end if
if isValid(ids_filterCriteria) then
destroy ids_filterCriteria
end if
if isValid(ids_resultSet) then
destroy ids_filterCriteria
end if
end event
on u_class_source_group.create
TriggerEvent( this, "constructor" )
end on
on u_class_source_group.destroy
TriggerEvent( this, "destructor" )
end on
DAT* @ or message dragobject w_test_client w_source_selector h 2 u_class_ss_client
d +ue_groupupdated of_setcounts of_hasdata +constructor +destructor +create +destroy +clicked I B L Q
x _initsrc userobject u_class_ss_client userobjects windowobject borderstyle structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo poweDAT* B robject commandbutton cb_debug fontcharset fontpitch fontfamily picturebutton pb_print alignment vtextalign statictext st_data_level fillpattern st_4 st_result_count st_3 st_filter_count st_source_count st_2 st_1 cb_source_selector u_class_source_group message dragobject w_test_client w_source_selector 4 er ec@ ow it s So . as@ e em : re@ ed G @ S @ ] @ k @ w DAT* D @ @ @
@ @ utto e_@ font
nt@ h fo b_@ all s@ alig pa n dw st@ roup oi@ dyn ga@ tran ag@ ct m " , + @ 5 @ @ . @ ! K Y @ e ! j z < ount %
< DAT* F @ ev @ @ @ . @ ! " # 4 ( 1 ! - - . . DAT* H . . . . . . . ( ) 8 1 d of_setcounts 2
0 $ L $ ) ` 8 x $ $ ) 8 DAT* J $ $ ) 8 $ $ (@( 8 , $ 4 < $ (@( 8 T $ \ d $ (@( 8 l $ ) 8 } } / 8 0 / 8 0 / 8 0 / 8 0 / & 8 0 / J 8 0 8 0 8 DAT* L (@( 8 z '8 * z &: )@ @ 8 8 0 H $ P 6 1 4 h
D f r " 4 F J # $ d & li_level ls_levelname case16 <
X il_sourcecount - iclass_group , $ids_sourcecriteria 8
rowcount T il_filtercount h . , $ids_filtercrDAT* N iteria
T il_resultcount / , $ids_resultset
T st_source_count ( text - st_filter_count ' h . st_result_count D % / , $of_getdatalevel % t , $Nation , $State , $County , $Source w , $Device , $Process Error u_class_ss_client::of_setCounts(); invalid data level ' ' specified. st_data_level 7 # 0 L `
x DAT* P
, 4 < T \ d l
H P N $ 0 $ ) D 8 1 > 9 H 9 0 : > d L iclass_group t , $ids_resultset
rowcount ecr 8 0 D
j8 @ $ # d 8 H 0 8 N 0 : DAT* R )@ @ 8 1 ) 8 $ $ 9 } $ 9 } 1 * X d
v
d H iclass_group , $u_class_source_group $ , $Error Object creation failed: u_class_ss_client::constructor() of_setcounts 2 ib_debug $ 0 cb_debug ! visible ! 8 @
DAT* T T $ $ , : 1 H , ( $ d ::message @%0 iclass_group , $ , $ (
* 0 * 8 P * X h * p * * * * * * 4 * <DAT* V L T $ \ $ d $ l $ t $ | $ $ $ $ $ $
| , B X n
d cb_debug ! pb_print $ " $ st_data_level @ # @ st_4 ` $ ` st_result_count x % x st_3 & st_filter_count ' st_source_count ( st_2 ) DAT* X ! ! st_1 eti * " " cb_source_selector + # # control D c@ ! $ " @ # ` $ x % & ' ( ) ! * " + # 0 8 P X h p 4 < L T \ d l t | $ ( $ @ $ P DAT* Z $ h $ x $ $ $ $ $ $ * 8 F T b
p ~ d X cb_debug ! pb_print b_p " st_data_level 0 # st_4 H $ st_result_count X % st_3 p & st_filter_count ' st_source_count ( st_2 ) !st_1 z * "cb_source_selector + # ( @ P h x DAT* \ " # 1 2 3 L " # 2 [ +ue_groupupdated of_setcounts of_hasdata +constructor +destructor +create +destroy & 1 > J R 2 width height backcolor picturemaskcolor tabtextcolor tabbackcolor cb_debug pb_print st_data_level st_4 st_result_count st_3 st_filter_count st_source_count st_2 st_1 cb_sourceDAT* ^ _selector iclass_group il_sourcecount il_filtercount il_resultcount ib_debug . 0 = J
S
\
j
o
!
"
# $ os dDAT* ` @ ]
o .
@ @ 1
@
!
"
# $ 1 2 DAT* b &
x 3 1 " L > # J R P @ 8 , 6 1 D , $ d w_test_client ::message ( @' @% " " 2 +clickeDAT* d d 2 i x y width height taborder visible text textsize weight facename fontcharset fontfamily fontpitch %
" * / 8 ? H T _ ]
%
DAT* f
@ [ " * $ ) 8 8 < d @ iclass_group , $of_runselectionreport / 8
" " 2 +clicked 2 g x y width height taborder picturename htextalign textsize weight facename fontfamily fontpitch DAT* "
" . 9 B I R ] ]
o
@
@
@ @
[ "DAT* ` $ 1 8 0 8 , $ (@( 8 z '8 4 z & 8 $ z &: )@ @ 8 @ $
d at_trans
H SQL Error Database Error:
, 8 @ 2 f_sqlcheck 2 DAT* b otify structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo powerobject transaction on@ ect s ture ( ie@ nvir 2 lf@ escr @ lm@ ge d L hi@ istv ` ee@ item l ni@ powe | an@ ion @ inE
f@ ta@a C_@ ecRi
@ 4 DAT* n 0 ) I L q r $ MA MA f_sqlcheck DELETE FROM rap_group_filter_criteria WHERE rap_group_filter_criteria.group_rid =0 Q R x # MA DELETE FROM rap_group_source_criteria WHERE rap_group_source_criteria.group_rid =0 Q R MA DELETE FROM rap_group_data WHERE rap_group_data.group_rid =0 ; < DAT* p D MA message @ h 0 X
x | 2 u_class_source_group
5 of_sortsources of_sortfilters of_sort ads_buffer of_modobjectsql adw_buffer as_sql of_getsql as_filtersql of_getfiltersql as_sourcesql ai_datasource of_getsourcesql of_runresultset of_modsqlstrinDAT* r g of_savegroup al_grouprid of_deletegroup as_groupname of_loadgroup of_reset of_getdatalevel of_getfilterlogic ai_datalevel of_setdatalevel of_groupmodified of_resetupdate ai_code of_resetfilter as_column aa_value of_finddata of_setbufferdatalevel of_sortresultset of_loadarrays of_runselectionreport of_setdefaultnames +constructor +destructor +create +destroy ` x I _r. IRCdatastore. I IRCdatawindow. @T IRS e IRSI $ T DAT* t . IRCdatastore.I iI IRCdatawindow.I IL IS : II B w LSA w Q L ( D T ` ( D P
x _initsrc nonvisualobject u_class_source_group structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitDAT* v em treeviewitem connectioninfo powerobject u_ds_base datastore datawindow pointer transaction extobject message @ ! 6 @ @ @ N @ Z @ n @ z @ @ @
@ @ z %
@@ @ @ @
@ F @ DAT* x @ 1 - %
J 8 8 z %8 z &8 ! z &8 % z &8 ! z &8 0 z &8 ! z &8 ; z &8 ! z &8 K z &8 ! z &8 [ z &8 ! z &8 k z &8 { z & $ ) 8 } 1 < 1 $ ) 8DAT* z } 1 < 41 1 4 d ls_sortstring li_rc (
nation_rid D, state_rid A, county_rid source_rid source_sub1_rid source_sub2_rid source_sub3_rid source_sub4_rid A ids_sourcecriteria ~
setsort ~
sort
8 8 z %8 z &8 % z & < $ ) L 8 } 1 DAT* | < v 1 T $ ) d 8 } 1 < 1 1 , R v d ls_sortstring li_rc (
l filter_name A, filter_value A ids_filtercriteria (
setsort D (
sort \ < L
T d
) 8 } 1 < < 1 ) 0 8 } 1 < x 1 DAT* ~ ) L 8 } 1 < 1 1 < T x d li_rc T of_sortsources of_sortfilters of_sortresultset - 8
0
L
* 1 ) 8 d ads_buffer
of_modobjectsql
* 1 ) 8 d DAT* adw_buffer
of_modobjectsql
t 1 ) 8 } 1 < d 8 0 1 1 < 8 0 1 ) 4 8 } 1 < 8 0 1 ^ 1 < , 8 < z %8 @ z & ^ 8 < z %8 D z & z &8 @ z & 1 * > P ` x DAT* (! ,$ ^ d / as_sql li_rc ls_sourcesql ls_filtersql P
"
J of_getsourcesql of_getfiltersql ! ( ) AND
4
J<
| ,
| @ 9 } T 9 } 8 0 p $ ) 8 1 1 ) 8 1 < 8 0 DAT* 8 0 1 P $ 8 ) 8 $ 8 ) 8 L 8 9 } $ 6 L 8 L ( 9 } H 0 $ 6 L 1 8 $ " 1 @ $ ! X $ 8 ` z % x $ z &8 z & $ z &8 z &DAT* L 1 . $ 8 ` z % $ z &8 z & L $ 8 z % 8 x 6 z % z & 1 $ " 1 $ ! & $ 8 ` z % $ z &8 z & $ z &8 z & 1 r $ 8 ` z % $ z &8 z & $ 8 z % 8 6 z % zDAT* f & 8 4 8 z %8 z & 6 1 D1 ! " # 0 $ D % X ( j ) * . / 0 1 5 7 8 J: v; > ? @ A B C E H I J K L M (O HR LW PZ n[ \ ] ^ *_ .c Ld de tf xk n o p "q 6r ns rw x y z 0 4 d as_filtersql ls_sql ls_term ls_filtername ls_filtervalue ls_logic ll_siccount ll_scccount ll_rowcount ll_row ls_empty DAT* p@ OFb?NA 0 p@p@ p@! @@& \@\@1 [@[@= c@c@J U@U@[ `@`@e j@j@s k@k@ l@l@ m@m@ @@ @@ @@ @@ ^@^@ @@ @@# @@- @@8 @ @B @@aN @@aZ @@ h @@ l g@g@ w R@R@ X@X@ @ $@$@ @@ n@n@ @@
@@` LL l a@p o@ F@F@! d@DAT* d@a+ q@q@q7 = = v@v@= z >
@@
8 @@ w_source_selector window menu windowtype windowstate windowobject toolbaralignment structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo powerobject
statictext fontcharset fontpitch fontfamily alignment fillpattern borderstyle commandbutton tab userobject tabposition DAT*
p userobjects
u_tv_selection_tree grsorttype Arial NotFound!
p^ tvNselct.bmp tvPselct.bmp tvFselct.bmp
Q @ M Z ^
p^
^
p^
Q @ DAT* M Z ^
p^
^
p^
Q @ M Z ^
p^
^ checkbox datawindow dwobject groupbox
p^
^ Source SelectoDAT* r None! i
p^ d_ss_hierarchy_to_county d_ss_sources_at_county d_ss_devices_at_source d_ss_processes_at_device d_ss_sic_at_selection d_ss_sic_at_selection_sub_source d_ss_scc_at_selection d_ss_source_from_buffer d_ss_sic_from_buffer d_ss_scc_from_buffer d_ss_tv_result_set u_class_source_group Unknown Group u_ds_base
K MS Sans Serif Right Click to Select/Deselect Items &Print OK 8
SourDAT* ce Selection
Y tvNation.bmp tvState.bmp tvCounty.bmp tvSource.bmp tvDevice.bmp tvProces.bmp
`
ȹ @ M Z 8
` SIC Codes
8 Refresh tvCFold.bmp tvOFold.bmp DAT*
P H T
P @ M Z
P H T SCC Codes
P H T
P @ M Z _
P H T Group Data
DAT* _ Notify at Startup for Sources in RECALCULATE Group Automatically Add Sources to RECALCULATE Group &Save &Delete &New d_ss_group_data RECALCULATE Group Options pointer dragobject transaction sqlca message SELECT rap_sic_codes.name FROM rap_sic_codes WHERE rap_sic_codes.code =' ' G J E MA MA treeview gs_inifile update rap_db_prefs SET auto_add_to_recalc =1 DAT* WHERE rid =0
NA update rap_db_prefs SET auto_add_to_recalc =- 1 WHERE rid =0
NA f_sqlcheck SELECT auto_add_to_recalc FROM rap_db_prefs WHERE rid =0 8 NA T NA dwbuffer h P 8 DAT* x @ @ | L `
D
l
P
\
T
2 w_source_selector
P of_processselections ab_refresh of_enablerefresh of_processgroup ai_mode +ue_load ads_buffer +c ds as_sicarray ds al_rowarray al_segsDAT* tart al_segend ai_curpos al_grouphandle atvi_item atvi_groupitem +ue_insertgroup +clicked ds as_sccarray ds ds ai_parse +ue_init as_groupname +ue_reload +ue_updated +ue_refreshlist +ue_validate +ue_checksaveprompt +create +destroy +open +close +closequery index oldindex newindex +selectionchanged +ue_processselections handle +itempopulate +ue_selectionchanged +ue_processallselections
+itemexpanded +itemcollapsed
DAT* +constructor row dwo data +itemchanged sqldbcode sqlerrtext sqlsyntax buffer +dberror +losefocus currentrow +rowfocuschanged h @ L x I QB tI II Z :t h LXCu_ds_base.XS[]XL[]LLILRCtreeviewitem.RCtreeviewitem. I LI L Z : , DAT* LXCu_ds_base.XS[]XL[]XI[]LLILRCtreeviewitem.RCtreeviewitem. I Q > IS LII LL 6 LLCdwobject.S @ LLSSCdwbuffer.L ,
DAT* T
x _initsrc window w_source_selector menu windowtype windowstate windowobject toolbaralignment structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo powerobject statictext st_click_help fontcharset fontpitch fontfamily alignment fillpattern borderstyle commandbutton cb_print cb_ok tab tab_control userobject tabposition tabpage_source userobjects u_tv_selection_tree tv_sourcDAT* e grsorttype u_tv_selection_tree`ostruct_tvi_data tabpage_sic cb_sic_refresh tv_sic tabpage_scc cb_scc_refresh tv_scc tabpage_group checkbox cbx_notify cbx_auto cb_save cb_delete cb_new datawindow dw_group dwobject groupbox gb_1 u_class_source_group u_ds_base pointer dragobject transaction message treeview dwbuffer @ * @ / @ : @ F @ S @ d @ DAT* n @ | @
@ @ tupd et@ er o
o@ tbuf el@ sort of@ darr se@ ionr et@ ultn _s nce +@ truc uc@ +cre oy@ sult ' da@ s y 1 @ 8 = d@ le! I @ W ` e ! f @ j < v na@ s_so ra@ e is 4a nameDAT* ay@ is_ me@ nati @ ed
1 8 @ $
3 1 : 8 0 H z @ Q z )@ \ e 8 m 0
w z & ~ @ ! 8 @ z K " @ $ 8 @ S % @ DAT* & < @ ' @ ( @ * @ , @ / @ ! $ &# ' ( ) * + , - / 0 1 2 3 5 8 DAT* z Z 9 * . - - G 4 ) % 1 & " ! #! l I # 7 1 1 & # ! ' - #' m I $ 7 1 1 & # ! * - #* m I $ 7 1 1 & ( ! .- - .- - DAT* - - - - - - 4-
y+
7- % f
$ ) 4 8 1 p 8 < 0 8 B 0 : )@ @ 8 1 | $ ) 8 1 8 < 0 8 0 : )@ @ 8 1 $ ) 8 1 P8 < 0 8 DAT* 0 : )@ @ 8 1 1
" 2
` p @ P d ll_rc 0 itv_source / #ue_processselections ^ Error Error processing source or geographic selections. itv_sic t 0 #ue_processallselections ` Error processing SIC selections. itv_scc sql 1 #` 4
|
j $ ( $ @ $ P DAT* } X $ l $ $ } 2 d ab_refresh @ tab_control - tabpage_sic & 'cb_sic_refresh o0 ! (enabled H - tabpage_scc ` ' *cb_scc_refresh t ! +H ( @ P X l : F@@ 8 $ , $ @ $ 1 ) P 8 < 1 8 X 0 8 ^ 0 : )@ @ 8DAT* @ 8 1 $ $ $ 1 ) 8 1 f8 X 0 8 0 : )@ @ 8 @ 8 1 $ $ $ 4 $ 1 ) < 8 < 1 8 X 0 8 D 0 : )@ @ 8 @ 8 1 $ $ ) 8 1 X 9 ) 8 n 9 ) 8 1
DAT* ^ n @ V f $ % >& T' X* n d ll_rc tab_control - tabpage_source % !tv_source o4 ! $ue_load k H Error w_source_selector::of_processGroup(); error loading tv_source. - tabpage_sic & 'tv_sic " )l H w_source_selector::of_processGroup(); error loading tv_sic. - tabpage_scc ' *tv_scc , " ,l H w_source_selector::of_processGroup(); error loDAT* ading tv_scc. iclass_group 3 9ids_sourcecriteria
rowcount of_enablerefresh x x , @ P
$ 4 <
* 4 * < L * T h * p $ $ $ $
| , B X d h st_click_helDAT* p * cb_print $ ( + ( cb_ok ) D , D tab_control \ - \ control x c@ * ( + D , \ - 4 < L T h p > $ , $ < $ P $ * d X st_click_help * cb_print b_p + cb_ok 4 , tab_control D - , < P % : F@DAT* @ 8 0 D $ \ $ p $ $ $ $ $ $ $ $ $ 0 $ L j` h $ # f8 p 0 8 v 0 : )@ @ 8 @ 8 1 $ 8 0 $ , ) ) 8 , + $ , + $ ) 0 8 8 8 \ , + dDAT* $ | 9 } v8 p 0 8 8 z %: )@ @ 8 @ 8 1 $ ) 8 $ j $ $ # 8 p 0 8 , 0 : )@ @ 8 @ 8 1 t 9 } ) 8 < 1 8 p 0 8 8 z %: )@ @ 8 @ 8 1 $ $ $ ) 8 $ ( $ 0 DAT* $ ) H 8 1
, \ D Z f " # $ % & ( T) j/ v1 4 5 6 7 8 : A $B @C PE F K N Q d % ll_rc ls_dummy sqlca message P
) @= + @>P h iw_source_selector . itv_source $ / #tab_control 8 - tabpage_source L % !tv_source d ! $itv_sic x 0 #8 - tabpage_sic & 'tv_sic DAT* " )itv_scc 1 #8 - tabpage_scc ' *tv_scc " ,idw_group 2 48 - tabpage_group ( -dw_group $ & 5ids_geographicbase
8 7 :u_ds_base T : 8 7 :Error w_source_selector::open(); ids_geograhicBase object creation failed. _8 7 :dataobject d_ss_hierarchy_to_county 8 7 :settransobject ^@ ^@classname $ u_class_source_group iclass_group M 3 9 ^@ib_localgroup l 4 w_source_selector::open(); incorrDAT* ect object type received. Object of type u_class_source_group required. wM 3 9of_setdefaultnames 0 M 3 98 9 M 3 9w_source_selector::open(); u_class_source_group object creation failed. l 4 of_processgroup y | w_source_selector::open(); error initializing treeviews with existing data. M 3 9ids_groupdata ar
2 4sharedata 8 - ( -$ & 5ue_refreshlist n 8 0 D \ p DAT* 0 L ` h
0
\ d |
$ t
( 0 H
$ $ $ < $ T $ ! N \ $ , + h 1 v , + d $ N d ::message + @>l 0 DAT* ids_geographicbase 7 : 7 :ib_localgroup b_, 4 iclass_group ge_D 3 9D 3 9 $ < T \ d $ 1 8 ) 8 8 # 8 @ ! P $ " d $ | $ $ ) 8 < 1 1 1 , + 1 , + $ .
Z d ls_name ll_rc ::message <
DAT* + @> @ idw_group ph 2 4group_name getitemstring rou ' ib_localgroup pA 4 tab_control X - tabpage_group l ( -dw_group chi & 5ue_checksaveprompt m 8
P d |
& w x y F G & 2 h of_processselections of_enablerefresh of_processgroup +create +destroy +open +close +closequery DAT*
. > F O U \ 2 ] x y width height titlebar title controlmenu windowtype backcolor icon st_click_help cb_print cb_ok tab_control ii_nationlevel ii_statelevel ii_countylevel ii_sourcelevel ii_sourcesub1level ii_sourcesub2level ii_sourcesub3level ii_sourcesub4level ii_devicelevel ii_processlevel is_geographicdata is_sourcedata is_devicedata is_processdata is_siDAT* cdata is_sicdatasubsource is_sccdata is_sourcebufferdata is_sicbufferdata is_sccbufferdata is_tvresultsetdata iw_source_selector itv_source itv_sic itv_scc idw_group iclass_group ib_localgroup is_nullcode is_groupcode ids_geographicbase ib_groupmodified i
|
" h @ ( 4 ? I x N
\
DAT* e
k
w m gs ce se
d ck / s_ = se K gs Z g e v y ? il U wi m tw sy h_ # H DAT* # # 4 9 $ , 9 : , L ]
o i |
h
1 x
@ @ @ DAT*
# # # 4 9 : w ( x 9 x y & F G DAT* 2 2 y x y width height textsize weight fontcharset fontpitch fontfamily facename backcolor enabled text focusrectangle
P " @ ) 5 ? J S ] e j ]
o P DAT*
@ ` : F@@ 8 $ ) < 8 T $ ) t 8 < 6 d | iw_source_selector . of_processselections w $ iclass_group $ D 3 9of_runselectionreport / \ <
T DAT* t
" " 2 +clicked 2 a x y width height taborder textsize weight fontcharset fontpitch fontfamily facename text [
` " + 2 > H S \ 3 ]
o [ `
DAT*
@ 3 " X
$ # 0: F@@ 8 4 $ ) T 8 l $ ) 8 < 1 8 0 8 0 : )@ @ 8 1 0 1 0 8 0 8 0 : )@: @1 @ 8 < 1 01 @ 8 DAT* 1 , H n ~ $ 0 F d ll_rc ls_name (
( ib_localgroup 4 iw_source_selector . of_processselections w < iclass_group \ 3 9of_runresultset t Error cb_ok::clicked(); error creating result set. Confirm Close No result set has been generated. Close anyway? 4 T
l
" " 2 +clicked DAT* 2 i x y width height taborder textsize weight fontcharset fontpitch fontfamily facename text default n
` " + 2 > H S \ : a ]
o n `
DAT*
@ : " * 4 * < P * X p * x $ $ $ $
| , B X d h tabpage_source % ! ! tabpage_sic ( & '( ' tabpage_scc D ' *D * tabpage_group ` ( -` - cDAT* 8 ontrol g@ % !( & 'D ' *` ( - 4 < P X p x > $ , $ @ $ X $ * d ` tabpage_source % !tabpage_sic & 'tabpage_scc 4 ' *tabpage_group *H ( - , @ X " } 1 < h $ , $ ) @ 8 X $ h 9 } DAT* p@ )b?NA ( p@p@ p@q @@a" \@\@- [@[@9 c@c@F U@U@W `@`@a j@j@o k@k@{ l@l@ m@m@ @@ @@ @@ @@ ^@^@a n@n@` @@ @@( @@3 @@? @@I @@T @ @^ @@j @@ x 0 g@ X@X@ a@ 7 d@d@B v@v@B ot6 dJ q@q@QV g(7 e\ O@O@qo N@N@~ @@ o@DAT* ( w_test_client window menu windowtype windowstate windowobject toolbaralignment structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treeviewitem connectioninfo powerobject
| datawindow borderstyle dwobject statictext fontcharset fontpitch fontfamily alignment fillpattern commandbutton u_class_ss_client userobjects u_class_source_group
0 Source Selector Test CDAT* lient Window i
4>
4> d_ss_group_data Result Set: Arial Filter Criteria: Source Criteria: d_ss_group_result_set Sample Report d_ss_tv_result_set d_ss_group_filter_criteria View SQL and Arrays
T1 d_ss_group_source_criteria dragobject message transaction sqlca sqlpreviewfunction sqlpreviewtype dwbuffer u_ds_base 2 w_test_client DAT*
w +create +destroy +open +clicked +constructor request sqltype sqlsyntax buffer row +sqlpreview +ue_groupupdated | Q L 5 8 = 9 E O : V LCsqlpreviewfunction.Csqlpreviewtype.SCdwbuffer.L I
x y _initsrc window w_test_client menu windowtype windowstate windowobject toolbaralignment structure mailrecipient environment mailfiledescription mailmessage datawindowchild listviewitem treevDAT* iewitem connectioninfo powerobject datawindow dw_group borderstyle dwobject statictext st_3 fontcharset fontpitch fontfamily alignment fillpattern st_2 st_1 dw_result commandbutton cb_report dw_report dw_filter cb_1 u_class_ss_client uo_ss_client userobjects u_class_ss_client`cb_debug u_class_ss_client`pb_print u_class_ss_client`st_data_level u_class_ss_client`st_4 u_class_ss_client`st_result_count u_class_ss_client`st_3 u_class_ss_client`st_filter_count u_class_ss_client`st_source_count u_class_sDAT* s_client`st_2 u_class_ss_client`st_1 u_class_ss_client`cb_source_selector u_class_source_group dw_source dragobject message transaction sqlpreviewfunction sqlpreviewtype dwbuffer u_ds_base nt e_@ _r sh o & ab@ H + @ age_ 6 *@ cc_r B @ H O s @ ` es@ SIC j s.@ tion x sa@
@ @ 0@
@ DAT* @ 3 @ 8@ @ @ @ @ s y " @ 8 . up@ as! 8 @ C @ M eo@ ! Y ^ < c ntwi m se@ getw { ct w_sy w ash_ h
H @ @ DAT*
$ 6 , X o L E ri@ cord % @ 0 0@ n
K 8 " @ D $ @ W % Re@ S f & @ o ' < @ DAT* ! " # $ & (% )% *% + % , % - % . % / % 0!% 1"% 2#% 4 w W 5 * y% . . . y% -DAT* y% y% - % 4 ( 1 ! y%
* , * 4 D * L \ * d x * * * * * * * ( 8 @ $ H $ P $ X $ `DAT* $ h $ p $ x $ $ $ $
| , B X n
d dw_group * st_3 $ + $ st_2 < , < st_1 T - T dw_result l . l cb_report / ! ! dw_report 0 " " dw_filter @ 1 # # cb_1 rob 2 $ $ uo_ss_client @ 3 & & dw_source ! 4 4 4 control 0 c@ *DAT* $ + < , T - l . / ! 0 " 1 # 2 $ 3 & 4 4 , 4 D L \ d x ( 8 @ H P X ` h p x $ $ $ 4 $ D $ X $ l $ $ $ $ $ DAT* $ * 8 F T b
p ~ d X dw_group * st_3 + st_2 , , st_1 < - dw_result _1L . cb_report ` / !dw_report t 0 "dw_filter 1 #cb_1 2 $uo_ss_client 3 &dw_source 4 4 $ 4 D X l $ 0 $ H $ \ $ ) p 8 x $ $ $ DAT* $ ) 8 $ $ $ $ ) 8 , ! 1 , ! $ < x d ::message ! @6 uo_ss_client 3 &iclass_group t_2 , $ids_groupdata 8
dw_group P * sharedata d 3 & , $ids_filtercriteria
dw_filter _s 1 # d 3 & , $ids_sourcecriteria
dw_source 4 4 d 0 HDAT* \ p
x
& & 2 +create +destroy +open < 2 x y width height titlebar title backcolor controlmenu minbox maxbox resizable windowstate dw_group st_3 st_2 st_1 dw_result cb_report dw_report dw_filter cb_1 uo_ss_client dw_source
e
DAT* " ( 2 > E L V b
k
p
u
z
!
"
# }
$ d@
&
4 ]
o e
DAT* 1
@ @ @
!
"
#
$
&
4
x & 2 2 DAT*
L x y width height taborder enabled dataobject borderstyle livescroll
" * H 5 A ]
o
H @
2 DAT* 2 m x y width height enabled text focusrectangle backcolor textsize weight facename fontfamily fontpitch
` ` ! X & 5 ? H O d X c ]
o ` `
DAT* @ d
X @ 2 2 m x y width height enabled text focusrectangle backcolor textsize weight facename fontfamily fontpitch I
` ` ! j & 5 ? H DAT* O d X c ]
o I ` `
@ d
j @ 2 2 m x y width height enabled text focusrectangle backcolor textsize weight facename fontfamily fontpitch I
`DAT* ` ! { & 5 ? H O d X c ]
o I ` `
@ d
{ @ 2 DAT*
2 Z x y width height taborder dataobject borderstyle hscrollbar vscrollbar livescroll
[ 2 " - 9 D O ]
o [ 2
@
@
DAT* b } ~ tin e :an_county_rid urp an_county_rid rid rap_sources.rid A null id rap_sources.id Q null name rap_sources.name [ null type rap_sources.type b null O PBSELECT( VERSION(400) TABLE(NAME="rap_sources" ) COLUMN(NAME="rap_sources.rid") COLUMN(NAME="rap_sources.id") COLUMN(NAME="rap_sDAT* 2ources.name") COLUMN(NAME="rap_sources.type")WHERE( EXP1 ="rap_sources.geographic_county_rid" OP ="=" EXP2 =" " ) ) ORDER(NAME="rap_sources.id" ASC=yes ) ARG(NAME = "an_county_rid" TYPE = number) C " no " yes DAT* rce_type,
v_rap_ss_scc.sic_code,
v_rap_ss_scc.scc_code
FROM
v_rap_ss_scc
WHERE 1 = 1
ORDER BY
v_rap_ss_scc.state_name ASC,
v_rap_ss_scc.county_name ASC,
v_rap_ss_scc.source_id ASC,
v_rap_ss_scc.scc_code ASC
" no " yes $ 1 DAT* _ss_scc.source_id" ASC=yes ) ORDER(NAME="v_rap_ss_scc.source_sub1_id" ASC=yes ) ORDER(NAME="v_rap_ss_scc.source_sub2_id" ASC=yes ) ARG(NAME = "al_nationArray" TYPE = numberlist) ARG(NAME = "al_stateArray" TYPE = numberlist) ARG(NAME = "al_countyArray" TYPE = numberlist) ARG(NAME = "al_sourceArray" TYPE = numberlist) ARG(NAME = "al_sourceSub1Array" TYPE = numberlist) ARG(NAME = "al_sourceSub2Array" TYPE = numberlist) DAT*
st) DAT* eSub3Array" TYPE = numberlist) ARG(NAME = "al_sourceSub4Array" TYPE = numberlist) ARG(NAME = "as_sicArray" TYPE = stringlist) ARG(NAME = "as_sccArray" TYPE = stringlist) DAT* - RG(NAME = "al_grouprid" TYPE = number) DAT* $ 2 2 x y width height enabled border borderstyle alignment focusrectangle backcolor textsize weight facename fontfamily fontpitch , %
n ` ! ( 4 > M W ` g p { DAT* & ]
o % n `
@
2 2 m x y width height enabled text focusrectangle backcolor textsize weight facename fontfamily fontpitch %
I @ DAT* ( ! & 5 ? H O X c ]
o % I @
@
@ 2 2 h x y width height enabled focusrecDAT* * tangle backcolor textsize weight facename fontfamily fontpitch
@ @ ! 0 : C J S ^ ]
o @ @
@
DAT* , @ 2 2 m x y width height enabled text focusrectangle backcolor textsize weight facename fontfamily fontpitch
@ @ ! & 5 ? H O X c ]
o DAT* . @ @
@
@ 2 2 h x y width height enabled focusrectangle backcolor textsize weight facename fontfamily fontpitch
@ ! 0 DAT* 0 : C J S ^ ]
o @
@
@ 2 2 h x y width height enabled focusrectangle backcolor textsize weight facename fontfamily fontDAT* R pitch
@ ! 0 : C J S ^ ]
o @
@
@ DAT* 4 Source Selector client object classforward
global type u_class_ss_client from UserObject
end type
type cb_debug from commandbutton within u_class_ss_client
end type
type pb_print from picturebutton within u_class_ss_client
end type
type st_data_level from statictext within u_class_ss_client
end type
type st_4 from statictext within u_class_ss_client
end type
type st_result_count from statictext within u_class_ss_client
end type
type st_3 from statictext within u_class_ss_client
end tDAT* 6 ype
type st_filter_count from statictext within u_class_ss_client
end type
type st_source_count from statictext within u_class_ss_client
end type
type st_2 from statictext within u_class_ss_client
end type
type st_1 from statictext within u_class_ss_client
end type
type cb_source_selector from commandbutton within u_class_ss_client
end type
end forward
global type u_class_ss_client from UserObject
int Width=1070
int Height=424
long BackColor=79741120
long PictureMaskColor=5368709DAT* 8 12
long TabTextColor=33554432
long TabBackColor=16777215
event type integer ue_groupupdated ( )
cb_debug cb_debug
pb_print pb_print
st_data_level st_data_level
st_4 st_4
st_result_count st_result_count
st_3 st_3
st_filter_count st_filter_count
st_source_count st_source_count
st_2 st_2
st_1 st_1
cb_source_selector cb_source_selector
end type
global u_class_ss_client u_class_ss_client
type variables
//Source Group Object
u_class_source_group iclass_group
long il_sourceCount =DAT* : 0
long il_filterCount = 0
long il_resultCount = 0
//debug flag controls visibility of Debug button
boolean ib_debug = false
end variables
forward prototypes
public function integer of_setcounts ()
public function boolean of_hasdata ()
end prototypes
event ue_groupupdated;
this.of_setCounts()
return 1
end event
public function integer of_setcounts ();
integer li_level
string ls_levelName
il_sourceCount = iclass_group.ids_sourceCriteria.rowCount()
il_filterCountDAT* < = iclass_group.ids_filterCriteria.rowCount()
il_resultCount = iclass_group.ids_resultSet.rowCount()
st_source_count.text = string(il_sourceCount)
st_filter_count.text = string(il_filterCount)
st_result_count.text = string(il_resultCount)
li_level = iclass_group.of_getDataLevel()
choose case li_level
case iclass_group.ii_nationLevel
ls_levelName = "Nation"
case iclass_group.ii_stateLevel
ls_levelName = "State"
case iclass_group.ii_countyLevel
ls_levelName = "County"
caseDAT* > iclass_group.ii_sourceLevel
ls_levelName = "Source"
case iclass_group.ii_sourceSub1Level
ls_levelName = "Device"
case iclass_group.ii_sourceSub2Level
ls_levelName = "Process"
case else
messageBox("Error", "u_class_ss_client::of_setCounts(); invalid data level '" +&
string(li_level) + "' specified.", exclamation!)
ls_levelName = "Error"
end choose
st_data_level.text = ls_levelName
return 1
end function
public function boolean of_hasdata ();
if iclass_group.idsDAT* @ _resultSet.rowCount() > 0 then
return true
else
return false
end if
end function
event constructor;
iclass_group = create u_class_source_group
if not isValid(iclass_group) then
messageBox("Error", "Object creation failed: u_class_ss_client::constructor()", exclamation!)
return -1
end if
this.of_setCounts()
if ib_debug then
cb_debug.visible = true
else
cb_debug.visible = false
end if
return 1
end event
event destructor;
if isValid(iclass_group) then
destroyDAT* B iclass_group
end if
end event
on u_class_ss_client.create
this.cb_debug=create cb_debug
this.pb_print=create pb_print
this.st_data_level=create st_data_level
this.st_4=create st_4
this.st_result_count=create st_result_count
this.st_3=create st_3
this.st_filter_count=create st_filter_count
this.st_source_count=create st_source_count
this.st_2=create st_2
this.st_1=create st_1
this.cb_source_selector=create cb_source_selector
this.Control[]={this.cb_debug,&
this.pb_print,&
this.sDAT* D t_data_level,&
this.st_4,&
this.st_result_count,&
this.st_3,&
this.st_filter_count,&
this.st_source_count,&
this.st_2,&
this.st_1,&
this.cb_source_selector}
end on
on u_class_ss_client.destroy
destroy(this.cb_debug)
destroy(this.pb_print)
destroy(this.st_data_level)
destroy(this.st_4)
destroy(this.st_result_count)
destroy(this.st_3)
destroy(this.st_filter_count)
destroy(this.st_source_count)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.cb_source_selector)
end on
tyDAT* F pe cb_debug from commandbutton within u_class_ss_client
int X=37
int Y=32
int Width=183
int Height=128
int TabOrder=30
boolean Visible=false
string Text="Debug"
int TextSize=-8
int Weight=400
string FaceName="MS Sans Serif"
FontCharSet FontCharSet=Ansi!
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
event clicked;open(w_test_client)
end event
type pb_print from picturebutton within u_class_ss_client
int X=896
int Y=32
int Width=146
int Height=128
int DAT* H TabOrder=20
string PictureName="sgprint.bmp"
Alignment HTextAlign=Left!
int TextSize=-10
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
event clicked;
return iclass_group.of_runSelectionReport()
end event
type st_data_level from statictext within u_class_ss_client
int X=37
int Y=256
int Width=366
int Height=96
boolean Enabled=false
boolean Border=true
BorderStyle BorderStyle=StyleLowered!
Alignment Alignment=CentDAT* J er!
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-9
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
type st_4 from statictext within u_class_ss_client
int X=37
int Y=192
int Width=329
int Height=64
boolean Enabled=false
string Text="Data Level:"
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-8
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPDAT* L itch=Variable!
end type
type st_result_count from statictext within u_class_ss_client
int X=914
int Y=320
int Width=146
int Height=64
boolean Enabled=false
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-8
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
type st_3 from statictext within u_class_ss_client
int X=475
int Y=320
int Width=439
int Height=64
boolean Enabled=false
string Text="Result SetDAT* N :"
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-8
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
type st_filter_count from statictext within u_class_ss_client
int X=914
int Y=256
int Width=146
int Height=64
boolean Enabled=false
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-8
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
DAT* P end type
type st_source_count from statictext within u_class_ss_client
int X=914
int Y=192
int Width=146
int Height=64
boolean Enabled=false
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-8
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
type st_2 from statictext within u_class_ss_client
int X=475
int Y=256
int Width=439
int Height=64
boolean Enabled=false
string Text="Filter Criteria:"
booleanDAT* \ FocusRectangle=false
long BackColor=79741120
int TextSize=-8
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
type st_1 from statictext within u_class_ss_client
int X=475
int Y=192
int Width=439
int Height=64
boolean Enabled=false
string Text="Source Criteria:"
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-8
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=VDAT* T 2 2 m x y width height enabled text focusrectangle backcolor textsize weight facename fontfamily fontpitch
@ ! & 5 ? H O X c ]
o @
DAT* V @
@ 2 2 m x y width height enabled text focusrectangle backcolor textsize weight facename fontfamily fontpitch
@ ! &
5 ? DAT* X H O X c ]
o @
@
@
t $ @ 8 } ) 0 8 , Z 1 h , 8 $
. @ d * li_rc w_DAT* Z source_selector ::message < @( @%@ iclass_group , $ue_groupupdated 1 0
8 " #- # " 2 " +ue_groupupdated +clicked ( 2 U x y width height taborder text textsize weight facename fontfamily fontpitch %
I
" DAT* 0 ' 0 7 @ K ]
o % I
@
@ 0 - [ " DAT* ^ ariable!
end type
type cb_source_selector from commandbutton within u_class_ss_client
event type integer ue_groupupdated ( )
int X=37
int Y=32
int Width=841
int Height=128
int TabOrder=10
string Text="&Source Selector"
int TextSize=-10
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
event clicked;
integer li_rc
//open source selector with reference to the source group object
li_rc = openWithParm(w_source_selectDAT* V or, iclass_group)
parent.event trigger ue_groupUpdated()
end event
DAT* DAT* d , 8 , 8 1 P 1 1 d 8 0 8 0 : )@ @ 8 1 , , 8 1 1 1 "8 - 0 8 : 8 h z %: )@ @ 8 1
0 @ L ` ! % " d ll_rc ll_grouprid sqlca < @ Error No daDAT* /ta found in rap_db_prefs. Saved Groups The RECALCULATE Group contains Sources which may need to be recalculated. 2 # f_recalc_notify f_sqlcheck < 2 DAT* h
$
2
A
J V b n u - is_sicarray
is_sccarray ib_nullsic 4 ib_nullscc H ids_filtercriteria \
rowcount x of_getfilterlogic de& OR AND r\
filter_name getitemstring h@ \
filter_value DAT* j sic_code 1 4
scc_code H 4 4 is_siccodename H # IN ( : is_sicarrayname h ) OR H # IS NULL H # h ) H # H H is_scccodename $ is_sccarrayname $ $ $ ( ) , @ T p
( 0 8 @ X x DAT* l u 1 < , $ @ 4 $ # 8 < 0 8 B 0 : )@ @ 8 1 | | | | | | 8 | T | ) h 8 1 8 0 1 1 DAT* n 8 p J 8 8 J 8 R $ 8 J 8
$
8 J 8
$ 8 J 8 f $ 8 J 8 $ DAT* p
8 ( J8 8
@ $ 8 H JX 8 ~ ` $
h $ 1 : $ 8 z % $ z &8 z & 8 6 : 8 z % z &
1 $ 8 z % $ z &8 z & 8 6 8DAT* r z % z & 1 ^ $ 8 z % $ z &8 z & 8 @ 6 ^ 8 z % z & 1 < $ 8 z % X $ z &8 z & 8 6 8 z % z & 1 x $ 8 z % $ z &8 z & 8 d 6 8 z % z & 1 $ 8 z % DAT* t $ z &8 z & 8 6 8 z % z & 1 $ 8 z % $ z &8 z & 8 6 8 z % z & 1 8 8 $ 8 z % X $ z &8 z & 8 6 8 8 z % z & 8 8 ` z %8 c z & 6 1 8 0 DAT* v 1 , - . ( / , 1 @ 2 L 3 z 7 8 9 : ; < = > 2A JB dC tD I K L M P Q R (S 2T NW RX zY Z [ ^ _ ` a b e
f 2g <h Fi bl fm n o p s t u v w z { F| P} Z~ v z ~ : J , < @ ^ n 8 P ` d $ \ t 8 P p d c DAT* x as_sourcesql ai_datasource ls_sql ls_term ll_nationrid ll_staterid ll_countyrid ll_sourcerid ll_sourcesub1rid ll_sourcesub2rid ll_sourcesub3rid ll_sourcesub4rid ll_nationcount ll_statecount ll_countycount ll_sourcecount ll_sourcesub1count ll_sourcesub2count ll_sourcesub3count ll_sourcesub4count ll_rowcount ll_row ll_empty lds_buffer L
# *
2 ? K DAT* z X e v
0 < L C - X
f X ids_resultset
ids_sourcecriteria
Error u_class_source_group::of_getSourceSql(); data buffer object is not valid. il_natDAT* | ionarray s il_statearray co il_countyarray a il_sourcearray il_sourcesub1array il_sourcesub2array t
il_sourcesub3array $ il_sourcesub4array @ rowcount \ nation_rid getitemnumber { state_rid { county_rid v { source_rid { source_sub1_rid { source_sub2_rid { source_sub3_rid {
source_sub4_rid { $ @ is_nationridname p DAT* ~ IN ( : is_nationarrayname ) OR is_stateridname sh is_statearrayname is_countyridname is_countyarrayname is_sourceridname ( is_sourcearrayname D is_sourcesub1ridname ` is_sourcesub1arrayname is_sourcesub2ridname is_sourcesub2arrayname is_sourcesub3ridname ! is_sourcesub3arrayname is_sourcesub4ridname " is_sourcesub4arrayname @ ( ) 4 DAT* 8 T h
8
@ X
` h < X x 8 X -
$ ) , 8 1 ) H 8 # ! n 1 ) ` 8 1 : F@@ 8 h $ ) 8 $ DAT* 8 0 $ , ) 8 $ ) 8 1 v8 0 8 8 P z %: )@ @ 8 1 ) d 8 1 $ ) 8 1 V $ $ ) 8 < 1 ) 8 1 F8 0 8 8 z %: )@ @ 8 1 1 $ ) $ 8 , 8 , 4 $ < 8 D 0 DAT* ` $ , ) h 8 p 1 ) 8 < 1 H 1 ) 8 1 1 8 0 8 8 P z %: )@ @ 8 1 ) 8 1 $ $ $ $ $ $ 8 $ T $ p $ $ $ )
8 1 1 DAT* ) 8 1 < 1 <8 0 8 0 : )@ @ 8 1 ) 8 1 1 ) 8 < 1 1 ) 8 1 1 ) 8 ) 0 8 1
: ^ n B f v ! " # % 6' F, V- r. / 3 7 8 9 4: D; X= > B N O P Q R S T ,X <Y bDAT* Z r[ ^ ` b d ) ll_rc ls_dummy sqlca gs_database P
@ @ 8 x ids_resultset
rowcount of_groupmodified ( 4 of_getsourcesql P
sharedataoff p p
dataobject d_ss_group_result_set
settransobject ids_sourcecriteria
Result Set No source/geographic criteria have been specified. Cannot retrieve rDAT* esult set data. P ids_filtercriteria l
sharedata da P Error u_class_source_group::of_runResultSet(); ids_sourceCriteria.shareData() failed.
reset ORACLE d
d_ss_group_result_set_ora
of_modobjectsql x P P
il_nationarray w il_statearray ur il_countyarray o il_sourcearray il_sourcesub1array a il_sourcesub2array e$
il_sourDAT* cesub3array a@ il_sourcesub4array d\ is_sicarray x
is_sccarray retrieve sub P No records found matching current criteria. P of_setbufferdatalevel , P P of_resetupdate ) ,
H
`
h
d
$
4 < ` h
p
DAT* 8 T p
0
- - 8 " 0 1 - 8 @ 9 8 1 8 0 8 8 N z %: )@ @ 8 1 - 1 R @ 8 - 1 1 R @ 8 } 1 < X 1 ) 8 } P1 < 1 DAT* ) 8 } P1 < ) 8 } P1 <
) 8 } P 1 } 8 0 8 8 z %: )@ @ 8 1 < n 8 - 8 ( z % z & - 8 ( z % z &8 * z & z & 1 0 \ l " % (
) * *+ T, l- . / 0 1 2
3 7 P9 n: ; < A d Q as_sql ai_dDAT* atasource ls_sqlwhere ls_sqlpatch ll_startwhere li_rc case40
)
5 C I 0 WHERE Error Cannot modify SQL. Original SQL has no WHERE clause.
Suggestion: add 'WHERE (1 = 1)' to original SQL. of_getsourcesql of_getfiltersql of_getsql Usage Function: u_class_source_group::of_modSQLString(). Invalid include code speciDAT* fied. AND
F - # 1 - $ 8 9 n, 8 g 8 4 9 n< 8 g 8 D 9 nL 8 ^ ) d 8 } 1 < - l $ 8 9 nt 8 g 8 4 9 n| 8 g 8 D ) 8 1 0 d . ads_buffer ai_datasource ls_sql li_rc P
DAT* !
( H @datawindow __get_attribute table select of_modsqlstring T @ __set_attribute ,
<
L
d
l t
|
F - # 1 - $ 8 9 n, 8 g 8 4 9 n< 8 g 8 D 9 nL 8 ^ ) d 8 } 1 < - l $ DAT* 8 9 nt 8 g 8 4 9 n| 8 g 8 D ) 8 1 0 d . adw_buffer ai_datasource ls_sql li_rc P
!
( H @datawindow __get_attribute table n select of_modsqlstring T @ __set_attribute ,
<
L
d
l t
|
DAT*
M $ ) , 8 1 n 8 4 0 8 E 8 m z %: )@ @ 8 1 $ ) 8 1 8 4 0 8 8 m z %: )@ @ 8 1 $ 1 8 J 8 1 b8 4 0 8 8 m z %: )@ @ 8 1 b b $ 1 8 4 0 8 8 m z %: )@ @ 8 1 0 $ DAT* 1 8 ) @ 8 < 1 b8 4 0 8 H 8 m z %: )@ @ 8 1 d $ 1 8 l ) 8 8 " 8 4 0 8 8 m z %: )@ @ 8 1 , , 8 1 x8 4 0 8 8 m z %: )@ @ 8 1 1 8 4 0 8 z %8 z &8 m z &: )@ @ 8 $ 1 DAT* 8 l 8 0 ) 8 1 ) 8 < 1 P1 $ ) 4 8 < $ 1 1 : @: @) T 8 \ $ 9 9 ) l 8 < 1 ,, 8 4 0 8 t 8 m z %: )@ @ 8 1 $ ) 8 1 d $ ) 8 P $ 1 : @: @) 8 $ 8 DAT* ) 8 < 1 L, 8 4 0 8 8 m z %: )@ @ 8 1 Z $ ) 8 < 1 , 8 4 0 8 8 m z %: )@ @ 8 1 T $ ) \ 8 1 d $ ) l 8 t $ 1 : @: @) | 8 $ 8 ) 8 < 1 , 8 4 0 8 8 m z %: DAT* )@ @ 8 1 $ ) 8 < 1 t, 8 4 0 8 8 m z %: )@ @ 8 1 , , 8 1 , 8 4 0 8 8 m z %: )@ @ 8 1 1 & Z j
N ^" l# $ & ( ) * , R2 b3 4 6 9 ; < = > ? 0A dB tC E F K L 0P PQ lR S T U W \ ,] H^ _ ` a DAT* b d <f Li Pj vk l n s t u ,v bw x y { } * 0 d t z d 4 ll_rc ll_row ll_grouprid ls_groupname sqlca d !
. @ 8 ids_groupdata
rowcount Save Group Error No group data record has been loaded. Save group failed. ids_sourcecriteria
No source criteria have been selected. DAT*
group_rid getitemnumber Error reading group RID. Error obtaining group RID.
setitem 8 Error setting group RID.
group_name getitemstring w Group name cannot be NULL or blank. Error validating group name. Group name ' ' is not unique.
8 of_deletegroup "
resetupdate (
setitemstatus 8 D
update d Error updating group data.
(
D
DAT* 8 Error setting group RID for source criteria record. d
d Error updating source criteria. ids_filtercriteria >
( >
>
D >
8 Error setting group RID for filter criteria record. >
d Error updating filter criteria. Error on commit. ,
0 @
d
4
< T
\ l
DAT*
T \
d l
t |
,
| , 8 1 | , 8 0 8 8 A z %: )@ @ 8 1 ,
, 8 1 , 8 0 8 ` 8 A z %: )@ @ 8 1 ,
, ! 8 1 t, 8 0 8 8 A z %: )@ @ 8 1 DAT* , , " 8 1 , 8 0 8 8 A z %: )@ @ 8 1 1 2 8 l | ! *" 0$ d( t) z* + - 0 d al_grouprid sqlca ( @ Delete Group Error Error deleting old filter criteria. No database updates were made. Error deleting old source criteria. Error deleting old group data. ErDAT* ror on commit.
$ 6 ) , 8 1 H 4 $ 1 8 < JT 8 p $ ) x 8 1 1 1 8 0 8 z %8 z &: )@ @ 8 1 $ ) 8 1 f1 $ ) 8 1
*
H z F f d ' DAT* as_groupname ll_rc ll_grouprid <
P ids_groupdata
retrieve
group_rid getitemnumber F ids_sourcecriteria \
Not Found No source criteria found for group ' '. ids_filtercriteria h@
ids_resultset
reset ,
4 T
p x
B $ ) ( 8 < 1 t 8 DAT* 0 0 8 6 0 : )@ @ 8 1 $ ) 8 < 1 8 0 0 8 0 : )@ @ 8 1 $ ) 8 < 1 \8 0 0 8 0 : )@ @ 8 1 8 $ 1 ) L 8 1 8 0 0 8 T 0 : )@ @ 8 1 $ 1 8 / ) 8 $ 1 8 1 ) 8 1 DAT* &
6 d t L \ $ % ' , d ll_rc ` ids_groupdata 6
reset Error u_class_source_group::of_reset(); group data reset failed. ids_sourcecriteria q
u_class_source_group::of_reset(); source criteria reset failed. ids_filtercriteria
u_class_source_group::of_reset(); filter criteria reset failed.
insertrow @ u_class_DAT* source_group::of_reset(); group data row insert failed.
data_level setitem
filter_logic < (
8 L
H $ 1 8 J< 8 ; e @e 8 d D ids_groupdata 6
data_level getitemnumber J + <
H $ 1 8 J< 8 ; e @e 8 DAT* d D ids_groupdata
filter_logic getitemnumber - <
6 $ 1 8 ) 4 8 d ai_datalevel < ids_groupdata
data_level setitem + 4
$ ) 0 8 1 } L $ ) T 8 1 } p $ ) x 8 1 } " " * T ~ d .DAT* lb_groupmod lb_sourcemod lb_filtermod < ! 0 ids_groupdata
modifiedcount ids_sourcecriteria 8
ids_filtercriteria \
0
L T
p x
j $ ) , 8 H $ ) P 8 l $ ) t 8 1 8 T d | 0 ids_groupdata
resetupdateDAT* ids_sourcecriteria r4
ids_filtercriteria X
,
H P
l t
1 < D 8 8 z %8 z &8 # z & p 8 8 z %8 % z &8 # z & D $ ) X 8 ` $ ) p 8 } 1 < 8 x 0 8 ~ 0 : )@ @ 8 1 $ ) 8 1 $ 1 : @) 8 } 1 DAT* < 8 x 0 8 0 : )@ @ 8 1 8 $ 8 @ ) D 8 L $ ) T 8 1 @ D p & 6! h" |# ' ( * d . ai_code ls_filterstring li_rc ll_rows P
& \ ` filter_name <> ' sic_code ' scc_code ids_filtercriteria ter.
setfilter L .
filter a h EDAT* rror u_class_source_group::of_resetFilter(); apply filter failed. .
filteredcount b .
rowsdiscard u_class_source_group::of_resetFilter(); discard rows failed. .
L .
a h D X
` p
8 D
L T
> o @ 9 8 8 L 1 } 8
v 1 } 8 0 8 o @ 9 8 z '8 R z &DAT* : )@ @ 8 1 6 8 o 1 } 8 y 8 1 } 8 b 1 } 8 1 } 8 1 } 8 1 } 8
1 } 8 4 1 } 8 ^ 1 } 8 1 } 8 1 DAT* } 8 1 } 8 1 } 8 0 1 } 8 % Z 1 } 8 1 1 } 8 0 8 > z %8 x z &: )@ @ 8 1 8 z %8 z & 1 < ^ 8 z %o ~ @~ 8 (@( 8 z (8 z & 8 z %o (@( 8 z (8 z & DAT*
} 1
< $ 1 $ ) 8 ) 8 1
< ` $ 1 $ ) 8 ) 8 1
< 4 $ 1 < $ ) D 8 ) L 8 8 0 8 T 8 z %: )@ @ 8 1
" 6 H ` r v
" 4 L ^ v! " # $ % & ' ( ) 0* H+ Z, r- . / 0DAT* 1 2 3 4 5 ,6 D7 V8 n9 : < @ A B C D E ZF ^K L M N O P \Q tR S U X d as_column aa_value ls_findstring ls_stringvalue ll_longvalue ll_rc li_searchbuffer li_datatype case13 case24 case75
)
8 E K [ g
o
w ` longDAT* string Error u_class_source_group::of_findData; invalid data type ' ' recieved for search value. group_rid group_name group_description data_level filter_logic nation_rid state_rid county_rid source_rid source_type source_sub1_rid source_sub2_rid source_sub3_rid source_sub4_rid filter_name filter_value u_class_source_group::of_findData; invalid column name ' ' specified for search. isNull( ) = = ' ' ids_groupdata 1
rowcount find 1 c ids_sourcecriteria DAT*
c ids_filtercriteria
c u_class_source_group::of_findData; invalid data source specified for search.
4 < D
L
*E 1 < h $ ) 4 8 < 1 d 1 P $ ) h 8 < 1 1 # 1 ) | 8 DAT* 1 1 2 1 21
) 8 } /
8 0 8 0 /
8 0 8 0 /
8 0 8 0 /
" 8 0 8 0 /
X 8 0 8 0 /
8 0 8 0 /
8 0 8 0 /
1 DAT* 1 1 1 ) 8 J 8 1 1 : @) 4 8 < 1 1 ) H 8 < 1 ,1 ) \ 8 < 1 j1 8 d ) 8 e @e 8 } }
8 (DAT* @( 8 z '8 z &
) 8
8
@ 8
6 ) 8 < 1 1 @ 8 ) 8 < 1 1 1 ( D d h ! | " $ ' ( ) * + "/ 20 J1 X2 j3 |4 5 6 7 8 9 : ; < = 0> B? T@ fA xB C D E F G H L M DAT* P <Q bT V W Y [ _ ` a ,b Jc jf i j m n ,o Hp vq r s t w { } d ai_code ll_rc ll_rid ll_row ll_prevrid ll_nullcolumnnumber li_column li_columncount ls_levelcolumn ls_nullcolumn ls_temp ll_temp lds_buffer case47 $ / C M \
k
y
DAT*
x ids_resultset ro
of_sortresultset f_f- ids_sourcecriteria <
of_sortsources X rowcount p of_getdatalevel % nation_rid state_rid county_rid source_rid source_sub1_rid source_sub2_rid source_sub3_rid source_sub4_rid p getitemnumber rowsdiscard ( setcolumn < getcolumn v P dataWindow.column.count describe ` | # .name ` | source_type setitemDAT* 4
P h
|
4
H
\
J 8 8 z %8 z &8 ! z &8 % z &8 ! z &8 0 z &8 ! z &8 ; z &8 ! z &8 K z &8 ! z &8 [ z &8 ! z &8 k z &8 { z & $ ) 8 } 1 < 1 $ ) 8 } 1 < 41 1 4 d DAT* ls_sortstring li_rc (
nation_rid D, state_rid A, county_rid source_rid source_sub1_rid source_sub2_rid source_sub3_rid source_sub4_rid A ids_resultset ~
setsort ~
sort
= 1 < , $ @ 4 $ # 8 < 0 8 B 0 : )@ @ 8 1 | | DAT* | | | | 8 | T | ) h 8 1 1 1 8 p J 8 8 J 8 @ $ 8 J 8
$
8 J DAT* 8 $ 8 J 8 T $ 8 J 8
$
8 ( J8 8 @ $ 8 H JX 8 l ` $ h $ 1 DAT* & ' ( ( ) , + @ , L - z 1 2 3 4 5 6 7 8 2< J= dA C D E H I J K L <O @P hQ rR |S V W X Y Z ] ^ _ *` 4a Pd Te |f g h k l m n o r s 4t >u Hv dw hx ly v| ~ d G ai_datasource ll_nationrid ll_staterid ll_countyrid ll_sourcerid ll_sourcesub1rid ll_sourcesub2rid ll_sourcesub3rid ll_sourcesub4rid ll_nationcount ll_statecount ll_countycount ll_sourcecount ll_sourcesub1count ll_sourcesub2count ll_DAT* sourcesub3count ll_sourcesub4count ll_rowcount ll_row ll_empty lds_buffer 0 # / < I Z k | 0 ' - DAT* <
p ids_resultset 8
ids_sourcecriteria
Error u_class_source_group::of_getSourceSql(); data buffer object is not valid. il_nationarray il_statearray yc il_countyarray il_sourcearray il_sourcesub1array il_sourcesub2array o
il_sourcesub3array $ il_sourcesub4array @ rowcount \ nation_rid getitemnumber E= { state_rid mm { county_rid l { source_rid { DAT* source_sub1_rid { source_sub2_rid { source_sub3_rid {
source_sub4_rid { $ @ 4 8 T h
8
@ X
` h : F@@ 8 ) 8 < 1 8 0 8 & 0 : )@ @ 8 1 DAT* 1 1 ) x 8 < 1 8 0 8 0 : )@ @ 8 1 j # j8 0 8 0 : )@ @ 8 1 4 8 < 0 , ) d 8 8 l ) 8 < 1 8 0 8 0 : )@ @ 8 1 8 ) 8 < 1 8 0 8 0 : )@ @ DAT* 8 1 8 ) 8 < 1 8 0 8 0 : )@ @ 8 1 8 ) 8 < 1 8 0 8 0 : )@ @ 8 1 0 $ 1 1 : @ * 1 : @) D 8 < 1 >8 0 8 L 0 : )@ @ 8 1 1 8 ) 8 8 DAT* 0 1 8 6 ) 8 $ * ) 8 < 1 *8 0 8 0 : )@ @ 8 1 j` # 8 0 8 h 0 : )@ @ 8 1 1 } 1 < $ ) 8 1 1 } ) 8 1 < F * 8 ) 8 p * 8 ) < DAT* 8 T $ 1 \ 8 d 0 , ) x 8 $ ) 8 1 D8 0 8 0 : )@ @ 8 1 1 ` ) 8 1 ) 8 8 8 ) 8 ) 8 V 4 $ 1 ~ < 8 D 0 , ) T 8 \ $ ) d 8 1 DAT* 8 0 8 l 0 : )@ @ 8 1 1 ) 8 ~ 1 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 $ 1 \ 8 0 , ) , 8 4 $ ) < 8 1 R
8 0 8 D 0 : )@ @ 8 1 DAT* 1 n
) 8 \ 1 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 d
$ 1
8 0 , ) 8 $ ) $ 8 1 0 8 0 8 , 0 : )@ @ 8 1 1 L DAT* ) | 8
1 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 B $ $ 1 , 8 4 0 , ) H 8 DAT* P $ ) X 8 1 8 0 8 ` 0 : )@ @ 8 1 1 ) 8 1 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 8 8 ) 8 ) 8 DAT* 8 8 ) 8 ) 8 8 8 ) , 8 ) 4 8 8 < 8 < ) H 8 ) P 8 l $ 1 t 8 | 0 , ) 8 $ ) 8 1 8 0 8 0 : )@ @ 8 1 1 ) 8 1 )
8 8 8 DAT* )
8 )
8 8 8 )
8 ) $
8 8 8 ) ,
8 ) 4
8 8 8 ) <
8 ) D
8 8 8 ) L
8 ) T
8 8 8 ) \
8 ) d
8 8 8 ) l
8 ) t
8 8 < 8 < ) |
8 )
8 8
8
)
8 )
8 DAT* 8
8
)
8 )
8 8
8
)
8 )
8 9 )
8 1 6 F t ! % & ' ,( Z* j+ / 0 1 2 3 6 7 J8 Z9 : = > ? @ A D E JF ZG H L M N O (P .T >U dV nW [ \ ] ^ _ f *g 8h Di ro s v y z { (| B} F~ V p ( . 4 D | * DAT* T d @ z ~
6
<
B
R
X \ x 0 h 6
p
8 b r N 6 p 8 b r N 6p X d ll_rc ll_row ls_groupname lds_report lds_temp ldwc_groupsubreport ldwc_sourcesubreport ldwc_resultsubreport ldwc_filteDAT* rsubreport ldwc_temp sqlca i
"
-
6
J
_
t
@
of_runresultset Error u_class_source_group::of_runSelectionReport(); of_runResultSet() failed. of_sort o u_class_source_group::of_runSelectionReport(); of_sort() failed. u_ds_base e
u_class_souDAT* rce_group::of_runSelectionReport(); lds_report object creation failed. dataobject & r_ss_selection_report settransobject R report_group getchild s y u_class_source_group::of_runSelectionReport(); lds_report.getChild() failed. report_filter s y report_source s y report_result s y ids_groupdata
rowscopy 8 u_class_source_group::of_runSelectionReport(); ids_groupData.shareData() failed. group_name getitemstring [ No Name setitem DAT* ids_filtercriteria e
sharedata u_class_source_group::of_runSelectionReport(); ids_filterCriteria.shareData() failed.
u_class_source_group::of_runSelectionReport(); lds_temp object creation failed.
rowcount of_loadarrays 1 . st_title.text = 'Result Set' modify st_title.text = 'Selection Data' il_nationarray D & r_ss_nation_data R D retrieve u_class_source_group::of_runSelectionReport(); DAT* retrieval of nation data failed. insertrow s nation_name il_statearray $ & r_ss_state_data R $ u_class_source_group::of_runSelectionReport(); retrieval of state data failed. s state_name @ il_countyarray & r_ss_county_data R u_class_source_group::of_runSelectionReport(); retrieval of county data failed. s DAT* county_name il_sourcearray & r_ss_source_data 8 R u_class_source_group::of_runSelectionReport(); retrieval of source data failed. s source_id source_name sic_code il_sourcesub1array & r_ss_device_data R u_class_source_group::of_runSelectionReport(); retrieval of device data failed. DAT*
s device_id device_name il_sourcesub2array X
& r_ss_process_data R X
u_class_source_group::of_runSelectionReport(); retrieval of process data failed. s process_id proceDAT* ss_name scc_code print
x
4 d
0 D
`
<
T \ x
4 < T
\ d
,
4 <
DAT*
$
|
$ , H
P X
,
4
H
P
l t
$
,
4
<
D
L
T
\
d
l
t
DAT* |
8 $ 0 H 8 P 0 t 8 | 0 8 0 8 0 8 0 8 8 @ 0 l 8 t 0 8 0 8 0 8 0 8 0 , 8 4 0 P 8 X 0 x 8 0 8 0 DAT* 8 0 8 0 0 8 8 0 P 8 X 0
4 N h 8 R l ! d a is_nationarrayname al_nationArray is_statearrayname 3 al_stateArray is_countyarrayname ^ al_countyArray is_sourcearrayname le al_sourceArray is_sourcesub1arrayname t. al_sourceSub1Array is_sourcesub2arrayname al_sourceSub2ArraDAT* y is_sourcesub3arrayname al_sourceSub3Array is_sourcesub4arrayname S al_sourceSub4Array is_sicarrayname as_sicArray is_sccarrayname as_sccArray is_nationridname nation_rid is_stateridname state_rid is_countyridname county_rid is_sourceridname ? source_rid is_sourcesub1ridname c source_sub1_rid is_sourcesub2ridname me source_sub2_rid is_sourcesub3ridname n ! source_sub3_rid is_sourcesub4ridname " souDAT* rce_sub4_rid is_siccodename # sic_code is_scccodename A $ scc_code H t 8 l , P x 0 P n j, 4 $ # 8 < 0 8 B 0 : )@ @ 8 , r 1 , $ $ 8 0 $ , ) 8 j $ # P8 < 0 8 B DAT* 0 : )@ @ 8 , <1 J, $ $ 8 0 8 $ , ) @ 8 \ jd l $ # 8 < 0 8 B 0 : )@ @ 8 , 1 , t $ | $ 8 0 $ , ) 8 j $ # 8 < 0 8 B 0 : )@ @ 8 , 1 , $ $ DAT* 8 0 $ , ) 8 ) , 8 , T1 b, 4 $ * X
" P t >" ^# t$ % ' ( , (/ : d ::message sqlca ( @ @< ids_groupdata na
u_ds_base io
Error Object creation failed: u_class_group_criteria::constructor()
dataobject d_ss_group_data
DAT* settransobject ids_sourcecriteria
d_ss_group_source_criteria
ids_filtercriteria H
H
H
d_ss_group_filter_criteria nH
ids_resultset ge
d_ss_group_result_set
of_reset $ , 4
8 @DAT*
\ d l t |
,
4 $ $ < $ @ D $ ` $ ` h $ $ $ , 1 , $ 2
@ R ` r d ::message @ H ids_groupdata na
ids_sourcecriteria (
DAT* (
ids_filtercriteria L
L
ids_resultset p
L
< D ` h " 8 0 ) $ 8 d , constructor triggerevent $
" 8 0 ) 8 d ( destructor triggerevent
DAT* " ! "
# $ % & ' ( ) * + , - . / 0 L 2 of_sortsources of_sortfilters of_sort of_modobjectsql of_getsql of_getfiltersql of_getsourcesql of_runresultset of_modsqlstring of_savegroup of_deletegroup of_loadgroup of_reset of_getdatalevel of_getfilterlogic of_setdatalevel of_groupmodified of_resetupdate of_resetfilter of_finddata of_setbufferdatalevel of_sortresultset of_loadarrays of_runselectionreport of_setdefaulDAT* $ tnames f_get_sequence f_sqlcheck +constructor +destructor +create +destroy & . . > H X h x .
.
so _sub ce 2_riDAT* & ub d so ri c_co ' e p_ri = me up_d N d leve \ og ourc r te me f e rcea s_ cesu e ourc na s_so ra e is 4a name ay is_ me nati ed 2 P ids_groupdata ids_sourcecriteria ids_filtercriteria ids_resultset ii_nationlevel ii_statelevel ii_countylevel ii_sourcelevel DAT* ( ii_sourcesub1level ii_sourcesub2level ii_sourcesub3level ii_sourcesub4level il_nationarray il_statearray il_countyarray il_sourcearray il_sourcesub1array il_sourcesub2array il_sourcesub3array il_sourcesub4array is_sicarray is_sccarray ib_nullsic ib_nullscc is_nationarrayname is_statearrayname is_countyarrayname is_sourcearrayname is_sourcesub1arrayname is_sourcesub2arraynDAT* * ame is_sourcesub3arrayname is_sourcesub4arrayname is_sicarrayname is_sccarrayname is_nationridname is_stateridname is_countyridname is_sourceridname is_sourcesub1ridname is_sourcesub2ridname is_sourcesub3ridname is_sourcesub4ridname is_siccodename is_scccodename is_grouprid is_groupname is_groupdescription is_groupdatalevel is_groupfilterlogic is_nationrid is_staterid is_countyrid is_sourcerid is_sourcetype is_sourcesub1rid is_sourcesub2rid is_sourcesub3rid is_sourcesub4rid is_filtercolumnname is_DAT* , filtercolumnvalue is_sicfiltercolumncode is_sccfiltercolumncode 4 T t
)
<
J Y g v / / / 4 $ / T @ / t ` DAT* . / / / / / + E= > od Q ap h "= ! ) 4 id G ME S sy _ h_ j lu t e p@ % O : p@ O T d DAT* 0 p@ s Y p@ ^ p@ _ j t ce s l at ' ur 8 mi I ti Z ' h n 3 pa w_ M
@ 3 h 3 3 3 3 3 0 3 X 3 3 3 DAT* 2 ! 4 G S _ j t & x 9 9 4 ( [ P D r P T DAT* 4 x ` x 9
9 ! "
# $ % ( DAT* 6 & G ' W ( h ) * @ ( + D , - P . / \ 0 DAT* ^ # L ^ $ $ \ % , \ & DAT* : 1 < | $ $ $ $ $ ) 8 $ $ ) 8 $ 9 } 1 < $ $ $ t ( $ 0 $ ) 8 8 @ $ P $ ) X 8 ` $ h 9 } 1 < p $ x 9 } , + 1 , + $ F d |
& J pDAT* < t d index case2 ::message < + @> tabpage_source % !tv_source ! $setfocus 4 st_click_help H * visible ` tabpage_sic p & 'cb_sic_refresh ! (enabled p & ' ! ( 4 p & 'tv_sic " ) 4 H * ` tabpage_scc ' *cb_scc_refresh ! + ' * ! + 4 ' *tv_scc H " , 4 H * ` DAT* > H * ` , @
X h |
( 0 8
@ P X
` h p x L : W@) 8 , + 2 1 @ , + $ d $ oldindex newindex ::message < + @>( triggerevent e DAT* @
$ / $
/ 2 4 +create +destroy +clicked +selectionchanged P " 2 x y width height taborder bringtotop textsize weight fontcharset fontpitch fontfamily facename backcolor raggedright boldselectedtext selectedtab tabpage_source tabpage_sic tabpage_scc tabpage_group 7
0
DAT* B `
" @ - 6 = I S ^ g q }
!
'
*
- ]
o 7 0
`
@ @ 1 DAT* D
@ @
!
'
*
- x $ /
@ * , 4 $
| d < tv_source ! $ $ DAT* F control $ c@ ! $ , 4 $ d tv_source ! $ ! ! 2 +create +destroy ( 2 ] x y width height backcolor text tabtextcolor tabbackcolor picturemaskcolor tv_source
d # h ( DAT* H 5 B S
$ ]
o d
@ @"| 1
h @
$ : F@@ 8 j # rDAT* J 8 0 8 " 0 : )@ @ 8 1 h $ ) | 8 1 8 0 $ ) 8 1 $ ) 8 1 p8 0 8 0 : )@ @ 8 1 ( 8 0 0 $ ) 8 8 1 8 0 8 @ 0 : )@ @ 8 1 1 < ) DAT* L 8 1 8 0 8 0 : )@ @ 8 1 $ 1 ) 8 < 1 8 0 8 0 : )@ @ 8 1 t | $ ) 8 } $ ) 8 < $ } ) 8 9 } 1 ) 8 9 } 8 J 8 8 ) < DAT* N 8 8 D JP 8
8 X ) d 8 8 l Jx 8 8 ) 8
4 9 } 9 } 9 } 6 V / } $ } $ 8 0 ) 8 1 6 $ $ 8 D J 8 9 } $ / }DAT* P 2 , / } 1 ` 4 / } 8 0 8 < 0 : )@ @ 8 1 1 * ) 8 1 8 0 8 0 : )@ @ 8 1 ) 8 9 } 9 } 9 }
6 V / } $ } 9 } / } DAT* R F $ 8 D 0 ) ( 8 1 0 $ 8 $ 8 l JH 8 9 } P / } X / } F 1 ` / } F 8 0 8 h 0 : )@ @ 8 1 * ) 8 1 8 0 8 0 : )@ @ 8 1 9 } 9 } 6 DAT* T V / } $ } t
/ } $ 8 l 0 ) 0 8 1 < 8 $ @ $ 8 P J\ 8 d / } 8 9 } l / } 1 f t / } 8 0 8 | 0 : )@ @ 8 1 * ) 8 1 " 8 0 8 0 : )DAT* V @ @ 8 1 l ) 8 1 l 1
} ) 8 : V@1 ) 0 8 ) D 8 1 ! $ % ( & 4 ' b + r , / 0 2 5 6 7 ,8 Z9 `; p< > A B C H I J 2K BL pM vR S T U Z ^ 2b Ze ph n q t u v (w Px ty | ~ 8 N n 2DAT* X F \ ` 4 B N d z B R 0 6 F j z
2
R
Z
p
t
" 8 L b f " * F V \ l x
d ai_mode ll_rc ll_row ll_rid ll_nationhandle ll_statehandle ll_countyhandle ll_nationrid ll_staterid ll_countyrid ll_prevnationrid ll_prevstaterid lDAT* Z s_nation ls_state ls_county lb_savegroupmodified lb_countypopulate lb_nationselected lb_stateselected ltvi_item lds_buffer $ 4 C S ` l y
DAT* \
:L u_ds_base : Error tv_source::ue_load(); error creating lds_buffer ids_geographicbase R 7 :rowcount p dataobject d_ss_hierarchy_to_county R 7 :sharedata R 7 :retrieve tv_source::ue_load(); error retrieving ids_geographicBase R 7 : tv_source::ue_load(); error getting row count for ids_geographicBase ue_processselections ah^ tv_source::ue_load(); call to uDAT* ^ e_processSelections() failed. iclass_group ty 3 9of_setbufferdatalevel te, tv_source::ue_load(); call to iclass_group.of_setBufferDataLevel() failed. ii_maxtreedepth d 1 3 9of_getdatalevel % 3 9of_sortsources r ib_groupmodified 8 of_reset g p nation_rid getitemnumber nation_name getitemstring to , state_rid _s state_name c , county_rid county_name ,
DAT* ` 3 9 3 9of_finddata + 3 9ids_sourcecriteria
3 9
tv_source::ue_load(); error searching for nation rid. insertitemlast S r tv_source::ue_load(); error in inserting nation item. expanditem I
3 9 3 9+ 3 9
3 9
tv_source::ue_load(); error searching for state rid. S r tv_sourDAT* b ce::ue_load(); error in inserting state item.
3 9 3 9+ 3 9
3 9source_rid
tv_source::ue_load(); error searching for county rid. 0S r tv_source::ue_load(); error in inserting county item. itempopulate 6 8 setfocus finditem 0K $ selectitem V 8 h |
( 0 8
DAT* d
t |
<
P
d
x
$ , 4
(
0 8 @ H
P X `
DAT* ( 0
8 @ H \
d l t
0
D
|+ ^ # 8 4 $ 4 1 : F@@ 8 L $ h $ ) x 8 1 $ V $ = ) 8 < 1 1 $ = $ } < Y 1 < YDAT* h Source Selector Windowforward
global type w_source_selector from window
end type
type st_click_help from statictext within w_source_selector
end type
type cb_print from commandbutton within w_source_selector
end type
type cb_ok from commandbutton within w_source_selector
end type
type tab_control from tab within w_source_selector
end type
type tabpage_source from userobject within tab_control
end type
type tv_source from u_tv_selection_tree within tabpage_source
end type
type tabpagDAT* j e_source from userobject within tab_control
tv_source tv_source
end type
type tabpage_sic from userobject within tab_control
end type
type cb_sic_refresh from commandbutton within tabpage_sic
end type
type tv_sic from u_tv_selection_tree within tabpage_sic
end type
type tabpage_sic from userobject within tab_control
cb_sic_refresh cb_sic_refresh
tv_sic tv_sic
end type
type tabpage_scc from userobject within tab_control
end type
type cb_scc_refresh from commandbutton within tabpage_sDAT* l cc
end type
type tv_scc from u_tv_selection_tree within tabpage_scc
end type
type tabpage_scc from userobject within tab_control
cb_scc_refresh cb_scc_refresh
tv_scc tv_scc
end type
type tabpage_group from userobject within tab_control
end type
type cbx_notify from checkbox within tabpage_group
end type
type cbx_auto from checkbox within tabpage_group
end type
type cb_save from commandbutton within tabpage_group
end type
type cb_delete from commandbutton within tabpage_group
end tDAT* n ype
type cb_new from commandbutton within tabpage_group
end type
type dw_group from datawindow within tabpage_group
end type
type gb_1 from groupbox within tabpage_group
end type
type tabpage_group from userobject within tab_control
cbx_notify cbx_notify
cbx_auto cbx_auto
cb_save cb_save
cb_delete cb_delete
cb_new cb_new
dw_group dw_group
gb_1 gb_1
end type
type tab_control from tab within w_source_selector
tabpage_source tabpage_source
tabpage_sic tabpage_sic
tabpage_scc tabpagDAT* p e_scc
tabpage_group tabpage_group
end type
end forward
global type w_source_selector from window
integer x = 105
integer y = 124
integer width = 2706
integer height = 1972
boolean titlebar = true
string title = "Source Selector"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 79741120
string icon = "None!"
st_click_help st_click_help
cb_print cb_print
cb_ok cb_ok
tab_control tab_control
end type
global w_source_selector w_source_selector
type DAT* r variables
//Constant Treeview Levels (used for level identification
//and picture index identification)
constant integer ii_nationLevel = 1
constant integer ii_stateLevel = 2
constant integer ii_countyLevel = 3
constant integer ii_sourceLevel = 4
constant integer ii_sourceSub1Level = 5
constant integer ii_sourceSub2Level = 6
constant integer ii_sourceSub3Level = 7
constant integer ii_sourceSub4Level = 8
constant integer ii_deviceLevel = 5
constant integer ii_processLevel = 6
//Data DAT* t Set Names for dynamic datastore use
constant string is_geographicData = "d_ss_hierarchy_to_county"
constant string is_sourceData = "d_ss_sources_at_county"
constant string is_deviceData = "d_ss_devices_at_source"
constant string is_processData = "d_ss_processes_at_device"
constant string is_sicData = "d_ss_sic_at_selection"
constant string is_sicDataSubSource = "d_ss_sic_at_selection_sub_source"
constant string is_sccData = "d_ss_scc_at_selection"
constant string is_sourceBufferData = "d_sDAT* v s_source_from_buffer"
constant string is_sicBufferData = "d_ss_sic_from_buffer"
constant string is_sccBufferData = "d_ss_scc_from_buffer"
constant string is_tvResultSetData = "d_ss_tv_result_set"
//Object References
w_source_selector iw_source_selector
u_tv_selection_tree itv_source
u_tv_selection_tree itv_sic
u_tv_selection_tree itv_scc
dataWindow idw_group
//Source Group Object Reference
u_class_source_group iclass_group
//Flag indicating whether source group object is a
//locDAT* x al instance or a reference to client source group
//object (local group indicates that the source selector
//is being used "stand alone" to work with groups)
boolean ib_localGroup = false
//Strings used for NULL or Group Level
//SIC or SCC Codes in Treeviews
string is_nullCode = "Unknown"
string is_groupCode = "Group"
//Datastore for initial source treeview population
u_ds_base ids_geographicBase
//Flag indicating that the source group has been modified via
//the GUI
//Set to DAT* z TRUE by
// ue_selectionChanged events for selection treeviews
//Set to FALSE by various other functions and events
//that manipulate source groups
boolean ib_groupModified = false
end variables
forward prototypes
public function integer of_processselections ()
public subroutine of_enablerefresh (boolean ab_refresh)
public function integer of_processgroup ()
end prototypes
public function integer of_processselections ();
//process selections for all treeviews. This loads thDAT* | e
//buffers in the iclass_group object
long ll_rc
//process the source selections
ll_rc = itv_source.event trigger ue_processSelections()
if ll_rc < 0 then
messageBox("Error", "Error processing source or geographic selections.", exclamation!)
return -1
end if
//process the sic selections
ll_rc = itv_sic.event trigger ue_processAllSelections()
if ll_rc < 0 then
messageBox("Error", "Error processing SIC selections.", exclamation!)
return -1
end if
//process the scc sDAT* ~ elections
ll_rc = itv_scc.event trigger ue_processAllSelections()
if ll_rc < 0 then
messageBox("Error", "Error processing SIC selections.", exclamation!)
return -1
end if
return 1
end function
public subroutine of_enablerefresh (boolean ab_refresh);
tab_control.tabpage_sic.cb_sic_refresh.enabled = ab_refresh
tab_control.tabpage_scc.cb_scc_refresh.enabled = ab_refresh
end subroutine
public function integer of_processgroup ();
//Load treeviews with data from the source groDAT* up passed in or loaded from disk
long ll_rc
setPointer(hourGlass!)
//initialize the source treeview
ll_rc = tab_control.tabpage_source.tv_source.trigger event ue_load(0)
if ll_rc < 0 then
messageBox("Error", "w_source_selector::of_processGroup(); error loading tv_source.", exclamation!)
post close(this)
return -1
end if
//initialize the sic treeview
ll_rc = tab_control.tabpage_sic.tv_sic.trigger event ue_load(0)
if ll_rc < 0 then
messageBox("Error", "w_source_selector:DAT* :of_processGroup(); error loading tv_sic.", exclamation!)
post close(this)
return -1
end if
//initialize the scc treeview
ll_rc = tab_control.tabpage_scc.tv_scc.trigger event ue_load(0)
if ll_rc < 0 then
messageBox("Error", "w_source_selector::of_processGroup(); error loading tv_scc.", exclamation!)
post close(this)
return -1
end if
//enable the refresh buttons for SIC and SCC treeviews if there are any source criteria records
if iclass_group.ids_sourceCriteria.rowCount() > 0 DAT* then
this.of_enableRefresh(true)
else
this.of_enableRefresh(false)
end if
return 1
end function
on w_source_selector.create
this.st_click_help=create st_click_help
this.cb_print=create cb_print
this.cb_ok=create cb_ok
this.tab_control=create tab_control
this.Control[]={this.st_click_help,&
this.cb_print,&
this.cb_ok,&
this.tab_control}
end on
on w_source_selector.destroy
destroy(this.st_click_help)
destroy(this.cb_print)
destroy(this.cb_ok)
destroy(this.tab_control)
eDAT* nd on
event open;
//Open event for w_source_selection
long ll_rc
string ls_dummy
setPointer(hourGlass!)
//initialize references to objects
iw_source_selector = this
itv_source = tab_control.tabPage_source.tv_source
itv_sic = tab_control.tabPage_sic.tv_sic
itv_scc = tab_control.tabPage_scc.tv_scc
idw_group = tab_control.tabPage_group.dw_group
//create the instance geographic datastore; this will be retrieved dynamically if needed
ids_geoGraphicBase = create u_ds_bDAT* ase
if not isValid(ids_geoGraphicBase) then
messageBox("Error", "w_source_selector::open(); ids_geograhicBase object creation failed.", exclamation!)
post close(this)
return -1
end if
ids_geographicBase.dataObject = is_geographicData
ids_geographicBase.setTransObject(SQLCA)
//determine if the source group object has been passed in from client object
if isValid(message.powerObjectParm) then
//an object came in on the message object, verify that it is a source group
if classNaDAT* me(message.powerObjectParm) = "u_class_source_group" then
iclass_group = message.powerObjectParm
ib_localGroup = false
else
messageBox("Error", "w_source_selector::open(); incorrect object type received. " +&
"Object of type u_class_source_group required.", exclamation!)
post close(this)
return -1
end if
//reset the default SQL generation column names and array names
//for the source selector (client objects can alter the names that
//are used in SQL generation toDAT* suit their own needs)
iclass_group.of_setDefaultNames()
else
//source group was not passed in, so create one "locally"
iclass_group = create u_class_source_group
if not isValid(iclass_group) then
messageBox("Error", "w_source_selector::open(); u_class_source_group object creation failed.", exclamation!)
post close(this)
return -1
end if
ib_localGroup = true
end if
//process the group; this causes the treeviews to reflect the contents of iclass_group, or show
DAT* //a default geographic treeview if the group is empty
ll_rc = this.of_processGroup()
if ll_rc < 0 then
messageBox("Error", "w_source_selector::open(); error initializing treeviews " +&
"with existing data.", exclamation!)
post close(this)
return -1
end if
//share data from buffer to visible group information datawindow
iclass_group.ids_groupData.shareData(idw_group)
//update the pull down list of saved groups
tab_control.tabPage_group.dw_group.trigger event ue_refreshList()
DAT*
return 1
end event
event close;
//Close Event for w_source_selection
//destroy the geographic object
if isValid(ids_geographicBase) then destroy ids_geographicBase
//destroy the group object if it is a local object
if ib_localGroup and isValid(iclass_group) then destroy iclass_group
end event
event closequery;
//return: 0 = allow close; 1 = prevent close
string ls_name
long ll_rc
//if the group name is filled in, or if the group is local,
//check to see ifDAT* group needs to be saved
ls_name = idw_group.getItemString(1, "group_name")
if (not isNull(ls_name) and ls_name <> "") or ib_localGroup then
ll_rc = w_source_selector.tab_control.tabpage_group.dw_group.trigger event ue_checkSavePrompt()
if ll_rc <= 0 then
//error or user cancelled save
return 1
else
return 0
end if
end if
end event
type st_click_help from statictext within w_source_selector
integer x = 128
integer y = 1696
integer width = 1445
integer height = 80
DAT* integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long backcolor = 79741120
boolean enabled = false
string text = "Right Click to Select/Deselect Items"
boolean focusrectangle = false
end type
type cb_print from commandbutton within w_source_selector
integer x = 1627
integer y = 1728
integer width = 475
integer height = 96
integer taborder = 30
integer textsiDAT* ze = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
string text = "&Print"
end type
event clicked;
setPointer(hourGlass!)
iw_source_selector.of_processSelections()
return iclass_group.of_runSelectionReport()
end event
type cb_ok from commandbutton within w_source_selector
integer x = 2158
integer y = 1728
integer width = 475
integer height = 96
integer taborder = 20DAT*
integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
string text = "OK"
boolean default = true
end type
event clicked;
long ll_rc
string ls_name
//if the source group is not local, then process result set
if not ib_localGroup then
setPointer(hourGlass!)
iw_source_selector.of_processSelections()
//create the result set
ll_rc = iclass_group.of_runDAT* ResultSet()
if ll_rc < 0 then
messageBox("Error", "cb_ok::clicked(); error creating result set.", exclamation!)
return -1
elseif ll_rc = 0 then //result set could not be generated (insufficient criteria data)
ll_rc = messageBox("Confirm Close", "No result set has been generated. Close anyway?", question!, yesNo!, 2)
if ll_rc = 2 then
return 0
end if
end if
end if
post close(parent)
return 1
end event
type tab_control from tab within w_source_selector
integeDAT* r x = 55
integer y = 48
integer width = 2578
integer height = 1632
integer taborder = 10
boolean bringtotop = true
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long backcolor = 79741120
boolean raggedright = true
boolean boldselectedtext = true
integer selectedtab = 1
tabpage_source tabpage_source
tabpage_sic tabpage_sic
tabpage_scc tabpage_scc
tabpage_gDAT* roup tabpage_group
end type
on tab_control.create
this.tabpage_source=create tabpage_source
this.tabpage_sic=create tabpage_sic
this.tabpage_scc=create tabpage_scc
this.tabpage_group=create tabpage_group
this.Control[]={this.tabpage_source,&
this.tabpage_sic,&
this.tabpage_scc,&
this.tabpage_group}
end on
on tab_control.destroy
destroy(this.tabpage_source)
destroy(this.tabpage_sic)
destroy(this.tabpage_scc)
destroy(this.tabpage_group)
end on
event clicked;
choose case indeDAT* x
case 1
tabpage_source.tv_source.setFocus()
st_click_help.visible = TRUE
case 2
if tabpage_sic.cb_sic_refresh.enabled then
tabpage_sic.cb_sic_refresh.setFocus()
else
tabpage_sic.tv_sic.setFocus()
end if
st_click_help.visible = TRUE
case 3
if tabpage_scc.cb_scc_refresh.enabled then
tabpage_scc.cb_scc_refresh.setFocus()
else
tabpage_scc.tv_scc.setFocus()
end if
st_click_help.visible = TRUE
case 4
st_click_help.visible = FALSE
end choose
enDAT* d event
event selectionchanged;
this.triggerEvent(clicked!)
end event
type tabpage_source from userobject within tab_control
integer x = 18
integer y = 100
integer width = 2542
integer height = 1516
long backcolor = 79741120
string text = "Source Selection"
long tabtextcolor = 33554432
long tabbackcolor = 79741120
long picturemaskcolor = 536870912
tv_source tv_source
end type
on tabpage_source.create
this.tv_source=create tv_source
this.Control[]={this.tv_source}
end on
DAT*
on tabpage_source.destroy
destroy(this.tv_source)
end on
type tv_source from u_tv_selection_tree within tabpage_source
event type integer ue_load ( integer ai_mode )
integer x = 37
integer y = 64
integer width = 2450
integer height = 1392
integer taborder = 10
string picturename[] = {"tvNation.bmp","tvState.bmp","tvCounty.bmp","tvSource.bmp","tvDevice.bmp","tvProces.bmp"}
end type
event type integer ue_load(integer ai_mode);
//Populates the Source/Geographic treeview object.
/DAT* /If items exist in the iclass_group.ids_sourceCriteria buffer, they will be selected
//and/or dynamically populated as necessary.
//Argument ai_mode specifies how to load the treeview:
//0 = load default geographic data, select any items in source criteria buffer
//1 = refresh; capture current selections, then do same as mode 0
long ll_rc
long ll_row
long ll_rid
long ll_nationHandle
long ll_stateHandle
long ll_countyHandle
long ll_nationRid
long ll_stateRid
long ll_countyRid
loDAT* ng ll_prevNationRid = 0
long ll_prevStateRid = 0
string ls_nation
string ls_state
string ls_county
boolean lb_saveGroupModified
boolean lb_countyPopulate
boolean lb_nationSelected
boolean lb_stateSelected
treeViewItem ltvi_item
u_ds_base lds_buffer
setPointer(hourglass!)
//create local datastore for storage/retrieval of nation/state/county info for existing sources
lds_buffer = create u_ds_base
if not isValid(lds_buffer) then
messageBox("Error", "tv_source::ue_load(); error cDAT* reating lds_buffer", exclamation!)
return -1
end if
//load the local data buffer to be used for treeview population
ll_rc = ids_geographicBase.rowCount()
if ll_rc > 0 then
//instance geographic data loaded, so just share to the local buffer
lds_buffer.dataObject = is_geographicData
ids_geographicBase.shareData(lds_buffer)
elseif ll_rc = 0 then
//instance geographic data not loaded, so load it now, then share to the local buffer
ll_rc = ids_geographicBase.retrieve()
iDAT* f ll_rc < 0 then
messageBox("Error", "tv_source::ue_load(); error retrieving ids_geographicBase", exclamation!)
destroy lds_buffer
return -1
end if
lds_buffer.dataObject = is_geographicData
ids_geographicBase.shareData(lds_buffer)
elseif ll_rc < 0 then
//error in call to rowCount()
messageBox("Error", "tv_source::ue_load(); error getting row count for ids_geographicBase", exclamation!)
destroy lds_buffer
return -1
end if
//if refresh mode, capture current selectDAT* ions before proceeding
if ai_mode = 1 then
ll_rc = this.trigger event ue_processSelections()
if ll_rc < 0 then
messageBox("Error", "tv_source::ue_load(); call to ue_processSelections() failed.", exclamation!)
destroy lds_buffer
return -1
end if
end if
//enforce the current data level on the source criteria buffer
ll_rc = iclass_group.of_setBufferDataLevel(1) // 1 => work on source criteria buffer
if ll_rc < 0 then
messageBox("Error", "tv_source::ue_load(); call to iclass_DAT* group.of_setBufferDataLevel() failed.", exclamation!)
return -1
end if
//set the maximum tree depth; this makes the tree depth dynamic depending on what data level
//has been selected for the group
this.ii_maxTreeDepth = iclass_group.of_getDataLevel()
//sort the iclass_group.ids_sourceCriteria buffer so the iclass_group.of_findData()
//function will give usable results
ll_rc = iclass_group.of_sortSources()
//grab the current group modification status
//the reset operation will cDAT* ause this to always be false, so it must be reset at the end of the function
lb_saveGroupModified = ib_groupModified
//clear the treeview
this.of_reset()
//initialize some of the treeview item properties
ltvi_item.children = true
//Populate the Nation, State and County levels of the tree
//NOTE: The success of the following block depends on the fact that
//the data in lds_buffer is sorted in the following order:
//Nation DES, State ASC, County ASC
for ll_row = 1 to lds_buffer.rowDAT* Count()
//reset flag that determines if county item will be populated
lb_countyPopulate = false
//grab the current nation, state, county and source names and RIDs
ll_nationRid = lds_buffer.getItemNumber(ll_row, "nation_rid")
ls_nation = lds_buffer.getItemString(ll_row, "nation_name")
ll_stateRid = lds_buffer.getItemNumber(ll_row, "state_rid")
ls_state = lds_buffer.getItemString(ll_row, "state_name")
ll_countyRid = lds_buffer.getItemNumber(ll_row,DAT* "county_rid")
ls_county = lds_buffer.getItemString(ll_row, "county_name")
//add new nation item if the nation has changed from the previous row
if ll_nationRid <> ll_prevNationRid then
lb_nationSelected = false
//add nation item
ltvi_item.expanded = true //itemPopulate event will NOT be triggered on expand
ltvi_item.expandedOnce = true //itemPopulate event will NOT be triggered on expand
ltvi_item.label = ls_nation
DAT* ltvi_item.data = ll_nationRid
ltvi_item.pictureIndex = ii_nationLevel
ltvi_item.selectedPictureIndex = ltvi_item.pictureIndex
//search for the nation rid in the source criteria buffer
ll_rc = iclass_group.of_findData(iclass_group.is_nationRid, ll_nationRid)
if ll_rc > 0 then
//nation rid found, see if source criteria record has a state filled in
ll_rid = iclass_group.ids_sourceCriteria.getItemNumber(ll_rc, iclass_group.is_stateRid)
if isNullDAT* (ll_rid) then
lb_nationSelected = true
ltvi_item.statePictureIndex = ii_selected
else
ltvi_item.statePictureIndex = ii_notSelected
end if
elseif ll_rc = 0 then
ltvi_item.statePictureIndex = ii_notSelected
else
messageBox("Error", "tv_source::ue_load(); error searching for nation rid.", exclamation!)
destroy lds_buffer
return -1
end if
ll_nationHandle = this.insertItemLast(0, ltvi_item)
if ll_nationHandle < 0 then
messageBox("Error", "tvDAT* _source::ue_load(); error in inserting nation item.", exclamation!)
destroy lds_buffer
return -1
end if
//expand nation items
this.expandItem(ll_nationHandle)
end if
//add new state item if the state has changed from the previous row
if ll_stateRid <> ll_prevStateRid then
lb_stateSelected = false
//add state item
ltvi_item.expanded = false
ltvi_item.expandedOnce = true //itemPopulate event will NOT be triggered on expand
DAT* ltvi_item.label = ls_state
ltvi_item.data = ll_stateRid
ltvi_item.pictureIndex = ii_stateLevel
ltvi_item.selectedPictureIndex = ltvi_item.pictureIndex
//search for the state rid in the source criteria buffer
if lb_nationSelected then
lb_stateSelected = true
ltvi_item.statePictureIndex = ii_selected
else
ll_rc = iclass_group.of_findData(iclass_group.is_stateRid, ll_stateRid)
if ll_rc > 0 then
//state rid found, see ifDAT* source criteria record has a county filled in
ll_rid = iclass_group.ids_sourceCriteria.getItemNumber(ll_rc, iclass_group.is_countyRid)
if isNull(ll_rid) then
lb_stateSelected = true
ltvi_item.statePictureIndex = ii_selected
else
ltvi_item.statePictureIndex = ii_notSelected
end if
elseif ll_rc = 0 then
ltvi_item.statePictureIndex = ii_notSelected
else
messageBox("Error", "tv_source::ue_load(); error searching for state rid.", exclamation!)
DAT* destroy lds_buffer
return -1
end if
end if
ll_stateHandle = this.insertItemLast(ll_nationHandle, ltvi_item)
if ll_stateHandle < 0 then
messageBox("Error", "tv_source::ue_load(); error in inserting state item.", exclamation!)
destroy lds_buffer
return -1
end if
end if
//add county item (county will always be new for each row)
ltvi_item.expanded = false //itemPopulate event WILL be triggered on expand
ltvi_item.expandedOnce = DAT* false //itemPopulate event WILL be triggered on expand
ltvi_item.label = ls_county
ltvi_item.data = ll_countyRid
ltvi_item.pictureIndex = ii_countyLevel
ltvi_item.selectedPictureIndex = ltvi_item.pictureIndex
//search for the county rid in the source criteria buffer
if lb_stateSelected then
ltvi_item.statePictureIndex = ii_selected
else
ll_rc = iclass_group.of_findData(iclass_group.is_countyRid, ll_countyRid)
if ll_rc > 0 then
/DAT* /county rid found, see if source criteria record has a source filled in
ll_rid = iclass_group.ids_sourceCriteria.getItemNumber(ll_rc, iclass_group.is_sourceRid)
if isNull(ll_rid) then
ltvi_item.statePictureIndex = ii_selected
else
//county has sources selected beneath it, so set flag to populate the county
lb_countyPopulate = true
ltvi_item.statePictureIndex = ii_notSelected
end if
elseif ll_rc = 0 then
ltvi_item.statePictureIndex = ii_notSelected
elseDAT*
messageBox("Error", "tv_source::ue_load(); error searching for county rid.", exclamation!)
destroy lds_buffer
return -1
end if
end if
ll_countyHandle = this.insertItemLast(ll_stateHandle, ltvi_item)
if ll_countyHandle < 0 then
messageBox("Error", "tv_source::ue_load(); error in inserting county item.", exclamation!)
destroy lds_buffer
return -1
end if
if lb_countyPopulate then
ll_rc = this.trigger event itemPopulate(ll_countyHandle)
if ll_rc < 0 then
DAT*
destroy lds_buffer
return -1
end if
end if
//make copies of nation and state RIDs for comparison to next row
ll_prevNationRid = ll_nationRid
ll_prevStateRid = ll_stateRid
next
//restore group modified flag
ib_groupModified = lb_saveGroupModified
destroy lds_buffer
this.setFocus()
this.selectItem(this.findItem(rootTreeItem!,0))
return 1
end event
event ue_processselections;call super::ue_processselections;
//Update the source criteria buffer to refDAT* lect the current treeview selections
//The ancestor script updates the treeview handle array to contain the handles
//of selected items. This script uses those handles to finish the processing.
long ll_index
long ll_row
long ll_rid[]
long ll_handle
long ll_rc
integer li_level
integer li_i
string ls_columnName
treeviewitem ltvi_item
if this.ib_selectionsProcessed then return 0
setPointer(hourGlass!)
//clear out the source criteria buffer
iclass_group.ids_sourceCriteria.rDAT* eset()
//loop through the handle array and add each selected item to the
//source criteria buffer
for ll_index = 1 to il_handleCount
//grab the item
ll_rc = this.getItem(il_handleArray[ll_index], ltvi_item)
if ll_rc < 0 then return -1
//get the data from the item and its parents and load it into the rid array
ll_handle = il_handleArray[ll_index]
li_level = ltvi_item.level
ll_rid[li_level] = ltvi_item.data
for li_i = (li_level - 1) to 1 step -1
ll_handle = this.finDAT* dItem(parentTreeItem!, ll_handle)
if ll_handle < 0 then return -1
ll_rc = this.getItem(ll_handle, ltvi_item)
if ll_rc < 0 then return -1
ll_rid[li_i] = ltvi_item.data
next
//create a row in the source criteria buffer and add the contents of the
//rid array to the new row
ll_row = iclass_group.ids_sourceCriteria.insertRow(0)
if ll_row < 0 then return -1
for li_i = 1 to li_level
choose case li_i
case ii_nationLevel
ls_columnName = iclass_group.is_DAT* nationRid
case ii_stateLevel
ls_columnName = iclass_group.is_stateRid
case ii_countyLevel
ls_columnName = iclass_group.is_countyRid
case ii_sourceLevel
ls_columnName = iclass_group.is_sourceRid
case ii_sourceSub1Level
ls_columnName = iclass_group.is_sourceSub1Rid
case ii_sourceSub2Level
ls_columnName = iclass_group.is_sourceSub2Rid
case ii_sourceSub3Level
ls_columnName = iclass_group.is_sourceSub3Rid
case ii_sourceSub4Level
ls_columnNaDAT* me = iclass_group.is_sourceSub4Rid
end choose
ll_rc = iclass_group.ids_sourceCriteria.setItem(ll_row, ls_columnName, ll_rid[li_i])
if ll_rc < 0 then return -1
next
next //ll_index
ib_selectionsProcessed = true
return 1
end event
event itempopulate;
long ll_rc
long ll_row
long ll_rid
long ll_childHandle
long ll_parentRID
long ll_childRID
string ls_childID
string ls_childName
string ls_columnName
string ls_nextColumnName
boolean lb_saveRedraw
DAT* boolean lb_saveGroupModified
boolean lb_itemPopulate
boolean lb_parentSelected = false
treeViewItem ltvi_parentItem
treeViewItem ltvi_childItem
u_ds_base lds_buffer
setPointer(hourGlass!)
//Grab the parent item to be populated
ll_rc = this.getItem(handle,ltvi_parentItem)
if ll_rc < 0 then
messageBox("Error", "tv_source::item Populate(); error in call to getItem().", exclamation!)
return -1
end if
//Flag the parent selection state
if ltvi_parentItem.statePictureIndex = ii_DAT* selected then lb_parentSelected = true
//Set up datastore for retrieving appropriate child items.
lds_buffer = create u_ds_base
if not isValid(lds_buffer) then
messageBox("Error", "tv_source::item Populate(); error creating lds_buffer.", exclamation!)
return -1
end if
//Determine the data object to use and the associated source criteria buffer column names.
//The data object names are saved in constant instance variables.
choose case ltvi_parentItem.level
case ii_countyLevel
lDAT* ds_buffer.dataObject = is_sourceData
ls_columnName = iclass_group.is_sourceRid
ls_nextColumnName = iclass_group.is_sourceSub1Rid
case ii_sourceLevel
lds_buffer.dataObject = is_deviceData
ls_columnName = iclass_group.is_sourceSub1Rid
ls_nextColumnName = iclass_group.is_sourceSub2Rid
case ii_deviceLevel
lds_buffer.dataObject = is_processData
ls_columnName = iclass_group.is_sourceSub2Rid
setNull(ls_nextColumnName)
case else
messageBox("Error", "tv_source::item PopulatDAT* e(); " +&
"populate triggered for unsupported tree level.", exclamation!)
destroy lds_buffer
return -1
end choose
lds_buffer.setTransObject(SQLCA)
//retrieve the children for the selected parent item
ll_parentRID = long(ltvi_parentItem.data)
ll_rc = lds_buffer.retrieve(ll_parentRID)
if ll_rc > 0 then
//set expanded flag
ltvi_parentItem.expandedOnce = true
this.setItem(handle,ltvi_parentItem) //update the parent item
elseif ll_rc = 0 then
//no children for parent itDAT* em
ltvi_parentItem.children = false
ltvi_parentItem.expandedOnce = true
this.setItem(handle,ltvi_parentItem) //update the parent item
this.selectItem(handle)
destroy lds_buffer
return 0
else
//retrieval error
destroy lds_buffer
return -1
end if
//initialize some of the child treeview item properties
ltvi_childItem.pictureIndex = ltvi_parentItem.pictureIndex + 1
ltvi_childItem.selectedPictureIndex = ltvi_childItem.pictureIndex
if ltvi_childItem.pictureIndex < ii_processDAT* Level then
ltvi_childItem.children = true
else
ltvi_childItem.children = false
end if
lb_saveGroupModified = ib_groupModified
lb_saveRedraw = ib_redraw
if lb_saveRedraw then this.setRedraw(false)
//loop through the data buffer and add each child to the tree
for ll_row = 1 to lds_buffer.rowCount()
lb_itemPopulate = false
//set up a new item
ll_childRID = lds_buffer.getItemNumber(ll_row, "rid")
ls_childID = lds_buffer.getItemString(ll_row, "id") + " "
if lds_buDAT* ffer.dataObject = is_sourceData then
ls_childName = "(" + lds_buffer.getItemString(ll_row, "type") + ") " + lds_buffer.getItemString(ll_row, "name")
else
ls_childName = lds_buffer.getItemString(ll_row, "name")
end if
if isNull(ls_childID) then ls_childID = ""
if isNull(ls_childName) then ls_childName = ""
ltvi_childItem.data = ll_childRID
ltvi_childItem.label = ls_childID + ls_childName
//if the parent item is not selected, the child item selection state must
//be deteDAT* rmined here
if not lb_parentSelected then
//search for the item rid in the source criteria buffer
ll_rc = iclass_group.of_findData(ls_columnName, ll_childRID)
if ll_rc > 0 then
//item rid found, see if source criteria record has a child item filled in
if isNull(ls_nextColumnName) then
setNull(ll_rid)
else
ll_rid = iclass_group.ids_sourceCriteria.getItemNumber(ll_rc, ls_nextColumnName)
end if
if isNull(ll_rid) then
ltvi_childItem.statePictureInDAT* dex = ii_selected
else
//item has children selected beneath it, so set flag to populate the item
lb_itemPopulate = true
ltvi_childItem.statePictureIndex = ii_notSelected //let child determine state
end if
elseif ll_rc = 0 then
ltvi_childItem.statePictureIndex = ii_notSelected
else
messageBox("Error", "tv_source::itemPopulate(); error searching for item rid.", exclamation!)
destroy lds_buffer
return -1
end if
end if
ll_childHandle = thiDAT* s.insertItemLast(handle, ltvi_childItem)
if ll_childHandle < 0 then
messageBox("Error", "tv_source::itemPopulate(); error in call to insertItemLast().", exclamation!)
destroy lds_buffer
return -1
end if
if lb_itemPopulate then
ll_rc = this.trigger event itemPopulate(ll_childHandle)
if ll_rc < 0 then
destroy lds_buffer
return -1
end if
end if
next
if lb_saveRedraw then this.setRedraw(true)
ib_groupModified = lb_saveGroupModified
destroy lds_buffer
DAT*
this.selectItem(handle)
return 0
end event
event ue_selectionchanged;call super::ue_selectionchanged;
ib_groupModified = true
iw_source_selector.of_enableRefresh(true)
end event
event ue_processallselections;call super::ue_processallselections;
messageBox("Usage", "Use tv_source::ue_processSelections() to get minimized selections.", information!)
return 1
end event
type tabpage_sic from userobject within tab_control
integer x = 18
integer y = 100
integer width = 2542
DAT*
integer height = 1516
long backcolor = 79741120
string text = "SIC Codes"
long tabtextcolor = 33554432
long tabbackcolor = 79741120
long picturemaskcolor = 536870912
cb_sic_refresh cb_sic_refresh
tv_sic tv_sic
end type
on tabpage_sic.create
this.cb_sic_refresh=create cb_sic_refresh
this.tv_sic=create tv_sic
this.Control[]={this.cb_sic_refresh,&
this.tv_sic}
end on
on tabpage_sic.destroy
destroy(this.cb_sic_refresh)
destroy(this.tv_sic)
end on
type cb_sic_refresh from commDAT* andbutton within tabpage_sic
integer x = 50
integer y = 16
integer width = 361
integer height = 96
integer taborder = 10
integer textsize = -10
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean enabled = false
string text = "Refresh"
end type
event clicked;
tv_sic.setRedraw(false)
tv_sic.trigger event ue_load(1)
tv_sic.setRedraw(true)
this.enabled = false
end event
type tv_sic from u_tv_selection_tree witDAT* hin tabpage_sic
event type long ue_insertgroup ( readonly u_ds_base ads_buffer, readonly string as_sicarray[], readonly long al_rowarray[], long al_segstart, long al_segend, integer ai_curpos, long al_grouphandle, ref treeviewitem atvi_item, ref treeviewitem atvi_groupitem )
event type long ue_load ( integer ai_mode )
integer x = 37
integer y = 144
integer width = 2450
integer height = 1312
integer taborder = 20
string picturename[] = {"tvCFold.bmp","tvOFold.bmp"}
end type
evenDAT* t ue_insertgroup;call super::ue_insertgroup;
//Recursive routine to add groups and grouped items to the tree
long ll_rc
long ll_index
long ll_maxIndex
long ll_handle
long ll_groupHandle
long ll_segSize
long ll_subSegSize
long ll_subSegStart
long ll_subSegEnd
integer li_curPos
string ls_sicCode
string ls_sicName
string ls_findString
setPointer(hourglass!)
ll_segSize = al_segEnd - al_segStart + 1
ll_groupHandle = al_groupHandle
li_curPos = ai_curPos + 1
ll_index = al_seDAT* gStart
do while ll_index <= al_segEnd
//find sub segment (sub group) of given segment
ll_subSegStart = ll_index
ll_subSegSize = 0
do while true
//read the next code from the array
ls_sicCode = as_sicArray[ll_index]
if ll_subSegSize = 0 then
ll_subSegSize ++
elseif mid(as_sicArray[ll_index - 1], li_curPos, 1) = mid(ls_sicCode, li_curPos, 1) then
ll_subSegSize ++
else
exit
end if
ll_index ++
if ll_index > al_segEnd then exit
loop
DAT* ll_subSegEnd = ll_subSegStart + ll_subSegSize - 1
//Debug Group
// string s
// long i
// s = "_________________________________"
// for i = ll_subSegStart to ll_subSegEnd
// s = s + "~r~n" + as_sicArray[i]
// next
// messageBox("Debug Group: CurPos = " + string(li_curPos), s, none!)
//if the sub segment is actually the entire segment, then no group item
//is needed at the current level, go to next level and reset the
//index to the beginning of the segment
if ll_subSegSize DAT* = ll_segSize then
li_curPos ++
ll_index = al_segStart
continue
end if
//create the group item for the current level
if ll_groupHandle = al_groupHandle then
//create the group code using the first (li_curPos - 1) characters
//from the first group item's code
ls_sicCode = mid(as_sicArray[ll_subSegStart], 1, li_curPos - 1)
if len(ls_sicCode) = len(as_sicArray[ll_subSegStart]) then
//if the new group code matches the first item in the group
//then get the DAT* name from the item
ls_sicName = ads_buffer.getItemString(al_rowArray[ll_subSegStart], "sic_name")
if isNull(ls_sicName) then ls_sicName = ""
else
//get the name from the database for groups that don't have a member with
//the same code
if len(ls_sicCode) > 1 then
SELECT rap_sic_codes.name
INTO :ls_sicName
FROM rap_sic_codes
WHERE rap_sic_codes.code = :ls_sicCode
USING SQLCA;
end if
end if
//set single digDAT* it group items to expanded
if len(ls_sicCode) > 1 then
atvi_groupItem.expanded = false
atvi_groupItem.pictureIndex = 1
atvi_groupItem.selectedPictureIndex = atvi_groupItem.pictureIndex
else
atvi_groupItem.expanded = true
atvi_groupItem.pictureIndex = 2
atvi_groupItem.selectedPictureIndex = atvi_groupItem.pictureIndex
end if
//insert the group Item
atvi_groupItem.label = ls_sicCode + " " + ls_sicName
ll_groupHandle = this.insertItemLast(al_groupHandle,DAT* atvi_groupItem)
if ll_groupHandle < 0 then return -1
end if
//add items or sub groups to the current group
if ll_subSegSize >= 2 then
//RECURSION
//if the sub segment size is >= 2 then add the segment as a group
ll_handle = this.trigger event ue_insertGroup(ads_buffer, as_sicArray, al_rowArray, &
ll_subSegStart, ll_subSegEnd, li_curPos, ll_groupHandle, atvi_item, atvi_groupItem)
if ll_handle < 0 then return -1
elseif ll_subSegSize = 1 then
//insertDAT* a group of size 1 (single item) at current group level
//set up the item
ls_sicName = ads_buffer.getItemString(al_rowArray[ll_subSegStart], "sic_name")
if isNull(ls_sicName) then ls_sicName = ""
atvi_item.label = as_sicArray[ll_subSegStart] + " " + ls_sicName
atvi_item.data = as_sicArray[ll_subSegStart]
//build a search string (done in steps to avoid system errors that happened when concatenating)
ls_findString = iclass_group.is_filterColumnName
ls_findString = lsDAT* _findString + " = '"
ls_findString = ls_findString + iclass_group.is_sicFilterColumnCode
ls_findString = ls_findString + "' and "
if as_sicArray[ll_subSegStart] = is_nullCode then
ls_findString = ls_findString + "isNull("
ls_findString = ls_findString + iclass_group.is_filterColumnValue
ls_findString = ls_findString + ")"
else
ls_findString = ls_findString + iclass_group.is_filterColumnValue
ls_findString = ls_findString + " = '"
ls_findString = ls_findString DAT* + as_sicArray[ll_subSegStart]
ls_findString = ls_findString + "'"
end if
//look for item in buffer (captured selections)
ll_rc = iclass_group.ids_filterCriteria.find(ls_findString, 1, iclass_group.ids_filterCriteria.rowCount())
//force the new item into a definite state to override the insert item's default behavior
//which is to set new item states to the same as the parent state
if ll_rc > 0 then
atvi_item.statePictureIndex = ii_selected
elseif ll_rc = 0 then
DAT* atvi_item.statePictureIndex = ii_notSelected
else
messageBox("Tree View Error", "tv_sic::ue_insertGroup(); error searching for item.", exclamation!)
return -1
end if
//insert the new item
ll_handle = this.insertItemLast(ll_groupHandle, atvi_item)
if ll_handle < 0 then
messageBox("Tree View Error", "tv_sic::ue_insertGroup(); error inserting item.", exclamation!)
return -1
end if
else
messageBox("Tree View Error", "tv_sic::ue_insertGroup(); grDAT* oup size can't be zero.", exclamation!)
return -1
end if
loop
return ll_groupHandle
end event
event ue_load;
//Populates the SIC treeview object
//Argument ai_mode specifies how to load the treeview:
//0 = load directly from buffer (iclass_group.ids_filterCriteria)
//1 = refresh; capture current selections, clear treeview, load treeview
// based on source selection criteria, re-select captured selections
long ll_rc
long ll_row
long ll_rowCount
long ll_rDAT*
owArray[]
long ll_arraySize
long ll_segStart
long ll_segEnd
long ll_handle
integer li_curPos
string ls_sicCode
string ls_sicName
string ls_sicArray[]
string ls_findString
boolean lb_saveGroupModified
u_ds_base lds_buffer
treeViewItem ltvi_item
treeViewItem ltvi_groupItem
setPointer(hourglass!)
//grab the current group modification status
//the load operation will cause this to always be false, so it must be reset at the end of the function
lb_saveGroupModified = ib_groupModDAT* ified
//set up the data buffer
lds_buffer = create u_ds_base
if not isValid(lds_buffer) then
messageBox("Error", "tv_sic::ue_load(); lds_buffer creation failed",exclamation!)
return -1
end if
//set up and retrieve the data buffer based on current mode
if ai_mode = 0 then
//Mode 0: Load treeview from filter buffer
//update the filter arrays in iclass_group
//(iclass_group.is_sicArray is used as a retrieval arg below and is populated
//by iclass_group.of_getFilterSQL())DAT*
ll_rc = iclass_group.of_getFilterSQL(ls_findString) //(ls_findString is just a dummy arg here)
if ll_rc < 0 then
messageBox("Error", "tv_sic::ue_load(); error in call to iclass_group.of_getFilterSQL()",exclamation!)
destroy lds_buffer
return -1
end if
//if no SIC codes were selected, clear the treeview and return
if upperBound(iclass_group.is_sicArray) <= 0 and not iclass_group.ib_nullSIC then
this.of_reset()
ib_groupModified = lb_saveGroupModified
destroy lds_buffeDAT* r
return 0
end if
//retrieve the SIC data based on the contents of iclass_group.ids_filterCriteria
lds_buffer.dataObject = is_sicBufferData
lds_buffer.setTransObject(SQLCA)
//if the SIC array is not empty, retrieve the SICs in the array
if upperBound(iclass_group.is_sicArray) > 0 then
ll_rc = lds_buffer.retrieve(iclass_group.is_sicArray)
if ll_rc < 0 then
messageBox("Error", "tv_sic::ue_load(); error retrieving lds_buffer",exclamation!)
destroy lds_buffer
retuDAT* rn -1
end if
end if
//if ib_nullSIC is true, add a null SIC to the buffer by adding
//an empty row at the beginning of the buffer
if iclass_group.ib_nullSIC then
ll_rc = lds_buffer.insertRow(1)
if ll_rc < 0 then
messageBox("Error", "tv_sic::ue_load(); error inserting row to lds_buffer",exclamation!)
destroy lds_buffer
return -1
end if
end if
else
//Mode 1: Refresh the treeview
//capture the current SIC selections
//this updates the filter buffeDAT* r with currently selected sic treeview items
ll_rc = this.event trigger ue_processAllSelections()
if ll_rc < 0 then
messageBox("Error", "tv_sic::ue_load(); error processing selections for tv_sic",exclamation!)
destroy lds_buffer
return -1
end if
//capture the current source selections
ll_rc = itv_source.event trigger ue_processSelections()
if ll_rc < 0 then
messageBox("Error", "tv_sic::ue_load(); error processing selections for tv_source",exclamation!)
destroy lds_buffDAT* er
return -1
end if
if iclass_group.ids_sourceCriteria.rowCount() = 0 then
messageBox("Information", "No source or geographic data has been selected.",information!)
this.of_reset()
destroy lds_buffer
return 0
end if
//patch in the SQL fragment for identifying source selections
if iclass_group.of_getDataLevel() > iclass_group.ii_sourceLevel then
lds_buffer.dataObject = is_sicDataSubSource
else
lds_buffer.dataObject = is_sicData
end if
lds_buffer.setTransObjectDAT* (SQLCA)
ll_rc = iclass_group.of_modObjectSQL(lds_buffer, 1) //1 => SQL from source criteria only
if ll_rc < 0 then
messageBox("Error", "tv_sic::ue_load(); error modifying SQL for lds_buffer",exclamation!)
destroy lds_buffer
return -1
elseif ll_rc = 0 then
messageBox("Information", "No source or geographic data has been selected.",information!)
this.of_reset()
destroy lds_buffer
return 0
end if
//retrieve the SIC data based on current source selections
ll_rc = ldsDAT* _buffer.retrieve(iclass_group.il_nationArray, iclass_group.il_stateArray, &
iclass_group.il_countyArray, iclass_group.il_sourceArray, &
iclass_group.il_sourceSub1Array, iclass_group.il_sourceSub2Array )
if ll_rc < 0 then
messageBox("Error", "tv_sic::ue_load(); error retrieving lds_buffer",exclamation!)
destroy lds_buffer
return -1
end if
end if //ai_mode
//messageBox("Debug", "SIC Codes Retrieved: " + string(ll_rc), none!)
//clear the treeview
this.ofDAT* _reset()
//set up default SIC treeview item
ltvi_item.children = false
ltvi_item.expandedOnce = true
ltvi_item.data = ""
ltvi_item.label = ""
//set up default group treeview item
ltvi_groupItem.pictureIndex = 1
ltvi_groupItem.selectedPictureIndex = ltvi_groupItem.pictureIndex
ltvi_groupItem.Expanded = false
ltvi_groupItem.children = true
ltvi_groupItem.expandedOnce = true
ltvi_groupItem.bold = true
ltvi_groupItem.data = is_groupCode
ltvi_groupItem.label = ""
li_curPos = 1
DAT* ll_rowCount = lds_buffer.rowCount()
ll_row = 1
do while ll_row <= ll_rowCount
ll_arraySize = 0
ll_segStart = 1
do while true
//read the next code and add it to the array if it fits in current group
ls_sicCode = lds_buffer.getItemString(ll_row, "sic_code")
if isNull(ls_sicCode) then ls_sicCode = is_nullCode
if ll_arraySize = 0 then
ll_arraySize ++
ls_sicArray[ll_arraySize] = ls_sicCode
ll_rowArray[ll_arraySize] = ll_row
elseif mid(ls_sicArray[ll_arrayDAT* Size], li_curPos, 1) = mid(ls_sicCode, li_curPos, 1) then
ll_arraySize ++
ls_sicArray[ll_arraySize] = ls_sicCode
ll_rowArray[ll_arraySize] = ll_row
else
exit
end if
ll_row ++
if ll_row > ll_rowCount then exit
loop
ll_segEnd = ll_arraySize
//Debug Group
// string s
// long i
// s = ""
// for i = 1 to ll_arraySize
// s = s + "~r~n" + ls_sicArray[i]
// next
// messageBox("Debug Group", s, none!)
if ll_arraySize >= 2 then
ll_handle = this.DAT* " trigger event ue_insertGroup(lds_buffer, ls_sicArray, ll_rowArray, &
ll_segStart, ll_segEnd, li_curPos, 0, ltvi_item, ltvi_groupItem)
if ll_handle < 0 then
messageBox("Tree View Error", "tv_sic::ue_load(); error inserting group.", exclamation!)
destroy lds_buffer
return -1
end if
elseif ll_arraySize = 1 then
//insert a group of size 1 (single item) at root level
//set up the item
ls_sicName = lds_buffer.getItemString(ll_rowArray[ll_segStart], "sic_DAT* $ name")
if isNull(ls_sicName) then ls_sicName = ""
ltvi_item.label = ls_sicArray[ll_segStart] + " " + ls_sicName
ltvi_item.data = ls_sicArray[ll_segStart]
//build a search string (done in steps to avoid system errors that happened when concatenating)
ls_findString = iclass_group.is_filterColumnName
ls_findString = ls_findString + " = '"
ls_findString = ls_findString + iclass_group.is_sicFilterColumnCode
ls_findString = ls_findString + "' and "
if ls_sicArray[ll_segStarDAT* & t] = is_nullCode then
ls_findString = ls_findString + "isNull("
ls_findString = ls_findString + iclass_group.is_filterColumnValue
ls_findString = ls_findString + ")"
else
ls_findString = ls_findString + iclass_group.is_filterColumnValue
ls_findString = ls_findString + " = '"
ls_findString = ls_findString + ls_sicArray[ll_segStart]
ls_findString = ls_findString + "'"
end if
//look for item in buffer (captured selections)
ll_rc = iclass_group.ids_filterCDAT* ( riteria.find(ls_findString, 1, iclass_group.ids_filterCriteria.rowCount())
//force the new item into a definite state to override the insert item's default behavior
//which is to set new item states to the same as the parent state
if ll_rc > 0 then
ltvi_item.statePictureIndex = ii_selected
elseif ll_rc = 0 then
ltvi_item.statePictureIndex = ii_notSelected
else
messageBox("Tree View Error", "tv_sic::ue_load(); error searching for item.", exclamation!)
destroy ldsDAT* * _buffer
return -1
end if
//insert the new item
ll_handle = this.insertItemLast(0, ltvi_item)
if ll_handle < 0 then
messageBox("Tree View Error", "tv_sic::ue_load(); error inserting item.", exclamation!)
destroy lds_buffer
return -1
end if
else
messageBox("Tree View Error", "tv_sic::ue_load(); group size can't be zero.", exclamation!)
destroy lds_buffer
return -1
end if
loop
//reset the group modified flag
ib_groupModified = lb_sDAT* , aveGroupModified
destroy lds_buffer
this.setFocus()
this.selectItem(this.findItem(rootTreeItem!,0))
return 1
end event
event ue_processselections;call super::ue_processselections;
messageBox("Usage", "Use tv_sic::ue_processAllSelections() to get actual selcted SIC Codes.", information!)
return 1
end event
event ue_processallselections;call super::ue_processallselections;
//Loop through the handle array and add the SIC codes
//to the filter criteria buffer
long lDAT* . l_index
long ll_row
long ll_rc
string ls_sicCode
treeviewitem ltvi_item
if this.ib_selectionsProcessed then return 0
setPointer(hourGlass!)
//clear out the sic filters from the filter criteria buffer
iclass_group.of_resetFilter(0) //0 specifies SIC filters
//loop through the handle array and add each selected item to the
//source criteria buffer
for ll_index = 1 to il_handleCount
//grab the item
ll_rc = this.getItem(il_handleArray[ll_index], ltvi_item)
if ll_rc < 0 thDAT* 0 en return -1
//get the data from the item
ls_sicCode = string(ltvi_item.data)
//ignore group items
if ls_sicCode = is_groupCode then continue
//create a row in the filter criteria buffer
ll_row = iclass_group.ids_filterCriteria.insertRow(0)
if ll_row < 0 then return -1
//add the filter column name to the new row
ll_rc = iclass_group.ids_filterCriteria.setItem(ll_row, iclass_group.is_filterColumnName, iclass_group.is_sicFilterColumnCode)
if ll_rc < 0 then return -1
DAT* 2
//set any null aliased code to actual null
if ls_sicCode = is_nullCode then
setNull(ls_sicCode)
end if
//add the filter value to the new row
ll_rc = iclass_group.ids_filterCriteria.setItem(ll_row, iclass_group.is_filterColumnValue, ls_sicCode)
if ll_rc < 0 then return -1
next //ll_index
this.ib_selectionsProcessed = true
return 1
end event
event ue_selectionchanged;call super::ue_selectionchanged;
ib_groupModified = true
end event
event itemexpanDAT* 4 ded;call super::itemexpanded;
treeViewItem ltvi_item
integer li_rc
li_rc = treeView::getItem(handle, ltvi_item)
if li_rc < 0 then return -1
ltvi_item.pictureIndex = 2
ltvi_item.selectedPictureIndex = ltvi_item.pictureIndex
li_rc = treeView::setItem(handle, ltvi_item)
if li_rc < 0 then return -1
return 1
end event
event itemcollapsed;call super::itemcollapsed;
treeViewItem ltvi_item
integer li_rc
li_rc = treeView::getItem(handle, ltvi_item)
if li_rc < 0 then return -1DAT* 6
ltvi_item.pictureIndex = 1
ltvi_item.selectedPictureIndex = ltvi_item.pictureIndex
li_rc = treeView::setItem(handle, ltvi_item)
if li_rc < 0 then return -1
return 1
end event
type tabpage_scc from userobject within tab_control
integer x = 18
integer y = 100
integer width = 2542
integer height = 1516
long backcolor = 79741120
string text = "SCC Codes"
long tabtextcolor = 33554432
long tabbackcolor = 79741120
long picturemaskcolor = 536870912
cb_scc_refresh cb_scc_refresh
DAT* 8 tv_scc tv_scc
end type
on tabpage_scc.create
this.cb_scc_refresh=create cb_scc_refresh
this.tv_scc=create tv_scc
this.Control[]={this.cb_scc_refresh,&
this.tv_scc}
end on
on tabpage_scc.destroy
destroy(this.cb_scc_refresh)
destroy(this.tv_scc)
end on
type cb_scc_refresh from commandbutton within tabpage_scc
event clicked pbm_bnclicked
integer x = 50
integer y = 16
integer width = 361
integer height = 96
integer taborder = 10
integer textsize = -10
integer weight = 400
foDAT* : ntpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean enabled = false
string text = "Refresh"
end type
event clicked;
tv_scc.setRedraw(false)
tv_scc.trigger event ue_load(1)
tv_scc.setRedraw(true)
this.enabled = false
end event
type tv_scc from u_tv_selection_tree within tabpage_scc
event type long ue_insertgroup ( readonly u_ds_base ads_buffer, readonly string as_sccarray[], readonly long al_rowarray[], readonly integer ai_parse[], lDAT* < ong al_segstart, long al_segend, integer ai_curpos, long al_grouphandle, ref treeviewitem atvi_item, ref treeviewitem atvi_groupitem )
event type integer ue_load ( integer ai_mode )
integer x = 37
integer y = 144
integer width = 2450
integer height = 1312
integer taborder = 20
string picturename[] = {"tvCFold.bmp","tvOFold.bmp"}
end type
event ue_insertgroup;call super::ue_insertgroup;
//Recursive routine to add groups and grouped items to the tree
long ll_rc
long ll_index
DAT* > long ll_maxIndex
long ll_handle
long ll_groupHandle
long ll_segSize
long ll_subSegSize
long ll_subSegStart
long ll_subSegEnd
integer li_curPos
integer li_curLen
string ls_sccCode
string ls_sccName
string ls_nameColumn
string ls_findString
setPointer(hourglass!)
ll_segSize = al_segEnd - al_segStart + 1
ll_groupHandle = al_groupHandle
li_curPos = ai_curPos + 1
ll_index = al_segStart
do while ll_index <= al_segEnd
//find the length of the code string that is already knDAT* @ own to be
//the same for all members of the segment
li_curLen = 0
for ll_rc = 1 to (li_curPos - 1)
li_curLen += ai_parse[ll_rc]
next
//find sub segment (sub group) of given segment
ll_subSegStart = ll_index
ll_subSegSize = 0
do while true
//read the next code from the array
ls_sccCode = as_sccArray[ll_index]
if ll_subSegSize = 0 then
ll_subSegSize ++
elseif mid(as_sccArray[ll_index - 1], li_curLen + 1, ai_parse[li_curPos]) = mid(ls_sccCode, li_curLen DAT* B + 1, ai_parse[li_curPos]) then
ll_subSegSize ++
else
exit
end if
ll_index ++
if ll_index > al_segEnd then exit
loop
ll_subSegEnd = ll_subSegStart + ll_subSegSize - 1
//Debug Group
// string s
// long i
// s = "_________________________________"
// for i = ll_subSegStart to ll_subSegEnd
// s = s + "~r~n" + as_sccArray[i]
// next
// messageBox("Debug Group: CurPos = " + string(li_curPos), s, none!)
//if the sub segment is actually the entire segment,DAT* D then no group item
//is needed at the current level, go to next level and reset the
//index to the beginning of the segment
if ll_subSegSize = ll_segSize then
li_curPos ++
ll_index = al_segStart
continue
end if
//create the group item for the current level
if ll_groupHandle = al_groupHandle then
//create the group code using the first (li_curPos - 1) characters
//from the first group item's code
ls_sccCode = mid(as_sccArray[ll_subSegStart], 1, li_curLen)
DAT* F ls_nameColumn = "scc_name" + string(li_curPos - 1)
ls_sccName = ads_buffer.getItemString(al_rowArray[ll_subSegStart], ls_nameColumn)
//set single digit group items to expanded
if len(ls_sccCode) > 1 then
atvi_groupItem.expanded = false
atvi_groupItem.pictureIndex = 1
atvi_groupItem.selectedPictureIndex = atvi_groupItem.pictureIndex
else
atvi_groupItem.expanded = true
atvi_groupItem.pictureIndex = 2
atvi_groupItem.selectedPictureIndex = atvi_groupItem.pictuDAT* H reIndex
end if
//insert the group Item
atvi_groupItem.label = ls_sccCode + " " + ls_sccName
ls_nameColumn = "scc_name" + string(li_curPos)
ll_groupHandle = this.insertItemLast(al_groupHandle, atvi_groupItem)
if ll_groupHandle < 0 then return -1
end if
//add items or sub groups to the current group
if ll_subSegSize >= 2 then
//RECURSION
//if the sub segment size is >= 2 then add the segment as a group
ll_handle = this.trigger event ue_insertGroup(adsDAT* J _buffer, as_sccArray, al_rowArray, &
ai_parse, ll_subSegStart, ll_subSegEnd, li_curPos, ll_groupHandle, atvi_item, atvi_groupItem)
if ll_handle < 0 then return -1
elseif ll_subSegSize = 1 then
//insert a group of size 1 (single item) at current group level
//set up the item
ls_sccName = ads_buffer.getItemString(al_rowArray[ll_subSegStart], ls_nameColumn)
if isNull(ls_sccName) then ls_sccName = ""
atvi_item.label = as_sccArray[ll_subSegStart] + " " + ls_sccName
DAT* L
atvi_item.data = as_sccArray[ll_subSegStart]
//build a search string (done in steps to avoid system errors that happened when concatenating)
ls_findString = iclass_group.is_filterColumnName
ls_findString = ls_findString + " = '"
ls_findString = ls_findString + iclass_group.is_sccFilterColumnCode
ls_findString = ls_findString + "' and "
if as_sccArray[ll_subSegStart] = is_nullCode then
ls_findString = ls_findString + "isNull("
ls_findString = ls_findString + iclass_DAT* N group.is_filterColumnValue
ls_findString = ls_findString + ")"
else
ls_findString = ls_findString + iclass_group.is_filterColumnValue
ls_findString = ls_findString + " = '"
ls_findString = ls_findString + as_sccArray[ll_subSegStart]
ls_findString = ls_findString + "'"
end if
//look for item in buffer (captured selections)
ll_rc = iclass_group.ids_filterCriteria.find(ls_findString, 1, iclass_group.ids_filterCriteria.rowCount())
//force the new item into DAT* P a definite state to override the insert item's default behavior
//which is to set new item states to the same as the parent state
if ll_rc > 0 then
atvi_item.statePictureIndex = ii_selected
elseif ll_rc = 0 then
atvi_item.statePictureIndex = ii_notSelected
else
messageBox("Tree View Error", "tv_scc::ue_insertGroup(); error searching for item.", exclamation!)
return -1
end if
//insert the new item
ll_handle = this.insertItemLast(ll_groupHandle, atvi_item)
DAT* R if ll_handle < 0 then
messageBox("Tree View Error", "tv_scc::ue_insertGroup(); error inserting item.", exclamation!)
return -1
end if
else
messageBox("Tree View Error", "tv_scc::ue_insertGroup(); group size can't be zero.", exclamation!)
return -1
end if
loop
return ll_groupHandle
end event
event ue_load;
//Populates the SCC treeview object with SCC data related to the current
//source selection data.
long ll_rc
long ll_row
long ll_roDAT* T wCount
long ll_rowArray[]
long ll_arraySize
long ll_segStart
long ll_segEnd
long ll_handle
integer li_parse[4] = {2, 2, 2, 2}
integer li_curPos
string ls_sccCode
string ls_sccName
string ls_sccArray[]
string ls_findString
boolean lb_saveGroupModified
u_ds_base lds_buffer
treeViewItem ltvi_item
treeViewItem ltvi_groupItem
setPointer(hourglass!)
//grab the current group modification status
//the load operation will cause this to always be false, so it must be reset at the enDAT* V d of the function
lb_saveGroupModified = ib_groupModified
//set up the data buffer
lds_buffer = create u_ds_base
if not isValid(lds_buffer) then
messageBox("Error", "tv_scc::ue_load(); lds_buffer creation failed",exclamation!)
return -1
end if
//set up and retrieve the data buffer based on current mode
if ai_mode = 0 then
//Mode 0: Load treeview from filter buffer
//update the filter arrays in iclass_group
//(iclass_group.is_sccArray is used as a retrieval arg below and DAT* X is populated
//by iclass_group.of_getFilterSQL())
ll_rc = iclass_group.of_getFilterSQL(ls_findString) //(ls_findString is just a dummy arg here)
if ll_rc < 0 then
messageBox("Error", "tv_scc::ue_load(); error in call to iclass_group.of_getFilterSQL()",exclamation!)
destroy lds_buffer
return -1
end if
//if no SCC codes were selected, clear the treeview and return
if upperBound(iclass_group.is_sccArray) <= 0 and not iclass_group.ib_nullSCC then
this.of_reset()
ib_groupMDAT* Z odified = lb_saveGroupModified
destroy lds_buffer
return 0
end if
//retrieve the SCC data based on the contents of iclass_group.ids_filterCriteria
lds_buffer.dataObject = is_sccBufferData
lds_buffer.setTransObject(SQLCA)
//if the SCC array is not empty, retrieve the SCCs in the array
if upperBound(iclass_group.is_sccArray) > 0 then
ll_rc = lds_buffer.retrieve(iclass_group.is_sccArray)
if ll_rc < 0 then
messageBox("Error", "tv_scc::ue_load(); error retrieving lds_buDAT* \ ffer",exclamation!)
destroy lds_buffer
return -1
end if
end if
//if ib_nullSCC is true, add a null SCC to the buffer by adding
//an empty row at the beginning of the buffer
if iclass_group.ib_nullSCC then
ll_rc = lds_buffer.insertRow(1)
if ll_rc < 0 then
messageBox("Error", "tv_scc::ue_load(); error inserting row to lds_buffer",exclamation!)
destroy lds_buffer
return -1
end if
end if
else
//Mode 1: Refresh the treeview
//capture the curreDAT* ^ nt SCC selections
//this updates the filter buffer with currently selected SCC treeview items
ll_rc = this.event trigger ue_processAllSelections()
if ll_rc < 0 then
messageBox("Error", "tv_scc::ue_load(); error processing selections for tv_scc",exclamation!)
destroy lds_buffer
return -1
end if
//capture the current source selections
ll_rc = itv_source.event trigger ue_processSelections()
if ll_rc < 0 then
messageBox("Error", "tv_scc::ue_load(); error processing selectioDAT* ` ns for tv_source",exclamation!)
destroy lds_buffer
return -1
end if
if iclass_group.ids_sourceCriteria.rowCount() = 0 then
messageBox("Information", "No source or geographic data has been selected.",information!)
this.of_reset()
destroy lds_buffer
return 0
end if
//patch in the SQL fragment for identifying source selections
lds_buffer.dataObject = is_sccData
lds_buffer.setTransObject(SQLCA)
ll_rc = iclass_group.of_modObjectSQL(lds_buffer, 1) //1 => SQL from sourDAT* b ce criteria only
if ll_rc < 0 then
messageBox("Error", "tv_scc::ue_load(); error modifying SQL for lds_buffer",exclamation!)
destroy lds_buffer
return -1
elseif ll_rc = 0 then
messageBox("Information", "No source or geographic data has been selected.",information!)
this.of_reset()
destroy lds_buffer
return 0
end if
//retrieve the SCC data based on current source selections
ll_rc = lds_buffer.retrieve(iclass_group.il_nationArray, iclass_group.il_stateArray, &
DAT* d iclass_group.il_countyArray, iclass_group.il_sourceArray, &
iclass_group.il_sourceSub1Array, iclass_group.il_sourceSub2Array)
if ll_rc < 0 then
messageBox("Error", "tv_scc::ue_load(); error retrieving lds_buffer",exclamation!)
destroy lds_buffer
return -1
end if
end if //ai_mode
//messageBox("Debug", "SCC Codes Retrieved: " + string(ll_rc), none!)
//clear the treeview
this.of_reset()
//set up default SCC treeview item
ltvi_item.children = false
ltvi_itDAT* f em.expandedOnce = true
ltvi_item.data = ""
ltvi_item.label = ""
//set up default group treeview item
ltvi_groupItem.pictureIndex = 1
ltvi_groupItem.selectedPictureIndex = ltvi_groupItem.pictureIndex
ltvi_groupItem.Expanded = false
ltvi_groupItem.children = true
ltvi_groupItem.expandedOnce = true
ltvi_groupItem.bold = true
ltvi_groupItem.data = is_groupCode
ltvi_groupItem.label = ""
li_curPos = 1
ll_rowCount = lds_buffer.rowCount()
ll_row = 1
do while ll_row <= ll_rowCountDAT* h
ll_arraySize = 0
ll_segStart = 1
do while true
//read the next code and add it to the array if it fits in current group
ls_sccCode = lds_buffer.getItemString(ll_row, "scc_code")
if isNull(ls_sccCode) then ls_sccCode = is_nullCode
//determine the parsing scheme based on code length
if len(ls_sccCode) = 8 then
li_parse = {2, 2, 2, 2}
else
li_parse = {2, 2, 3, 3}
end if
if ll_arraySize = 0 then
ll_arraySize ++
ls_sccArray[ll_arraySize] = lDAT* j s_sccCode
ll_rowArray[ll_arraySize] = ll_row
elseif mid(ls_sccArray[ll_arraySize], li_curPos, li_parse[li_curPos]) = mid(ls_sccCode, li_curPos, li_parse[li_curPos]) then
ll_arraySize ++
ls_sccArray[ll_arraySize] = ls_sccCode
ll_rowArray[ll_arraySize] = ll_row
else
exit
end if
ll_row ++
if ll_row > ll_rowCount then exit
loop
ll_segEnd = ll_arraySize
//Debug Group
// string s
// long i
// s = ""
// for i = 1 to ll_arraySize
// s = s + "~r~n" + DAT* l ls_sccArray[i]
// next
// messageBox("Debug Group", s, none!)
if ll_arraySize >= 2 then
ll_handle = this.trigger event ue_insertGroup(lds_buffer, ls_sccArray, ll_rowArray, &
li_parse, ll_segStart, ll_segEnd, li_curPos, 0, ltvi_item, ltvi_groupItem)
if ll_handle < 0 then
messageBox("Tree View Error", "tv_scc::ue_load(); error inserting group.", exclamation!)
destroy lds_buffer
return -1
end if
elseif ll_arraySize = 1 then
//insert a group of sizeDAT* n 1 (single item) at root level
//set up the item
ls_sccName = lds_buffer.getItemString(ll_rowArray[ll_segStart], "scc_name1")
if isNull(ls_sccName) then ls_sccName = ""
ltvi_item.label = ls_sccArray[ll_segStart] + " " + ls_sccName
ltvi_item.data = ls_sccArray[ll_segStart]
//build a search string (done in steps to avoid system errors that happened when concatenating)
ls_findString = iclass_group.is_filterColumnName
ls_findString = ls_findString + " = '"
ls_findStDAT* p ring = ls_findString + iclass_group.is_sccFilterColumnCode
ls_findString = ls_findString + "' and "
if ls_sccArray[ll_segStart] = is_nullCode then
ls_findString = ls_findString + "isNull("
ls_findString = ls_findString + iclass_group.is_filterColumnValue
ls_findString = ls_findString + ")"
else
ls_findString = ls_findString + iclass_group.is_filterColumnValue
ls_findString = ls_findString + " = '"
ls_findString = ls_findString + ls_sccArray[ll_segStart]
ls_fiDAT* r ndString = ls_findString + "'"
end if
//look for item in buffer (captured selections)
ll_rc = iclass_group.ids_filterCriteria.find(ls_findString, 1, iclass_group.ids_filterCriteria.rowCount())
//force the new item into a definite state to override the insert item's default behavior
//which is to set new item states to the same as the parent state
if ll_rc > 0 then
ltvi_item.statePictureIndex = ii_selected
elseif ll_rc = 0 then
ltvi_item.statePictureIndex = ii_nDAT* t otSelected
else
messageBox("Tree View Error", "tv_scc::ue_load(); error searching for item.", exclamation!)
destroy lds_buffer
return -1
end if
//insert the new item
ll_handle = this.insertItemLast(0, ltvi_item)
if ll_handle < 0 then
messageBox("Tree View Error", "tv_scc::ue_load(); error inserting item.", exclamation!)
destroy lds_buffer
return -1
end if
else
messageBox("Tree View Error", "tv_scc::ue_load(); group size can't be zero.", eDAT* v xclamation!)
destroy lds_buffer
return -1
end if
loop
//reset the group modified flag
ib_groupModified = lb_saveGroupModified
destroy lds_buffer
this.setFocus()
this.selectItem(this.findItem(rootTreeItem!,0))
return 1
end event
event itemcollapsed;call super::itemcollapsed;
treeViewItem ltvi_item
integer li_rc
li_rc = treeView::getItem(handle, ltvi_item)
if li_rc < 0 then return -1
ltvi_item.pictureIndex = 1
ltvi_item.selectedPictureIndex = ltviDAT* x _item.pictureIndex
li_rc = treeView::setItem(handle, ltvi_item)
if li_rc < 0 then return -1
return 1
end event
event itemexpanded;call super::itemexpanded;
treeViewItem ltvi_item
integer li_rc
li_rc = treeView::getItem(handle, ltvi_item)
if li_rc < 0 then return -1
ltvi_item.pictureIndex = 2
ltvi_item.selectedPictureIndex = ltvi_item.pictureIndex
li_rc = treeView::setItem(handle, ltvi_item)
if li_rc < 0 then return -1
return 1
end event
event ue_selectionchanged;cDAT* z all super::ue_selectionchanged;
ib_groupModified = true
end event
event ue_processselections;call super::ue_processselections;
messageBox("Usage", "Use tv_scc::ue_processAllSelections() to get actual selcted SCC Codes.", information!)
return 1
end event
event ue_processallselections;call super::ue_processallselections;
//Loop through the handle array and add the SCC codes
//to the filter criteria buffer
long ll_index
long ll_row
long ll_rc
string ls_sccCode
treeviewitem lDAT* | tvi_item
if this.ib_selectionsProcessed then return 0
setPointer(hourGlass!)
//clear out the scc filters from the filter criteria buffer
iclass_group.of_resetFilter(1) //1 specifies SCC filters
//loop through the handle array and add each selected item to the
//source criteria buffer
for ll_index = 1 to il_handleCount
//grab the item
ll_rc = this.getItem(il_handleArray[ll_index], ltvi_item)
if ll_rc < 0 then return -1
//get the data from the item
ls_sccCode = strinDAT* ~ g(ltvi_item.data)
//ignore group items
if ls_sccCode = is_groupCode then continue
//create a row in the filter criteria buffer
ll_row = iclass_group.ids_filterCriteria.insertRow(0)
if ll_row < 0 then return -1
//add the filter column name to the new row
ll_rc = iclass_group.ids_filterCriteria.setItem(ll_row, iclass_group.is_filterColumnName, iclass_group.is_sccFilterColumnCode)
if ll_rc < 0 then return -1
//set any null aliased code to actual null
if ls_sccCode = iDAT* s_nullCode then
setNull(ls_sccCode)
end if
//add the filter value to the new row
ll_rc = iclass_group.ids_filterCriteria.setItem(ll_row, iclass_group.is_filterColumnValue, ls_sccCode)
if ll_rc < 0 then return -1
next //ll_index
this.ib_selectionsProcessed = true
return 1
end event
type tabpage_group from userobject within tab_control
integer x = 18
integer y = 100
integer width = 2542
integer height = 1516
long backcolor = 79741120
string text = "Group DDAT* ata"
long tabtextcolor = 33554432
long tabbackcolor = 79741120
long picturemaskcolor = 536870912
cbx_notify cbx_notify
cbx_auto cbx_auto
cb_save cb_save
cb_delete cb_delete
cb_new cb_new
dw_group dw_group
gb_1 gb_1
end type
on tabpage_group.create
this.cbx_notify=create cbx_notify
this.cbx_auto=create cbx_auto
this.cb_save=create cb_save
this.cb_delete=create cb_delete
this.cb_new=create cb_new
this.dw_group=create dw_group
this.gb_1=create gb_1
this.Control[]={this.cbx_notifDAT* y,&
this.cbx_auto,&
this.cb_save,&
this.cb_delete,&
this.cb_new,&
this.dw_group,&
this.gb_1}
end on
on tabpage_group.destroy
destroy(this.cbx_notify)
destroy(this.cbx_auto)
destroy(this.cb_save)
destroy(this.cb_delete)
destroy(this.cb_new)
destroy(this.dw_group)
destroy(this.gb_1)
end on
type cbx_notify from checkbox within tabpage_group
integer x = 146
integer y = 880
integer width = 1627
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcDAT* harset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long backcolor = 67108864
string text = "Notify at Startup for Sources in RECALCULATE Group"
boolean lefttext = true
end type
event constructor;
//get the value of the recalculate notify key from rapids.ini
string ls_notify
ls_notify = profileString(gs_iniFile, "RECALCULATE", "NOTIFY", "")
//create key if it does not exist
if trim(ls_notify) = "" then
ls_notify = "FALSE"DAT*
setProfileString(gs_iniFile, "RECALCULATE", "NOTIFY", ls_notify)
end if
if upper(ls_notify) = "TRUE" then
this.checked = TRUE
else
this.checked = FALSE
end if
return 1
end event
event clicked;
//set the ini file value that controls the whether message
//notifies user of non-empty recalculate group at startup
if this.checked then
setProfileString(gs_iniFile, "RECALCULATE", "NOTIFY", "TRUE")
else
setProfileString(gs_iniFile, "RECALCULATE", "NOTIFY", "FALSE")
end if
DAT*
end event
type cbx_auto from checkbox within tabpage_group
integer x = 146
integer y = 784
integer width = 1627
integer height = 80
integer textsize = -10
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long backcolor = 67108864
string text = "Automatically Add Sources to RECALCULATE Group "
boolean lefttext = true
end type
event clicked;
//set the database value that controls the tDAT* riggers
//for automatically adding sources to the recalc group
//when certain data are changed
if this.checked then
UPDATE rap_db_prefs
SET auto_add_to_recalc = 1
WHERE rid = 0
USING SQLCA ;
else
UPDATE rap_db_prefs
SET auto_add_to_recalc = -1
WHERE rid = 0
USING SQLCA ;
end if
if f_sqlCheck(SQLCA) < 0 then
ROLLBACK USING SQLCA ;
return -1
else
COMMIT USING SQLCA;
return 1
end if
end event
event constructor;
//get the value of the auto add to DAT* recalc column
//from the db prefs table
integer li_auto
long ll_rc
SELECT auto_add_to_recalc
INTO :li_auto
FROM rap_db_prefs
WHERE rid = 0
USING SQLCA;
ll_rc = f_sqlCheck(SQLCA)
if ll_rc < 0 then
return -1
elseif ll_rc = 100 then
messageBox("Error", "No data found in rap_db_prefs.", exclamation!)
return -1
end if
if li_auto > 0 then
this.checked = TRUE
else
this.checked = FALSE
end if
return 1
end event
type cb_save from commandbutton within tabpage_grDAT* oup
integer x = 2098
integer y = 512
integer width = 361
integer height = 96
integer taborder = 40
integer textsize = -10
integer weight = 700
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "&Save"
end type
event clicked;
long ll_rc
//bring iclass_group up to date
ll_rc = iw_source_selector.of_processSelections()
if ll_rc < 0 then return -1
//validate that all required fields are filled in
ll_rc = dw_group.trigger eveDAT* nt ue_validate()
if ll_rc < 0 then return -1
//save the group
ll_rc = iclass_group.of_saveGroup()
if ll_rc < 0 then return -1
ib_groupModified = false
dw_group.trigger event ue_refreshList()
dw_group.setFocus()
dw_group.setColumn("group_name")
return 1
end event
type cb_delete from commandbutton within tabpage_group
integer x = 2098
integer y = 192
integer width = 361
integer height = 96
integer taborder = 30
integer textsize = -10
integer weight = 400
fontpitch foDAT* ntpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "&Delete"
end type
event clicked;
long ll_groupRid
long ll_rc
string ls_groupName
ll_groupRid = iclass_group.ids_groupData.getItemNumber(1, iclass_group.is_groupRid)
if isNull(ll_groupRid) then return 0 //record not saved, can't delete
ls_groupName = trim(dw_group.getItemString(1, "group_name"))
if isNull(ls_groupName) or ls_groupName = "" then ls_groupName = '[no name]'
//confirm deleteDAT*
ll_rc = messageBox("Confirm Delete", "Delete group '" + ls_groupName + "' now?", question!, yesNo!)
if ll_rc = 2 then return 0
ll_rc = iclass_group.of_deleteGroup(ll_groupRid)
if ll_rc < 0 then return -1
dw_group.trigger event ue_init()
//make treeviews reflect the group
ll_rc = iw_source_selector.of_processGroup()
if ll_rc < 0 then return -1
dw_group.trigger event ue_refreshList()
dw_group.setFocus()
dw_group.setColumn("group_name")
return ll_rc
end event
type cb_DAT* new from commandbutton within tabpage_group
integer x = 2098
integer y = 64
integer width = 361
integer height = 96
integer taborder = 10
integer textsize = -10
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "&New"
end type
event clicked;
long ll_rc
//if the group has changed, prompt for save
ll_rc = dw_group.trigger event ue_checkSavePrompt()
if ll_rc <= 0 then
//error or user cancelled save
DAT* return 0
end if
//create a default group
dw_group.trigger event ue_init()
//make treeviews reflect the group
ll_rc = iw_source_selector.of_processGroup()
if ll_rc < 0 then return -1
dw_group.trigger event ue_refreshList()
dw_group.setFocus()
dw_group.setColumn("group_name")
return 0
end event
type dw_group from datawindow within tabpage_group
event ue_init ( )
event type integer ue_reload ( string as_groupname )
event ue_updated ( )
event ue_refreshlist ( )
event tyDAT* pe long ue_validate ( )
event type integer ue_checksaveprompt ( )
integer x = 50
integer y = 64
integer width = 1970
integer height = 544
integer taborder = 1
string dataobject = "d_ss_group_data"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type
event ue_init;
long ll_rc
//set up the default source group
ll_rc = iclass_group.of_reset()
if ll_rc < 0 then return
this.trigger event ue_refreshList()
ib_groupModified = false
end event
event ue_DAT* reload;
long ll_rc
ll_rc = iclass_group.of_loadGroup(as_groupName)
if ll_rc = 0 then
//no group was loaded , so do default init
messageBox("New Group", "Creating new group '" + as_groupName + "'.", information!)
this.trigger event ue_init()
this.setItem(1, "group_name", as_groupName)
elseif ll_rc < 0 then
messageBox("Error", "dw_group::ue_reload(); group data retrieve failed.", exclamation!)
return -1
end if
//make treeviews reflect the group
ll_rc = iw_source_selector.of_DAT* processGroup()
if ll_rc < 0 then return -1
this.trigger event ue_refreshList()
ib_groupModified = false
return 1
end event
event ue_refreshlist;
long ll_rid
dataWindowChild dwc_list
//grab the current group rid
ll_rid = this.getItemNumber(1, "group_rid")
if isNull(ll_rid) then ll_rid = -1
//retrieve the drop down list (will not include record matching current rid)
this.getChild("group_name", dwc_list)
dwc_list.setTransObject(SQLCA)
dwc_list.retrieve(ll_rid)
end evenDAT* t
event ue_validate;
//validate that all required fields are filled in and that required
//data exists in source criteria buffer
string ls_name
integer li_level
integer li_logic
dw_group.acceptText()
if iclass_group.ids_sourceCriteria.rowCount() = 0 then
messageBox("Validataion Failed", "Please select source criteria.", exclamation!)
return -1
end if
ls_name = trim(dw_group.getItemString(1, "group_name"))
if isNull(ls_name) or ls_name = "" then
messageBox("ValidationDAT* Failed", "Please enter Group Name.", exclamation!)
dw_group.setFocus()
dw_group.setColumn("group_name")
return -1
end if
li_level = dw_group.getItemNumber(1, "data_level")
if isNull(li_level) then
messageBox("Validation Failed", "Please enter Data Level.", exclamation!)
dw_group.setFocus()
dw_group.setColumn("data_level")
return -1
end if
li_logic = dw_group.getItemNumber(1, "filter_logic")
if isNull(li_logic) then
messageBox("Validation Failed", "Please enter Filter LogDAT* ic.", exclamation!)
dw_group.setFocus()
dw_group.setColumn("filter_logic")
return -1
end if
return 1
end event
event ue_checksaveprompt;
//if the group has changed, prompt for save, and save if requested
//Returns:
// -1 = error on save
// 0 = cancel
// 1 = successful save or group not modified
// 2 = don't save
long ll_rc
string ls_name
//make the old name current again
ls_name = trim(this.getItemString(1, "group_name"))
if isNull(ls_name) or ls_name = "" theDAT* n ls_name = "(no name)"
//if the group has changed, prompt for save
if ib_groupModified then
//prompt for save
ll_rc = messageBox("Group has changed...","Group '" + ls_name + "' has changed. " +&
"Do you want to save changes?", question!, yesNoCancel!)
choose case ll_rc
case 1
//save the old group
ll_rc = cb_save.trigger event clicked()
if ll_rc <= 0 then
return -1 //save error
else
return 1 //save success
end if
case 2
return 2 //DAT* don't save
case 3
return 0 //user cancelled
end choose
else
return 1 //group not modified
end if
end event
event itemchanged;
long ll_rc
string ls_oldValue
dataWindowChild dwc_list
//if a call to acceptText() from the loseFocus event triggered itemChanged,
//then just accept the change. this helps avoid synchronization problems with
//other controls that do their own processing
if message.stringParm = "loseFocus" then
ib_groupModified = true
returDAT* n 0
end if
//if the group name changed...
if dwo.name = "group_name" then
//get reference to the dddw
ll_rc = this.getChild("group_name", dwc_list)
if ll_rc < 0 then
messageBox("Error", "dw_group::itemChanged(); call to getChild() failed.", exclamation!)
return 2 //don't accept name change
end if
//see if the new name is in the dddw
ll_rc = dwc_list.find("group_name = '" + data + "'", 1, dwc_list.rowCount())
if ll_rc > 0 then
//the new name is in the list, consDAT* ider it selected from the list
//and causing a group change
//make the old name current again
ls_oldValue = trim(this.getItemString(1, "group_name"))
iclass_group.ids_groupData.setItem(1, "group_name", ls_oldValue)
//if the group has changed, prompt for save
ll_rc = this.trigger event ue_checkSavePrompt()
if ll_rc <= 0 then
//error or user cancelled save
this.setColumn("group_name")
return 2 //don't accept item change
end if
//successful save, saveDAT* not needed or not requested
//load the new group
this.post event ue_reload(data)
return 0
elseif ll_rc < 0 then
messageBox("Error", "dw_group::itemChanged(); call to dwc_list.find() failed.", exclamation!)
return 2 //don't accept item change
end if
//if the group data level changed...
elseif dwo.name = "data_level" then
//set the data level to the new value
iclass_group.of_setDataLevel(integer(data))
//regenerate the source/geographic treeview
DAT*
ll_rc = w_source_selector.tab_control.tabpage_source.tv_source.trigger event ue_load(1) //1 => refresh mode
if ll_rc < 0 then return -1
end if //dwo.name
//new group name, or field other than name changed
ib_groupModified = true
return 0
end event
event dberror;
//Handle the DBError event.
string ls_message
ls_message = "Database Error: " + string(SQLDBCode) + "~r~n~n" + SQLErrText
messageBox("Database Error", ls_message, exclamation!)
return 1 //override defaDAT* } / 1 < B : V@ ) 8 1 1 ) 8 < 1 1 < Y t $ $ 1 ) 8 1 1 1 } R
} /
8 ( 0 /
8 < 0 /
8 8 P 0 /
\ 8 d 0 /DAT*
8 x 0 /
8 0 /
8 0 /
8 0 $ $ < =) 8 < 1 N1 9 } 1 4 N v " # $ .% T' ( * + - / >3 B4 v6 7 8 9 : ; < = "> 4? F@ XA jB |C D E F G J K 2M NO RQ VS j d ~ ancestorreturnvalue lDAT* l_index ll_row ll_rid d ll_handle ll_rc li_level li_i ls_columnname ltvi_item case55 4 % 4 , - @ J P Y ^
l
v ue_processselections ib_selectionsprocessed 6 iclass_group : < 3 9ids_sourcecriteria T
reset p il_handlecount 3 il_handlearray DAT* 2 getitem L 2 finditem @K L < 3 9T
insertrow < 3 9nation_rid < 3 9state_rid an< 3 9county_rid x< 3 9source_rid y< 3 9source_sub1_rid < 3 9source_sub2_rid < 3 9source_sub3_rid < 3 9source_sub4_rid < 3 9T
setitem 6 4 L h x
4 H \ p DAT*
b : F@@ 8 ) 8 < 1 8 0 8 0 : )@ @ 8 1 X $ / 9 } jl # 8 0 8 t 0 : )@ @ 8 1 $ } / l 8 0 8 0
8 0 `/ 8 0 8 0
8 H 0DAT* `/ X 8 ` 0 8 H 0
@ 8 `8 0 8 8 z %: )@ @ 8 1 , ) ) 8 ~ @~ 8 ) 8 1 9 } * ) 8 1 9 } $ 9 } * ) , 8 ) @ 8 1 1 H DAT* P $ 1 < R } X ` $ } h $ / p 9 } 6 x 9 } $ } $ } ~ 9 ) 8 1 ) 8 D
9 } 8 J 8 8 ) 8 8 z & $ 8 8 8 ) $ 8 z '8 , z & 8 / ) 4 8 z ( 8 /DAT* ) < 8 8 D 0 8 D 0 H V P z % # X $ 6 ) l 8 1
@ 8 t $ $
J 8 / }
9 } / } 1 F / } 8 0 8 0 : )@ @ 8 1 *DAT* ) 8 1 8 0 8 0 : )@ @ 8 1
@ ) T 8 1 @ 1 b 9 ) \ 8 d } ) l 8 1 B R ! $ % & ' , - . (/ D0 V1 h2 z3 4 5 6 7 8 9 : < N= T@ `C xD E G H I K L ,M BN `O vP |Q S T X Y Z [ \ ] ` 6a Lb `e ~g j k l m 6DAT* n o q r s t x ${ .| ^~ n x , B F t z . 4 @ D b x ~ d handle ll_rc ll_row ll_rid ll_childhandle ll_parentrid ll_childrid ls_childid ls_childname ls_columnname ls_nextcolumnname lb_saveredraw lb_savegroupmodified lb_itempopulate lb_parentselected ltvi_parentitem ltvi_childitem lds_buffer case44 sqlca DAT* # 2 ? K
V
c
q
: ) @=t getitem L Error tv_source::item Populate(); error in call to getItem().
u_ds_base ` : tv_source::item Populate(); error creating lds_DAT* buffer. dataobject d_ss_sources_at_county iclass_group 3 9source_rid 3 9source_sub1_rid d_ss_devices_at_source 3 9 3 9source_sub2_rid d_ss_processes_at_device 3 9tv_source::item Populate(); populate triggered for unsupported tree level. settransobject retrieve setitem Y Y selectitem V 4 ib_groupmodified 8DAT* ib_redraw 4 setredraw ! rowcount rid getitemnumber id getitemstring ( type ) name
3 9of_finddata + ` 3 9ids_sourcecriteria |
tv_source::itemPopulate(); error searching for item rid. insertitemlast S tv_source::itemPopulate(); error in call to insertItemLast(). itempopulate 6 F ! 8 V 4
X l DAT* 8 @ X |
$ ,
@
H P X ` h p x
$
4
<
H P X l
t
T
\
d l
P _ # 8 0 9 } L $ 9 ) h 8 ( d DAT* p ue_selectionchanged ib_groupmodified 8 iw_source_selector 8 . of_enablerefresh x T 0 L h
X ` # 8 8 0 8 & 0 : )@ @ 8 1 F d ancestorreturnvalue i ue_processallselections Usage Use tv_source::ue_processSelections() to get minimized selections. 6 $^ $_ $` $k $ 6 ": 2 c DAT* +ue_load +ue_processselections +itempopulate +ue_selectionchanged +ue_processallselections d ' 5 J 2 < x y width height taborder picturename
0 x %
@ p
0 " 1 ]
o % @ p
E DAT* @
@ @ @ @ @ @ % 1 L 1 3 Q ( k ^ x 6 _DAT* ' ` b * 0 * 8 H P $ X $
| , d ` 8 cb_sic_refresh ! ( ( tv_sic ( " )( ) control @ c@ ! (( " ) 0 8 H P X " $ ( $ d 0 cb_sic_refresh ! (tv_siDAT* c " ) ( ' ' 2 +create +destroy ( type ic m us it 2 i x y width height backcolor text tabtextcolor tabbackcolor picturemaskcolor cb_sic_refresh tv_sic
d # ( 5 B S
( b
) ]
o d DAT*
@ @" 1
@
(
) $ 9 ) $ 8 , $ 1 ) < 8 D $ 9 ) L 8 \ 9 } , + 1 , + dDAT* $ F f z d ::message + @>l @ tv_sic " )setredraw ! " )ue_load l 4 " )! enabled T $
, <
D L
\ d " ( " 2 +clicked type fr 2 ] x y width height taborder textsize weight fontpitch fontfamily facename enabled text 2
i DAT* `
" @ + 2 < G P X @ ]
o 2 i `
@
@ " S : F@@ 8 Y 1 DAT* R
1 < R }
v
1 9 b
=6 1 B
1 Y = < 1 @ 8 < 1 @ 8 > B b
^ b R 1 Y
r
=1 1 < Y @ 8 = X =8DAT* ) 8 T 8 ( 0 1 , ) 1 - , 9 } - 4 1 } - < - D $ } >- L 9 } - T 1 } - \ - d $ } - l 8 t z % z &
- * ) 8
1 1 1
) 8
1 1 r 1DAT* 8 =8 ) 8 j 8 ( 0 - =8 t z % z & - =6 V 8 0 8 z % 8 z % 8 z % = $ | 8 z % 8 ( z % 8 5 z % 8 ( z % 8 z % =z % 8 @ z % D $ ` $ 1 h $ DAT* p $ ) 8 ) 8 1 b- / } 1 - / } 8 0 8 0 : )@ @ 8 1
- * ) 8 1 48 0 8 0 : )@ @ 8 1 r8 0 8 - 0 : )@ @ 8 1 h
4 @ \ h v # % & ' ( 0) :* >- B. L0 ^1 b? |@ A B F J L O P 8R TV XXDAT* lZ p[ ta b c d e f g h l >m fn s w y { " N j 6 L b x | 8 H ^ r ( 4 8 f r v d ) ads_buffer as_sicarray a
al_rowarray al_segstart al_segend ai_curpos al_grouphandle atvi_item atvi_groupitem ll_rc ll_index ll_maxindex ll_handle ll_grouphandle ll_segsize ll_subsegsize ll_subsegstart ll_subsegend li_curpos ls_siccode ls_sicname ls_fDAT* indstring sqlca 8
: - 8 , - D P Z d s
}
_d
/ # ) @=b DAT* sic_name getitemstring
insertitemlast
S w ue_insertgroup k
iclass_group itc 3 9filter_name = ' 3 9sic_code ' and is_nullcode 5 isNull( 3 9filter_value ) 3 9' ! 3 9ids_filtercriteria L
3 9L
rowcount x find c
Tree View Error tv_sic::ue_insertGroup(); error searching for item. S DAT* w tv_sic::ue_insertGroup(); error inserting item. tv_sic::ue_insertGroup(); group size can't be zero.
, 4 < D L T \ d l
8 D ` h p
: F@@ 8 $ } j0 # 8 8 0 8 > 0 : )@ @ 8 1 1 < DAT* | $
) 8 < 1 8 8 0 8 0 : )@ @ 8 1 $ $ 1 $ $ # ! ) $ 8 , } 1 @ 8 H 0 , ) ) l 8 t $ | $ 1 x $ $ ) 8 1 x8 8 0 8 0 : )@ @ 8 1 $ $ DAT* 1 ) 8 1 8 8 0 8 0 : )@ @ 8 1 ) L 8 1 p8 8 0 8 T 0 : )@ @ 8 1 $ ) 8 1 8 8 0 8 0 : )@ @ 8 1 $ $ ) 4 8 1 h8 < 0 8 H 0 : )@ @ 8 ) x 8 1 $ ) 8 / DAT* 8 0 8 0 , ) ) 8 $ 1 ) 8 < 1 p8 8 0 8 0 : )@ @ 8 1 1 8 < 0 8 H 0 : )@ @ 8 ) T 8 1 \ $ t $ | $ $ $ $ $ $ $ $ $ $ DAT* ) $ 8 1 8 8 0 8 0 : )@ @ 8 1 ) , 8 4 9 } < 9 } D 8 L 0 V P 8 L 0 X 1 } ` h $ } p 9 } x 9 } 9 } 9 } $ 6 V 8 L 0 1 } ) 8 1 DAT* 1 1 9
8 ) 8
$ 6 1 0
6 = < 1 @ 8
< 1 @ 8
6 1
1 ) 8
1
8 0 8 DAT* 0 : )@ @ 8 1 1
=8 G ) P 8
8 L 0 X =8 ` z % z & d =6 V
8 t 0
8 z %
8 z %
8 z % = $
8 z %
8 z %
8 z % f
8 z %
8 z %
=z %
8 z DAT* % $ $
1 $ $ ) 8 ) 8 1 / } X
1
/ } X
8 0 8 ( 0 : )@ @ 8 1 1 * ) h 8 1
8 0 8 p 0 : )@ @ 8 1 8 0 8 0 : )@ @ 8 1 l } ) 8 : V@1 ) DAT* 8 ) 8 1 ! $ 0 % > & J ' x , 3 4 5 6 7 ; < \= n> ? C D G H I (J 8K fL lR xS T U V W [ a b c 0d ^e di pj k l m o p q Dr Vs \w hx y z | } ~ , Z ` l " @ \ x 2 D ^ l z ,
J
Z
& DAT*
J \ r 4 P f
F
L
X
~
, 2 D!r d ai_mode ll_rc ll_row ll_rowcount ll_rowarray ll_arraysize ll_segstart ll_segend ll_handle li_curpos ls_siccode ls_sicname ls_sicarray p
ls_findstring lb_savegroupmodified lds_buffer ltvi_item ltvi_groupitem sqlca 8 | DAT*
8 ) - D Q ] g q {
-
:
) @= ib_groupmodified 8 u_ds_base $ : Error tv_sic::ue_load(); lds_buffer creation failed iclass_group l 3 9of_getfiltersql tv_sic::ue_load(); error in calDAT*
l to iclass_group.of_getFilterSQL() l 3 9is_sicarray
l 3 9ib_nullsic of_reset @g 8 dataobject 4 d_ss_sic_from_buffer settransobject ] l 3 9
l 3 9
retrieve tv_sic::ue_load(); error retrieving lds_buffer l 3 9 insertrow tv_sic::ue_load(); error inserting row to lds_buffer ue_processallselections
` 1 tv_sic::ue_load(); error processing selections for tv_sic itv_source / #ue_processselDAT*
ections ^ tv_sic::ue_load(); error processing selections for tv_source l 3 9ids_sourcecriteria g
rowcount ( Information No source or geographic data has been selected. g l 3 9of_getdatalevel % l 3 94 d_ss_sic_at_selection_sub_source 4 d_ss_sic_at_selection ] l 3 9of_modobjectsql tv_sic::ue_load(); error modifying SQL for lds_buffer g l 3 9il_nationarray d l 3 9il_statearray l 3 9il_DAT*
countyarray l 3 9il_sourcearray l 3 9il_sourcesub1array l 3 9il_sourcesub2array
g
is_groupcode ( 6
( sic_code getitemstring is_nullcode 5 ue_insertgroup k Tree View Error tv_sic::ue_load(); error inserting group. sic_name
l 3 9filter_name = ' l 3 9' and 5DAT*
isNull( l 3 9filter_value ) l 3 9' l 3 9ids_filtercriteria
l 3 9
( find 8c
tv_sic::ue_load(); error searching for item. insertitemlast S V tv_sic::ue_load(); error inserting item. tv_sic::ue_load(); group size can't be zero. 8 setfocus finditem K selectitem V 0 |
$
, @ l
t |
DAT*
L
4
x
T
\ t | $
,
4 < D P X ` h p x
P
X d l DAT*
h
X ^ # 8 8 0 8 # 0 : )@ @ 8 1 F d ancestorreturnvalue j ue_processselections Usage Use tv_sic::ue_processAllSelections() to get actual selcted SIC Codes. ` # 8 8 $ 4 1 : F@@ 8 P $ 1 ) h 8 1 DAT*
$ $ = ) 8 < 1 1 (@( 8 $ D $ $ 1 ) 8 1 1 $ $ 8 8 4 0 ) H 8 < 1 1 \ $ . @ 8 d $ l $ 8 | 6 ) 8 < 1 DAT*
1 9 } 1
4 N v $# D$ x' ( + , 0 .1 r4 6 8 d G ancestorreturnvalue ll_index ll_row ll_rc ls_siccode ltvi_item x % , 2
=
ue_processallselections ib_selectionsprocessed 6 iclass_group @ 3 9of_resetfilter * X il_handlecount p 3 il_handlearrayDAT*
2 getitem L is_groupcode 6 @ 3 9ids_filtercriteria @
insertrow @ 3 9
@ 3 9filter_name @ 3 9sic_code setitem = is_nullcode P 5 @ 3 9
@ 3 9filter_value = 6 8 P h
, H
\ d l t
. _ # 8 0 9 } d DAT*
8 ue_selectionchanged ib_groupmodified pro 8 0 4 # 8 ) 8 } 1 < ` 1 ( 1 } 0 8 $ } * ) H 8 } 1 < 1 1 @ `
|
d 3 handle ancestorreturnvalue ltvi_item li_rc P #
DAT*
- P ( itemexpanded getitem L ? setitem Y ?@
( 0 8 H
2 # 8 ) 8 } 1 < ` 1 ( 1 } 0 8 $ } * ) H 8 } 1 < 1 1 @ `
|
d 3 handle ancestorreturnvalue ltvi_item li_rc P DAT*
#
- P ( itemcollapsed getitem L ? setitem Y ?@
( 0 8 H
2 )4 )^ )_ )` )k )l )2 4 ": 2 +ue_insertgroup +ue_load +ue_processselections +ue_processallselections +ue_selectionchanged +itemexpanded +itemcollapsed ! 7 P DAT*
e s 2 < x y width height taborder picturename
0 x %
0 "
1 ]
o %
E @
@ @ @ @ DAT*
@ @ %` 1 1 3 , k Q l x ^ ' ` _ X 4 f 2 DAT*
b * 0 * 8 H P $ X $
| , d ` 8 cb_scc_refresh ! + + tv_scc ( " ,( , control @ c@ ! +( " , 0 8 H P X " $ ( $ d 0 cb_scc_refresh ! +tv_scc " , ( * * 2 +cDAT* "
reate +destroy ( type cc m us it 2 i x y width height backcolor text tabtextcolor tabbackcolor picturemaskcolor cb_scc_refresh tv_scc
d # 8
( 5 B S
+ b
, ]
o d
@ DAT* $
@"D
1
8
@
+
, $ 9 ) $ 8 , $ 1 ) < 8 D $ 9 ) L 8 \ 9 } , + 1 , + d $ F f z d ::DAT* &
message pe + @>l @ tv_scc " ,setredraw ! " ,ue_load l 4 " ,! enabled T $
, <
D L
\ d " + " 2 +clicked 2 ] x y width height taborder textsize weight fontpitch fontfamily facename enabled text 2
i `
" DAT* (
+ 2 < G P X @ ]
o 2 i `
@
@ " R : F@@ 8 Y 1 R 1 < R } DAT* *
1 }
1
1 < Y
= 1 9 =6 1 0 1 Y = 1 < R < =< @ 8 1 < R < =< @ 8 R 1 Y 2 =1 < DAT* ,
@ 8 8 1 < Y (@( 8 z ' = ) 8 1 <- ( 9 } - 0 1 } - 8 - @ $ } - H 9 } - P 1 } - X - ` $ } - h 8 p z % z & 8 (@( 8 z ' - * ) 8 1 1 1
DAT* .
)
8
1 1 1 = ) 8 8 0 - =8 p z % z & - =6 V 8 0 8 z % 8 z % 8 z % = $ 8 z % 8 ( z % 8 5 z % T 8 ( z % 8 z % =z % 8 @ DAT* 0
z %
D $ ` $ 1 h $ p $ ) 8 ) 8
1 - / } @
1 - / } @8 0 8 0 : )@ @ 8 1
- * ) 8
1 8 0 8 0 : )@ @ 8 1 8 0 8 - 0 : )@ @ 8 1 h 4 @ \ h ! v " # $ ' ( ) , . / "0 DAT* 2
,1 2 3 6 7 9 : H
I J "K .O 2T @U tV Y Z [ \ ] 8^ <_ R` nd e f g l p .r nt y z { | 8 J ` v " > T 4 @ d t d S ads_buffer as_sccarray a
al_rowarray ai_parse al_segstart al_segend ai_curpos al_grouphandle atvi_item atvi_groupitem ll_rc ll_index ll_maxindex ll_handle ll_grouphandle ll_segsizeDAT* 4
ll_subsegsize ll_subsegstart ll_subsegend li_curpos li_curlen ls_scccode ls_sccname ls_namecolumn ls_findstring 8 P
: - 8 , - P D - \ h r |
DAT* 6
!
,
$ 7
E
b scc_name getitemstring
insertitemlast S s ue_insertgroup k
iclass_group 3 9filter_name = ' v@ 3 9scc_code ' and is_nullcode 5 isNull( 3 9filter_value ) 3 9' le 3 9ids_filtercriteria L DAT* 8
3 9L
rowcount x find c
Tree View Error tv_scc::ue_insertGroup(); error searching for item. S s tv_scc::ue_insertGroup(); error inserting item. tv_scc::ue_insertGroup(); group size can't be zero.
( 0 8 @ H P X ` h
8 D ` h p
. : F@DAT* :
@ 8 $ } j0 # 8 8 0 8 > 0 : )@ @ 8 1 1 < | $ ) 8 < 1 8 8 0 8 0 : )@ @ 8 1 $ $ 1 $ $ # ! ) $ 8 , } 1 @ 8 H 0 , ) ) l 8 t $ | $ 1 DAT* <
$ $ ) 8 1 8 8 0 8 0 : )@ @ 8 1 $ $ 1 ) 8 1 8 8 0 8 0 : )@ @ 8 1 ) L 8 1 8 8 0 8 T 0 : )@ @ 8 1 $ ) 8 1 8 8 0 8 0 : )@ @ 8 1 DAT* >
$ $ ) 4 8 1 8 < 0 8 H 0 : )@ @ 8 ) x 8 1 8 0 , ) ) 8 $ 1 ) 8 < 1 N8 8 0 8 0 : )@ @ 8 1 1 8 < 0 8 H 0 : )@ @ 8 ) 8 1 $ $ ( $ @ $DAT* @
H $ ` $ h $ $ $ $ $ $ ) 8 1 8 8 0 8 0 : )@ @ 8 1 ) 8 9 } 9 } 8 0 V 8 0 1 } $ } 9 } $ 9 } , 9 } 4 9 } < DAT* B
T $ 6 V \ 8 0
1 } ) d 8 1 1 1 9 z
8 l ) 8 $ 6 1 1 1 1 1 | T 1 1 1 1 | 1
6 Z
=
<
< % < @ 8DAT* D
<
< % < @ 8 V
6 Z
z
v
z
| 1 8
1 )
8 1 4 8 0 8 0 : )@ @ 8 1 1 t =8 ) 8 8 0
=8 z % z & DAT* F
=6 V 8 $ 0 8 0 z % 8 l z % 8 @ z %
= H $ 8 P z % 8 ` z % 8 m z %
8 ` z % 8 0 z %
=z % 8 x z % | $ $ 1 $ $ ) 8 ) 8 1
/ }
1
/ }
8 0 8 0DAT* H
: )@ @ 8 1 1 * ) 8 1 p8 0 8 0 : )@ @ 8 1 8 0 8 J 0 : )@ @ 8 1 R x } ) 8 : V@1 ) 8 ) 8 1 ! 0 " > # J $ x ( / 0 1 2
3 7 8 d9 v: ; ? @ C D E 4F DG rH xN O P Q R S W ] ^ 4_ D`DAT* J
ra xe f g h i k l 2m `n ro xs t v w x y 4z :{ J| ^} ~ v & B ^ ~ * D R ` n | T d n
&
>
R
V
Z
d
v
z
$ 4 H t " 8 \ r
^
n
, Z
`pt " d
ai_mode ll_rcDAT* L
ll_row ll_rowcount ll_rowarray ll_arraysize ll_segstart ll_segend ll_handle li_parse @ li_curpos ls_scccode ls_sccname ls_sccarray
ls_findstring lb_savegroupmodified lds_buffer ltvi_item ltvi_groupitem sqlca 8 | 8 ) - D Q ] g | q 1 DAT* N
-
:
) @= ib_groupmodified 8 u_ds_base $ : Error tv_scc::ue_load(); lds_buffer creation failed iclass_group l 3 9of_getfiltersql tv_scc::ue_load(); error in call to iclass_group.of_getFilterSQL() l 3 9is_sccarray l 3 9ib_nullscc S of_reset g 8 dataobject 4DAT* P
d_ss_scc_from_buffer settransobject ] l 3 9 l 3 9 retrieve L tv_scc::ue_load(); error retrieving lds_buffer l 3 9 insertrow tv_scc::ue_load(); error inserting row to lds_buffer ue_processallselections ` 1 tv_scc::ue_load(); error processing selections for tv_scc itv_source / #ue_processselections ^ tv_scc::ue_load(); error processing selections for tv_source l 3 9ids_sourcecriteria
rowcount DAT* R
( Information No source or geographic data has been selected. g 4 d_ss_scc_at_selection ] l 3 9of_modobjectsql tv_scc::ue_load(); error modifying SQL for lds_buffer g l 3 9il_nationarray l 3 9il_statearray : 0 l 3 9il_countyarray P l 3 9il_sourcearray p l 3 9il_sourcesub1array l 3 9il_sourcesub2array
g
DAT* T
is_groupcode 8 D 6
( scc_code getitemstring u is_nullcode 5 ue_insertgroup k Tree View Error tv_scc::ue_load(); error inserting group. scc_name1 u
l 3 9filter_name = ' $ l 3 9' and 5 isNull( l 3 9filter_value ) l 3 9' l 3 9ids_filtercriteria
l 3 9
( find c
tv_scc::ue_load(); error searching for item. insertitemlast S tv_sDAT* V
cc::ue_load(); error inserting item. tv_scc::ue_load(); group size can't be zero. 8 setfocus finditem $ K selectitem V $ $ $ $ 0 |
$
, @ l
t |
L
4
x
( DAT* X
@ H ` h
$ , 4 < T \ d
8 H X p |
x
2 # 8 ) 8 } 1 < ` 1 DAT* Z
( 1 } 0 8 $ } * ) H 8 } 1 < 1 1 @ `
|
d 3 handle ancestorreturnvalue ltvi_item li_rc P #
- P ( itemcollapsed getitem L ? setitem Y ?@
( 0 8 H
4 # 8 DAT* \
) 8 } 1 < ` 1 ( 1 } 0 8 $ } * ) H 8 } 1 < 1 1 @ `
|
d 3 handle ancestorreturnvalue ltvi_item li_rc P #
- P ( itemexpanded getitem L ? setitem Y ?@
( 0 8 DAT* ^
H
. _ # 8 0 9 } d 8 ue_selectionchanged ib_groupmodified 8 0 X ^ # 8 8 0 8 # 0 : )@ @ 8 1 F d ancestorreturnvalue j ue_processselections Usage Use tv_scc::ue_processAllSelections() to get actual selcted SCC Codes. ` # 8 8 $ 4 1 DAT* `
: F@@ 8 P $ 1 ) h 8 1 $ $ = ) 8 < 1 1 (@( 8 $ D $ $ 1 ) 8 1 1 $ $ 8 8 4 0 ) H 8 < 1 1 \ $ . @DAT* b
8 d $ l $ 8 | 6 ) 8 < 1 1 9 } 1
4 N v $# D$ x' ( + , 0 .1 r4 6 8 d G ancestorreturnvalue ll_index ll_row ll_rc ls_scccode ltvi_item x % , 2
=
ue_processallselections ib_selectionsprocessed DAT* d
6 iclass_group @ 3 9of_resetfilter * X il_handlecount p 3 il_handlearray 2 getitem L is_groupcode 6 @ 3 9ids_filtercriteria
insertrow @ 3 9
@ 3 9filter_name @ 3 9scc_code setitem obj = is_nullcode P 5 @ 3 9
@ 3 9filter_value = 6 8 P h
, H
\ d lDAT* f
t
2 ,4 ,^ ,_ ,` ,k ,l ,2 4 ": 2 +ue_insertgroup +ue_load +itemcollapsed +itemexpanded +ue_selectionchanged +ue_processselections +ue_processallselections ! 0 > S i 2 < x y width height taborder picturename
0 x %
DAT* h
0 " 1 ]
o %
E @
@ @ @ @ @ @ %l
1
1
3 DAT* j
\ k
Q ( l f x 2 X 4 _ ^ ' ` * 0 * 8 H * P d * l | * * DAT* l
* $ $ $ $ $ $ $
| , B X n d cbx_notify l ! / / cbx_auto pro$ " 0$ 0 cb_save @ # 1@ 1 cb_delete X $ 2X 2 cb_new t % 3t 3 dw_group y & 5 5 gb_1 ' 8 8 control c@ ! /$ " 0@ # 1X $ 2t % 3 & 5 ' 8 0 8 H P DAT* n
d l | h $ ( $ 8 $ L $ \ $ p $ $ * 8 F T d 8 cbx_notify l ! /cbx_auto bx_ " 0cb_save 0 # 1cb_delete @ $ 2cb_new dT % 3dw_group d & 5gb_1 x ' 8 ( 8 L \ p - DAT* p
- 2 +create +destroy ( 2 x y width height backcolor text tabtextcolor tabbackcolor picturemaskcolor cbx_notify cbx_auto cb_save cb_delete cb_new dw_group gb_1 @
d # D ( 5 B S
/ ^
0 g
1 o
2DAT* r
y
3
5
8 ]
o d
@ @"P 1
D @
/
0
1
2
3
5
8 , - 6DAT* t
8 0 8 0 8 0 @ 8 8 8 0 , - 6 8 0 8 0 6 @ 8 8 " 0 9 } 8 9 } 1
@ X j d ls_notify gs_inifile (
- @ @ RECALCULATE NOTIFY FALSE TRUE checked ' ' 0 8 $ N , - 6 8 0 8 $ 0 8 + DAT* v
0 @ 8 , - 6 8 0 8 $ 0 8 0 0 @ 8 , + 1 , + 8 $ J N d gs_inifile ::message ( - @ + @>@ checked RECALCULATE NOTIFY TRUE FALSE 8 " /# / " L # 2 +constructor +clicked ( 2 k x y width height textsize weight fontcharsDAT* x
et fontpitch fontfamily facename backcolor text lefttext
p [ P " @ ) 5 ? J S ] x b ]
o p [ P
@ DAT* z
x @ @ # L " $ , ) \
, , )
, ) 8 1 d , ) 1 v , ) 1 , + 1 , + $
, N T ` d j v d sqlca ::message ( ) @= + @> checked DAT* |
, ) , ) 8 1 P 1 1 d 8 0 8 0 : )@ @ 8 1 1 < 8 9 } @ 9 } 1 0 @ L ` d li_auto ll_rc sqlca < ) @=H Error No data found in rap_db_prefs. checked - - DAT* ~
8 @ " 0# 0 " L # 2 ) +clicked f_sqlcheck +constructor P . . 2 k x y width height textsize weight fontcharset fontpitch fontfamily facename backcolor text lefttext
[ P " ) 5 ? J DAT*
S ] b ]
o [ P
@ @ @ " # L H $ ) < 8 < 1 D 1 P $ ) d DAT*
8 1 1 | $ ) 8 < 1 1 9 } $ ) 8 $ ) 8 $ 8 ) 8 1 ( D
f
6 d ll_rc h iw_source_selector . of_processselections w $ dw_group D & 5ue_validate X iclass_group l 3 9of_savegroup 1 ! ib_grouDAT*
pmodified 8 D & 5ue_refreshlist D & 5setfocus @ D & 5group_name setcolumn chH <
P d
|
" 1 " 2 +clicked type ro 2 U x y width height taborder textsize weight fontpitch fontfamily facename text 2
i ` ( " DAT*
+ 2 < G P ]
o 2 i ` (
@
@ " . $ 0 $ 1 8 @ JX 8 T 1 l $ 1 8 t ) 8 DAT*
8 " 8 0 8 0 8 z %8 z &: )@: @ @ 8 < 1 1 $ ) 8 < 1 d1 $ ) 8 $ ) , 8 < 1 1 4 $ ) L 8 T $ ) h 8 p $ 8 t ) 8 > T
H d d ' ll_grDAT*
ouprid ll_rc ls_groupname <
iclass_group ect 3 9ids_groupdata se
3 9group_rid getitemnumber J dw_group ` & 5group_name getitemstring oup [no name] Confirm Delete Delete group ' ' now? 3 9of_deletegroup @" ` & 5ue_init iw_source_selector . of_processgroup y ` & 5ue_refreshlist
< ` & 5setfocus
en \ ` & 5setcolumn x_H x 0 DAT*
8 X
l
,
4 L
T h
p
" 2 " 2 +clicked type f 2 U x y width height taborder textsize weight fontpitch fontfamily facename text 2
i ` " + 2 < G DAT*
P ]
o 2 i `
@
@ "
$ ) 0 8 < 1 B 1 8 $ ) H 8 d $ ) | 8 < 1 1 $ ) 8 $ ) 8 $ 8 DAT*
) 8 1 &
6 B ^ d ll_rc ` dw_group oup & 5ue_checksaveprompt e & 5ue_init @ iw_source_selector P . of_processgroup y l & 5ue_refreshlist o & 5setfocus ete & 5group_name setcolumn @H 0
8 H
d |
" 3 " 2 +clickedDAT*
type om 2 U x y width height taborder textsize weight fontpitch fontfamily facename text 2
@ i `
" + 2 < G P ]
o 2 @ i `
@
DAT*
@ " l $ ) , 8 < 1 > ) D 8 ` 9 } ( > P d ll_rc h iclass_group 3 9of_reset $ ue_refreshlist 4 ib_groupmodified L 8 ,
D
`
$ 6 ) 0 8 < DAT*
1 8 8 0 8 B z %8 W z &: )@ @ 8 ) d 8 1 8 l 6 ) 8 1 8 0 8 0 : )@ @ 8 1 $ ) 8 < 1 N1 ) 8 9 } 1 0 @ |
. N ` v d as_groupname ll_rc (
( @ iclass_DAT*
group 3 9of_loadgroup # New Group Creating new group ' '. ue_init Z group_name setitem P w Error dw_group::ue_reload(); group data retrieve failed. iw_source_selector . of_processgroup y ue_refreshlist ib_groupmodified 8 0
d
1 8 J 8 @ 1 8 ( ) < 8 , ) ) T 8 ) h 8 DAT* Her alignment="0" text="Type"border="0" color="0" x="2862" y="4" height="76" width="283" font.face="Arial" font.height="-12" font.weight="400" font.family="2" font.pitch="2" font.charset="0" background.mode="2" background.color="16777215" )
htmltable(border="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes") DAT*
( @ `
x d ll_rid dwc_list sqlca <
) @=p group_rid getitemnumber group_name getchild o 3 settransobject D retrieve } \
<
T
h
$ ) ( 8 @ $ \ $ ) p 8 1 8 x 0 8 0 : )@ @ 8 1 $ 1 8 ) 8 8 " N8 DAT*
0 8 0 : )@ @ 8 $ ) 8 $ 8 ) 4 8 1 < $ 1 8 D J` 8 } 8 0 8 h 0 : )@ @ 8 $ ) 8 $ 8 D ) 8 1 $ 1 8 J 8 } 8 0 8 0 : )@ @ 8 $ ) 8 $ 8 ) 8 1 1
DAT*
N | B N " # 4$ >% l& ' * d " ls_name li_level li_logic <
dw_group & 5accepttext iclass_group 0 3 9ids_sourcecriteria H
rowcount d Validataion Failed Please select source criteria. & 5group_name getitemstring Validation Failed Please enter Group Name. & 5setfocus & 5setcoDAT*
lumn H ( & 5data_level getitemnumber O Please enter Data Level. & 5 & 5H ( & 5filter_logic 8 O Please enter Filter Logic. a & 5 & 5H ( (
@ \ p
4
< `
1 8 ) $ 8 8 , " V 8 - 0 H $ DAT*
| 8 P 0 8 e z %8 m z &8 ~ z &: )@: @ @ 8 < 1 4 $ ) 8 1 1 01 x1 X1 x1 x1 1 ( V h " 0# D$ T% h( x* | d ll_rc ls_name case25 <
group_name DAT*
getitemstring tte (no name) ib_groupmodified 7 8 Group has changed... Group ' ' has changed. Do you want to save changes? cb_save l # 1clicked " $
H
X , + $ 8 @ , 9 } 1 8 4 9 nL 8 8 T 0 z j 8 T ) h 8 < 1 8 p 0 8 v 0 : )@ @ 8 1 8 z %8 z &1 ) 8 ) 9 8DAT*
1 1 8 T ) 8 $ $ 1 8 T 6 ) 0 8 ) L 8 < 1 8 T ) ` 8 1 6 ) t 8 1 f 1 f8 p 0 8 | 0 : )@ @ 8 1 0 8 4 9 n 8 8 0 z 0 $ 6 e @e 8 ) 8 $ $ $ $ 1 ) 4 8 < 1 DAT*
01 < 9 } 1
4 @ l .! >" f% & ( ) / 0 2 4 ,5 Z: f= @ A F 0H F d 8 row dwo data ll_rc ls_oldvalue dwc_list message
6
'
0 + @>D loseFocus ib_groupmodified 8 name __get_attribute 9 group_name getchild o _ ErrDAT*
or dw_group::itemChanged(); call to getChild() failed. group_name = ' ' rowcount find
getitemstring iclass_group orC 3 9ids_groupdata
setitem ( ue_checksaveprompt 8 setcolumn H T ue_reload h dw_group::itemChanged(); call to dwc_list.find() failed. 9 data_level 3 9of_setdatalevel ' tab_control - tabpage_source % !tv_source ! $ue_load k , 8 , L
h
DAT*
0
L
`
t
$ 4
< x 8 (@( 8 z '8 z & z & 8 0 6 : )@ @ 8 1
: f d = sqldbcode sqlerrtext sqlsyntax buffer row ls_message x
' @ . 2
- Database Error:
DAT*
Database Error \ , + 8 0 ) ( 8 , + 0 8 8 0 1 . J d message + @>9 loseFocus accepttext (
0 \ 1 J 8 0 8 0 : )@ @ 8 1 1 > J d currentrow I Error dw_group::rowFocusChanged(); currentRoDAT*
w must always be 1. & 5/ 52 5< 5 5 5 5 5 5 5 & / 2 < 2 +ue_init +ue_reload +ue_updated +ue_refreshlist +ue_validate +ue_checksaveprompt +itemchanged +dberror +losefocus +rowfocuschanged ( 8 E Y f o z 2 D x y width height taborder datDAT*
aobject livescroll borderstyle 2
@ " - 8 ]
o 2 @
@
@
6 5 K DAT*
V x b r D / T & 2 < 2 2 u x y width height taborder textsize weight fontcharset fontpDAT*
itch fontfamily facename textcolor backcolor text %
0 2 " + 2 > H S \ f p ]
o % 0 2
DAT* & @ @ DAT*
B $ ( $ 6 0 $ 8 6 @ $ , # ) X 8 p $ $ ) 8 < 1 8 0 8 0 : )@ @ 8 1 $ $ $ $ $ $ ( $ 0 $ 8 $ P $ X $ ` $ x $ $ $ $ $ $ DAT*
$ $ $ $ $ $ ( $ ) < 8 1 " D d
0 d " ll_rc ls_dataobject sqlca <
# @7D dw_report nt 0 "dataobject g 0 " 0 "settransobject p^ H uo_ss_client ` 3 &iclass_group $x , $ 0 "of_modobjectsql Error Error updating SQL for dw_report. 0 "`DAT*
3 &x , $il_nationarray ` 3 &x , $il_statearray ` 3 &x , $il_countyarray @ ` 3 &x , $il_sourcearray h ` 3 &x , $il_sourcesub1array ` 3 &x , $il_sourcesub2array
` 3 &x , $il_sourcesub3array ` 3 &x , $il_sourcesub4array e retrieve way2 0 ( 0 8 @ X
p
( 0 8 DAT*
P X ` x ( <
" ! " 2 +clicked 2 U x y width height taborder text textsize weight facename fontfamily fontpitch
` ` F " ' 0 7 d @ DAT*
K ]
o ` ` F
@ d
@
" J , # ) 8 , ! 0 1 > , ! $ d sqlca ::message ( # @7 ! @6( settransobject ^
DAT*
` 8 0 6 : )@ @ 8 , ! F 1 T , ! $ , d 7 request sqltype sqlsyntax buffer row ::message x 8 9
" : ) - ! @6 SQL Preview % "@ "L % @ 2 ! +constructor +sqlpreview ( 2 Z x y width height tabordDAT*
er dataobject borderstyle hscrollbar vscrollbar livescroll
n " - 9 D O ]
o n
@
@
(
DAT*
% L Z H @ 2 2 Z x y width height taborder dataobject borderstyle hscrollbar vscrollbar livescroll I
I < " - 9 D O ]
o I I <
DAT*
@
@
< $ 0 $ ) @ 8 H $ P $ 1 ) h 8 8 p 0 6 : )@ @ 8 8 0 1 $ $ $ > $ $ $ =(@( 8 z '8 z & 1 ~8 0 6 :DAT*
)@ @ 8 8 0 1 $ $ $ 2 $ $ $ =(@( 8 z '8 z & 1 r8 0 6 : )@ @ 8 8 0 1 $ $ $ < $ & D $ L $ T $ =(@( 8 z '8 z & 1 f8 \ 0 6 : )@ @DAT*
8 8 0 1 l $ t $ $ $ $ $ =(@( 8 z '8 z & 1 Z8 0 6 : )@ @ 8 8 0 1 $ $ $ $ $ $ =(@( 8 z '8 z & ~ 1 N8 0 6 : )@ @ 8 DAT*
8 0 1 | $ $ 8 $ @ $ H $ P $ =(@( 8 z '8 z & r 1 B8 X 0 6 : )@ @ 8 8 0 1 p l $ t $ $ $ $ $ =(@( 8 z '8 z & f 1 68 0 6 : )@ @ 8 8 0 DAT*
Test Client window for Source Selector testingforward
global type w_test_client from Window
end type
type dw_group from datawindow within w_test_client
end type
type st_3 from statictext within w_test_client
end type
type st_2 from statictext within w_test_client
end type
type st_1 from statictext within w_test_client
end type
type dw_result from datawindow within w_test_client
end type
type cb_report from commandbutton within w_test_client
end type
type dw_report from datawindow wiDAT*
thin w_test_client
end type
type dw_filter from datawindow within w_test_client
end type
type cb_1 from commandbutton within w_test_client
end type
type uo_ss_client from u_class_ss_client within w_test_client
end type
type dw_source from datawindow within w_test_client
end type
end forward
global type w_test_client from Window
int X=0
int Y=0
int Width=3429
int Height=2312
boolean TitleBar=true
string Title="Source Selector Test Client Window"
long BackColor=79741120
boolean DAT*
ControlMenu=true
boolean MinBox=true
boolean MaxBox=true
boolean Resizable=true
WindowState WindowState=maximized!
dw_group dw_group
st_3 st_3
st_2 st_2
st_1 st_1
dw_result dw_result
cb_report cb_report
dw_report dw_report
dw_filter dw_filter
cb_1 cb_1
uo_ss_client uo_ss_client
dw_source dw_source
end type
global w_test_client w_test_client
type variables
end variables
on w_test_client.create
this.dw_group=create dw_group
this.st_3=create st_3
this.st_2=create st_2
thDAT*
is.st_1=create st_1
this.dw_result=create dw_result
this.cb_report=create cb_report
this.dw_report=create dw_report
this.dw_filter=create dw_filter
this.cb_1=create cb_1
this.uo_ss_client=create uo_ss_client
this.dw_source=create dw_source
this.Control[]={this.dw_group,&
this.st_3,&
this.st_2,&
this.st_1,&
this.dw_result,&
this.cb_report,&
this.dw_report,&
this.dw_filter,&
this.cb_1,&
this.uo_ss_client,&
this.dw_source}
end on
on w_test_client.destroy
destroy(this.dw_group)
DAT*
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.dw_result)
destroy(this.cb_report)
destroy(this.dw_report)
destroy(this.dw_filter)
destroy(this.cb_1)
destroy(this.uo_ss_client)
destroy(this.dw_source)
end on
event open;uo_ss_client.iclass_group.ids_groupData.shareData(dw_group)
uo_ss_client.iclass_group.ids_filterCriteria.shareData(dw_filter)
uo_ss_client.iclass_group.ids_sourceCriteria.shareData(dw_source)
end event
type dw_group from datawindow wDAT*
ithin w_test_client
int X=1243
int Y=32
int Width=1938
int Height=544
int TabOrder=11
boolean Enabled=false
string DataObject="d_ss_group_data"
BorderStyle BorderStyle=StyleLowered!
boolean LiveScroll=true
end type
type st_3 from statictext within w_test_client
int X=1719
int Y=608
int Width=475
int Height=96
boolean Enabled=false
string Text="Result Set:"
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-10
int Weight=700
string FaceName="Arial"
FontFamilDAT*
y FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
type st_2 from statictext within w_test_client
int X=73
int Y=1376
int Width=475
int Height=96
boolean Enabled=false
string Text="Filter Criteria:"
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-10
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
type st_1 from statictext within w_test_client
int X=73
int Y=608
int Width=475
int Height=9DAT*
6
boolean Enabled=false
string Text="Source Criteria:"
boolean FocusRectangle=false
long BackColor=79741120
int TextSize=-10
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
type dw_result from datawindow within w_test_client
int X=1719
int Y=704
int Width=1627
int Height=640
int TabOrder=50
string DataObject="d_ss_group_result_set"
BorderStyle BorderStyle=StyleLowered!
boolean HScrollBar=true
boolean VScrollBar=true
DAT*
boolean LiveScroll=true
end type
type cb_report from commandbutton within w_test_client
int X=1189
int Y=1376
int Width=695
int Height=96
int TabOrder=70
string Text="Sample Report"
int TextSize=-10
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
event clicked;
long ll_rc
string ls_dataObject
//refresh the data object so no cascading sql updates happen
//when the report is used multiple times without closing the wiDAT*
ndow
ls_dataObject = dw_report.dataObject
dw_report.dataObject = ls_dataObject
dw_report.setTransObject(SQLCA)
ll_rc = uo_ss_client.iclass_group.of_modObjectSQL(dw_report)
if ll_rc < 0 then
messageBox("Error", "Error updating SQL for dw_report.", exclamation!)
return -1
end if
ll_rc = dw_report.retrieve( &
uo_ss_client.iclass_group.il_nationArray, &
uo_ss_client.iclass_group.il_stateArray, &
uo_ss_client.iclass_group.il_countyArray, &
uo_ss_client.iclass_group.il_souDAT*
rceArray, &
uo_ss_client.iclass_group.il_sourceSub1Array, &
uo_ss_client.iclass_group.il_sourceSub2Array, &
uo_ss_client.iclass_group.il_sourceSub3Array, &
uo_ss_client.iclass_group.il_sourceSub4Array )
return 1
end event
type dw_report from datawindow within w_test_client
int X=1189
int Y=1472
int Width=2158
int Height=704
int TabOrder=30
string DataObject="d_ss_tv_result_set"
BorderStyle BorderStyle=StyleLowered!
boolean HScrollBar=true
boolean VScrollBar=true
boolDAT*
ean LiveScroll=true
end type
event constructor;this.setTransObject(SQLCA)
end event
event sqlpreview;
messageBox("SQL Preview", sqlsyntax, none!)
end event
type dw_filter from datawindow within w_test_client
int X=73
int Y=1472
int Width=1097
int Height=704
int TabOrder=60
string DataObject="d_ss_group_filter_criteria"
BorderStyle BorderStyle=StyleLowered!
boolean HScrollBar=true
boolean VScrollBar=true
boolean LiveScroll=true
end type
type cb_1 from commandbutton withinDAT*
w_test_client
int X=2651
int Y=608
int Width=695
int Height=96
int TabOrder=20
string Text="View SQL and Arrays"
int TextSize=-10
int Weight=700
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
end type
event clicked;
long i
string s = ""
string ls_sql
uo_ss_client.iclass_group.of_sort()
uo_ss_client.iclass_group.of_getSourceSQL(ls_sql, 0) //0 for result set
messageBox("SQL Fragment", ls_sql, none!)
s = ""
for i = 1 to upperBound(uoDAT*
_ss_client.iclass_group.il_nationArray)
s = s + string(uo_ss_client.iclass_group.il_nationArray[i]) + "~r~n"
next
if len(s) > 0 then messagebox("Nation Array", s, none!)
s = ""
for i = 1 to upperBound(uo_ss_client.iclass_group.il_stateArray)
s = s + string(uo_ss_client.iclass_group.il_stateArray[i]) + "~r~n"
next
if len(s) > 0 then messagebox("State Array", s, none!)
s = ""
for i = 1 to upperBound(uo_ss_client.iclass_group.il_countyArray)
s = s + string(uo_ss_client.iclass_group.DAT*
il_countyArray[i]) + "~r~n"
next
if len(s) > 0 then messagebox("County Array", s, none!)
s = ""
for i = 1 to upperBound(uo_ss_client.iclass_group.il_sourceArray)
s = s + string(uo_ss_client.iclass_group.il_sourceArray[i]) + "~r~n"
next
if len(s) > 0 then messagebox("Source Array", s, none!)
s = ""
for i = 1 to upperBound(uo_ss_client.iclass_group.il_sourceSub1Array)
s = s + string(uo_ss_client.iclass_group.il_sourceSub1Array[i]) + "~r~n"
next
if len(s) > 0 then messagebox("SourceDAT*
Sub 1 Array", s, none!)
s = ""
for i = 1 to upperBound(uo_ss_client.iclass_group.il_sourceSub2Array)
s = s + string(uo_ss_client.iclass_group.il_sourceSub2Array[i]) + "~r~n"
next
if len(s) > 0 then messagebox("Source Sub 2 Array", s, none!)
s = ""
for i = 1 to upperBound(uo_ss_client.iclass_group.il_sourceSub3Array)
s = s + string(uo_ss_client.iclass_group.il_sourceSub3Array[i]) + "~r~n"
next
if len(s) > 0 then messagebox("Source Sub 3 Array", s, none!)
s = ""
for i = 1 to uppDAT*
erBound(uo_ss_client.iclass_group.il_sourceSub4Array)
s = s + string(uo_ss_client.iclass_group.il_sourceSub4Array[i]) + "~r~n"
next
if len(s) > 0 then messagebox("Source Sub 4 Array", s, none!)
s = ""
for i = 1 to upperBound(uo_ss_client.iclass_group.is_sicArray)
if isNull(string(uo_ss_client.iclass_group.is_sicArray[i])) then
s = s + "*NULL*" + "~r~n"
else
s = s + string(uo_ss_client.iclass_group.is_sicArray[i]) + "~r~n"
end if
next
if len(s) > 0 then messagebox("SIC ArrayDAT*
", s, none!)
s = ""
for i = 1 to upperBound(uo_ss_client.iclass_group.is_sccArray)
if isNull(string(uo_ss_client.iclass_group.is_sccArray[i])) then
s = s + "*NULL*" + "~r~n"
else
s = s + string(uo_ss_client.iclass_group.is_sccArray[i]) + "~r~n"
end if
next
if len(s) > 0 then messagebox("SCC Array", s, none!)
end event
type uo_ss_client from u_class_ss_client within w_test_client
int X=73
int Y=32
int Width=1097
int Height=416
int TabOrder=10
end type
on uo_ss_cliDAT*
ent.destroy
call u_class_ss_client::destroy
end on
event ue_groupupdated;call super::ue_groupupdated;
long ll_rc
if this.iclass_group.ids_resultSet.dataObject <> dw_result.dataObject then
dw_result.dataObject = this.iclass_group.ids_resultSet.dataObject
dw_result.setTransObject(SQLCA)
end if
ll_rc = this.iclass_group.ids_resultSet.shareData(dw_result)
return 1
end event
type dw_source from datawindow within w_test_client
int X=73
int Y=704
int Width=1627
int Height=64DAT* 0
int TabOrder=40
string DataObject="d_ss_group_source_criteria"
BorderStyle BorderStyle=StyleLowered!
boolean HScrollBar=true
boolean VScrollBar=true
boolean LiveScroll=true
end type
DAT*
1 d $ $ $ $ $ $ =(@( 8 z '8 z & Z 1 *8 0 6 : )@ @ 8 8 0 1 X $ $ $ 8 $ J @ $ H $ P $ =6 (@( 8 8 X z %8 z & F ` $ h $ p $ =6 (@( 8 z '8 DAT*
z & N 1 8 x 0 6 : )@ @ 8 8 0 1 $ $ $
$ $ $ =6 (@( 8 N
8 X z %8 z &
$ $ $ =6 (@( 8 z '8 z & 1
8 0 6 : )@ @ 8 , ! 1 , ! $ &
^
DAT* : > ~ . 2 r " & f x ! " $ Z% l& '
( * N+ `, - . 0 B1 T2 3 4 6 67 H8 9 : = *> <? @ A B D F E J G H I J *
K J
L N
N
O
R
d i s ls_sql ::message P
! @6 H uo_ss_client 3 &iclass_group , $of_sort 8 3 & , $of_getsourcesql X SQL Fragment 3 & , $il_natDAT* ionarray i 3 & , $
Nation Array 3 & , $il_statearray 4 3 & , $ State Array 3 & , $il_countyarray , 3 & , $, County Array 3 & , $il_sourcearray | 3 & , $| Source Array $ 3 & , $il_sourcesub1array 3 & , $ Source Sub 1 Array 3 & , $il_sourcesub2array $
3 & , $$
Source Sub 2 Array 3 & , $il_sourcesub3arrDAT* ay | 3 & , $| Source Sub 3 Array 3 & , $il_sourcesub4array t 3 & , $ Source Sub 4 Array 3 & , $is_sicarray ,
3 & , $,
*NULL* 3 & , $,
SIC Array 3 & , $is_sccarray 3 & , $ 3 & , $ SCC Array 0 @
H P h
DAT* $ < D L T l t 8 @ H P l t $ 8 @ H P ` h p " $ " 2 +clicked 2 DAT* U x y width height taborder text textsize weight facename fontfamily fontpitch [
` ` " ' 0 7 d @ K ]
o [
` `
@ d
@ DAT*
" % 8 d destroy 1 % 8 } ( $ @ $ T $ h $ p $ x $ $ $ $ 6 $ , # ) 8 $ $ $ ) 8 < 1 X d ( ancestorreturnvalue ll_rc sqlca < DAT* " # @7 ue_groupupdated iclass_group , $ids_resultset 0
dataobject H dw_result \ . H \ . H , $0
H \ . settransobject ^ , $0
\ . sharedata : ( @ T h p x
&1 &L " # 2 " +destroy +ue_groupupdated ( DAT* 2 " x y width height taborder d I
I
]
o I I
@ @' 1
@
(
)
*
+
,
-
DAT* .
/
0
1
2 3 f z 1 2 2 Z x y width height taborder dataobject borderstyle hscrollbar vscrollbar livescroll I
[ ( " - 9 D O DAT* ]
o I [ (
@
@
DAT* ult error message
end event
event losefocus;
//the message object is used to tell any other events
//that are triggered by acceptText() that loseFocus was the originating event
message.stringParm = "loseFocus"
this.acceptText()
message.stringParm = ""
return 0
end event
event rowfocuschanged;
if currentrow <> 1 then
messageBox("Error", "dw_group::rowFocusChanged(); currentRow must always be 1.", exclamation!)
return -1
end if
return 1
end event
type gb_1 from groupboxDAT* within tabpage_group
integer x = 37
integer y = 704
integer width = 1975
integer height = 304
integer taborder = 50
integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 33554432
long backcolor = 67108864
string text = "RECALCULATE Group Options"
end type
DAT* @ 8 P $ 1 ) h 8 1 $ $ = ) 8 < 1 1 @ 8 $ D $ $ 1 ) 8 1 1 $ $ 8 8 4 0 ) H 8 < 1 1 \ $ . @ 8 DAT* d $ l $ 8 | 6 ) 8 < 1 1 9 } 1
4 N v $# D$ x' ( + , 0 .1 r4 6 8 d G ancestorreturnvalue ll_index ll_row ll_rc ls_scccode ltvi_item x % , 2
=
ue_processallselections ib_selectionsprocessed 1 iclass_grDAT* oup \@@ / 9of_resetfilter * X il_handlecount p . il_handlearray - getitem K is_groupcode 2 @ / 9ids_filtercriteria
insertrow @ @ / 9
@ / 9filter_name @ / 9scc_code setitem = is_nullcode P 1 @ / 9
@ / 9filter_value 1 = 1 8 P h
, H
\ d l t DAT*
1 ,3 ,\ ,] ,^ ,i ,j ,1 3 9 2 +ue_insertgroup +ue_load +itemcollapsed +itemexpanded +ue_selectionchanged +ue_processselections +ue_processallselections ! 0 > S i 2 < x y width height taborder picturename
0 x %
DAT* f 0 " 1 ]
%
E @ q q
@ @ @ @ @ %l
1
1
3 \ i
Q DAT* " ) 8 < 1 8 0 8 0 : (@x @x 8 1 $ $ $ $ $ $ ( $ 0 $ 8 $ P $ X $ ` $ x $ $ $ $ $ $ $ $ $ $ $ $ ( $ ) < 8 1 " D d
0 d " llDAT* $ _rc ls_dataobject sqlca < in =4
b # @6D dw_report y , "dataobject w , " , "settransobject 2W H uo_ss_client ` / &iclass_group x + # , "of_modobjectsql Error Error updating SQL for dw_report. , "` / &x + #il_nationarray ` / &x + #il_statearray ` / &x + #il_countyarray @ ` / &x + #il_sourcearray h ` / &x + #il_sourcDAT* & esub1array ` / &x + #il_sourcesub2array
` / &x + #il_sourcesub3array ` / &x + #il_sourcesub4array retrieve . 0 ( 0 8 @ X
p
( 0 8 P X ` x ( <
! ! ! 2 +clicked DAT* ( 2 U x y width height taborder text textsize weight facename fontfamily fontpitch
` ` F " ' 0 7 d @ q K q ]
` ` F
@ q qd
DAT* * @
! J , # ) 8 , ! 0 1 > , ! $ d sqlca ::message ( # @6 ! @5( settransobject W
` 8 0 6 : (@x @x 8 , ! F 1 T , ! $ , d 7 request sqltype sqlsyntax buffer row ::message x DAT* , 7 8
" 9 ) - ! @5 SQL Preview $ "? "L $ ? 2 ! +constructor +sqlpreview ( 2 Z x y width height taborder dataobject borderstyle hscrollbar vscrollbar livescroll \@
n \@ \@ " DAT* . - - a@ 9 - D - b@ O - ]
n
@
- - @
- -
(
$ L Z H ? 2 2 Z x y width height taborder dataobject borderstyle hscrollbar vscrollbDAT* 0 ar livescroll I
I < " - 9 D O ]
I I <
@
@
< $ 0 $ ) @ 8 H $ DAT* P $ 1 ) h 8 8 p 0 6 : (@x @x 8 8 0 1 $ $ $ > $ $ $ = @ 8 z '8 z & 1 ~8 0 6 : (@x @x 8 8 0 1 $ $ $ 2 $ $ $ = @ 8 z '8 z DAT* cc_code ASC
" no " yes $ 1 $ 0 $ 0 DAT* / ellspacing="0" generatecss="no" nowrap="yes") DAT* F r="1" cellpadding="0" cellspacing="0" generatecss="no" nowrap="yes")