/*---------------------------------------------------------------*/
/* PROGRAM-ID : SQL1C */
/* REMARKS : 埋めこみSQL */
/* AUTHOR : Y.IDE */
/* DATE-WRITEN : 1999/9/26 */
/* VERSION : 01.00 ORIGINAL */
/*---------------------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <recio.h>
#pragma mapinc ("cmt","CLAB/CMTPF(*ALL)","both")
#include "cmt"
CLAB_CMTPF_CMTR_both_t cmtpf;
EXEC SQL INCLUDE SQLCA;
int main(void){
EXEC SQL
declare c1 cursor for
SELECT KEY
FROM CMTPF;
EXEC SQL
open c1;
do {
EXEC SQL WHENEVER NOT FOUND GO TO tag#1;
EXEC SQL
fetch c1 into :cmtpf.KEY;
printf("%c 縅",cmtpf.KEY);
} while(SQLCODE==0);
tag#1:
EXEC SQL
close c1;
}
|