MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » February 1998

Re: Build in functions


  • Subject: Re: Build in functions
  • From: Vern Hamberg <hambergv@xxxxxxxxxxxxxx>
  • Date: Fri, 20 Feb 1998 13:26:49 -0600
  • In-Reply-To: <8625659C.006C658C.00@internet-502.interliant.com>

fixed

At 11:38 AM 1/30/98 -0800, you wrote:
>
>
>
>
>This is the code which I copy from INFOSEEKER.  I can not compile it
>
>
>     D msg             S            100A
>     D salary          S              9P 2
>
>     D amount          S             30A
>     D editwd          C                    '$ ,   ,  **Dollars&  &Cents'
>
>      * %EDITC
>
>     C                   EVAL      SALARY = 12345.67
>
>     C                   EVAL      msg = 'The annual salary is '
>     C                                + %trim(%editc(salary * 12
>     C                                              :'A': *CURSYM))
>      * %EDITW
>     C                   EVAL      amount = 'The annual salary is '
>     C                              + %editw(salary * 12 : editwd)
>     C                   EVAL      *INLR   = *ON

Check the target release (TGTRLS) parameter default on the CRTRPGLE command.

HTH

Vernon Hamberg
Systems Software Programmer
Old Republic National Title Insurance Company
400 Second Avenue South
Minneapolis, MN 55401
(612) 371-1111 x480


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






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact