Re: parsing a numeric field

["Charlie Massoglia" <cmassoglia@xxxxxxxxxxx>]

What are you trying to do?  If you want to edit the numeric field try the
following (taken from RPG IV for the RPG/400 Programmer):

 RPG IV Sample

*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords.............................

 * Copyright 2000, MPH, Inc., All Rights Reserved
D text            S             50A
D startbal        S             11P 2 INZ(1000000)
D payment         S             11P 2 INZ(250000)
D endbal          S             11P 2

CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....

C                   eval      text = 'New customer balance is ' +
C                             %EDITC(startbal - payment:J) + ' now'
 * text = 'New customer balance is     750,000.00  now       '

C                   eval      text = 'New customer balance is ' +
C                             %TRIM(%EDITC(startbal - payment:J)) +
C                             ' now'
 * Need to trim result to eliminate extra leading and trailing blanks.
 * text = 'New customer balance is 750,000.00 now'

C                   eval      text = 'New customer balance is ' +
C                             %TRIM(%EDITC(startbal-payment:J:*ASTFILL)) +
C                             ' now'
 * text = 'New customer balance is ****750,000.00 now'

C                   eval      text = 'New customer balance is ' +
C                             %TRIM(%EDITC(startbal-payment:J:*CURSYM)) +
C                             ' now'
 * Assume no CURSYM keyword in H-spec and default $ in effect.
 * text = 'New customer balance is $750,000.00 now'


Charles L.Massoglia, President
Massoglia Technical Consulting, Inc.
cmassoglia@voyager.net
In MI 517-676-9700 or in NC 919-363-9395


----- Original Message -----
From: <saustad@deltadentalwi.com>
To: <rpg400-l@midrange.com>
Sent: Thursday, 19 April, 2001 13:54
Subject: parsing a numeric field


> Is there a way to parse a numeric field without using a data structure?
We
> have a dollar amt, which is P(7,2), that we need to split into dollars and
> cents.  It seems to me I saw something that used an op code or a BIF to
> accomplish this, but I can't remember where I saw it.
> Thanks for any info.