RE: Help - Can't see the forest for the trees

[Dennis Munro <DMunro@xxxxxxxxxxxxxxxxxxxx>]

Thanks to all who responded to my plea for help.  

What I was able to determine using Rob Marssdorf's suggestion to print out
the values was my ENDIF related to the IF statement in question was to far
down in my code. It was after where I was resetting/clearing all the output
& control fields.  By moving it up after the ENDIF associated with the write
opcode, all is well.  No matter what change I made, I had always left the
ENDIF in the same spot so everything I tried, it failed.  

Simon Coulter mentioned "style" and I am sure that could be another whole
volume.  Some time when I finish with the auditors, I will search the
archives looking for "style".  Style could be very personal in nature.
Somewhat like "beauty is in the eye of the beholder".

I did try each suggestion but they all "failed" because I never moved the
ENDIF statement.  Not your fault, it was mine.
I included the section of the code that was redone to compare against my
original message.

I think the number of responses I got was terrific and that is what is so
great about the list.  The vast wealth of knowledge is great to call upon
when you have trouble.

Again, thanks to all who responded.     :-)    :-)    :-)

Dilbert's Words Of Wisdom:
"I love deadlines.  I especially like the whooshing sound they make as they
go flying by."

Dennis Munro    
Badger Mining Corporation
dmunro@badgerminingcorp.com <mailto:dmunro@badgerminingcorp.com> 


        -----Original Message-----
        From:   Dennis Munro [SMTP:DMunro@badgerminingcorp.com]
        Sent:   Tuesday, May 18, 1999 5:57 PM
        To:     'RPG/400 Mailing List'
        Subject:        Help - Can't see the forest for the trees

        He is a bit of ILE code that is not working - and I needed it
working Monday
        for the auditors.

        *  Write the data record if all the below apply:
            *        facility <> 80
            *        type is not blank
            *        ledger year is >= to previous year
            *        ledger year is <= to current year
           c                   if        xxfac <> fac80 and
           c                             xxtype <> ' ' and
           c                             xxyear >= previous and
           c                             xxyear <= current
           c                   write     gsbincr
           c                   endif
             *
           c                    endif
            *  Reset all the data fields & for the "new" control break
           c                   eval      saveian = sbian
           c                   eval      saveyear = sbyear
           c                   eval      amt = 0
           c                   eval      xxcomp = ''
           c                   eval      xxfac = ''
           c                   eval      xxdept = ''
           c                   eval      xxacnt = ''
           c                   eval      xxprod = ''
           c                   eval      xxtype = ''
        *
        
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *