

      EXEC SQL SELECT CONTACT_INFORMATION_SEQ.CURRVAL INTO :intdi_cti_id
           FROM DUAL;
      EXEC SQL INSERT INTO DISTRIBUTION_INFORMATION
          (DISTRIBUTION_INFORMATION.DI_CTI_ID)   
      VALUES (:intdi_cti_id);
      if (sqlca.sqlcode != 0) 
        {
          printf("Foreign key could not be assigned to table DISTRIBUTION_INFORMATION.\n");
          printf("TERMINATE PROGRAM");
          return(1);
        } 

                            
