RE: worst RPG ever seen?

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Larry Ducie
> Sent: Tuesday, February 28, 2006 11:20 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RE: worst RPG ever seen?
> 
> This is one of my favourites:
> 
> C                   call      'PROGRAM'
> C                   parm                    parm1
> C                   parm                    rtcd
> 
> C                   if        rtcd = *blanks and not %error
> C                   else
> C                   eval      ri_err = *on
> C                   eval      pt_typ = *on
> C                   endif
> 
> This has the wonderful double-hit of:
> 
> 1) The inability to invert a condition - the beautiful use of 
> else-code.

Not sure what you mean by "invert a condidtion"

Perhaps this?
C                   call      'PROGRAM'
C                   parm                    parm1
C                   parm                    rtcd

C                   if        not (rtcd <> *blanks or %error)
C                   eval      ri_err = *on
C                   eval      pt_typ = *on
C                   endif


As far as I know, there isn't any boolean expression that can't be not'd
(inverted).

HTH,
Charles