Re: Use of %DEC with unformatted character numerics

Another option is to just define the pass character data parameter as zoned
numeric in the program:

     D ThisProgram     PR
     D  NumericChar                   7S 2 Const

      /Free
       CDSRTL = NumericChar;
      /End-Free

BTW, how do you handle a negative number in these passed character fields?

Paul

Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333
"Tyler, Matt" <mattt@xxxxxxxxxxxxxx> wrote in
message news:E93417D2BB84D94A8497F8E22DF19967216914@xxxxxxxxxxx
> I have a number in a character parameter 7a ('0000128') and I want to use
> %DEC() to convert that to a packed 7.2 field.  However, I get 128.00
> instead.  The reference manual is not completely clear on the decimal
point
> requirements for a character string numeric.
>
> "The decimal point is optional. It can be either a period or a
> comma."
>
> Is the decimal point optional in that it can be either a period or a comma
> or is it optional completely, be a period or be a comma?
>
> If %DEC() is treating my number as a whole number then I must say that I
> have been highly disappointed in the new features added to V5.2 for
%DEC().
>
>
> We often pass numeric data between programs in character fields (no
comment
> please if you don't agree with this) and convert them back to numeric.  We
> rarely include the decimal point since the only method to date was to use
> MOVE to convert it back to numeric.
>
> I would prefer to not have to do this just to use %DEC() if the decimal
> point is required in order for %DEC() to format the value as 1.28.
> /FREE
>    CDSRTL = %DEC(%subst(PASSSUGRTL:1:5)+'.'+%subst(PASSSUGRTL:6:2):7:2);
> /END-FREE
>
>
> Thank you,
> Matt Tyler
> WinCo Foods, Inc
> mattt@xxxxxxxxxxxxxx
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>