Pre-compiler error ILE RPG Program

["Cesar Mendoza" <mendoza_cmg@xxxxxxx>]

  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!