#include <stdio.h>
#include <stdlib.h>
#include "libpq-fe.h"

static void exit_nicely(PGconn *conn){ PQfinish(conn);　exit(1);　}

int main(int argc, char **argv) {
    const char *conninfo;
    PGconn     *conn;
    PGresult   *res;
    int         nFields;
    int         i, j;

    conninfo = "dbname = db18000";
    conn = PQconnectdb(conninfo);

    if (PQstatus(conn) != CONNECTION_OK) {
        fprintf(stderr, "Connection to database failed: %s", PQerrorMessage(conn));
        exit_nicely(conn);
    }

    res = PQexec(conn, "BEGIN");
    if (PQresultStatus(res) != PGRES_COMMAND_OK) {
        fprintf(stderr, "BEGIN command failed: %s", PQerrorMessage(conn));
        PQclear(res);　exit_nicely(conn);
    }
    PQclear(res);

    res = PQexec(conn, "DECLARE myportal CURSOR FOR SELECT * FROM sample ORDER BY tel");
    if (PQresultStatus(res) != PGRES_COMMAND_OK) {
        fprintf(stderr, "SELECT * FROM sample failed: %s", PQerrorMessage(conn));
        PQclear(res);　exit_nicely(conn);
    }
    PQclear(res);

    res = PQexec(conn, "FETCH ALL in myportal");
    if (PQresultStatus(res) != PGRES_TUPLES_OK) {
        fprintf(stderr, "FETCH ALL failed: %s", PQerrorMessage(conn));
        PQclear(res);　exit_nicely(conn);　}

    nFields = PQnfields(res);
    for (i = 0; i < nFields; i++) printf("%-15s", PQfname(res, i));　printf("\n");

    for (i = 0; i < PQntuples(res); i++)  {
        for (j = 0; j < nFields; j++) printf("%-15s", PQgetvalue(res, i, j));
        printf("\n");
    }
    PQclear(res);

    res = PQexec(conn, "CLOSE myportal");　PQclear(res);
    res = PQexec(conn, "END");　PQclear(res);
    PQfinish(conn);
    return 0;
}