×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
If (TTBAST = 'H' and TTA9CD = '001') or (TTA9CD = '002') or (TTA9CD =
'003') or
(TTA9CD = '012') or (TTA9CD = '013') or (TTA9CD = ' ' and TTBAST =
'H')
Jeff Davis
Programmer
Dental Network of America
2 Transam Plaza Drive, Suite 500
Oakbrook Terrace, IL. 60181
630.691.0336
"Cyndi Bradberry" <CyndiB@xxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/07/2008 04:12 PM
Please respond to
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
To
RPG400-L@xxxxxxxxxxxx
cc
Subject
How do you read this code ?
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
