cat > script.cc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
#include	<mscc.h>
EXEC SQL INCLUDE SQLCA;
EXEC SQL BEGIN DECLARE SECTION ;
char name[25],date[21],amount[9];
char name1[25],date1[21],amount1[9];
char nam[25],dat[21],am[9],tab[10];
EXEC SQL END DECLARE SECTION ;
int	main (int argc, char** argv)
{
EXEC SQL INIT;
EXEC SQL WHENEVER SQLERROR GOTO fin;
EXEC SQL DATABASE IS "TEST_DATABASE";
strcpy(nam,"name");
strcpy(dat,"date");
strcpy(am,"amount");
strcpy(tab,"loans");
EXEC SQL DECLARE c CURSOR FOR SELECT :nam,:dat,:am FROM :tab  FOR UPDATE;
EXEC SQL OPEN c;
printf("open c ok\n");
EXEC SQL WHENEVER NOT FOUND GOTO finish;
loop:	;
EXEC SQL FETCH c :nam,:dat,:am INTO :name,:date,:amount;
printf("%s %s %s \n",name,date,amount);
goto loop;
finish:	;
EXEC SQL CLOSE c;
printf("open c ok\n");
EXEC SQL EXIT ;
return(0);
fin:	;
	printf("SQLCODE number %ld\n",SQLCODE);
	return(1);
}
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.cc
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
open c ok
Mosca 2 February  1981 $150.00 
Jones 7 February  1981 $33.95 
Kilroy 16 February  1981 $250.00 
Wladislaw 27 February  1981 $55.00 
Jones 3 April     1981 $25.00 
Mosca 4 May       1981 $200.00 
Wladislaw 12 May       1981 $25.00 
Peterson 6 June      1981 $50.00 
Wladislaw 25 June      1981 $75.00 
Jones 12 August    1981 $300.00 
open c ok
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Variables and cursor manipulation (1)
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
