Re: How do you read this code ?

[Booth Martin <booth@xxxxxxxxxxxx>]

Is this the same thing?

c                   IF        (TTBAST <> 'D' 
c                               and (TTA9CD <> '001'         
c                                    or TTA9CD <> '002'                       
c                                    or TTA9CD <> '003'                       
c                                    or TTA9CD <> '012'                       
c                                    or TTA9CD <> '013'))                       
c                             or (TTBAST <> 'H' 
c                              and  TTA9CD <> *blanks)



Joe Wells wrote:
> This is my initial thought - 
>
> c                   IF        TTBAST <> 'D' and TTA9CD<>'001'         
> c                             or TTA9CD <>'002'                       
> c                             or TTA9CD <>'003'                       
> c                             or TTA9CD <>'012'                       
> c                             or TTA9CD <>'013'                       
> c                             or TTBAST <> 'H' and  TTA9CD <> *blanks 
>
> Joe     
>
>   
> > > > On 11/7/2008 at 4:12 PM, in message
> > > >         
> <7D4AB2D63F3DC344B4CA4177F703002A026F8564@xxxxxxxxxxxxxx>, Cyndi
> Bradberry<CyndiB@xxxxxxxx> wrote:
>   
> > C     TTBAST        IFNE      'D'
> >      C     TTA9CD        ANDNE     '001'
> >      C     TTA9CD        ORNE      '002'
> >      C     TTA9CD        ORNE      '003'
> >      C     TTA9CD        ORNE      '012'
> >      C     TTA9CD        ORNE      '013'
> >      C     TTBAST        ORNE      'H'
> >      C     TTA9CD        ANDNE     '   '
> >      C                   MOVE      TTOFCD               OFCD      2
> >
> > We have run across  this code in a very old program we are trying to
> > bring into the current century.
> >
> > If you were to rewrite this using parenthesis.....how would you group
> > things ?  We dragged out the manual on the order of resolving equations,
> > but it really doesn't help us much.
> >
> > Thanks,
> > Cyndi B.
> > Boise Idaho
> >     
>
>   
> ------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG - http://www.avg.com 
> Version: 8.0.175 / Virus Database: 270.9.0/1774 - Release Date: 11/7/2008 7:58 PM
>
>