On Fri, 2007-07-20 at 06:31 -0700, Ray Mullins wrote:
> In something as compute-intensive as SMF triplets, every little bit
> helps.
The nasty part is testing bit fields in COBOL. The LE bit test routines
are expensive to run. (I haven't looked recently at COBOL to see if
there are native ways to do this that don't involve standing on one's
head.)
CALL 'CEESITST' USING WORD-VALUE BIT-SELECT FC BIT-VALUE
IF NOT CEE000 THEN
CALL "CEE3ABD" USING U0300, CLEANUP-CODE
END-IF.
--
David Andrews
A. Duda and Sons, Inc.
[EMAIL PROTECTED]
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
