Segment fault (Core dump)

Question

Hi
when i run the following Pro*c file in Unix Environment im getting the SEGMENTATION FAULT(CORE DUMP) error. I used DBX to debug the code. I couldnt find out the proper reason for this error form the dbx output.
This is the output i got from DBX.
*signal SEGV (no mapping at the fault address) in _doprnt at 0xfb98736c*
*0xfb98736c: _doprnt+0x2798:     stb     %o0, [%o1]*
I did the showmemuse and show leaks, the output for this commands :
(dbx) showmemuse
Checking for memory use...
Blocks in use report (blocks in use: 575 total size: 328086 bytes)
Total % of Num of Avg Allocation call stack
Size All Blocks Size
======= ==== ====== ====== =======================================
134876 41% 30 4495 kpummapg < kghgex
18098 5% 1 18098 lxldlbb < lxlinit < kpummpin < kpupin < sqgctx < sqgrct < sqlcmex < sqlcxt
16552 5% 4 4138 kogmapg < kghgex
16516 5% 4 4129 kogmapg < kogmasg
12288 3% 6 2048 nlhtnsl < nlhthnew
10350 3% 5 2070 calloc < nsbGetBFS
9688 2% 1 9688 kouogini < kouoini < kpuinit0 < kpuinit < sqgctx < sqgrct < sqlcmex < sqlcxt
8200 2% 1 8200 findbuf < doprnt < _fprintf < main
8120 2% 4 2030 sqlrlc < sqlcopydfn
8080 2% 1 8080 kpuinit0 < kpuinit < sqgctx < sqgrct < sqlcmex < sqlcxt < main
7168 2% 1 7168 calloc < nsgbliuc < nsgblini < niotns < nigcall < osncon < kpuadef < upiini
7168 2% 3 2389 lxldlod < lxdlobj
5976 1% 4 1494 sqlrlc < sqlcopydfn
4640 1% 1 4640 sqlrlc < sqldrl < sqlexp < sqlcmex < sqlcxt < get_pub_dates < main
4640 1% 1 4640 sqlrlc < sqlbrl < sqlexp < sqlcmex < sqlcxt < get_pub_dates < main
4128 1% 1 4128 calloc < nsgbliuc < nsgblini < niotns < nigcall < osncon < kpuadef < upiini
4024 1% 1 4024 sqlrlc < sqlbrl < sqlexp < sqlcmex < sqlcxt < get_pub_dates < main
3408 1% 1 3408 sqlrlc < sqldrl < sqlexp < sqlcmex < sqlcxt < get_pub_dates < main
2452 <1% 8 306 calloc < nsmal
2156 <1% 7 308 calloc < nlemfins
(dbx) showleaks
Checking for memory leaks...
Actual leaks report (actual leaks: 1 total size: 30 bytes)
Total Num of Leaked Allocation call stack
Size Blocks Block
Address
====== ====== ========== =======================================
30 1 0x9c9c8 getOutFileName < main
Possible leaks report (possible leaks: 0 total size: 0 bytes)
i know its because of Pad pointer and something related to Pointer or array overflow. But i couldnt find out where exactly happening....
Following is my Code, please help me to find out the error and what i need to change in my code:
#ifndef ORA_PROC
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <ctype.h>
#include <math.h>
#else
typedef struct FILE FILE;
#endif
/*** Added by TCS Begins ***/
char getOutFileName(char );
char getEnvVar(char );
void prepare_declare_oracle_cursors();
void get_calendar_dates();
void get_issues();
void get_master_cusip_no();
void get_run_date_finish();
void get_payments();
int get_pub_dates();
void get_rights();
void get_s_h_meetings();
void get_special_codes();
void get_agents();
void get_currency();
void get_payment_codes();
void get_issue_codes();
void get_standard_footnotes();
void get_index_codes();
void get_exchanges();
void get_tax_codes();
void get_tenders();
int check_if_holiday(int );
void sql_error(int , int , char *);
void login_error();
void no_pub_dates();
void no_cal_dates();
void no_finish_date();
void save_payment_footnote(char , char [3],int , char );
void save_issue_footnote(char );
int print_footnotes();
int print_foreign_tax();
int get_partial_run_time();
void save_rght_footnotes();
int print_supplimental();
int convert_tender_price(char *);
void pad_s_h_meetings();
int strip_out_codes(char *);
char *getSqlLogonString();
/**** TCS ADD Ends ****/
EXEC SQL INCLUDE sqlca;
EXEC SQL INCLUDE ddr_create_all_tapes.h;
#define TRUE 1
#define ORA_NOT_FOUND     ( sqlca.sqlcode == 1403 )
/* The Definitions of SUCCESS and FAILURE were switched to test the
idea that SUCCESS should be Zero and FAILURE should be Non-Zero
#define SUCCESS 1
#define FAILURE 0
#define SUCCESS 0
#define FAILURE -1
#define SYSOK          0
#define SYSERR          1
#define DEBUGGING     0
#define DEBUG_LEVEL     0
/*     #define DEBUGGING     1
     #define DEBUG_LEVEL     2
int          first_cal_date;
int          footnote_count;
int          foreign_count;
int          last_cal_date;
int          total_records;
int          which_tape = 0;
char          cusip_table_name[30];
char          field_type_code;
char          final_cusip_number[10];
/**** char          footnote_text[300][300];
char          foreign_text[60][100]; **** Commented by TCS as per the change request ****/
/*** Added by TCS as per the change request ***/
char          footnote_text[200][300];
char          foreign_text[200][300];
/*** TCS Add Ends ***/
char          freq_type_code;
char          init_cusip_number[10];
char          rec_type_code;
char          payment_where_clause[600];
char          rights_where_clause[600];
char          tenders_where_clause[600];
char          s_h_meet_where_clause[600];
char          last_run_time[18];
char          supp_info_buffer[321];
int          call_flag;
int          tenders_flag;
int          rights_flag;
int          s_h_meet_flag;
int          rght_foot_pos;
double          hold_double;
int          hold_int;
char          hold_char[100];
int i=0;
FILE      *fp;
FILE     pfp;          / this is used for a report file to correspond to
the partial tape file */
int main(int argc, char argv[]) / Modified by TCS */
     char          ddr_tape_name[100];
     char          ddr_partial_rpt[100];
     char          copyright_notice[100];
     long           file_position;
     char           *logname;
     /* READ IN PARAMETERS AND SET UP VARIABLES */
     memset (oracle_uid.arr, 0, sizeof(oracle_uid.arr));
memset (oracle_pwd.arr, 0, sizeof(oracle_pwd.arr));
strcpy (oracle_uid.arr, argv[1]);
oracle_uid.len = strlen(oracle_uid.arr);
strcpy (oracle_pwd.arr, argv[2]);
oracle_pwd.len = strlen(oracle_pwd.arr);
printf("Calling getSqlLogonString");
logname = getSqlLogonString();
     which_tape = atoi(argv[1]);
     memset (last_run_time, 0, sizeof(last_run_time));
     if ( ( DEBUGGING ) && ( DEBUG_LEVEL > 1 ) )
     printf ("Oracle username: %s\n", oracle_uid.arr);
     printf ("Oracle password: %s\n", oracle_pwd.arr);
     printf ("Oracle username/password@database: %s\n", logname); /** Added by TCS **/
     printf ("Which Tape: %d\n", which_tape);
     hold_double = 0.0;
     hold_int = 0;
     memset (hold_char, ' ', sizeof(hold_char));
     EXEC SQL WHENEVER SQLERROR DO login_error();
/*      EXEC SQL CONNECT :oracle_uid IDENTIFIED BY :oracle_pwd; */
     EXEC SQL CONNECT :logname ;
     printf ("Connected to ORACLE... \n");
     EXEC SQL WHENEVER SQLERROR continue;
     get_pub_dates();
     memset (ddr_tape_name, 0, sizeof(ddr_tape_name));
     memset (ddr_partial_rpt, 0, sizeof(ddr_partial_rpt));
     memset (cusip_table_name, 0, sizeof(cusip_table_name));
     memset (payment_where_clause, 0, sizeof(payment_where_clause));
     memset (rights_where_clause, 0, sizeof(rights_where_clause));
     memset (tenders_where_clause, 0, sizeof(tenders_where_clause));
     memset (s_h_meet_where_clause, 0, sizeof(s_h_meet_where_clause));
     /* SET UP VARIABLES BASED ON THE DIFFERENT FREQUENCY OF TAPE */
     switch (which_tape)
          case 0:
               get_partial_run_time();
               /*sprintf (ddr_tape_name,
                    "idb_tape$out:ddr_partial%1d.asc", p_count); ** Comented by TCS **/
               sprintf (ddr_tape_name,"%s%1d.%s",getOutFileName("DDR_PARTIAL"),p_count,getEnvVar("DDR_PARTIAL_EXT_ASC")); /* Added by TCS */
               strcpy (cusip_table_name,
                    "IDB.DDR_PARTIAL_TAPE_TABLE");
               /*sprintf (ddr_partial_rpt,
                    "idb_tape$out:ddr_partial%1d.rpt", p_count); ** Commented by TCS **/
               sprintf (ddr_partial_rpt,"%s%1d.%s",getOutFileName("DDR_PARTIAL"),p_count,getEnvVar("DDR_PARTIAL_EXT_RPT")); /* Added by TCS */
               get_calendar_dates();
               freq_type_code = '0';
               sprintf (payment_where_clause,
"AND PYMT_PUB_DATE IS NULL \
AND ((PYMT_ADD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI') \
AND PYMT_ADD_DATE_TIME < TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')) \
OR (PYMT_UPD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI') \
AND PYMT_UPD_DATE_TIME < TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')))",
p_from.arr, p_to.arr, p_from.arr, p_to.arr);
               sprintf (rights_where_clause,
"AND RGHT_PUB_DATE IS NULL \
AND ((RGHT_ADD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI') \
AND RGHT_ADD_DATE_TIME < TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')) \
OR (RGHT_UPD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI') \
AND RGHT_UPD_DATE_TIME < TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')))",
p_from.arr, p_to.arr, p_from.arr, p_to.arr);
               sprintf (tenders_where_clause,
"AND TNDR_PUB_DATE IS NULL \
AND ((TNDR_ADD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI') \
AND TNDR_ADD_DATE_TIME < TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')) \
OR (TNDR_UPD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI') \
AND TNDR_UPD_DATE_TIME < TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')))",
p_from.arr, p_to.arr, p_from.arr, p_to.arr);
               sprintf (s_h_meet_where_clause,
"AND SMTG_PUB_DATE IS NULL \
AND ((SMTG_ADD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI') \
AND SMTG_ADD_DATE_TIME < TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')) \
OR (SMTG_UPD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI') \
AND SMTG_UPD_DATE_TIME < TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')))",
p_from.arr, p_to.arr, p_from.arr, p_to.arr);
               break;
          case 3:
/*     PARTIAL 5     */
               get_partial_run_time();
               p_count = 5;
               /**sprintf (ddr_tape_name,
                    "idb_tape$out:ddr_partial%1d.asc", p_count); ** Comented by TCS **/
               sprintf (ddr_tape_name,"%s%1d.%s",getOutFileName("DDR_PARTIAL"),p_count,getEnvVar("DDR_PARTIAL_EXT_ASC")); /* Added by TCS */
/* for testing only I am using seperate TABLE     */
               /**strcpy (cusip_table_name,
                    "IDB.DDR_PARTIAL5_TAPE_TABLE"); ** Commented by TCS **/
               strcpy (cusip_table_name,
                    "IDB.DDR_PARTIAL_TAPE_TABLE");
               /*sprintf (ddr_partial_rpt,
                    "idb_tape$out:ddr_partial%1d.rpt", p_count); ** Commented by TCS **/
               sprintf (ddr_tape_name,"%s%1d.%s",getOutFileName("DDR_PARTIAL"),p_count,getEnvVar("DDR_PARTIAL_EXT_RPT")); /* Added by TCS */
               get_calendar_dates();
               freq_type_code = '3';
               sprintf (payment_where_clause,
"AND ( (PYMT_ADD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')) \
OR (PYMT_UPD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')))",
p_to.arr, p_to.arr);
               sprintf (rights_where_clause,
"AND ((RGHT_ADD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')) \
OR (RGHT_UPD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')))",
p_to.arr, p_to.arr);
               sprintf (tenders_where_clause,
"AND ((TNDR_ADD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')) \
OR (TNDR_UPD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')))",
p_to.arr, p_to.arr);
               sprintf (s_h_meet_where_clause,
"AND ((SMTG_ADD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')) \
OR (SMTG_UPD_DATE_TIME >= TO_DATE('%15.15s', 'DD-MON-RR HH24:MI')))",
p_to.arr, p_to.arr);
               break;
          case 1:
               /**strcpy (ddr_tape_name,
                    "idb_tape$out:ddr_daily_tape.asc"); ** Commented by TCS **/
               sprintf (ddr_tape_name,"%s",getOutFileName("DDR_DAILY_TAPE_ASC")); /* Added by TCS */
               strcpy (cusip_table_name,
                    "IDB.DDR_DAILY_TAPE_TABLE");
               get_calendar_dates();
               freq_type_code = '1';
               sprintf (payment_where_clause, "AND (PYMT_PUB_DATE \
= TO_DATE('%s','DD-MON-RR') OR PYMT_PUB_DATE IS NULL)", pub_to_date.arr);
               sprintf (rights_where_clause, "AND (RGHT_PUB_DATE \
= TO_DATE('%s','DD-MON-RR') OR RGHT_PUB_DATE IS NULL)", pub_to_date.arr);
               sprintf (tenders_where_clause, "AND (TNDR_PUB_DATE \
= TO_DATE('%s','DD-MON-RR') OR TNDR_PUB_DATE IS NULL)", pub_to_date.arr);
               sprintf (s_h_meet_where_clause, "AND (SMTG_PUB_DATE \
= TO_DATE('%s','DD-MON-RR') OR SMTG_PUB_DATE IS NULL)", pub_to_date.arr);
               break;
          case 5:
               /*strcpy (ddr_tape_name,
                    "idb_tape$out:ddr_weekly_tape.asc"); ** Commented by TCS **/
               sprintf (ddr_tape_name, "%s",getOutFileName("DDR_WEEKLY_TAPE_ASC")); /* Added by TCS */
               strcpy (cusip_table_name,
                    "IDB.DDR_WEEKLY_TAPE_TABLE");
               get_calendar_dates();
               freq_type_code = '2';
               sprintf (payment_where_clause, "AND (PYMT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR PYMT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (rights_where_clause, "AND (RGHT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR RGHT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (tenders_where_clause, "AND (TNDR_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR TNDR_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               /* ram - 6/28/95 - reverted back to original criteria: */
               /* include on weekly tape based on pub-date, regardless of */
               /* whether in calendar or not */
               sprintf (s_h_meet_where_clause, "AND (SMTG_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR SMTG_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               break;
          case 12:
               /* ram - 7/13/95          */
               /* changed monthly "6" to "12" */
               /*strcpy (ddr_tape_name,
                    "idb_tape$out:ddr_monthly_tape.asc"); ** Commented by TCS **/
               sprintf (ddr_tape_name, "%s", getOutFileName("DDR_MONTHLY_TAPE_ASC")); /* Added by TCS */
               strcpy (cusip_table_name,
                    "IDB.DDR_MONTHLY_TAPE_TABLE");
               freq_type_code = '3';
               sprintf (payment_where_clause, "AND (PYMT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR PYMT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (rights_where_clause, "AND (RGHT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR RGHT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (tenders_where_clause, "AND (TNDR_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR TNDR_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               break;
          case 8:
               /*strcpy (ddr_tape_name,
                    "idb_tape$out:ddr_quarterly_tape.asc");** Commented by TCS **/
               sprintf (ddr_tape_name,"%s",getOutFileName("DDR_QUARTERLY_TAPE_ASC")); /* Added by TCS */
               strcpy (cusip_table_name,
                    "IDB.DDR_QUARTERLY_TAPE_TABLE");
               freq_type_code = '3';
               sprintf (payment_where_clause, "AND (PYMT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR PYMT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (rights_where_clause, "AND (RGHT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR RGHT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (tenders_where_clause, "AND (A.TNDR_TENDER_DATE \
= TO_DATE('%s','DD-MON-RR'))", pub_to_date.arr);               break;
          case 9:
               /*strcpy (ddr_tape_name,
                    "idb_tape$out:ddr_annual_tape.asc"); ** Comented by TCS **/
               sprintf (ddr_tape_name,"%s", getOutFileName("DDR_ANNUAL_TAPE_ASC")); /* Added by TCS */
               strcpy (cusip_table_name,
                    "IDB.DDR_ANNUAL_TAPE_TABLE");
               freq_type_code = '4';
               sprintf (payment_where_clause, "AND (PYMT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') \
OR PYMT_PUB_DATE = TO_DATE('29-OCT-1929','DD-MON-YYYY'))",
pub_from_date.arr, pub_to_date.arr);
               sprintf (rights_where_clause, "AND (RGHT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR RGHT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (tenders_where_clause, "AND (A.TNDR_TENDER_DATE \
= TO_DATE('%s','DD-MON-RR'))", pub_to_date.arr);               break;
          case 15:
               /*strcpy (ddr_tape_name,
                    "idb_tape$out:ddr_general_tape.asc"); ** Commented by TCS **/
               sprintf (ddr_tape_name,"%s", getOutFileName("DDR_GENERAL_TAPE_ASC")); /* Added by TCS */
               strcpy (cusip_table_name,
                    "IDB.DDR_GENERAL_TAPE_TABLE");
               freq_type_code = '3';
               sprintf (payment_where_clause, "AND (PYMT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR PYMT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (rights_where_clause, "AND (RGHT_PUB_DATE \
BETWEEN to_date('%s','DD-MON-RR') AND to_date('%s','DD-MON-RR') OR RGHT_PUB_DATE IS NULL)",
pub_from_date.arr, pub_to_date.arr);
               sprintf (tenders_where_clause, "AND (A.TNDR_TENDER_DATE \
= TO_DATE('%s','DD-MON-RR'))", pub_to_date.arr);               break;
          default:
               exit (printf ("Invalid tape option: %d\n", which_tape)); /*** %s changed by TCS to %d ***/
               break;
     if ((fp = fopen(ddr_tape_name, "w+")) == NULL)
          exit (printf ("Unable to open asc <%s> file for write access\n",
               ddr_tape_name));
/*     GR. Partial 5
     if (which_tape == 0 || which_tape == 3 )
          if ((pfp = fopen(ddr_partial_rpt, "w+")) == NULL)
               exit (printf ("Unable to open asc <%s> file \
for write access\n", ddr_partial_rpt));
     /* WRITE THE HEADER RECORD ON THE TAPE */
     memset (copyright_notice, 0, sizeof(copyright_notice));
     sprintf (copyright_notice, "COPYRIGHT (c) %.4s STANDARD & POOR'S \
CORPORATION. ALL RIGHTS RESERVED", year.arr);
     fprintf (fp, "%-80.80sDIVIDEND%8d%17.17s ",
copyright_notice, control_date, run_date_start.arr);
     file_position = ftell(fp);
     fprintf (fp, "\n");
     total_records = 0;
     /* GET THE SPECIAL CATEGORY RECORDS */
     get_special_codes();
     /* SELECT FROM THE DRIVER TABLE TO GET ALL THE OTHER RECORDS */
     get_master_cusip_no();
     printf("After get_master_cusip_no()");
     get_run_date_finish();
     printf("After get_run_date_finish()");
     if ( DEBUGGING )
          printf ("initial cusip = %s\n", init_cusip_number);
          printf ("final cusip = %s\n", final_cusip_number);
          printf ("record type is %c\n", rec_type_code);
     /* WRITE THE TRAILER RECORD */
     fprintf (fp, "%8d%-17.17s%07d%-9.9s1%-9.9s%c\n", control_date,
run_date_finish.arr, total_records, init_cusip_number , final_cusip_number,
rec_type_code);
     /* re-wind and add to the header record ... */
     rewind(fp);
     fseek(fp, file_position - 33, 0);
     fprintf (fp, "%07d%-9.9s1%-9.9s%c", total_records, init_cusip_number,
final_cusip_number, rec_type_code);
     fclose(fp);
/*     GR Partial 5
     if (which_tape == 0 || which_tape == 3 )
          fclose(pfp);
     printf ("\nDONE: %07d%-9.9s1%-9.9s%c\n", total_records, init_cusip_number,
final_cusip_number, rec_type_code);
return (0); /*** Added by TCS ***/
void prepare_declare_oracle_cursors() /* Modified by TCS */
     /* We'll us dynamic sql to get the appropriate where clause but use */
     /* a bind variable for the master cusip number. So we prepare and */
     /* declare get_issues, get_payments, get_tenders, get rights, and */
     /* get_s_h_meetings cursors only once, outside the driving loop. */
     EXEC SQL BEGIN DECLARE SECTION;
          /**** TCS Comment begins as per the change request ****
          VARCHAR          sql_stmt1[1500];*/     /* issues */
          /*VARCHAR          sql_stmt2[3000];     *//* payments */
          /*VARCHAR          sql_stmt3[500];          *//* tenders */
          /*VARCHAR          sql_stmt4[500];          *//* rights */
          /*VARCHAR          sql_stmt5[500];          *//* s_h_meetings */
          /**** TCS Add begins as per the change request ****/
          VARCHAR          sql_stmt1[2000];     /* issues */
          VARCHAR          sql_stmt2[4000];     /* payments */
          VARCHAR          sql_stmt3[1000];     /* tenders */
          VARCHAR          sql_stmt4[1000];     /* rights */
          VARCHAR          sql_stmt5[1000];     /* s_h_meetings */
          /**** TCS Add ends ****/
     EXEC SQL END DECLARE SECTION;
     /* prepare and declare the get_issues cursor */
     memset (sql_stmt1.arr, 0, sizeof(sql_stmt1.arr));
     sprintf (sql_stmt1.arr, "SELECT \
A.ISSU_PAR_VALUE, \
DECODE (A.ISSU_MARKET_SYMBOL||A.ISSU_NASDAQ,'OTCY','NASD', A.ISSU_MARKET_SYMBOL), \
A.ISSU_C_RATE, A.ISSU_C_FREQ, A.ISSU_C_NEW_AMOUNT, A.ISSU_C_NEW_Q1, \
A.ISSU_C_NEW_Q2, A.ISSU_C_NEW_Q3, A.ISSU_C_OLD_AMOUNT, A.ISSU_C_OLD_Q1, \
A.ISSU_C_OLD_Q2, A.ISSU_C_OLD_Q3, A.ISSU_CURRENCY, \
A.ISSU_UPD_HIS, A.ISSU_COMMENT, A.TAX_EXEMPT_FLAG,\
B.SEC_TYPE_CODE, B.ACQ_BY_IND, B.ACQ_ISSUER_NO, \
rtrim(substr(B.ACQ_ISSUER_DESCR,1,30)), \
B.INDEX_CODE, B.TRFR_AGT_CODE, B.NY_AGT_CODE, B.TICKER_SYMBOL, \
B.TICKER_SYMBOL2, \
rtrim(substr(C.ISSR_DDR_ISSUER_DESCR,1,60)), \
rtrim(substr(E.ISSUE_DESCR,1,30)), \
rtrim(substr(D.ISSUER_DESCR1,1,30)), \
F.TRFR_DAYS \
FROM IDB.DDR_ISSUES A, IDB.DDR_ISSUES_2 B, IDB.DDR_ISSUERS C, \
BLIS.CUSIP_ISSUERS D, BLIS.CUSIP_ISSUES E, IDB.DDR_TRANSFER F \
WHERE A.ISSU_CUSIP_NO = :master_cusip_no \
AND A.ISSU_CUSIP_NO = B.ISSU_CUSIP_NO(+) \
AND SUBSTR(A.ISSU_CUSIP_NO, 1, 6) = C.ISSR_ISSUER_NO(+) \
AND SUBSTR(A.ISSU_CUSIP_NO, 1, 6) = D.ISSUER_NO \
AND A.ISSU_CUSIP_NO = E.CUSIP_NO \
AND A.ISSU_TRANSFER_CODE = F.TRFR_TR_CD(+) ");
     sql_stmt1.len = strlen(sql_stmt1.arr);
     EXEC SQL PREPARE ISSUES FROM :sql_stmt1;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in preparing ISSUES");
     EXEC SQL DECLARE ISSUES_C CURSOR FOR ISSUES;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in declaring ISSUES");
     /* now the get_payments cursor */
     memset (sql_stmt2.arr, 0, sizeof(sql_stmt2.arr));
     sprintf (sql_stmt2.arr, "SELECT \
a.PYMT_RP_DIV, \
a.PYMT_RP_DEC, \
a.PYMT_RP_EXD, \
a.PYMT_RP_REC, \
a.PYMT_RP_PAY, \
a.PYMT_RP_DUE, \
a.PYMT_RP_TAX, \
a.PYMT_RP_ANN, \
a.PYMT_PRP_DIV, \
a.PYMT_PRP_DEC, \
a.PYMT_PRP_EXD, \
a.PYMT_PRP_REC, \
a.PYMT_PRP_PAY, \
a.PYMT_PRP_DUE, \
a.PYMT_PRP_TAX, \
a.PYMT_PRP_ANN, \
NVL(a.PYMT_SEQ_NO,0), \
TO_CHAR(a.PYMT_DECLARED, 'YYMMDD'), \
TO_CHAR(a.PYMT_EX_DATE, 'YYMMDD'), \
TO_CHAR(a.PYMT_STK_REC, 'YYMMDD'), \
TO_CHAR(a.PYMT_TRANSFER_DATE, 'YYMMDD'), \
TO_CHAR(a.PYMT_PAYABLE, 'YYMMDD'), \
a.PYMT_CODES, \
NVL(a.PYMT_CASH_DIVD,0.0), \
NVL(b.ORDINARY_INCOME,0.0), \
NVL(b.CAP_GAINS,0.0), \
NVL(b.SHORT_TM_CAP_GAINS,0.0), \
NVL(b.LONG_TM_CAP_GAINS,0.0), \
NVL(b.RETURN_OF_CAPITAL,0.0), \
b.STK_DIVD_IND, \
NVL(a.PYMT_STK_DIVD,0), \
b.FRAC_IN_CASH_STK_IND, \
NVL(b.FRAC_IN_CASH_PRICE,0.0), \
NVL(a.PYMT_SPLIT_NEW,0), \
NVL(a.PYMT_SPLIT_OLD,0), \
TO_CHAR(a.PYMT_DB_DATE, 'YYMMDD'), \
NVL(b.ARREARS_PAID,0.0), \
NVL(b.ARREARS_DUE,0.0), \
b.SPINOFF_IND, \
b.SPINOFF_ISSUE_NO, \
b.SPINOFF_ISSUER_DESCR, \
b.SPINOFF_ISSUE_DESCR, \
NVL(b.TAX_CODE,0), \
NVL(b.TAX_CODE_2,0), \
NVL(b.OLD_SEQ_NO,0), \
b.ORDINARY_INCOME_CODE, \
b.CAP_GAINS_CODE, \
b.SHORT_TM_CAP_GAINS_CODE, \
b.LONG_TM_CAP_GAINS_CODE, \
b.RETURN_OF_CAPITAL_CODE, \
TO_CHAR(b.CALL_DATE, 'YYMMDD'), \
NVL(b.CALL_PRICE,0.0), \
b.CALL_PRICE_CURRENCY, \
b.CALL_AGT_NO, \
b.ACCRUED_DIVD_IND, \
TO_CHAR(a.PYMT_DB_DATE, 'YYMMDD'), \
a.PYMT_DB_TEXT, \
a.PYMT_DVD_TEXT, \
a.PYMT_YEAR, \
TO_CHAR(a.PYMT_STK_REC, 'fmMon dd'), \
TO_CHAR(a.PYMT_DB_DATE, 'fmMon dd'), \
b.NY_CALL_AGT_NO, \
NVL(b.FOREIGN_TAX_RATE, 0.0), \
NVL(b.NET_RATE, 0.0), \
NVL(b.FEE, 0.0), \
NVL(b.COMMISSION, 0.0), \
a.PYMT_CASH_DIVD_FNS, \
a.PYMT_STK_DIVD_FNS, \
a.PYMT_DECLARED_FNS, \
a.PYMT_EX_DATE_FNS, \
a.PYMT_STK_REC_FNS, \
a.PYMT_PAYABLE_FNS, \
a.PYMT_SPLIT_FNS, \
NVL (TO_NUMBER (TO_CHAR(a.PYMT_PUB_DATE, 'YYYYMMDD')), 0), \
NVL (TO_NUMBER (TO_CHAR(a.PYMT_TRANSFER_DATE, 'YYYYMMDD')), 0), \
NVL (TO_NUMBER (TO_CHAR(a.PYMT_STK_REC, 'YYYYMMDD')), 0), \
NVL (TO_NUMBER (TO_CHAR(a.PYMT_DB_DATE, 'YYYYMMDD')), 0) \
FROM IDB.DDR_PAYMENTS A, IDB.DDR_PAYMENTS_2 B \
WHERE A.PYMT_CUSIP_NO = :master_cusip_no \
AND A.PYMT_CUSIP_NO = B.PYMT_CUSIP_NO (+) \
AND A.PYMT_SEQ_NO = B.PYMT_SEQ_NO (+) \
AND NVL(INSTR(A.PYMT_CODES,'CO'),0) NOT IN (1,3,5,7,9,11) ");
     strcat (sql_stmt2.arr, payment_where_clause);
     sql_stmt2.len = strlen(sql_stmt2.arr);
     EXEC SQL PREPARE PAYMENTS FROM :sql_stmt2;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in preparing PAYMENTS");
     EXEC SQL DECLARE PAYMENTS_C CURSOR FOR PAYMENTS;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in declaring PAYMENTS");
     /* now the get_tenders cursor */
     memset (sql_stmt3.arr, 0, sizeof(sql_stmt3.arr));
/* FXL ADD SUBSTR to tndr_price_qual: substr(A.TNDR_PRICE_QUAL,1,14), 3/23/99,
to to_number 3/29/99 */
     sprintf (sql_stmt3.arr, "SELECT \
B.TNDR_AGT_NO, \
B.NY_AGT_NO, \
TO_CHAR(A.TNDR_TENDER_DATE, 'YYMMDD'), \
A.TNDR_PRICE, \
to_number(A.TNDR_PRICE_QUAL), \
A.TNDR_TE_SIZE, \
TNDR_TE_TEXT_1 \
FROM IDB.DDR_TENDERS A, IDB.DDR_TENDERS_2 B \
WHERE TNDR_CUSIP_NO = :master_cusip_no \
AND TNDR_CUSIP_NO = TNDR_ISSUE_NO(+) \
AND A.TNDR_TENDER_DATE = B.TNDR_TENDER_DATE(+) ");
     strcat (sql_stmt3.arr, tenders_where_clause);
     sql_stmt3.len = strlen(sql_stmt3.arr);
     EXEC SQL PREPARE TENDERS FROM :sql_stmt3;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in preparing TENDERS");
     EXEC SQL DECLARE TENDERS_C CURSOR FOR TENDERS;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in declaring TENDERS");
     /* now the get_rights cursor */
     memset (sql_stmt4.arr, 0, sizeof(sql_stmt4.arr));
/* ADD TO_CHAR(A.RGHT_DB_DATE, 'YYMMDD') */
     sprintf (sql_stmt4.arr, "SELECT \
B.NO_RIGHTS_ISSUED, \
B.SHS_REQ_FOR_PURCH, \
B.RGHTS_REQUIRED, \
B.QTY_SHS_PURCHASED, \
B.TYPE_SHS_ELIGIBLE, \
B.NEW_SHS_CUSIP_NO, \
B.NEW_CO_ISSUER_DESCR, \
TO_CHAR(A.RGHT_RECORD, 'YYMMDD'), \
TO_CHAR(A.RGHT_EX_DATE, 'YYMMDD'), \
TO_CHAR(B.NYC_RECORD_DATE, 'YYMMDD'), \
TO_CHAR(A.RGHT_EXPIRE, 'YYMMDD'), \
TO_CHAR(A.RGHT_DB_DATE, 'YYMMDD'), \
A.RGHT_PRICE, \
NVL(A.RGHT_RECORD_FNS,' '), \
NVL(A.RGHT_EXPIRE_FNS,' '), \
NVL(A.RGHT_EX_DATE_FNS,' '), \
NVL(A.RGHT_PRICE_FNS,' '), \
NVL(A.RGHT_BASIS_FNS,' '), \
A.RGHT_FOOTNOTE, \
B.US_INELIGIBILITY_IND, \
B.RGHT_TRFR_IND \
FROM IDB.DDR_RIGHTS A, IDB.DDR_RIGHTS_2 B \
WHERE RGHT_CUSIP_NO = :master_cusip_no \
AND RGHT_CUSIP_NO = RGHT_ISSUE_NO(+) \
AND A.RGHT_RECORD = B.RGHT_RECORD_DATE(+) ");
     strcat (sql_stmt4.arr, rights_where_clause);
     sql_stmt4.len = strlen(sql_stmt4.arr);
     EXEC SQL PREPARE RIGHTS FROM :sql_stmt4;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in preparing RIGHTS");
     EXEC SQL DECLARE RIGHTS_C CURSOR FOR RIGHTS;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in declaring RIGHTS");
     /* ram - added logic on 7/18/95 */
     /* for the standard footnotes cursor */
     EXEC SQL DECLARE STANDARD_FOOTNOTES_C CURSOR
     FOR
     SELECT SFTN_S_F_TEXT, SFTN_S_F_TYPE
     FROM IDB.DDR_STANDARD_FOOTNOTES
     WHERE SFTN_S_F_TYPE = :standard_footnote_type;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in declaring STANDARD_FOOTNOTES");
     /* now the issue footnotes cursor */
     EXEC SQL DECLARE ISSUE_FOOTNOTES_C CURSOR
     FOR
     SELECT FTNT_F_TEXT, FTNT_F_TYPE
     FROM IDB.DDR_FOOTNOTES
     WHERE FTNT_CUSIP_NO = :master_cusip_no
     AND FTNT_SYMBOL = :footnote_symbol
     AND FTNT_YEAR IS NULL;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in declaring ISSUE_FOOTNOTES");
     /* now the payment footnotes cursor */
     EXEC SQL DECLARE PAYMENT_FOOTNOTES_C CURSOR
     FOR
     SELECT FTNT_F_TEXT, FTNT_F_TYPE
     FROM IDB.DDR_FOOTNOTES
     WHERE FTNT_CUSIP_NO = :master_cusip_no
     AND FTNT_SYMBOL = :footnote_symbol
     AND FTNT_YEAR = :footnote_year;
     if (sqlca.sqlcode)
          sql_error (SYSERR, sqlca.sqlcode,
               "Error in declaring PAYMENT_FOOTNOTES");
     /* now the get_s_h_meetings cursor */
     /* ONLY for certain tape types. */
/*     GR PARTial 5
     if (which_tape == 0 || which_tape == 3 || which_tape == 1 || which_tape == 5)
          memset (sql_stmt5.arr, 0, sizeof(sql_stmt5.arr));
          /* ram - 6/15/95 - changed ORigunal to smtg */
          /* TO_CHAR(ORIGINAL_REC_DATE, 'YYMMDD'), \ */
          sprintf (sql_stmt5.arr, "SELECT \
TO_CHAR(SMTG_MTG_DATE, 'YYMMDD'), \
TO_CHAR(SMTG_REC_DATE, 'YYMMDD'), \
SMTG_FOOTNOTE \
FROM IDB.DDR_S_H_MEETINGS \
WHERE SMTG_CUSIP_NO = :master_cusip_no ");
          strcat (sql_stmt5.arr, s_h_meet_where_clause);
          sql_stmt5.len = strlen(sql_stmt5.arr);
          EXEC SQL PREPARE S_H_MEET FROM :sql_stmt5;
          if (sqlca.sqlcode)
               sql_error (SYSERR, sqlca.sqlcode,
                    "Error in preparing S_H_MEET");
          EXEC SQL DECLARE S_H_MEET_C CURSOR FOR S_H_MEET;
          if (sqlca.sqlcode)
               sql_error (SYSERR, sqlca.sqlcode,
                    "Error in declaring S_H_MEET");
     } /* end of if (which_tape == 0 || which_tape == 1 || which_tape == 5) */
/* replaced get_calendar_dates function with use of PLSQL - ram - 5/24/95 */
void get_calendar_dates() /* Modified by TCS */
     /* put first and last calendar dates into global ints */
     /* first_cal_date and last_cal_date (YYYYMMDD) using */
     /* ddr package function get_business_days. */
     /* The package object ddr is owned by idb, so I'll */
     /* specify this, just in case accounts other than idb */
     /* run this code. (EXECUTE priviledge is granted to */
     /* "idb_user" role.) */
EXEC SQL BEGIN DECLARE SECTION;
          int          cal_start;
          int          cal_end;
          int          return_val;
EXEC SQL END DECLARE SECTION;
     /* initialize destination globals */

Answer 1

You actually need to run it with "check -access"; memuse and leaks won't help with the crash, which happens because of illegal memory access. Hopefully, "check -access" will help you to locate the bad guy, but that's not panacea either.
To be precise:
- start dbx
$ dbx <your app>
- issue
(dbx) check -access
(dbx) run
and wait for dbx to stop and report suspicious memory access.