× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. January 2022

Compiler bug with *YEAR ? - For Barbara Morris ?

Happy new year to all !


Is this a compiler bug?

//-------------------------------------------------------------------
**freedcl-s  c1          char(4);dcl-s  c2          char(4);dcl-s  c3          char(4);dcl-s  YNum      packed(4);
YNum = *year;
c1   = %editc(*year - 1 : 'X');          // Error?
c2   = %editc(YNum  - 1 : 'X');       // Error?
YNum = YNum - 1;c3   = %editc(YNum      : 'X');        // expected result
*inlr = *on; //-------------------------------------------------------------------
Results:EVAL c1                     C1 = '0202' EVAL c2                     C2 = '0202' EVAL c3                     C3 = '2021' //-------------------------------------------------------------------

Thank you for clarifying!Best regards, Martin Neugebauer

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.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 on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.