Convert Char to Numeric in Free form

[loonybin]

Hi.

I just want to convert MOVE CHAR NUM on free format. Could someone please help.

Thanks in advance.

 

[MdnghtPgmr]

loonybin,

See %INT and %INTH.

HTH,
MdnghtPgmr

 

[loonybin]

CustomerN = %Int(Customer@);

The parameter is not valid on %INT. It only takes numeric. Please let me know of a way to convert char to numeric in free form. thanks.

 

[MdnghtPgmr]

loonybin,

What version of OS/400 are you running? I just tried it on my box and it worked. We are running V5R2.

MdnghtPgmr

 

[iSeriesCodePoet]

How about %dec(myvar:len:#dec)? That is what I use.

iSeriesCodePoet
iSeries Programmer/Lawson Software Administrator

http://www.koldark.net

See my progress to converting to linux.

http://linux.koldark.net

 

[flapeyre]

%INT and %INTH only convert characters to numbers at V5R2 and above. For V5R1 (which I am on) and below, you can use this service program, which was written by Barbara Morris of IBM. I use it, and it works great.

One correction I had to make: add the EXPORT keyword to the procedure's definition begin.


De mortuis nihil nisi bonum.

 

[flapeyre]

Sorry, the link didn't work - try this:

http://groups.google.com/groups?selm=39764DD9.404E7EA3@ca.ibm.com&oe=UTF-8&output=gplain

De mortuis nihil nisi bonum.

 

[RedMage1967]

loonybin, try this.

D ConvertDollar   PR             8S 2
D   InValue                     11    Value
                            .
                            .
                            .
//=========================================================
//  SUBPROCEDURE:  ConvertDollar
//       PURPOSE:  Convert character to dollar value
//
//  DATE          CHANGED BY          REASON
//
//=========================================================
P ConvertDollar   B
//---------------------------------------------------------D ConvertDollar   PI             8S 2
D   CharValue                   11    Value
D
D NegativeAmt     S               N   Inz(*Off)
D CharDollar      Ds
D  DollarAmt                     8S 2
//--------------------------------------------------------- /Free

  If %Scan('-':CharValue) > 0;
    NegativeAmt = *On;
    EvalR CharValue = %TrimR(%Replace('':CharValue:
                             %Scan('-':CharValue):1));
  Else;
    NegativeAmt = *Off;
  EndIf;
  DoW %Scan(',':CharValue) > 0;
    EvalR CharValue = %TrimR(%Replace('':CharValue:
                         %Scan(',':CharValue):1));
  EndDo;
  EvalR CharValue = %TrimR(%Replace('':CharValue:
          %Scan('.':CharValue);1));
  EvalR CharDollar = CharValue;
  If NegativeAmt;
    DollarAmt = DollarAmt * -1;
  EndIf;
  Return DollarAmt;

 /End-Free
 //--------------------------------------------------------P ConvertDollar   E
 //========================================================

The above procedure converts a dollar amount from a char value and converts it back into a signed numeric value. The actual conversion takes place EvalR CharDollar = CharValue.

RedMage1967
IBM Certifed - RPG IV Progammer

 

[loonybin]

Thanks all for all you help!