IBM i full-free ILE-RPG joblog procedure

JOBLOG.RPGLE

       dcl-proc joblog;
         //--------------------------------------------
         // usage:
         // ...
         // joblog('message for the joblog');
         // ...
         // /COPY JOBLOG;
         //--------------------------------------------
         dcl-pi *N;
           pMsg  VarChar(250) Value;
         end-pi;
         dcl-pr Qp0zLprintf Int(10) ExtProc(*DCLCASE);
           *N Pointer Value Options(*STRING);
           *N Pointer Value Options(*STRING:*NOPASS);
         end-pr;
         dcl-s rc Int(10) Inz;
         dcl-c CRLF Const(x'0d15'); // newline/cr+lf

         rc = Qp0zlprintf(pMsg + '%':CRLF);

         Return;
       end-proc joblog;