/*---------------------------------------------------------------*/
/* PROGRAM-ID  : SQL1C                                           */
/* REMARKS     : 埋めこみＳＱＬ　 　                             */
/* 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;
}