MIt RPG ins Systemlog schreiben

[dschroeder]

Es geht auch mit RPG:

     D Qp0zLprintf     PR            10I 0 extproc('Qp0zLprintf')
     D   msg                           *   value options(*string)
      *
     D  result         S             10I 0
      *
     C                   EVAL      result = Qp0zLprintf(X'25')
     C                   EVAL      result = Qp0zLprintf(%trim(msg))
     C                   EVAL      result = Qp0zLprintf(X'25')

Dieter