Ayuda por favor Error en Type object

tema enviado por Cristianoa1000 en ORACLE
tema iniciado el 29/09/2009

Hola Gente:

Por favor podrían ayudarme con este type object que me da error, y no se porque,  creo que la sintaxis es correcta, pero sigue emitiendo error

Agradezco a todos los que me puedan ayudar!!!!!!

SQL> CREATE OR REPLACE
  2  Type SINIESTROS.LINEAINFORMETXT As Object (
  3      LINEA    Varchar2 (509), --antes 493
  4      Member Procedure ADDFIELDLPAD (
  5     VALOR    In   Varchar2,
  6     LONGITUD   In   Integer,
  7     CARACTER_RELLENO  In   Char
  8      ),
  9      Member Procedure ADDFIELDRPAD (
 10     VALOR    In   Varchar2,
 11     LONGITUD   In   Integer,
 12     CARACTER_RELLENO  In   Char
 13      ),
 14      Member Function GETLINE
 15     Return Varchar2
 16  )
 17  /

Operation 77 succeeded.

SQL>
SQL>
SQL> CREATE OR REPLACE
  2  Type Body    SINIESTROS.LINEAINFORMETXT As
  3  /*------------------------------------------------------------------------------------*/
  4      Member Procedure addFieldRPAD (
  5     valor    In   Varchar2,
  6     longitud   In   Integer,
  7     caracter_relleno  In   Char
  8      ) Is
  9      Begin
 10     linea      :=
 11       linea
 12           || Rpad (To_char (Nvl ( valor, ' ')),
 13      longitud,
 14      caracter_relleno
 15            );

Operation 2013303183 succeeded.

SQL>     End;
unknown command "End" - rest of line ignored.
SQL> /*------------------------------------------------------------------------------------*/
SQL>     Member Procedure addFieldLPAD (
unknown command beginning "Member Pro..." - rest of line ignored.
SQL>    valor    In   Varchar2,
unknown command beginning "valor     ..." - rest of line ignored.
SQL>    longitud   In   Integer,
unknown command beginning "longitud  ..." - rest of line ignored.
SQL>    caracter_relleno  In   Char
unknown command beginning "caracter_r..." - rest of line ignored.
For a list of known commands enter HELP
and to leave enter EXIT.
SQL>     ) Is
unknown command ") Is" - rest of line ignored.
SQL>     Begin
  2     linea      :=
  3       linea
  4           || Lpad (To_char (Nvl ( valor, ' ')),
  5      longitud,
  6      caracter_relleno
  7            );
  8      End;
  9  /*------------------------------------------------------------------------------------*/
 10      Member Function getLine
 11     Return Varchar2 Is
 12      Begin
 13     Return linea;
 14      End;
 15  End;
 16  /
      Begin
*
ERROR at line 1:
ORA-06550: line 10, column 7:
PLS-00103: Encountered the symbol "MEMBER"


SQL>
SQL>
SQL>
SQL>
SQL> spool off;