RPGIV @ Work

A unique site for RPG and System i Lovers

Welcome!

Hi, this site will provide all what you need in System i and RPG developments.

My Name is Chamara Withanachchi, System i Expert and RPG Developer. And in the field for last 11 years.

I hope you will find lot of valuable information from this site

Write to Job Log Print E-mail
User Rating: / 0
PoorBest 
Written by Chamara Withanachchi   
Write to Job Log
     H BNDDIR('QC2LE')
     H OPTION(*SRCSTMT) DFTACTGRP(*NO)

     D writeJobLog     PR            10I 0 ExtProc('Qp0zLprintf')
     D  logMsg                         *   Value OPTIONS(*STRING)
     D  s1                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s2                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s3                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s4                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s5                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s6                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s7                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s8                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s9                             *   Value OPTIONS(*STRING:*NOPASS)
     D  s10                            *   Value OPTIONS(*STRING:*NOPASS)

      /free
          writeJobLog('Invalid Customer Number %s %s' :
                      '1234' :
                      'ABC Customer');
          writeJobLog(X'25');

          *INLR = *ON;
      /end-free
	  

User Comments

Please login or register to add comments

<Previous   Next>