RE: Hex in RPG

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

Well, I thought I could call sprintf() from RPGIV with Integer
parameters and have it return the string, but I've been unable to get it
working. I'm sure its just a subtlety in the syntax. But I've sent a
note to Barbara Morris at the Toronto lab with this code asking if she
can determine what's wrong with it. Here's what I've sent to her, and
done so far.
     H BNDDIR('QC2LE') actgrp('QILE')
     ** int sprintf( char *buffer, const char *format [, argument] ...
);
     D  nRed           S              5I 0 INZ(128)
     D  nGreen         S              5I 0 INZ(255)
     D  nBlue          S              5I 0 INZ(192)

     D sprintf3        PR            10I 0 ExtProc('sprintf')
     D  szRecvVar                      *   VALUE Options(*STRING)
     D  szFormat                       *   VALUE Options(*STRING)
     D  Red                           5I 0
     D  Green                         5I 0
     D  Blue                          5I 0

     D szBuffer        S             20A
     D szColor         S             16A
     D pColor          S               *
     C                   Eval      szColor = *ALLX'00'
     C                   Eval      pColor  = %addr(szColor)
     C                   CallP     sprintf3(pColor : '%02x:%02x:%02x' :
     C                               nRed:nGreen:nBlue )
     C                   Eval      szBuffer = %str(pColor)
     C                   MOVE      *ON           *INLR

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum