EXEC SQL DECLARE SKTM CURSOR FOR
   select keyword_theme_map.key_theme_id from ops$anp.keyword_theme_map
   where keyword_theme_map.ii_id = :intii_arg;

EXEC SQL OPEN SKTM;

while(1)
{
  EXEC SQL FETCH SKTM INTO
         :intkt_id;

  if (sqlca.sqlcode == 1403)
  {
    break;
  }

  EXEC SQL DECLARE SKT CURSOR FOR
    select keyword_theme.key_theme_id from ops$anp.keyword_theme
    where keyword_theme.key_theme_id = :intkt_id;

  EXEC SQL OPEN SKT;

  count = 1;
  mcount = 0;
  while(1)
  {
    EXEC SQL FETCH SKT INTO
      :intktx_id;

    if (sqlca.sqlcode == 1403)
    {
      break;
    }
    
    mcount = count;
    count++;        
  }

  EXEC SQL CLOSE SKT;

if (mcount == 1)
{
  printf("Deleting Keyword_Theme row number %d.\n", intkt_id);
  EXEC SQL DELETE OPS$ANP.KEYWORD_THEME
    where keyword_theme.key_theme_id = :intkt_id; 
}

printf("A row from the rational table keyword_theme_map has been deleted.\n");
EXEC SQL DELETE OPS$ANP.KEYWORD_THEME_MAP
  where keyword_theme_map.keyword_theme_id = :intkt_id
  and keyword_theme_map.ii_id = :intii_arg;
        
}

EXEC SQL CLOSE SKTM;


