PL-SQL TYPE HEADER

Dear Chris,

Could you please say to me how I can put a PL-SQL TYPE HEADER into a Visual Cobol Program ???

Many Thanks,

PJM

Parents
  • 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.
                           
Reply
  • 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.
                           
Children
No Data