package SDU::DBI_MaxSeqTotPorts; use strict; use base 'SDU::DBI'; # SDU_DBI is based on Class::DBI::Oracle __PACKAGE__->set_up_table('MAX_SEQ_TOT_PORTS'); __PACKAGE__->columns(Primary => 'ID'); __PACKAGE__->columns(Others => qw/CUSTOMER SWITCH_NAME SEQUENCE PORTS/); 1; #### CREATE OR REPLACE VIEW sdu.max_seq_tot_ports ( id, customer, switch_name, sequence, ports ) AS SELECT a.ID, b.CUSTOMER, b.SWITCH_NAME, b.SEQUENCE, SUM(b.COUNT_X) FROM SDU_SWITCHES a , SDP_QUERY_RESULTS b WHERE a.SWITCH_NAME = b.SWITCH_NAME AND a.CUSTOMER = b.CUSTOMER AND (b.SWITCH_NAME, b.SEQUENCE) IN ( SELECT SWITCH_NAME, MAX(SEQUENCE) FROM SDP_QUERY_RESULTS GROUP BY SWITCH_NAME ) GROUP BY a.ID, b.CUSTOMER, b.SWITCH_NAME, b.SEQUENCE / #### The "MAX_SEQ_TOT_PORTS" table has no primary key at /opt/ar/scripts/sdp_upload/SDU/DB.pm line 15 Compilation failed in require at /opt/ar/scripts/sdp_upload/SDU/DB.pm line 15. BEGIN failed--compilation aborted at /opt/ar/scripts/sdp_upload/SDU/DB.pm line 15. Compilation failed in require at ./tobj.pl line 3. BEGIN failed--compilation aborted at ./tobj.pl line 3.