-----------------------<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
