cat > script.cc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
#include	<mscc.h>
#include <stdlib.h>
EXEC SQL INCLUDE SQLCA;
EXEC SQL WHENEVER SQLERROR GOTO fin;
EXEC SQL BEGIN DECLARE SECTION ;
char name[25],date[21],amount[9];
char nam[25],pers[20],testdb[100],tab[30],dat[10],am[10];
EXEC SQL END DECLARE SECTION ;
int	main (int argc, char** argv)
{
strcpy(nam,"name");
strcpy(pers,"Kilroy");
strcpy(testdb,"TEST_DATABASE");
strcpy(tab,"loans");
strcpy(dat,"date");
strcpy(am,"amount");
EXEC SQL INIT;
EXEC SQL DATABASE IS :testdb;
EXEC SQL OPEN_TABLE :tab FOR READ;
printf("open ok\n");
EXEC SQL SELECT :nam,:dat,:am FROM :tab INTO :name,:date,:amount 
   WHERE attr :nam = :pers;
printf("select ok\n");
printf ("%s  %s  %s\n",name,date,amount);
EXEC SQL CLOSE_TABLE :tab;
EXEC SQL EXIT ;
return(0);
fin:	;
	printf("SQLCODE number %ld\n",sqlca.sqlcode);
	return(1);
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.cc
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
open ok
select ok
Kilroy  16 February  1981  $250.00
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Testing variables at all levels (database, table, attribute, value)
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
