Tag Archives for " #example "

Jul 12

Write to joblog messages from RPGLE /FREE – a QMHSNDPM code example

AS400 , IBM i , iSeries , Programming , RPG

RPG CODE EXAMPLE – “Write to joblog” in RPG4 /FREE Write to joblog lets us send messages from inside a running RPG program. It’s simple using one of IBM’s API’s – QMHSNDPM RPGLE Code Example // SNDMSGLOG1.RPGLE // Simple Program to send message to joblog using QMHSNDPM // Author: nick@nicklitten.com ctl-opt dftactgrp(*no) actgrp(‘NICKLITTEN’) option(*nodebugio:*srcstmt:*nounref) alwnull(*inputonly) […]

Continue reading
Sep 13

RPG Evolution, Modernization and Refactoring – Step 4 of 4 – Setting RPG Free

IBM i , Programming , RPG , Webservice

Setting RPG Free Convert RPG from Column to free format So, if we take the code and actually upgrade it to be the current style of RPG/Free we can see all the mainline specs are now written in freeform code style and it looks yummy: h datfmt(*iso) timfmt(*iso) option(*nodebugio) debug //——————————————————————- // system name: fix […]

Continue reading
Sep 13

RPG Evolution, Modernization and Refactoring – Step 3 of 4 – Paroling RPG4

IBM i , Programming , RPG , Webservice

Upgrade RPG4 to use free-friendly code standards If we were using Rational Developer/i software we could do this automatically. But as a manual process its simple, if a little tedious. Basically when we are going to skim through the code and replace all indicators with the modern and preferred %FOUND BIF technique: H debug ***************************************************************** […]

Continue reading