Chris , We have the fooling in PL-SQL : CREATE OR REPLACE TYPE HEADER AS OBJECT ( COMPANIA NUMBER(2), SUCURSAL NUMBER(4), OFICINA NUMBER(4), DEPARTAMENTO NUMBER(4), TERMINAL VARCHAR2(30), USUARIO NUMBER(4), CANAL NUMBER(4), MODULO NUMBER(2), TRANSACCION NUMBER(4), IDMENSAJE VARCHAR2(30) ); PROCEDURE BOGEN_PRC_OBT_COD_CLI ( token_encript IN VARCHAR2, pior_header IN OUT header, pic_rut IN varchar2, pon_cod_cli OUT number, pon_errornum OUT varchar2, poc_errortxt OUT varchar2 ); With this ... ENTRADA token_encript IN VARCHAR2 Siempre debe ser NULL HEADER IN/OUT Estructura TYPE (Ver definición anterior) pic_rut IN VARCHAR2(19) RUT del cliente. SALIDA PON_CODCLI OUT NUMBER(8) Código de cliente pon_errornum OUT NUMBER(10) Código de error ORACLE en el caso que se genere. Exitoso es el valor cero(0) poc_errortxt OUT VARCHAR2(255) Descripción error ORACLE en el caso que se genere. Sin mensajes de Error. We Need to PUT all this in a Cobol Program with SQL embedded.
↧