|
|
************** 부서/직원 리포트 ******************
부서 : 부서번호 부서명
위치
10 ACCOUNTING NEW YORK
사원 : 사번 이름 급여
급여 등급
7871
Anderson 2000 ***
7890 Andrew 700
*
7870 Scott 2400 ****
7866
David 900 *
7891 Sylvia 3200
*****
2명의 급여가 인상되었습니다.
위와 같은 리포트를
뽑아내고 $1000보다 적은 급여를 받는 직원의 급여를 10%인상하는 프로그램을 작성하여 봅니다.
ACCEPT p_deptno PROMPT 'Please enter the department number : '
DECLARE
v_deptno
NUMBER(2);
v_dname CHAR(14);
v_loc
CHAR(13);
v_empno emp.empno%TYPE;
v_ename
emp.ename%TYPE;
v_sal emp.sal%TYPE;
v_grade
salgrade.grade%TYPE;
v_dno emp.deptno%TYPE :=
&p_deptno;
CURSOR emp_cursor IS
SELECLT empno,
ename, sal
FROM emp
WHERE deptno =
&p_deptno;
e_no_emp EXCEPTION;
BEGIN
-- print out the
report title
DBMS_OUTPUT.PUT_LINE('*********부서/직원
리포트*********');
SELECT deptno, dname, loc
INTO v_deptno,
v_dname, v_loc
FROM dept
WHERE deptno =
v_dno;
DBMS_OUTPUT.PUT_LINE('부서 : 부서번호 부서명
위치');
DBMS_OUTPUT.PUT_LINE(' '∥v_deptno∥'
'∥v_dname∥
' '∥v_loc∥'
');
DBMS_OUTPUT.PUT_LINE('사원 : 사번 이름 급여
급여등급');
OPEN emp_cursor;
FETCH emp_cursor INTO v_empno,
v_ename, v_sal;
/* according to the salary amount,
print
out the stars */
WHILE emp_cursor%FOUND LOOP
SELECT
grade
INTO v_grade
FROM
salgrade
WHERE v_sal > losal AND v_sal
<hisal;
DBMS_OUTPUT.PUT(' '∥v_empno∥'
'∥v_ename∥
' '∥v_sal∥' ');
FOR
I in 1..v_grade LOOP
DBMS_OUTPUT.PUT('*');
END
LOOP;
DBMS_OUTPUT.PUT_LINE('');
FETCH emp_cursor INTO
v_empno, v_ename, v_sal;
END LOOP;
CLOSE
emp_cursor;
UPDATE emp
SET sal = sal *
1.1
WHERE sal < 1000;
IF SQL%ROWCOUNT = 0
THEN
RAISE
e_no_emp;
ELSE
DBMS_OUTPUT.PUT_LINE(SQL%ROWCOUNT ∥'명의 급여가
' ||
'인상되었습니다.');
END
IF;
COMMIT;
EXCEPTION
WHEN no_data_found
THEN
DBMS_OUTPUT.PUT_LINE('There is no matching
data.');
WHEN too_many_rows
THEN
DBMS_OUTPUT.PUT_LINE('More than one matching data.
');
WHEN e_no_emp THEN
DBMS_OUTPUT.PUT_LINE('No employee
with a smaller ' ||
'than
$1000.');
--in case of any other exception
WHEN others
THEN
DBMS_OUTPUT.PUT_LINE('Some other error
occurred.');
END;
|
|
실습
1. 아래 선언문 각각을 평가합니다. 이것들 중 어떤 것이 올바르지
않으며 왜 그런가를 설명하십시오.
|
a. |
DECLARE |
______________________________________________________________________
|
b. |
DECLARE |
______________________________________________________________________
|
c. |
DECLARE |
변수 값 지정
변수 값을 지정하거나 재지정하기 위해,
PL/SQL 지정 문장을 씁니다. 지정(assignment) 연산자 (:=)의 좌측에 새 값을 받기 위한 변수를 적습니다.
구문에서,
identifier 스칼라 변수의
이름입니다.
expr 변수, 리터럴, 함수 호출이 될 수 있지만 데이터베이스 열은
안됩니다.
지정 변수 값 예는 아래와 같이 정의됩니다:
변수 값을 지정하기 위한 다른 방법은 데이터베이스 값에서 인출하거나 선택하는 것입니다. 아래 예에서, 종업원의 급여를 선택할 때 10% 보너스를 계산하도록 합니다.
|
SQL> SELECT sal *
0.10 |
이때 다른 계산에서 변수 bonus를 사용할 수 있거나 그 값을
데이터베이스 테이블에 삽입할 수 있습니다.
주: 데이터베이스에서의 값을 변수로 지정하기 위해, SELECT 나
FETCH 문장을 사용합니다.
변수는 블록이나 서브프로그램 안으로 들어갈 때마다 초기화됩니다. 디폴트로 변수는
NULL로 초기화됩니다. 명확하게 변수를 초기화하지 않으면, 값은 정의되지 않습니다.
- 특정 값이 없는 변수에 대해 지정
연산자(:=)를 사용합니다. v_hiredate := to_date('15-SEP-99',
'DD-MON-YY');
|
|
|
|
실습(계속)
2. 각 아래 지정에서 결과 표현식의 데이터 형을
결정합니다.
|
a. |
v_days_to_go := v_due_date - SYSDATE; |
______________________________________________________________________
|
b. |
v_sender := USER || ': ' || TO_CHAR(v_dept_no); |
______________________________________________________________________
|
c. |
v_sum := $100,000 + $250,000; |
______________________________________________________________________
|
d. |
v_flag := TRUE; |
______________________________________________________________________
|
e. |
v_n1 := v_n2 > (2 * v_n3); |
______________________________________________________________________
|
f. |
v_value := NULL; |
|
%TYPE 속성과 변수선언
|
|
|
변수 지정값
호스트 변수를
참조하기 위해, 선언된 PL/SQL 변수와 호스트 변수를 구별하기 위해 콜론(:)으로 참조 접두어를 만들어야
합니다.
예
|
:host_var1 := v_sal; |
예
|
SQL>
VARIABLE return_code NUMBER |
다음 중 올바른 PL/SQL 문장이 아닌 것은?
A. v_ename := LOWER(v_ename);
B. v_total
:= SUM(number_total);
C. v_comment := USER||': '||TO_CHAR(SYSDATE);
D.
v_equal := (v_empno IS NOT NULL);
답