QUICK - Bridge

[pickerij@norbord.com]

Consider this ugly chunk of code ...

IF (( MOD( FLOOR( AU-CHECKDATE OF ORDER-HEADER / 10000) &   ;Y2KARRSB
     ,100 )) < 50 )   
                                             ;Y2KARRSB
     THEN BEGIN   
                                                 ;Y2KARRSB
     LET AR-YEAR      OF AR-AUDIT-CASH = &
         2000 + MOD( FLOOR(AU-CHECKDATE OF ORDER-HEADER /   
10000)&;Y2KARRSB
         , 100)   
                                                 ;Y2KARRSB
     END   
                                                        ;Y2KARRSB

... which could so simply become ...

let AR-YEAR  OF AR-AUDIT-CASH &
  =  addcentury(AU-CHECKDATE OF ORDER-HEADER , &
         century(AU-CHECKDATE OF ORDER-HEADER ))

... if Cognos would ever deliver our copy of version 8.1x   :-(


John "still waiting" Pickering
JWP Systems Inc
Toronto

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
powerh-l@lists.swau.edu is gatewayed one-way to bit.listserv.powerh-l
This list is closed, thus to post to the list, you must be a subscriber.