• 搜狐网站诚聘Java、PHP和C++工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师

• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 搜狐网站诚聘Java、PHP和C++工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。

• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

• 快来参加7月17日在成都举行的SOA中国技术论坛
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。

• 快来参加7月17日在成都举行的SOA中国技术论坛
• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。

//指针
#include "stdafx.h"
//传了一个地址过来，本来目的是对这个地址指向的内容进行改变，但是这个方法中又对*b指针变量重新指向了另外一个地址。
int testb(int *b){
	int c=456;
	b=&c; //地址变了
	printf("%d\n",*b);
	return 1;
}
//真正的传址应该这样：传一个地址到方法中，然后方法中不能改变这个地址，只能对这个地址指的内容进行改变
//因为方法调用完毕后，并不会将main中的地址改变(它是一个局部变量)，　要变只能将传过来的地址存放的内容进行改变，才能反应到main中的那个地址
int testc(int *b){
	*b=777; //地址没有改变，地址存放内容改变
	printf("%d\n",*b);
	return 1;
}
int main(int argc, char* argv[])
{
	int *b;
	int c=123;
	b=&c;
	testb(b);
	printf("%d\n",*b);

	testc(b);
	printf("%d\n",*b);
	return 0;
}

• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师

InitialContext context;
try {
 out.println("test servlet initializing....");
 //begin to test schedule
 //1. init context
 context = new InitialContext();
 //2. lOOkup schedule using its jndi name
 Scheduler scheduler = (Scheduler) context.lookup("tfjtaskcall");
 //3. create Class BeanTaskInfo
 BeanTaskInfo taskInfo = (BeanTaskInfo) scheduler.createTaskInfo(BeanTaskInfo.class);
 //4. lookup sessoin bean using its jndi name
 Object obj = context.lookup("TfjSchedule");
 //5. Narrow session bean
 TaskHandlerHome home = (TaskHandlerHome) PortableRemoteObject.narrow(obj,TaskHandlerHome.class);
 //6. add the schedule implementation into taskinfo class
 taskInfo.setTaskHandler(home);
 //7. set UserCalendar for task
 Calendar now = Calendar.getInstance();
 taskInfo.setStartTime(now.getTime());
 //   taskInfo.setInitialState(BeanTaskInfo.RUNNING);
 //   taskInfo.setStartTimeInterval("0 * * * * ?");
 //   taskInfo.setRepeatInterval("0 * * * * ?");
 taskInfo.setRepeatInterval("20seconds"); //间隔20运行一次，格式为SIMPLE可这样设置
 taskInfo.setNumberOfRepeats( -1); //一直运行，不停止
 //   taskInfo.setUserCalendar("com/ibm/websphere/scheduler/calendar/DefaultUserCalendarHome", "SIMPLE");//CRON 设置格式，默认为SIMPLE
 //8. submit the task to scheduler
 TaskStatus ts = scheduler.create(taskInfo);
 out.println("user calendar is: " + taskInfo.getUserCalendarSpecifier());
 out.println("test servlet end.");

 out.println("...schedule taskId:" + ts.getTaskId());
 //9. cancle the task and purged immEDIatelly
 //scheduler.cancel(ts.getTaskId(),true);
 out.println("The schedule job has been created successfully!");
}
catch (Exception e) {
 e.printStackTrace(System.out);
}

• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛

• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛

delcare
  type t_numbertabletype is table of number index by binary_integer;
  v_numbertable t_numbertabletype;
  v_tempvar number;
begin
  v_tempvar:=v_numbertable(1);
end;

insert into auths(author_code,name,birthdate,entry_date_time,salary)
  values('A00022','王',to_date('02-may-60'),to_date(04-MAR-90'),'123a');
--下面的块中将产生value_error异常：
delcare
  v_tempvar varchar2(3);
begin
  v_tempvar:='ABCD';
end;

create or replace package globals
  --这个包中声明的对象可在任意块中引用。注意这个包没有包体。
  e_userdefinedexception exception;
end global;

declare
  v_code auths.name%type;
  e_toolarge exception;
  pragma exception_init(e_toolarge,-1401);

declare
  --声明用户自定义异常
  e_toosmallsalary exception;
  v_currentsalary number(8,2);
  v_smallsalary number(8,2) default 100;
begin
  select salary into v_currentsalary from auths where author_code='A00002';
  if v_currentsalary<v_smallsalary then
    raise e_toosmallsalary;
  end if;
end;

declare
  v_name varchar2(10);
begin
  select name into v_name from auths where author_code='B00006';
end;

begin
  insert into auths(author_code,name,birthdate,entry_date_time)
    values('A000001','wang','to_date('11-3月-50'),to_date('12-1月-97'));

declare
  e_toosmallsalary exception;
  v_currentsalary number(8,2);
  v_smallsalary number(8,2) default 100;
begin
  select salary into v_currentsalary from auths where author_code='A00002';
  if v_currentsalary<v_smallsalary then
    raise e_toosmallsalary;
  end if;
exception
  when e_toosmallsalary then
    update auths set salary=500 where author_code='A00002';
end;

declare
  e_toosmallsalary exception;
  v_currentsalary number(8,2);
  v_smallsalary number(8,2) default 100;
  v_errorcode number;--获得错误消息代码的变量。
  v_errortext varchar2(200);--获得错误消息文本的变量。
begin
  select salary into v_currentsalary from auths where author_code='A00002';
  if v_currentsalary<v_smallsalary then
    raise e_toosmallsalary;
  end if;
exception
  when e_toosmallsalary then
    delete auths where author_code='A00002';
  when others then
    v_errorcode:=sqlcode;
    v_errortext:=substr(sqlerrm,1,200);
    dbms_output.put_line(v_errorcode);
    dbms_output.put_line(v_errortext);
end;

• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 搜狐网站诚聘Java、PHP和C++工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。

import org.apache.commons.net.telnet.*;
import java.io.*;

//针对HP-UNIX的telnet　java程序  
public class TelnetSample {
    private String tranencoding = "iso-8859-1";
    private String aixencodeing = "gb2312";
    private TelnetClient telnet = new TelnetClient();
    private InputStream in;
    private PrintStream out;
    private char prompt = '#'; //

    public TelnetSample(String server, String user, String password) {
        if ("root".equals(user)) {
            this.prompt = '#';
        } else {
            this.prompt = '>';
        }
        try {
            telnet.connect(server, 23);
            in = telnet.getInputStream();
            out = new PrintStream(telnet.getOutputStream());
            readUntil("login: ");
            write(user);
            readUntil("Password: ");
            write(password);
            readUntil(prompt + "");
        } catch (Exception e) {
            e.printStackTrace();
        }
    }

    public TelnetSample(BufferedReader br) {
        try {
            System.out.print("server address:");
            telnet.connect(br.readLine(), 23);
            in = telnet.getInputStream();
            out = new PrintStream(telnet.getOutputStream());
            readUntil("login: ");
            String user = br.readLine();
            if ("root".equals(user)) {
                this.prompt = '#';
            } else {
                this.prompt = '>';
            }
            write(user);
            readUntil("Password: ");
            write(br.readLine());
            readUntil(prompt + ""); //打印登录后的信息
        } catch (Exception e) {
            e.printStackTrace();
        }
    }

    public String su(String password) {
        try {
            write("su");
            readUntil("Password: ");
            write(password);
            prompt = '#';
            return readUntil(prompt + "");
        } catch (Exception e) {
            e.printStackTrace();
        }
        return null;
    }


    public String readUntil(String pattern) {
        try {
            char lastChar = pattern.charAt(pattern.length() - 1);
            StringBuffer sb = new StringBuffer();
            char ch = (char) in.read();
            while (true) {
                sb.append(ch);
                if (ch == lastChar) {
                    if (sb.toString().endsWith(pattern)) {
                        String temp = sb.toString();
                        System.out.print(new String(temp.getBytes(tranencoding),
                                aixencodeing));
                        return temp;
                    }
                }
                ch = (char) in.read();
            }
        } catch (Exception e) {
            e.printStackTrace();
        }
        return null;
    }

    public void write(String value) {
        try {
            out.println(value);
            out.flush();
        } catch (Exception e) {
            e.printStackTrace();
        }
    }

    public String sendCommand(String command) {
        try {
            write(command);
            return readUntil(prompt + "");
        } catch (Exception e) {
            e.printStackTrace();
        }
        return null;
    }

    public void disconnect() {
        try {
            telnet.disconnect();
        } catch (Exception e) {
            e.printStackTrace();
        }
    }

    public static void main(String[] args) {
        BufferedReader br = null;
        TelnetSample telnet = null;
        try {
//            TelnetSample telnet = new TelnetSample("10.0.76.151", "root",
//                    "root");
            br = new BufferedReader(new
                                    InputStreamReader(System.in));
            telnet = new TelnetSample(br);
            String s = "";
            boolean b = false;
            while (!(s = br.readLine()).equals("exit")) {
                s = s.replaceAll("#|>", "");
                if (b) {
                    telnet.write(s);
                    telnet.prompt = '#';
                    telnet.readUntil(telnet.prompt + "");
                    b = false;
                    continue;
                }
                if (s.startsWith("su") && telnet.prompt == '>') {
                    telnet.write("su");
                    telnet.readUntil("Password: ");
                    b = true;
                    continue;
                }
                if("yes".equals(s)||"su".equals(s)){ //如果是root则不能用su命令
                    System.out.println("not found. ");
                    System.out.print(telnet.prompt);
                    continue;
                }
                telnet.sendCommand(s);
            }

        } catch (Exception e) {
            e.printStackTrace();
        } finally {
            if (br != null) {
                try {
                    br.close();
                } catch (IOException ex) {
                }
            }
            if (telnet != null) {
                telnet.disconnect();
            }
        }
    }
}

• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

create or replace package authspack as
  --获得auths表中作家的工资。
  procedure querysalary(p_code auths.author_code%type,p_salary out auths.salary%type);
  --向auths表插入记录。
  procedure insertauthor(p_code auths.authr_code%type,p_name auths.name%type,p_sex auths.sex%type,p_birthdate auths.birthdate%type,p_entry_date_time auths.entry_date_time%type);
end authspack;

create or replace package body authspack is
  --获得auths表中作家的工资。
  procedure querysalary(p_code auths.author_code%type,p_salary out auths.salary%type)  as
  begin
    select salary into p_salaary from auths where author_code=p_code;
  end querysalary;
  --向auths表插入记录。
  procedure insertauthor(p_code auths.authr_code%type,p_name auths.name%type,p_sex auths.sex%type,p_birthdate auths.birthdate%type,p_entry_date_time auths.entry_date_time%type) as
  begin
    insert into auths(author_code,name,sex,birthdate,entry_date_time)
      values(p_code,p_name,p_sex,p_birthdate,p_entry_date_time);
  end insertauthor;
end authspack;

create or replace package authorinfopack as
  v_auths_sex varchar2(2);
  procedure author_sex(p_author_code auths.author_code%type,p_sex out varchar2);
end authorinfopack;
--定义包体
create or replace package body authorinfopack as
  procedure author_sex(p_author_code auths.author_code%type,p_sex out varchar2) as
    v_sex number;
  begin
    select sex into v_sex from auths where author_code=p_author_code;
    if v_sex=0 then
      p_sex:='女';
    else
      p_sex:='男';
    end if;
  end author_sex;
--初始化部分。
begin
  author_sex('A00001',v_auths_sex);
end authorinfopack;

set serveroutput on size 100000
declare
  v_salary auths.salary%type;
begin
  authspack.querysalary('A00010',v_salary);
  --显示过程querysalary的查询结果。
  dbms_output.put_line('A00010作家的工资为：');
  dbms_output.put_line(v_salary);
end;

create or replace function nameandsex(
  p_authorcode auths.author_code%type)
  return varchar2 AS 
  v_nameandsex varchar2(100);
begin
  select name||' '||replace(replace(sex,0,'女'),1,'男')
    into v_nameandsex from auths where author_code=p_authorcode;
  return v_nameandsex;
end nameandsex;

create or replace package authorpack as
  function fun(p_authorcode auths.author_code%type) return varchar2;
  --使用　约束
  pragma restrict_references(fun,WNDS,WNPS,RNPS);
  
  function authorcount return number;
  pragma restrict_references(authorcount,WNDS,WNPS,RNPS);
end authorpack;
create or replace package body authorpack as
  v_num number;--包变量
  --函数fun的函数体满足WNPS、WNDS和RNPS约束。
  function fun(p_authorcode auths.author_code%type)
    return varchar2 as
    v_return varchar2(16);
  begin
    select author_code||name into v_return from auths where author_code=p_authorcode;
    return v_return;
  end fun;
  --函数authorcount的函数体不满足WNPS和RNPS约束。
  function authorcount return number as
    v_return number;
  begin
    if v_num is null then --包变量v_num被读，这将不满足RNPS约束。
      select count(*) into v_return from auths where author_code like 'A%';
      v_num:=v_return; --包变量被，这将不满足WNPS约束。
    else
      v_return:=v_num;
    end if;
    return v_return;
  end authorcount;
end authorpack;

• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 北京: 千橡集团暨校内网诚聘软件研发工程师

• 搜狐网站诚聘Java、PHP和C++工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！

create or replace procedure updateauths(
  p_authscode auths.author_code%type,
  p_authssalary auths.salary%type)
as
begin
  update auths set salary=p_authssalary where author_code=p_authscode;
  commit;
end updateauths;

declare
  v_authorcode auths.author_code%type:='A00011';
  v_salary auths.salary%type:=350;
begin
  updateauths(v_authorcode,v_salary);
end;

create or replace procedure updateauthssalary(
  p_author_code in out auths.author_code%type,
  p_salary in number,
  p_name out auths.name%type) is
  v_salary_temp number; --定义存储过程中的局部变量
begin
  select salary into v_salary_temp from auths where author_code=p_author_code;
  if v_salary_temp<300 then
    update auths set salary=p_salary where author_code=p_author_code;
  end if;
  select name into p_name from auths where author code=p_author_code;
end updateauthssalary;

create or replace procedure proc_auths(
  --参数定义了类型长度，将产生编译错误。
  p_code in out varchar2(6),
  p_salary out number(8,2)) as
begin
  select salary into p_salary from auths where author_code=p_code;
end proc_auths;

create or replace procedure proc_auths(
  --参数定义了类型长度，将产生编译错误。
  p_code in out varchar2,
  p_salary out number) as
begin
  select salary into p_salary from auths where author_code=p_code;
end proc_auths;

delcare
  v_code varchar2(6);
  v_salary number(8,2);
begin
  v_code:='A00001';
  proc_auths(v_code,v_salary);
end;

create or replace procedure query_salary(
  p_code in out auths.author_code%type,
  p_salary out auths.salary%type) as

create or replace procedure insert_auths(
  p_code auths.author_code%type,
  p_name auths.name%type,
  p_sex auths.sex%type,
  p_birthdate auths.birthdate%type) as

declare
  v_code varchar2(6);
  v_name varchar2(12);
  v_sex number(1);
  v_birthdate date;
begin
  v_code:='A00021';
  v_name:='张';
  v_sex:=1;
  v_birthdate:='5-seq-70';
  --实参的位置顺序与形参的位置顺序相对应。---位置表示法
  insert_auths(v_code,v_name,v_sex,v_birthdate);
  --实参名与形参名对应，这样就可以重新排列参数的先后顺序。---命名表示法
end;

create or replace function salarystat(
  p_sex auths.sex%type)
  return boolean is
  v_currentsexauthors number;
  v_maxauthors number;
  v_returnvalue boolean;
  v_percent constant number:=70;
begin
  --获得满足条件的作家的最大数。
  select count(author_code) into v_maxauthors from auths where sex=p_sex and salary>=200;
  select count(author_code) into v_currentsexauthors from auths where sex=p_sex;
  if(v_maxauthors/v_currentsexauthors*100)>v_percent then
    v_returnvalue:=true;
  else
    v_returnvalue:=false;
  end if;
  return v_returnvalue;
end salarystat;

declare
  cursor c_auths is
    select distinct sex from auths;
begin
  for v_authsrecord in c_auths loop
    if salarystat(v_authsrecord.sex) then
      update auths set salary=salary-50 where sex=v_authsrecord.sex;
    end if;
  end loop;
end;

declare
  cursor c_allauthors is
    select name,sex from auths;
  v_formattedname varchar2(60);
  function formatname(p_name in varchar2,p_sex in number)
    return varchar2 is
    v_sex varchar2(16);
  begin
    if p_sex=1 then
      v_sex:='男';
    else
      v_sex:='女';
    end if;
    return p_name||'('||v_sex||')';
  end formatname;
begin
  for v_authsrecord in c_allauthors loop
    v_formattedname:=
      formatname(v_authsrecord.name,v_authsrecord.sex);
    dbms_output.put_line(v_formattedname);
  end loop;
end;

• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛
• 搜狐网站诚聘Java、PHP和C++工程师

declare
  v_auths auths%rowtype;
  v_code auths.author_code%type;
  cursor c_auths is 
    select * from auths where author_code=v_code;

delcare
  cursor c_auths(p_code auths.author_code%type) is
    select * from auths where author_code=p_code;

begin
  --在打开游标前为绑定变量赋值。
  v_code:='A00001';
  --打开游标。
  open c_auths;

begin
  --打开游标时将参数传入。
  open c_auths('A00001');

delcare
  --声明一个变量，这个变量用来接收游标返回的结果集。
  v_salary auths.salary%type;
  v_code auths.author_code%type;
  /*声明游标，该游标的查询结果集是作家代码为"A00001"到"A00006"的工资值。*/
  cursor c_salary is select salary,author_code from auths where author_code<='A00006';
begin
  --打开游标，并初始化结果集
  open c_salary;
  loop
    --推进游标，将游标的查询结果集中的一行存到变量v_salary中。
    fetch c_salary into v_salary,v_code;
    --当结果集中没有行时退出循环。
    exit when c_salary%notfound;
    --如果查询到的作家工资小于或等于200，则增加该作家的工资值。
    if v_salary<=200 then
      update auths set salary=salary+50 where author_code=v_code;
    end if;
  end loop;
  --关闭游标，释放游标占用资源。
  close c_salary;
  --提交所做的修改。
  commit;
end;

delcare
  cursor c_salary is
    select salary form auths where author_code<='A00006';
begin
  --开始游标FOR循环，隐含地打开c_salary游标。
  for v_salary in c_salary loop
    --一个隐含的fetch语句在这里被执行。
　　if v_salary.salary<=200 then
      update auths set salary=salary+50 where salary=v_salary.salary;
    end if;
    --在循环继续前，一个隐含的c_auths%notfound被检测。
　end loop;
  --现在循环已经结束，c_auths游标的一个隐含的close操作被执行。
  commit;
end;

delcare
  --声明游标时在select语句中必须加for update of子句。
  cursor c_salary is
    select salary form auths where author_code<'A00006' for update of salary;
begin
  for v_salary in c_salary loop
    if v_salary.salary<=200 then
      --下面的update语句中的current of子句用来表明结果集的当前行。
    end if;
  end loop;
  commit;
end;

begin
  --在下面的FOR循环中隐含地声明了一个游标c_salary。
　for c_salary in
  (select salary form auths where author_code<='A00006') loop
    if c_salary.salary<=200 then
      update auths set salary=salary+50 where salary=c_salary.salary;
    end if;
  end loop;
  commit;
end;

begin
  update auths set entry_date_time=sysdate where author_code='A00017';
  --如果update语句中修改的行不存在(SQL%notfound返回值为true),则向auths表中插入一行。
  if sql%nofound then
    insert into auths(author_code,name,sex,birthdate,salary,entry_date_time)
      values('A000017','qiuys',1,'30-apr-40',88.5,sysdate);
  end if;
end;

declare
  v_birthdate date;
begin
  select birthdate into v_birthdate from auths where name='qiuys';
  --如果查询到一条记录，则删除该记录。
  if sql%found then
    delete from auths where name='qiuys';
  end if;
exception
  when no_data_found then
    dbms_output.put_line('该记录不存在');
  when too_many_rows then
    dbms_output_line('存在同名的作家');
end;

declare
  --使用%rowtype定义一个游标变量类型。
  type t_authsref is ref cursor return auths%rowtype;
  --定义一个记录类型。
  type t_coderecord is record(
    author_code article.author_code%type,
    article_code article.article_code%type);
  --声明一个记录类型的变量。
  v_code t_coderecord;
  --使用t_coderecord作为一个游标变量类型的结果集类型。
  type t_coderef is ref cursor return t_codeRecord;
  --使用v_code作为一个游标变量类型的结果集类型。
  type t_coderef2 is ref cursor return v_code%type;
  --使用上面的类型声明的两个游标变量。
  v_authcv t_authsref;
  v_codecv t_coderef;

open cursor_variable for select_statement;
declare
  type t_authorsref is ref cursor return auths%rowtype;
  v_authscv t_authorsref;
  --然后打开
  open v_authscv for select * from auths;

set serveroutput on size 100000 --设置存储缓冲区大小。
declare
  /*定义游标变更类型t_curref，该游标变量类型没有指定结果集类型，所以该游标变量类型的变量可以返回不同的PL/SQL记录类型。*/
  type t_curref is ref cursor;
  --声明一个游标变量类型的变量
  c_cursorref t_curref;
  --定义PL/SQL记录类型t_authorrec，该类型的变量用来接收游标变量的返回值。
  type t_authorrec is record(
    authorcode auths.author_code%type,
    name auths.name%type);
  --定义PL/SQL记录类型t_articlerec,该类型的变量也用来接收游标变量的返回值。
  type t_articlerec is record(
    authorcode article.author_code%type,
    title artitle.title%type);
  --声明两个记录类型变量。
  v_author t_authorrec;
  v_article t_articlerec;
begin
  --打开游标变量c_cursorref，返回t_authorrec类型的记录。
  open c_cursorref for 
    select author_code,name from auths where author_code in('A00001','A00002','A00003','A00004','A00005');
  --推进游标变量
  fetch c_cursorref into v_author;
  --游标变量的推进循环。
  while c_cursorref%found loop
    --将作家代码和相应的作家名字输出到屏幕上。
    dbms_output.put(v_author.authorcode||':'||v_author.name||' ');
    fetch c_cursorref into v_author;
  end loop;
  dbms_output.new_line;--向屏幕上输出一个回车行。
  --关闭游标变量，仅仅将游标变量指定的资源释放掉，游标变量本身的存储空间没有释放掉。
  close c_cursorref;
  --再次打开游标变量，返回t_articlerec类型的记录。
  open c_cursorref for 
    select author_code,title from article
    where author_code in('A00001','A00002','A00003','A00004','A00005');
  fetch c_cursorref into v_article;
  while c_cursorref%found loop
    ...
  end loop;
  close c_cursorref;
end;

• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 快来参加7月17日在成都举行的SOA中国技术论坛

if...then
  if 条件 then
    语句;
  end if;
if...then...else
if...then...elsif

delcare
  v_name varchar2(10);
  v_num integer:=1;
begin
  loop
    select name into v_name from auths where author_code='A0000'||to_char(v_num);
    v_num:=v_num+1;
    exit when v_num>=10;
  end loop;
end;

while 条件 loop
  语句;
end loop;

for 循环变量 in[reverse] 初始值...结束值 loop
  语句;
end loop;

<<global>>
declare
  v_name varchar2(10);
  v_num integer:=8;
  v_count integer;
begin
  select count(name) into v_count from auths;
  for v_num in 1...v_count loop
    select name into v_name from auths where author_code='A0000'||to_char(v_num);
    dbms_output.put_line(v_name);
    if v_num>global.v_num then
      exit;
    end if;
  end loop;
end global;

delcare
  ...
begin
  <<out_loop>>
  for v_num in 1...100 loop
    ...
    for v_num in 1...100 loop
      ...
      if out_loop.v_num=v_num then
        ...
      end if;
    end loop;
  end loop;
end;

declare
  v_salary number(8,2);
begin
  select salary into v_salary from auths where author_code='A00008';
  if v_salary if null then
    update auths set salary=600 where author_code='A00008';
  elsif v_salary<=500 then
    update auths set salary=800 where author_code='A00008';
  else
    null; --不做任何处理。
  end if;
end;

• 搜狐网站诚聘Java、PHP和C++工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。

PL/SQL(Procedural Language/SQL)是在标准SQL的基础上增加了过程化处理的语言，是Oracle对SQL的扩充。

SQL(Structured Query Language)是一种对关系数据库管理系统(RDBMS)进行操作的标准结构化语言，它用来设置、使用和维护关系数据库。

PL/SQL正是一种增加了过程化概念的SQL语言，它有以下一些标准SQL所没有的特征：
变量(包括预先定义的和自定义的)、控制结构(IF-THEN-ELSE)、自定义的存储过程和函数、对象类型

• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 搜狐网站诚聘Java、PHP和C++工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛

• 快来参加7月17日在成都举行的SOA中国技术论坛
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。

• 快来参加7月17日在成都举行的SOA中国技术论坛
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 搜狐网站诚聘Java、PHP和C++工程师

• 快来参加7月17日在成都举行的SOA中国技术论坛
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 搜狐网站诚聘Java、PHP和C++工程师

• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛
• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• 搜狐网站诚聘Java、PHP和C++工程师

• JavaEye问答大赛开始了！ 从6月23日 至 7月6日，奖品丰厚 ！
• 搜狐网站诚聘Java、PHP和C++工程师
• 北京: 千橡集团暨校内网诚聘软件研发工程师
• Oracle专区上线，有Oracle最新文章，重要下载及知识库等精彩内容，欢迎访问。
• 快来参加7月17日在成都举行的SOA中国技术论坛