David Crayford wrote: >That code looks dodgy!
Indeed! If I can, I would test each or some of these comparision statements and set up a true/false flag (my own [new] variable) to be used on the final IF or WHEN statement. Just for easy reading and debugging. >Unless I'm losing my marbles the test ((APPID <> 'VI01') | (APPID <> 'VI02')) >will always be true. It is always true. I have tested it. Only way to skip that DO part is to have SUBSYS <> 'A'. So, you still have all your marbles. ;-) Groete / Greetings Elardus Engelbrecht ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
