DECLARE
P_CHASSIS_SEQ NUMBER;
P_MODEL_SEQ NUMBER;
P_LC_CURSOR LINE_CARD_PKG.CURSOR_TYPE;
LC_CURSOR LINE_CARD_PKG.CURSOR_TYPE;
TYPE A IS RECORD(
SEQ NUMBER,
NAME VARCHAR2(128)
);
REC A;
BEGIN
P_CHASSIS_SEQ := 617;
P_MODEL_SEQ := 10;
P_LC_CURSOR := NULL;
LINE_CARD_PKG.GET_AVAILABLE_LC_BY_CHSEQ ( P_CHASSIS_SEQ => P_CHASSIS_SEQ,P_MODEL_SEQ => P_MODEL_SEQ,P_LC_CURSOR => P_LC_CURSOR) ;
LC_CURSOR := P_LC_CURSOR;
LOOP
FETCH P_LC_CURSOR INTO REC ;
EXIT WHEN P_LC_CURSOR%NOTFOUND;
dbms_output.put_line('sequence:'||REC.SEQ||'--'||'NAME:'||REC.NAME);
END LOOP ;
close P_LC_CURSOR ;
END;
No comments:
Post a Comment