• 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>

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