URL shorting

I wanted to pass along something I ran across.
I know in the past there have been discussions about using STRPCCMD to show long URLs on a screen. I also recall that Scott K. had a sample http instance to capture(make) short urls.

https://www.reddit.com/r/IBMi/comments/6wkp1s/url_shortener_using_sql_httpgetclob/

(short) http://tinyurl.com/ya629qz8

<snip>
Had a request to add URL shortening to an application with only one prerequisite, it needs to shorten the URL without any type of authentication. I never needed to do this so in case others ever have to do something similar.

Chose the tinyurl api http://tinyurl.com/api-create.php?url= that has one parameter url which is the original URL that needs to be shortened. Example below shortening twitter
IBMi hashtag URL http://twitter.com/hashtag/ibmi

Select
cast(systools.httpgetclob ('http://tinyurl.com/api-create.php?url=http://twitter.com/hashtag/ibmi', '') as varchar(35)) as tinyurl
From sysibm.sysdummy1 ;

The result will be the shortened URL.
</snip>

Bryan