AS/400 >> RPGLE %editc problem

by Dika » Thu, 04 May 2006 15:39:46 GMT

Hi,

I have problem with %editc function, he takes dot for decimal point instead
of comma like my job description is.

Var1=%editc(Var2:'J');
This line returns 12.3456 , but what I need is 12,3456

Regards

AS/400 >> RPGLE %editc problem

by Dika » Thu, 04 May 2006 16:07:54 GMT



DECEDIT in H specs solved the problem "Decedit(*Jobrun)"

Similar Threads

1. RPGLE/STRDBG vs RPG/STRISDB - Debug Problem

2. RPGLE Debug Problem, Source does not prompts - AS/400

3. RPGLE Debug problem

Hi,

Since some weeks ago I noticed that, while debugging a RPGLE program
(STRDBG), the debugger steps "over" a CHAIN/READ operation.
In other words, after a normal Step (F10) over one of these operations,
the program just runs further.
Only if I set a breakpoint right after them, it will stop here after a
Step.

I'm sure this didn't happened before.
Did someone have the same "problem"
By the way, we upgraded to V5R3 some time ago.

Thanks in advance

Sander

4. V5R4 RPGLE compiler problems (???) - AS/400

5. Odd inconsistency with %EDITC

Hi Guys

I'm getting a strange inconsistency in the results of using %EDITC to
convert a numeric variable to a formatted string. Take a look at this
little bit of code:

     dnum              s             10  2 inz(12.56)
     dtxtval           s             13
     C                   eval      txtval=%editc(num:'J')
     C                   eval      *inlr=*on


This does exactly what I want it to, i.e. it puts '12.56', nicely
formatted, into string variable txtval. BUT, if I now change this a
little, to make num and txtval passed variables, thusly:


     c     *entry        plist
     c                   parm                    num              10 2
     c                   parm                    txtval           13
     C                   eval      txtval=%editc(dnum:'J')
     C                   eval      *inlr=*on


...and call this from another prog, passing in 12.56 as a passed
variable, the eval puts 12.5 into txtval, i.e. it knocks the second
decimal place off the number.

This is driving me nuts! Any thoughts or help any of you could offer
would be VERY much appreciated!


Thanks in advance


Jeremy

6. How to hande SAP BCD numrics in RPGLE - AS/400

7. 5733XT1 & rpgle sample code

Hello,

I'm evaluating different methods to parse a xml file from rpg (future
projects may require this).

Atm, I'm trying to adapt SAX2PRINT with XML4PR400 from product 5733XT1
to my needs.

I can't extract element names & values in the callbacks functions, for
example, the callback associated to Qxml_CONTENTHANDLER_STARTELEMENT has
the following prototype :
PSTARTELEMENT     B                         
DSTARTELEMENT     PI                        
D  URI?                          *   VALUE 
D  LNAME?                        *   VALUE 
D  QNAME?                        *   VALUE 
D  ATTR?                         *   VALUE 

From the doc, it appears that QNAME?is a pointer to the name of the
element, basing a string type field on this pointer doesn't give any
coherent value.

In the example code, it seems that QNAME is used thru an XMLFormatter
method, is this the only way ?

Last, has anyone example code to get element name in a rpg string field
?

Thanks in advance

Eric Masson

-- 
 Moi je dis : 3 lignes c'est suspect, c'est fait pour le GCU.
 -+- SP in Guide du Neuneu sur Usenet : Allez hop ! Au GNoUf -+-

8. RPGLE compatibility (V4R5M0 vs V3R2M0) - AS/400