Re: Beginner needs help w/ decimal field to text field

["Rolf Mittag" <rm@xxxxxxxxxxxx>]

There is an API for that. I have a test for RPGIII

hth R.

      * QECEDT_API test
     I            DS
     I                                        1 256 UEM
      *
     I            DS
     I                                    B   1   40UEML
      *
     I            DS
     I                                    B   1   40URVL
      *
     I            DS
     I                                    B   1   40UEWL
      *
     I            DS
     I                                        1  17 UEW
     I                                        1   8 UEW1
     I                                        9  16 UEW2
     I                                       17  17 UEW3
      *
     I            DS
     I                                    B   1   40USVP
      *
     I            DS
     I                                        1 256 URC
      *
     C                     Z-ADD32        URVL
     C                     MOVE ' ,   ,  'UEW1
     C                     MOVE ' ,  0.  'UEW2
     C                     MOVE ' '       UEW3
     C                     Z-ADD17        UEWL
     C                     Z-ADD32        URVL
     C                     Z-ADD12345.67  USV    133
     C                     MOVEL'*PACKED' USVC   10
     C                     Z-ADD13        USVP
     C                     MOVE X'00'     UBFC    1
      *
     C                     CALL 'QECCVTEW'
     C                     PARM           UEM              edit mask
     C                     PARM           UEML             edit mask length
     C                     PARM           URVL             receiver variable
len
     C                     PARM           UEW              edit word
     C                     PARM           UEWL             edit word length
     C                     PARM           URC              error code
      *
     C                     CALL 'QECEDT'
     C                     PARM           URV    32        receiver variable
     C                     PARM           URVL             receiver variable
len
     C                     PARM           USV              source variable
     C                     PARM           USVC             source variable
class
     C                     PARM           USVP             source variable
prec
     C                     PARM           UEM              edit mask
     C                     PARM           UEML             edit mask length
     C                     PARM           UBFC             zero balance fill
chr
     C                     PARM           URC              error code

Dipl.Inf.(FH) Rolf P Mittag
IBM Partner In Development
Leipziger Str. 50
D-69214 Eppelheim
eMl: rm@r-m-e-d-v.de
Fon: +49 (6221) 76 78 60
Fax: +49 (6221) 76 80 26


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---