× 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.



  I have Release V5R2M0 installed. The following list describes the
  enhancements made to ILE RPG in VR2:

  . Bitwise logical built-in functions

  . New assignment operators

  . *

  I get a ILE RPG pre-compiler error.

  260 /free

  261 exsr $inzsr;

  262 exsr $Main;

  263

  264 *inlr = *on;

  265 // ==================

  266 begsr $inzsr;

  267 // ==================

  272 aWorkDay = %bitor(atrPR : atrNormal);

  ======> aaaaaa b ccccccccc

  *RNF0604 20 a 026100 El simbolo no es valido; se ignora el simbolo.

  *RNF0312 20 b 026100 Se esperaba un parentesis derecho, pero no se ha

  encontrado.

  *RNF5377 20 c 026100 Se espera el final de la expresion.

  273 aNotWorkDay = %bitor(atrPR : atrPNK);

  ======> aaaaaa b cccccc

  *RNF0604 20 a 026200 El simbolo no es valido; se ignora el simbolo.

  *RNF0312 20 b 026200 Se esperaba un parentesis derecho, pero no se ha

  encontrado.

  *RNF5377 20 c 026200 Se espera el final de la expresion.

  371 // ============================================================

  372 begsr $Today;

  373 // ============================================================

  374 exsr $ThisMonth;

  375 exsr $S1Load;

  376 for Dx = 1 to %elem(A);

  377 if %bitand(A(Dx):atrRI) = atrRI;

  ======> aaaaaaa bccccc

  *RNF0604 20 a 036600 El simbolo no es valido; se ignora el simbolo.

  *RNF0312 20 b 036600 Se esperaba un parentesis derecho, pero no se ha

  encontrado.

  *RNF5377 20 c 036600 Se espera el final de la expresion.

  378 leave;

  379 endif;

  380. endfor;

  385 // ============================================================

  386 begsr $S1DecrMonth;

  387 // ============================================================

  388 S1MONTH -= 1;

  ======> a

  *RNF5347 30 a 037700 Se espera un operador de asignacion con la

  operacion EVAL.

  389 if S1MONTH <= *zero;

  390 S1MONTH = 12;

  Is there anyway to avoid this?

  Welcomes any comments about this problem.

  Thanks,

  Un abrazo cordial,
  Cesar A. Mendoza Gomez
  Calle Buen Retiro 216 Chalet 22 - Lima 33 - Peru
  Phone: +(511) 434-2024
  Mobile: +(511) 985-42410

    ----------------------------------------------------------------------

  Express yourself instantly with MSN Messenger! MSN Messenger Download
  today it's FREE!

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.