RE: Pre-compiler error ILE RPG Program

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Cesar,
Check the TGTRLS parameter of the CRTRPGMOD or CRTBNDRPG commands (prompt
them). If they are set to *PRV, that would be your problem.
The other thing is to make sure that all three fields are the same data
type. (I'm assuming character fields.)

-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Cesar Mendoza
Sent: Tuesday, March 08, 2005 3:51 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Pre-compiler error ILE RPG Program

   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!
-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.