hackvan

create or replace procedure getInfoHTTP(pHost Varchar2
                                       ,pPort Varchar2
                                       ,pUrl  Varchar2) is
  req     utl_http.req;
  res     utl_http.resp;
  vResult CLOB;
begin
  utl_http.set_transfer_timeout(30);
  dbms_output.put_line('Request>  URL:  '   ||pUrl);
  req := utl_http.begin_request(pUrl, 'GET', 'HTTP/1.1');

hackvan

Declare
  pevc_codlibori sfci001t.codlibro%Type := 'PUC001';
  pevc_codctaori sfci001t.codctaco%Type := '244001';
  pevc_nivan1ori sfci019t.nivanal1%Type := 'TNEG';
  pevc_codan1ori sfci019t.codniva1%Type := '1234';
  pevc_nivan2ori sfci019t.nivanal2%Type := 'NIT';
  pevc_codan2ori sfci019t.codniva2%Type := '5678';
  pevc_nivan3ori sfci019t.nivanal3%Type := 'VIGE';
  pevc_codan3ori sfci019t.codniva3%Type := '2016'; 
  pevc_nivan4ori sfci019t.nivanal4%Type;

hackvan

Create Or Replace Procedure getRespWebService(pevc_url In Varchar2) Is
  l_http_request   utl_http.req;
  l_http_response  utl_http.resp;
  l_response_text  Clob;
  l_content_type   Varchar2(100);
  l_IpAddress      Varchar2(16);
  l_Port           Varchar2(10);
  l_list           json_list;
  -- Variables del JSON de respuesta:
  tipoDocumental   Varchar2(200);

hackvan

Declare
  Cursor cuprincipal Is
    Select '1' as Data From dual 
    Union 
    Select '2' as Data From dual 
    Union 
    Select '3' as Data From dual 
    Union 
    Select '4' as Data From dual 
    Union 

hackvan

Create Or Replace Function getCodSeq(xcodseque In Varchar2,xtam In Number Default Null) Return Varchar2 Is
  xvalseque sfad012t.valseque%Type;
  xcodprefi sfad012t.codprefi%Type;
  xseque    Varchar2(50);
  Cursor c1 Is
    Select nvl(valseque, 0) + nvl(incseque, 1), codprefi 
    Into   xvalseque, xcodprefi 
    From   sfad012t 
    Where  codseque = xcodseque
    For Update Of valseque;

hackvan

Create Or Replace Procedure do_something(pevc_codbanco In Varchar2) Is
  row_locked Exception;
  Pragma Exception_Init(row_locked, -54); -- ORA-00054: recurso ocupado y obtenido con NOWAIT especificado o timeout vencido
Begin
  For cc In (Select codbanco From sfcp005t Where codbanco = pevc_codbanco For Update Nowait) Loop
    Exit;
  End Loop;
Exception
  When row_locked Then
    raise_application_error(-20001, 'this row is locked...', False);

hackvan

CREATE TABLE test (
testcol VARCHAR2(15));
INSERT INTO test VALUES ('dummy');
COMMIT;

hackvan

Declare
  Type type_cursor Is Ref Cursor;
  cu_query     type_cursor;
  lc_query     Varchar2(500);
  lc_codindic  SFPS020T.codindic%Type;
  lc_valindic  SFPS020T.valindic%Type;
  lc_desindic  SFPS020T.desindic%Type;
Begin
  lc_query  := 'Select codindic, valindic, desindic';
  lc_query  := lc_query||' From   SFPS020T';

hackvan

Prereq:

apt-get install zsh
apt-get install git-core

Getting zsh to work in ubuntu is weird, since sh does not understand the source command. So, you do this to install zsh

wget https://github.com/robbyrussell/oh-my-zsh/raw/master/tools/install.sh -O - | zsh

hackvan

Declare
  nextvalnotfound Exception;
  Pragma Exception_Init(nextvalnotfound, -08002);
  lc_secuencia Number;
Begin
  SELECT sfps010s.currval INTO lc_secuencia FROM dual;
Exception
  When nextvalnotfound Then
    dbms_output.put_line('NextVal is not found it!');
  When Others Then