As soon as I can locate them. Might be a while.
Grant Ward Able wrote:
Yes please!
Sent from Grant Ward Able's Blackberry
----- Original Message -----
From: Rick Fochtman [EMAIL PROTECTED]
Sent: 07/20/2007 01:38 PM
To: [email protected]
Subject: Re: Regarding SDSF pgm
-----------------------<snip>-------------------
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.
------------------------------<unsnip>---------------------------------
If you've got a decent PL/1 compiler, processing type-30 records is
relatively trivial, once you get the record layout defined. I just
"lifted" that section from the mapping macro and did "almost" a
line-by-line conversion. If anyone's interested, contact me privately
and I'll see if I still have it somewhere, along with a program tht
uses it for some basic reporting stuff.
----------------------------------------------------------------------
----------------------------------------------------------------------
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
