long ll_row
dec ysm

select count(*) into :ll_row from key;

if ll_row <= 0 then
   insert into key (ysm,zcm) values (:ysm,null);
   if sqlca.sqlcode = 0 then
      commit;
   else
      rollback;
   end if
end if