RE: RPG /free

["Bartell, Aaron L. (TC)" <ALBartell@xxxxxxxxxxxxxx>]

>According to Hans, this code isn't correct anyway:
I was psuedo coding.  Sorry I should have mentioned that. . .

Aaron Bartell



-----Original Message-----
From: Bob Cozzi (RPGIV) [mailto:cozzi@rpgiv.com]
Sent: Thursday, March 14, 2002 12:08 PM
To: rpg400-l@midrange.com
Subject: RE: RPG /free


According to Hans, this code isn't correct anyway:


> > For instance:
> >
> > If a = b
> >   dow *in90
> >      if java = 'slow'
> >        select
> >        when slow = 'reallyslow'
> >            eval Variable = %trim(%char(Custno)
>                                   + ':'
>                                   + %trim(CustFName)
>                                   + %trim(CustLName)
> >        endsl
> >      endif
> >   enddo
> > EndIf


Hans has indicated that there needs to be a semicolon at the end of
EVERY statement, including DOW *IN90 and the IF A=B

If a = b;
  dow *in90;
     if java = 'slow';
       select;
       when slow = 'reallyslow';
           eval Variable = %trim(%char(Custno)
                                + ':'
                                + %trim(CustFName)
                                + %trim(CustLName);
       endsl;
     endif;
  enddo;
EndIf;


Horse sh*t syntax if you has me, but I'm holding back. :)

And why isn't the semicolon allowed on the older "fixed" form EVAL
opcode in the Extended Factor 2? In other words, why does this fail?

C             EVAL       A = B * C;

But this doesn't:

   eval a= b*c;


Habitually, the semicolon is entered at the end of an expression. Why
require it in /FREE after an expression and PROHIBIT it at the end of an
expression in the regular syntax? It should be an optional symbol in the
regular syntax extended Factor 2 for the EVAL and CALLP opcodes.

It should be optional after conditional statements and after the ENDxx
statements.

But this is just part of a bigger issue. There is very little
consistency in new features implemented in the RPG IV language.

We have: EXTBININT(*YES | *NO)
And yet we have: OPENOPT(*INZOFL)

.....H EXTBININT  OPENOPT(*INZOFL)
.....H EXTBININT(*YES)  OPENOPT(*INZOFL)
.....H EXTBININT(*NO)   OPENOPT(*INZOFL)

Its not like there are other open options for print files on the header
specification.  This probably should have been a file-level keyword, but
that debate was not something I participated in, so I'm sure they
decided that a program/module-level setting was more useful. I can
accept that. But then it should have just been an on/off switch, so
using their current syntax, the keyword might have been: INZOFLIND(*YES
| *NO)

Another one is the ON-ERROR opcode. Why is there an embedded dash? To
make it stand out? Or was it a COBOL compiler developer that built that
opcode? <vbg>

And this is just the beginning.

Bob


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.