tinycobol/cobroutines/sql_get_value.c

17 lines
317 B
C

/* test program for libpq (postgresql) */
#include <stdio.h>
#include <stdlib.h>
#include <libpq-fe.h>
void
sql_get_value( int *qryhandle, int *ntuple, int *nfield, char *value ) {
char *s;
s = PQgetvalue((PGresult *)*qryhandle,*ntuple,*nfield);
while (*s) {
if (*s == '\n') continue;
*value++ = *s++;
}
}