Appendix B
Page 499

Example B-4

Some Code Extracts Indicating Potential Problem Areas

initialization
:B1.S_START_TIME :=to_date ( to_char(sysdate,'DD-MON-YY HH:MI:SS'),
                                             'DD-MON-YY HH:MI:SS') ;
:global.stage_date  := TO_CHAR(SYSDATE,'DD-MON-YY');
:b1.generation  := TO_NUMBER(TO_CHAR(:b1.application_date,'YY'))

conditional logic
IF :ORG2.DELETED_DATE > TO_DATE(TO_CHAR(SYSDATE,'DD-MON-YY')) THEN

predicates
.... and    to_number(to_char(sch_date_started,'YY')) < 85

.... order by to_date(hci_month,'MON-YY') desc

.... and   hist_date < trunc(to_date(to_char(sysdate,
                                     'DD-MON-YY')),'YEAR')

in cursors
cursor count_dates is
select count(distinct(to_char(hom_offer_of_cover_date,'DD-MON-YY'))),
       count(distinct(to_char(hom_date_issued,'DD-MON-YY'))),
       count(distinct(to_char(hom_date_cp_notice,'DD-MON-YY'))),
       count(distinct(to_char(hom_date_final_cert,'DD-MON-YY')))
from   homes
where (:b1.service_type = 'HB3'
       and hom_hb3_service_request_no = :b1.service_request_no);

problems with boundary crossing?
ELSIF TO_CHAR(launch_datetime,'DD-MON-YY HH24:MI:SS') <
               TO_CHAR(SYSDATE,'DD-MON-YY HH24:MI:SS') THEN

use in keys - problems when ordering
.... order by claim_no; -- claim_no is YY/nnnnn