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