Regarding the error ORA-01841: (full) year must be between -4713 and +9999,

Question

The issue is the code is not inserting the good records into the MIE table. This is becasue of the error 'OtherError GFSTM_INS_SNURK_NEW_TABLES_PA.gfstm_ins_asn_journal_pr:ORA-01841: (full) year must be between -4713 and +9999, and not be 0' This error is throwing out because of space issue in dt_asn_shipped.
My requirement is to log error if any if not get the next record in the loop and insert it in the table if it has no error. The issue is good records are not getting inserted. The snurk_cmms_crct018_asn_journl in the cursor is a synonym which uses dblionk to connect to the remote db. The dt_asn_shipped data type is char(6) and the format is YYMMDD.
declare
CURSOR cur_asn_journal IS
SELECT NVL(TRIM(cd_asn_plant),' ') cd_asn_plant,
     NVL(TRIM(no_journal),0) no_journal,
NVL(TRIM(cd_ship_from),' ') cd_ship_from,
     TRIM(no_asn) no_asn,
DECODE(LENGTH(dt_asn_shipped),6, to_date(to_char(to_date(trim(dt_asn_shipped),'YYMMDD'),
'DD-MON-YY'),'DD-MON-YY'), '') dt_asn_shipped,
TRIM(dt_processed) dt_processed,
TRIM(in_manual) in_manual,
     TRIM(ts_last_update) ts_last_update     
FROM snurk_cmms_crct018_asn_journl;
BEGIN
FOR l_rec_asn_journal IN cur_asn_journal LOOP
BEGIN
INSERT INTO gfstmie_st_cmms_asn_journal
gsdb_site_code ,
journal_num,
gsdb_site_from_code,
adv_shipping_notice_cnum,
adv_sn_shipping_date,
processed_date,
manual_in_code,
cmms_last_update_cdate,
create_userid,
create_dts,
update_userid,
update_dts
) VALUES
l_rec_asn_journal.cd_asn_plant,
l_rec_asn_journal.no_journal,
l_rec_asn_journal.cd_ship_from,
l_rec_asn_journal.no_asn,
l_rec_asn_journal.dt_asn_shipped,
l_rec_asn_journal.dt_processed,
l_rec_asn_journal.in_manual,
l_rec_asn_journal.ts_last_update,
g_con_user_id,
     l_dts_current_gmt,
g_con_user_id,
l_dts_current_gmt
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('l_num_exception_pt_7');
--To assign value to error attributes
l_str_email_body := GFSTU_MSG_CONTEXT_STACKER_PA.gfstu_add_msg_context_fn(
SQLERRM || l_str_process_track,
g_con_package_name || l_con_proc_name,
g_con_string_null);
l_rec_apm_error_attributes.job_run_sakey := l_num_job_run_id;
l_rec_apm_error_attributes.proj_acronym_code := GFSTM_PARM_SPECIFICATION_PA.g_con_proj_acronym_code_ta;           
l_rec_apm_error_attributes.module_code := l_con_module_code;
l_rec_apm_error_attributes.notes_text := l_str_email_body;
l_rec_apm_error_attributes.msg_id := GFSTM_PARM_SPECIFICATION_PA.g_con_msg_id_invalid_date;
--Calling procedure to log and notify subscribers of transaction
--related errors and informational messages
GFSTM_COMMON_UTL_PA.gfstm_log_message_pr(
SUBSTR(l_str_email_body,1,2000),
g_con_string_null,
g_con_string_null,
SUBSTR(l_str_email_body,1,2000),
l_rec_apm_error_attributes,
g_con_string_null,
l_num_wait_time,
l_num_wait_interval_time,
l_str_msg_action_code,
l_num_oracle_error_code,
l_str_oracle_msg,
l_num_return_code,
l_num_status);
END;
END LOOP;
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('l_num_exception_pt_12');
DBMS_OUTPUT.PUT_LINE('l_num_exception_pt_2 '||l_str_procg_mode_code);
--Rollback uncommitted transactions
ROLLBACK;
--Assigning failure status
o_num_status := g_con_status_failure;
--Assigning procedure end time in GMT
l_dts_end_time := GFSTU_DATETIME_UTILITIES_PA.gfstu_to_gmt_fn;
--To assign value to error attributes
l_str_email_body := GFSTU_MSG_CONTEXT_STACKER_PA.gfstu_add_msg_context_fn(
SQLERRM || l_str_process_track,
g_con_package_name || l_con_proc_name,
g_con_string_null);
l_rec_apm_error_attributes.job_run_sakey := l_num_job_run_id;
l_rec_apm_error_attributes.proj_acronym_code := GFSTM_PARM_SPECIFICATION_PA.g_con_proj_acronym_code_ta;           
l_rec_apm_error_attributes.module_code := l_con_module_code;
l_rec_apm_error_attributes.notes_text := l_str_email_body;
l_rec_apm_error_attributes.msg_id := GFSTM_PARM_SPECIFICATION_PA.g_con_msg_id_oracle;
--Calling procedure to log and notify subscribers of transaction
--related errors and informational messages
GFSTM_COMMON_UTL_PA.gfstm_log_message_pr(
SUBSTR(l_str_email_body,1,2000),
g_con_string_null,
g_con_string_null,
SUBSTR(l_str_email_body,1,2000),
l_rec_apm_error_attributes,
g_con_string_null,
l_num_wait_time,
l_num_wait_interval_time,
l_str_msg_action_code,
l_num_oracle_error_code,
l_str_oracle_msg,
l_num_return_code,
l_num_status);
--Calling procedure to update the job status
GFSTM_COMMON_UTL_PA.gfstm_update_job_status_pr(
l_num_job_run_id,
GFSTM_PARM_SPECIFICATION_PA.g_con_process_abort,
l_dts_end_time,
g_con_perf_metric_code,
g_con_zero,
g_con_n,
l_num_oracle_error_code,
l_str_oracle_msg,
l_num_return_code,
l_num_status);
END ;
Thanks,
Vinodh

Answer 1

Hi,
Could you not have reduced your question to what is relevant?
You seem to be saying that this is your problem:
SELECT DECODE ( LENGTH (dt_asn_shipped),
          6,
          TO_DATE ( TO_CHAR ( TO_DATE ( TRIM (dt_asn_shipped), 'YYMMDD'), 'DD-MON-YY'), 'DD-MON-YY'),
         dt_asn_shipped
FROM   snurk_cmms_crct018_asn_journl;As far as I can see, problem might be that you decode on UNTRIMMED length.
Also, you could get rid of some the to_date(to_char(to_date), which is nothing more than simply to_date()
Try something like
SELECT CASE LENGTH (TRIM (dt_asn_shipped))
         WHEN 6 THEN TO_DATE ( TRIM (dt_asn_shipped), 'YYMMDD')
       END
         dt_asn_shipped
FROM   snurk_cmms_crct018_asn_journl;Regards
Peter