A while ago I had a problem where I wanted to change the first two characters in a table and I used the very simple concat and subst operations to do it with SQL. Today, we had a slightly more complex requirement of updating text in the middle of a field using SQL, or in other other words, squeezing some data into a field in a database.
Example: Imagine a flat file (aka table) has one big field (aka column) and we want to change two characters at position 69 & 70 dependent on certain conditions.
So, we are effectively squishing three things together — the beginning bit of data, our new characters and the end bit.
The trouble is, concat only allows two things to be squished together and since we need to update characters in the middle of a string -we are going to simply use concat twice:
update fileset set fieldA = concat( substr(fieldA,1,68) , concat('T1' , substr(fieldA,71))) where fieldB = 'stuff' and fieldC = 'otherstuff'
Works like a charm!
IBM i Software Developer, Digital Dad, AS400 Anarchist, RPG Modernizer, Alpha Nerd and Passionate Eater of Cheese and Biscuits. Nick Litten Dot Com is a mixture of blog posts that can be sometimes serious, frequently playful and probably down-right pointless all in the space of a day. Enjoy your stay, feel free to comment and in the words of the most interesting man in the world: Stay thirsty my friend.
Encrypt IBM i File (Table) Data with no RPGLE changes using SQL
How to read a Data Area (*DTAARA) using IBM i SQL
Cleaning messy IBM i Integrated File System (IFS) file names
How to encrypt or hide CL/RPG Source Code in ILE Debug Views
IBM i User Profile – Special Authorities
‘device file does not contain an entry for screen size’
Simple email validation SQL RPG ILE program
IBM i ACS 5250 EMULATOR FONT – and other ridiculous mumbo jumbo
Playing with Secure (SSL) FTP on IBM i Power System