|
On Monday, May 04, 1998 11:59 AM, Vernon Hamberg [SMTP:hambergv@goldengate.net] wrote: > >What if you made the example above even more clearer by coding this > >way: > > > >IF AMT$ GT WARN$ > >AND CUSTCD LT BESTCD > >AND REGION EQ MIDWST > >PERFORM WARN$ > >END-IF > > > >Guess what?... Congratulations! Your a COBOL Programmer! > >Kinda makes you go hummmm! > > Anyone else think that D-specs are a lot like the (what's it > called?) > Definition Section? I deliberately did the alternate example in RPG III to show that it *can* be better than using left hand indicators. And, yes, the RPG III example looks a bit more like COBOL; Since Vern brought up the "D" specs (RPG IV) here's an RPG IV example: C If OrderAmt>CredWarnAmt AND C CustCredCD<BestCredCd AND C SalesRgn=CMidwest C Callp IssCredWarn(CustomerID:OrderAmount: C CustCredCD:ReturnCode) C EndIF Yes, Vern, the "D" specs look a lot like the Definition Section in COBOL. Just goes to show you that there's *something* valuable in every language! Buck Calabro Commsoft, Albany, NY mailto:mcalabro@commsoft.net +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
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.