FOR i IN tRange1.first .. tRange1.last LOOP  IF Instr(CardNum, tRange1(i), 1) = 1 THEN    GLOBAL_VARBLE.nPos1 := i;    Result := tBankName1(i);    EXIT;  END IF;END LOOP;for i in 1..100 loop  t:=t+i;  Dbms_Output.Put_Line(‘it‘‘s :‘ || t);end loop;while i<=100 loop  t:=t+i;  i:=i+1;  Dbms_Output.Put_Line(‘it‘‘s :‘ || t);end loop;Loop  i:=i+1;  exit when i>100;  t:=t+i;  Dbms_Output.Put_Line(‘it‘‘s :‘ || t);end loop;

CASE TradeType  WHEN GLOBAL_VARBLE.POS_REPEAL THEN             --消费撤消    lOrigType := GLOBAL_VARBLE.POS_CONSUME;  WHEN GLOBAL_VARBLE.POS_UNCONSUME THEN          --消费冲正    lOrigType := GLOBAL_VARBLE.POS_CONSUME;END CASE ;