Is this code written in Pl / Sql, and if not, in what language is it?

Question

I came across this code ... Is it Pl / Sql? What do you think this is?

[Script 1.0]

    script package up is
    import native def_1;

     procedure p(

     i_g text
     )
     is

     l_txt text;
     begin



      with mem_m(idx) as msg do
        with book_aud(evt_id) as book do
          book.upd_pkt(
          evt_nr => i__nr
          ,ref_nr => msg.h.id
          ,account_nr => msg.h.id
          ,status => '1'
         );
        end with;
      end with;

     end p; 

I am surprised by the import and the end using

This is not a complete code. This is a shortened version. It also contains familiar elements such as:

   c_max constant number := 95;
    c_VE_BA constant text := 'A07000'; 
    -- comment

     if i_mt is null then
     return rpad('/',16);
     else
     if i_id = zconst_.c_JPY then
     l_fmt := '9999999999999999';
     else
     l_fmt := '9999999999999D99';
     end if;
     end if;

case i_typ_id
 when def_typ.contr then
 l_zuonr := zfx2.c_avqt;
 when def_typ.fx then
 l_zuonr := zfx2.c_avqd;
 when def_typ.fxswap then
 l_zuonr := zfx2.c_avqd;
 when def_typ.forex then
 l_zuonr := zfx2.c_avqd;
 when def_typ.xfer then
 l_zuonr := zfx2.c_avqd;
 when def_typ.intr then
 l_zuonr := zfx2.c_avqt;
 else
 assert(false,'Meta Typ');
 end case;

It looks like a Pl / Sql extension. Based on the answers and my own research, I think this is Avaloq + PL / Sql. I contacted Avaloq, I am still waiting for an official response.

Answer 1

It seems that Avaloq Script is used by Swiss banks (s), and so far there is little information about it, I found a grammar that perfectly matches the conditions in your samples.

Avaloq Script, Avaloq Banking script, -. , Avaloq script DDIC ( ), .

Answer 2

, avaloq script. - pl/sql, s #, pl/sql.

Answer 3

Avaloq Script. script, Avaloq PL/SQL. Avaloq script , Avaloq API Avaloq. API - Avaloq script , , , .., Avaloq script ,

Avaloq script PL/SQL, VB. , , .

[Script 1.0]                      -- Have not seen other than 1.0 version

script package up is              -- The PL/SQL package name is going to be s#up
import native def_1;              -- import native means a PL/SQL package named 
                                  -- def_1 can be used, without native it is
                                  -- another Avaloq script package

 procedure p(                     -- declares a procedure with the name "p"

 i_g text                         -- input variable i_g defined text. 
                                  -- in PL/SQL this becomes a VARCHAR2
 )
 is

 l_txt text;                      -- local variable VARCHAR2(4000) in PL/SQL
 begin



  with mem_m(idx) as msg do       -- mem_m is a DDIC (Data Dictionary)
                                  -- It actually is a kind of "class" with
                                  -- fields and methods
                                  -- "with" is like in VB to avoid writing
                                  -- mem_m(idx) all the time e.g. mem_m(idx).h.id
    with book_aud(evt_id) as book do  -- book_aud is another DDIC that it is not
                                      -- prefixed with mem implies this is not a
                                      -- in memory structure but direct access
                                      -- to a Oracle table book_aud with index
                                      -- evt_id which looks undefined to me and 
                                      -- should bring a compiler error
      book.upd_pkt(                   --  method call in the book_aud DDIC
      evt_nr => i__nr                 -- like in PL/SQL named parameters
      ,ref_nr => msg.h.id
      ,account_nr => msg.h.id
      ,status => '1'
     );
    end with;
  end with;

 end p; 

, , . mem_m, book_aud - DDIC Avaloq, , , . , , Avaloq.

Answer 4

, PL/SQL.

, , , . . . 100% , - " ", ... , ?

http://www.ntecs.de/old-hp/uu9r/lang/html/lang.en.html

, . .

Answer 5

The only language I can think of that has the syntax " with...end with" is the visual base. Could this be some kind of scripted form of VB?