#include <stdlib.h>
#include <stdio.h>

EXEC sql include sqlca;

int error_handler(void) {
  EXEC SQL begin declare section;
    char error_message[1000];
  EXEC SQL end declare section;

  EXEC SQL inquire_ingres (:error_message = ERRORTEXT);

  printf("*** Det har uppstått ett INGRES-fel. Felmeddelande:\n");
  printf("%s", error_message);

  EXEC SQL disconnect;
  exit(EXIT_FAILURE);
} /* error_handler */

int main(void) {
  EXEC SQL begin declare section;
    int nummer;
    char namn[10 + 1];
    char telefon[10 + 1];
  EXEC SQL end declare section;

  printf("Personer:\n");

  EXEC SQL connect persondatabasen;

  EXEC SQL declare person_cursor cursor for
    select Nummer, Namn, Telefon
    from Person;

  EXEC SQL open person_cursor;

  while (sqlca.sqlcode == 0) {
    EXEC SQL fetch person_cursor into :nummer, :namn, :telefon;
    if (sqlca.sqlcode == 0) {
      printf("Nummer %d, med namnet %s och telefonnummer %s.\n",
             nummer, namn, telefon);
    }
  } /* while */
  
  EXEC SQL close person_cursor;
  EXEC SQL disconnect;

  return EXIT_SUCCESS;
} /* main */