Programming

/* you need a function dberror(int errcode, int line) that displays errors and exits */
void dberror(int errcode, int line)
{
       fprintf(stderr,"Error %d on line %d\n", errcode * -1, line);
       EXEC SQL
          ROLLBACK WORK RELEASE;
       exit(1);      
      
}
#define  ORACHK { if ( sqlca.sqlcode < 0) dberror(sqlca.sqlcode, __LINE__); }
typedef char CHAR21[21];
EXEC SQL BEGIN DECLARE SECTION;
     EXEC SQL TYPE CHAR21 IS STRING(21);
     CHAR21 name="";
     short ind=0;
EXEC SQL END DECLARE SECTION;

EXEC SQL
     SELECT 'Tom Jones' 
     INTO :name :ind
     FROM dual;
     ORACHK;