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.