Chase, John wrote:
Hi, All,
This is almost embarrassing to ask, but how in blazes does one code the
equivalent of a TM instruction in COBOL? Here's what we have:
In the data division:
05 MAP-FIELD-ATTRIBUTE PIC X.
...
In an IBM-supplied copybook:
02 DFHBMFLG PIC X.
88 DFHERASE VALUES ARE <X'80'>,<X'82'>
This doesn't seem right. The syntax should be:
88 DFHERASE Values are x'80', x'82'.
In the procedure division, we code:
IF MAP-FIELD-ATTRIBUTE = DFHERASE
The proper way to reference a level 88 is by name:
IF DFHEREASE ...
means if DFHBMFLG = x'80' or x'82' ...
and the compiler says:
Condition-name "DFHERASE" was found inside the scope of an
abbreviated condition
The statement was discarded.
All we want is the equivalent of
TM MAP-FIELD-ATTRIBUTE,X'80'
How is that done in COBOL?? Can it even be done in COBOL??
TIA,
Can you please show us the stream of instructions? It
might make a little more sense to see more context.
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-393-8716
http://www.trainersfriend.com
z/OS Application development made easier
* Our classes include
+ How things work
+ Programming examples with realistic applications
+ Starter / skeleton code
+ Complete working programs
+ Useful utilities and subroutines
+ Tips and techniques
----------------------------------------------------------------------
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
