RPG CODE EXAMPLE – “Write to joblog” in Free Format RPGLE Write to the IBM i joblog is a neat way of recording details of any running jobs information. This example lets us send messages from inside a running RPG program. It’s simple using one of IBM’s API’s – QMHSNDPM – and this source code

Read More

Decode JSON webservice reply data (already stored in IFS) using JSON_TABLE This reads the JSON from the IFS – decodes it using JSON_TABLE and reports on time taken to perform decode. In this case the JSON data is a simple layout that looks like this: {“users”:[{“userID”:”@123″,”firstName”:”Billy”,”lastName”:”Bob”,”initials”:”123″,”company”:110,”division”:30,”department”:325,”secProfile”:””},{“userID”:”AAATEMP”,”firstName”:”Albert”,”lastName”:”Smith”,”initials”:”AAA”,”company”:110,”division”:1,”department”:1,”secProfile”:””},{“userID”:”AAATEST”,”firstName”:”Andy”,”lastName”:”Tester”,”initials”:”AAA”,”company”:110,”division”:1,”department”:530,”secProfile”:”AAT”},{“userID”:”AAA3″,”firstName”:”Fred”,”lastName”:”Blogs”,”initials”:”AA3″,”company”:110,”division”:1,”department”:1,”secProfile”:”AAA”},{“userID”:”AATEST”,”firstName”:”AA”,”lastName”:”TEST”,”initials”:”AAT”,”company”:110,”division”:1,”department”:1,”secProfile”:””},{“userID”:”ABB”,”firstName”:”Abba”,”lastName”:”Dancing Queen”,”initials”:””,”company”:110,”division”:1,”department”:1,”secProfile”:””},{“userID”:”BINGBONG”,”firstName”:”Bing”,”lastName”:”Bong”,”initials”:”BB”,”company”:110,”division”:2,”department”:2,”secProfile”:””},{“userID”:”LITTENN”,”firstName”:”Nick”,”lastName”:”Litten”,”initials”:”NJL”,”company”:001,”division”:1,”department”:123,”secProfile”:”Secret Squirrel”}]} This JSON example contains the values: USERID

Read More

Decode JSON webservice reply data (already stored in IFS) using YAJL This reads the JSON from the IFS – decodes it using Y.A.J.L and reports on time taken to perform decode. Writing an RPG program to read JSON using YAJL is actually pretty straightforward — I hope this code example helps! In this case the

Read More

Retrieve the Jobs Program Call Stack – RPGLE Example The RPG IV provided in this tip uses a simpler method to provide this function. The program sends messages up the call stack one at a time (to a maximum of 10 entries) until the top is reached. For each send, a retrieve is also performed

Read More