powerbuilder的游标这样写

 STRING ls_limit_airport_name
 DECLARE Airport_cursor CURSOR FOR
 SELECT AIRPORT_4CODE FROM t7001_5
  WHERE (airport_4code = :dep_4code or airport_4code = :arr_4code)
  AND INSTR(forbid_week,:ls_week) > 0
  AND (TRUNC(forbid_start_date) <= TRUNC(:flight_date)
  AND TRUNC(forbid_end_date) >= TRUNC(:flight_date))
 AND ((TO_DATE('1900-01-01'||TO_CHAR(:ldt_std_utc,'HH24:mi'),'yyyy-mm-dd hh24:mi') >= TO_DATE('1900-01-01'||TO_CHAR(FORBID_START_TIME,'HH24:mi'),'yyyy-mm-dd hh24:mi')
     AND TO_DATE('1900-01-01'||TO_CHAR(:ldt_std_utc,'HH24:mi'),'yyyy-mm-dd hh24:mi') <= TO_DATE('1900-01-01'||TO_CHAR(FORBID_END_TIME,'HH24:mi'),'yyyy-mm-dd hh24:mi'))
   OR (TO_DATE('1900-01-01'||TO_CHAR(:ldt_sta_utc,'HH24:mi'),'yyyy-mm-dd hh24:mi') >= TO_DATE('1900-01-01'||TO_CHAR(FORBID_START_TIME,'HH24:mi'),'yyyy-mm-dd hh24:mi')
     AND TO_DATE('1900-01-01'||TO_CHAR(:ldt_sta_utc,'HH24:mi'),'yyyy-mm-dd hh24:mi') <= TO_DATE('1900-01-01'||TO_CHAR(FORBID_END_TIME,'HH24:mi'),'yyyy-mm-dd hh24:mi')));
 OPEN Airport_cursor;
 FETCH Airport_cursor into :ls_limit_airport;
 DO  WHILE SQLCA.SQLCODE <> 100
  //机场禁航限制
  if not isnull(ls_limit_airport) then 
   flight_color = is_limit_hard
   if pos(display,'▲') = 0  then display += '▲'
   select CITY_CH_NAME into :ls_limit_airport_name from t7001 where AIRPORT_4CODE = :ls_limit_airport;
   tips = tips + '~r~n' + '限制：' + ls_limit_airport_name + '机场禁航'
  end if
  FETCH Airport_cursor into :ls_limit_airport;
 LOOP
 CLOSE Airport_cursor;