再次请教存储过程的问题，已经焦头烂额了，大家帮忙看看吧。

[wwwhaichun]

Create or replace package packclient
AS
TYPE tssn is TABLE of NUMBER(10)
INDEX BY BINARY_INTEGER;
TYPE tfname is TABLE of VARCHAR2(50)
INDEX BY BINARY_INTEGER;

PROCEDURE allclient(
ssn OUT tssn,
fname OUT tfname
);
PROCEDURE oneclient(
onessn IN NUMBER,
ssn OUT tssn,
fname OUT tfname
);
END packclient;

包体：
Create or replace package body packclient
AS
PROCEDURE allclient(
ssn OUT tssn,
fname OUT tfname
) IS
CURSOR client_cur IS
SELECT clientid, clientname
FROM client;
percount NUMBER DEFAULT 1;
BEGIN
FOR singleclient IN client_cur
LOOP
ssn(percount) := singleclient.clientid;
fname(percount) := singleclient.clientname;
percount := percount + 1;
END LOOP;
END;

PROCEDURE oneclient(
onessn IN NUMBER,
ssn OUT tssn,
fname OUT tfname
) IS
CURSOR client_cur IS
SELECT clientid,clientname
FROM client
WHERE clientid = onessn;
percount NUMBER DEFAULT 1;
BEGIN
FOR singleclient IN client_cur
LOOP
ssn(percount) := singleclient.clientid;
fname(percount) := singleclient.clientname;
percount := percount + 1;
END LOOP;
END;
END;

本地调用：
DECLARE
TYPE tssn is TABLE of NUMBER(10) INDEX BY BINARY_INTEGER;
TYPE tfname is TABLE of VARCHAR2(50) INDEX BY BINARY_INTEGER;
mID tssn;
mName tfname;
tmpID number;
BEGIN
tmpID :=1;
packclient.oneclient(tmpID,mID,mName);
END;
/
错误提示为：
PLS-00306: 调用 'ONECLIENT' 时参数数量或类型错误
到底错在哪儿了？怎么修改。
估计还是存储过程写的有问题，但是找不到地方。请各位帮忙看看。谢谢！