(Defn SAP HANA [OData Clojure])

This post was originally posted on (Defn SAP HANA [OData Clojure]).

Clojure is a dynamic programming language that targets the Java Virtual Machine. It is designed to be a general-purpose language, combining the approachability and interactive development of a scripting language with an efficient and robust infrastructure for multi-threaded programming.

Also…Clojure is a dialect of Lisp, and shares with Lisp the code-as-data philosophy and a powerful macro system.

So, before we move on…I want to share an XKCD comic that I really like about Lisp -:) And you will realize why after you see my source code -;)

So…no example or demonstration would be complete if we didn’t hook it up with SAP HANA, right? So…let’s go and do it -;)

First, we need to create a Calculation View and call it “FLIGHTS_BY_CARRIER”. It will be composed of two tables, SCARR and SFLIGHT.

First, we need to create a Join object and link the table by MANDT and CARRID. From here select the following fields as output MANDT, CARRID, CARRNAME, PRICE and CURRENCY.

Then create an Aggregation object selecting the fields CARRNAME, PRICE (As Aggregated Column) and CURRENCY. Filter the CURRENCY field by ‘USD’.

Then create a Projection object and select only PRICE and CARRNAME.

On the Semantics object make sure to select “CROSS CLIENT” as the Default Client.

Now, switch to the SAP HANA Development View and create a new repository. Call it “Flights”.

Create a new “XS Engine” project and call it “Flights” as well. Link it to the “Flights” repository.

Create an empty “.xsapp” file.

Create a file called “.xsaccess” with the following code.

.xsaccess
{ "exposed" : true, "authentication" : [ { "method" : "Basic" } ] }

Finally create a file called “flights.xsodata” with the following code

flights.xodata
service { "Blag/FLIGHTS_BY_CARRIER.calculationview" as "FLIGHTS" keys generate local "Id"; }

Activate your project and launch it on your browser, you should see something like this…

The SAP HANA part is done…so we can move into the Clojure part…

The best and easiest way to use Clojure in to install Leiningen, you can find the installation process here.

Once installed, simply create a project like this…

Create Project
Create Project lein new clojure_hana cd clojure_hana nano project.clj

And modify it to looks like this…

project.clj
(defproject clojure_hana "0.1.0-SNAPSHOT" :description "FIXME: write description" :url "http://example.com/FIXME" :license {:name "Eclipse Public License" :url "http://www.eclipse.org/legal/epl-v10.html"} :dependencies [[org.clojure/clojure "1.6.0"] [clj-http "1.1.0"] [cheshire "5.4.0"]] :main clojure-hana.core)

This will download and install the clj-http (To deal with web pages) and chesire (To deal with JSon) libraries into your project.

To code for Clojure, you can use any editor that you like…

Inside your clojure_hana folder, do the following…

Create source file
cd src cd clojure_hana nano core.clj

Copy and paste the following code…

core.clj
(ns clojure-hana.core (:require [clj-http.client :as client]) (:require [cheshire.core :refer :all])) (defn show_info [results len ctr] (cond (or (= ctr len) (< ctr len)) (concat ((results ctr) :CARRNAME) " : " ((results ctr) :PRICE) "\n" (show_info results len (inc ctr))) (> ctr len) (concat "" "\n"))) (defn -main "Reads information from SAP HANA OData" [& args] (let [json (:body (client/get "http://YourHANAServer:8000/Flights/flights.xsodata/FLIGHTS?$format=json" {:basic-auth ["YourUser" "YourPassword"]})) parsed_json (parse-string json true) results ((parsed_json :d) :results)] (do(print(apply str(show_info results (dec (count results)) 0)) (symbol "")))))

Now you see it…Clojure is all about parenthesis, just like good old Lisp -:) Anyway…to run the project simply go back to your main clojure_hana folder and run

lein run

I have been interfacing SAP HANA OData with a lot of languages…and so far…Racket was one of my fastest implementations…but I have to say…Clojure was even faster to implement and the code is even shorter -:P…while it’s hard to get used to all those weird parenthesis…it’s a very nice and powerful language…and thing get done faster that one could imagine…

Greetings,

Blag.
Development Culture.

Julia, data analysis’s little sister...meets SAP HANA

This post was originally posted on Julia, data analysis’s little sister...meets SAP HANA.

Julia is not that young right now…as it first appeared on 2012 -:) It is a high-level dynamic programming language designed to address the requirements of high-performance numerical and scientific computing while also being effective for general purpose programming.

Woaw! That was a big description…so why should we care? Well…maybe because Julia was designed to be the language to rule them all…a language that can be used in any given situation…and without stopping to say if that’s true or not…I must say…Julia is really cool -:)

So…no example or demonstration would be complete if we didn’t hook it up with SAP HANA, right? So…let’s go and do it -;)

First, we need to create a Calculation View and call it “FLIGHTS_BY_CARRIER”. It will be composed of two tables, SCARR and SFLIGHT.

First, we need to create a Join object and link the table by MANDT and CARRID. From here select the following fields as output MANDT, CARRID, CARRNAME, PRICE and CURRENCY.

Then create an Aggregation object selecting the fields CARRNAME, PRICE (As Aggregated Column) and CURRENCY. Filter the CURRENCY field by ‘USD’.

Then create a Projection object and select only PRICE and CARRNAME.

On the Semantics object make sure to select “CROSS CLIENT” as the Default Client.

Now, switch to the SAP HANA Development View and create a new repository. Call it “Flights”.

Create a new “XS Engine” project and call it “Flights” as well. Link it to the “Flights” repository.

Create an empty “.xsapp” file.

Create a file called “.xsaccess” with the following code.

.xsaccess
{ "exposed" : true, "authentication" : [ { "method" : "Basic" } ] }

Finally create a file called “flights.xsodata” with the following code

flights.xodata
service { "Blag/FLIGHTS_BY_CARRIER.calculationview" as "FLIGHTS" keys generate local "Id"; }

Activate your project and launch it on your browser, you should see something like this…

The SAP HANA part is done…so we can move into the Julia part…

Go into your Julia environment and install the following packages

• HTTPClient
• Codecs
• LightXML

You only need to do Pkg.add(“PackageName”) for each of them.

Then create a file called Julia_HANA_XML.jl on your favorite editor and copy the following code

Julia_HANA_XML.jl
using HTTPClient.HTTPC using Codecs using LightXML credentials=encode(Base64,"SYSTEM:YourPassword") Auth = bytestring(credentials) Auth = "Basic " * Auth flights=HTTPC.get("http://YourServer:8000/Flights/flights.xsodata/FLIGHTS",RequestOptions(headers=[("Authorization",Auth)])) raw_text = takebuf_string(flights.body) xdoc = parse_string(raw_text) xroot = root(xdoc) entry = get_elements_by_tagname(xroot,"entry") for flights in entry print(content(find_element(find_element(find_element(flights,"content"),"properties"),"CARRNAME")),": ", content(find_element(find_element(find_element(flights,"content"),"properties"),"PRICE")),"\n") end

To run this application, simply go to your Julia environment and type

Include(“Julia_HANA_XML.jl”)

If you are wondering…why didn’t I use JSON instead of XML? Well…there’s an easy explanation for that -:) Somehow…the HTTPClient package have a problem using ?$format=json so I was forced to use XML instead…

Greetings,

Blag.

Development Culture.

Node-RED -> Visual Node with SAP HANA

This post was originally posted on Node-RED -> Visual Node with SAP HANA.

Node-RED is a visual tool for wiring the Internet of Things.

In other words…it’s NodeJs with a nice visual interface.

In order to make it work, we can do the following.

Download NodeJS version 0.10.X for your corresponding architecture and OS.

Linux Binaries 32Bits or 64Bits.

Mac OS X Installer

Windows Installer 32Bits or 64Bits.

I used Linux and here’s the most practical way to install it…

After downloading the package simply do..

sudo tar -C /usr/local --strip-components 1 -xzf node-v0.10.36-linux-x86.tar.gz

With that, NodeJS should be up and running…so now it’s time for Node-RED.

sudo npm install -g node-red

As easy as that -:)  Now, simply run node-red on the terminal and open a browser with 

http://localhost:1880

First, we need to create a Calculation View and call it “FLIGHTS_BY_CARRIER”. It will be composed of two tables, SCARR and SFLIGHT.

Next, create a Join object and link the table by MANDT and CARRID. From here select the following fields as output MANDT, CARRID, CARRNAME, PRICE and CURRENCY.

Then create an Aggregation object selecting the fields CARRNAME, PRICE (As Aggregated Column) and CURRENCY. Filter the CURRENCY field by ‘USD’.

Then create a Projection object and select only PRICE and CARRNAME.

On the Semantics object make sure to select “CROSS CLIENT” as the Default Client.

Now, switch to the SAP HANA Development View and create a new repository. Call it “Flights”.

Create a new “XS Engine” project and call it “Flights” as well. Link it to the “Flights” repository.

Create an empty “.xsapp” file.

Create a file called “.xsaccess” with the following code.

.xsaccess
{ "exposed" : true, "authentication" : [ { "method" : "Basic" } ] }

Finally create a file called “flights.xsodata” with the following code

flights.xodata
service { "Blag/FLIGHTS_BY_CARRIER.calculationview" as "FLIGHTS" keys generate local "Id"; }

Activate your project and launch it on your browser, you should see something like this…

The SAP HANA part is done…so we can move into the Node-RED part…

First, select the http node and fill in /hana in the url section

Now, select the http request node and fill in the URL

http://yourserver:8000/Flights/flights.xsodata/FLIGHTS?$format=json

And the rest of the data…

Now, select a Function node and fill in the following source code…

function
var results = msg.payload.d.results; var message = ""; for (i=0;i<results.length;i++){ var carrname = results[i].CARRNAME; var price = results[i].PRICE; message += carrname + ' : ' + price + "\n"; } msg.payload = message; return msg;

Select a template node and simply pass this…

{{payload}}

Finally, select an http response node and name if you want -:)

In the end...you should end up with something like this -;)

We’re done -:) And BTW…if you don’t feel like doing anything like this…you can always copy this code and import it back to Node-RED…

Node_RED_HANA.json
[{"id":"4ae9ba82.b51644","type":"http in","name":"","url":"/hana","method":"get", "x":155,"y":91,"z":"3c0f3fe4.c3f0c","wires":[["ded8853e.212778"]]},{"id":"ded8853e.212778", "type":"http request","name":"HANA","method":"GET","ret":"obj", "url":"http://54.65.196.224:8000/Flights/flights.xsodata/FLIGHTS?$format=json", "x":329,"y":102,"z":"3c0f3fe4.c3f0c","wires":[["c177bd31.3e884"]]},{"id":"c177bd31.3e884", "type":"function","name":"GetInfo","func":"var results = msg.payload.d.results; \n//var message = [];\nvar message = \"\";\nfor (i=0;i<results.length;i++){\n   var carrname = results[i].CARRNAME;\n var price = results[i].PRICE;\n   //message[i] = carrname + ' : ' + price + \"\\n\"\n message += carrname + ' : ' +  price + \"\\n\";\n}\n\nmsg.payload = message;\nreturn msg;","outputs":1,"valid":true, "x":507,"y":179,"z":"3c0f3fe4.c3f0c","wires":[["c59088cb.3a6f78"]]},{"id":"1995c536.e66a3b", "type":"http response","name":"Response","x":653,"y":359,"z":"3c0f3fe4.c3f0c","wires":[]}, {"id":"c59088cb.3a6f78","type":"template","name":"Template","field":"payload", "format":"handlebars","template":"{{payload}}","x":487,"y":321,"z":"3c0f3fe4.c3f0c", "wires":[["1995c536.e66a3b"]]}]

To run it…simply select “Deploy” and head to http://localhost:1880/hana

Awesomely easy, huh? -:)

Greetings,

Blag.

Development Culture.

Even kids can play with SAP HANA

This post was originally posted on Even kids can play with SAP HANA.

Small Basic is a programming language created by Microsoft and based on the BASIC language. It’s aimed to teach kids how to code as it comes with Syntax Highlighting, Intelligent Code Completion and In-Editor documentation access. On top of that…the language has only 14 keywords.

Small Basic comes with a nice and very simple IDE…

And the Code Completion is just wonderful and nicely documented.

In order to access SAP HANA via ODBC we need to download the awesome library called LitDev.

Just extract it and copy the DLL’s and XML’s into a folder called “lib” inside your Small Basic installation. If you have any problems, simply right click the LitDev.dll file and unlock it.

Well…no example or demonstration would be complete if we didn’t hook it up with SAP HANA, right? So…let’s go and do it -;) (This part is not exactly kid friendly…so look for the help of an adult)…

First, we need to create a Calculation View and call it “FLIGHTS_BY_CARRIER”. It will be composed of two tables, SCARR and SFLIGHT.

First, we need to create a Join object and link the table by MANDT and CARRID. From here select the following fields as output MANDT, CARRID, CARRNAME, PRICE and CURRENCY.

Then create an Aggregation object selecting the fields CARRNAME, PRICE (As Aggregated Column) and CURRENCY. Filter the CURRENCY field by ‘USD’.

Then create a Projection object and select only PRICE and CARRNAME.

On the Semantics object make sure to select “CROSS CLIENT” as the Default Client.

The SAP HANA part is done…so we can move into the Small Basic part…

Now, simply create a new file and paste the following code…

HANA.sb
LDDataBase.Connection="DRIVER={HDBODBC};SERVERNODE=YourServer:30015; DATABASE=SYSTEM;UID=YouUser;PWD=YourPassword" Db = LDDataBase.ConnectOdbc("","","","","",0,"") GraphicsWindow.Show() Lv = LDDataBase.AddListView(GraphicsWindow.Width,GraphicsWindow.Height) Quote = Text.GetCharacter(34) Query = "SELECT * FROM" + Quote + "_SYS_BIC" + Quote + "." + Quote + "Blag/FLIGHTS_BY_CARRIER" + Quote LDDataBase.Query(Db,Query, Lv, "False")

Replace Blag with your own package name -:)

Easy, huh?

There you go…now even kids can leverage the power of SAP HANA -;)

Greetings,

Blag.
Development Culture.

LED is my new Hello World - Ada Time

Alright...this one took me a long time...but finally compiled and worked -:)

led_numbers.adb
with Ada.Text_IO; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; procedure LED_Numbers is package IO renames Ada.Text_IO; package Number_IO is new Ada.Text_IO.Integer_IO (Integer); type Array_Row is array (1 .. 3) of Unbounded_String; type Array_Of_Array_Type is array (1 .. 10) of Array_Row; Array_Of_Arrays : Array_Of_Array_Type; s1 : Unbounded_String; s2 : Character; line1 : Unbounded_String; line2 : Unbounded_String; line3 : Unbounded_String; num : Integer; len : Natural; begin Array_Of_Arrays (1) (1) := s1 & " _ ";Array_Of_Arrays (1) (2) := S1 & "| | "; Array_Of_Arrays (1) (3) := S1 & "|_| ";Array_Of_Arrays (2) (1) := s1 & " "; Array_Of_Arrays (2) (2) := S1 & "| ";Array_Of_Arrays (2) (3) := S1 & "| "; Array_Of_Arrays (3) (1) := s1 & " _ ";Array_Of_Arrays (3) (2) := S1 & " _| "; Array_Of_Arrays (3) (3) := S1 & "|_ ";Array_Of_Arrays (4) (1) := s1 & "_ "; Array_Of_Arrays (4) (2) := S1 & "_| ";Array_Of_Arrays (4) (3) := S1 & "_| "; Array_Of_Arrays (5) (1) := s1 & " ";Array_Of_Arrays (5) (2) := S1 & "|_| "; Array_Of_Arrays (5) (3) := S1 & " | ";Array_Of_Arrays (6) (1) := s1 & " _ "; Array_Of_Arrays (6) (2) := S1 & "|_ ";Array_Of_Arrays (6) (3) := S1 & " _| "; Array_Of_Arrays (7) (1) := s1 & " _ ";Array_Of_Arrays (7) (2) := S1 & "|_ "; Array_Of_Arrays (7) (3) := S1 & "|_| ";Array_Of_Arrays (8) (1) := s1 & "_ "; Array_Of_Arrays (8) (2) := S1 & " | ";Array_Of_Arrays (8) (3) := S1 & " | "; Array_Of_Arrays (9) (1) := s1 & " _ ";Array_Of_Arrays (9) (2) := S1 & "|_| "; Array_Of_Arrays (9) (3) := S1 & "|_| ";Array_Of_Arrays (10) (1) := s1 & " _ "; Array_Of_Arrays (10) (2) := S1 & "|_| ";Array_Of_Arrays (10) (3) := S1 & " _| "; IO.Put("Enter a number: "); Number_IO.Get(num); s1 := s1 & Integer'Image(num); len := Length(s1); for i in Integer range 2..len loop s2 := Element(s1,i); num := Character'Pos(s2) - 48; if num < 10 then num := num + 1; end if; line1 := line1 & Array_Of_Arrays (num) (1); line2 := line2 & Array_Of_Arrays (num) (2); line3 := line3 & Array_Of_Arrays (num) (3); end loop; IO.Put(To_String(line1)); IO.Put_Line(""); IO.Put(To_String(line2)); IO.Put_Line(""); IO.Put(To_String(line3)); end LED_Numbers;

Now...the screenshots...

Greetings,

Blag.
Development Culture.

My first post on Ada

Well...it might be my fist post on Ada but it's not my first encounter with Ada -;) I learned it about 10 years ago or more...but until now...I didn't give to much of a use...

If you're wondering...what's Ada? Well...according to Wikipedia...

Ada is a structured, statically typed, imperative, wide-spectrum, and object-oriented high-level computer programming language, extended from Pascal and other languages.

So yes...it pretty much looks like Pascal...but way more strict...and complex...

As usual with my "My first post on..." I build a Fibonacci List generator...something simple to start re-learning the language...so here it goes...

fibonacci.adb
with Ada.Text_IO; with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; procedure Fibonacci is package IO renames Ada.Text_IO; package Number_IO is new Ada.Text_IO.Integer_IO (Integer); num : Integer; function Fib(num:Integer;a:Integer;b:Integer) return Unbounded_String is result : Unbounded_String; begin if a > 0 and num > 1 then result := result & Integer'Image(a+b) & " " & Fib(num-1,a+b,a); elsif a = 0 then result := Integer'Image(a) & " " & Integer'Image(b) & " " & Integer'Image(a+b) & " " & Fib(num-1,a+b,b); end if; return result; end Fib; begin IO.Put("Enter a number: "); Number_IO.Get(num); IO.Put(To_String(Fib(num,0,1))); end Fibonacci;

And here are the screenshots...

Well...that's was fairly easy...but of course I needed to investigate a little bit...so the challenge will be when I start working on my LED Numbers app... -:P

Greetings,

Blag.
Development Culture.