CICS/BMS: How to erase a field and set the mdt to ON



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

CICS/BMS: How to erase a field and set the mdt to ON

Postby holderheck » Tue Jan 22, 2008 2:43 am

Hello,

I'm writing a small application program with a map already created.

I would like to erase by program a field (named FIELD) when it contains only spaces and set it's mdt to ON.
I do this:
 IF FIELDL NOT = 0 THEN
     MOVE ZERO TO W-CPT
     INSPECT FIELDI TALLING W-CPT FOR ALL SPACES
     IF W-CPT = FIELDL THEN
          MOVE DFHBMEOF  TO FIELDA
          EXEC CICS SEND MAP  (MYMAP)
                         RESP  (RESPONSE)                 
          END-EXEC                                             
     END-IF
END-IF

But it doesn't set the field's mdt to ON.
What is the keyword to erase a field AND set it's mdt to ON ?
If this keyword doesn't exist, what is the hex I have to move to the field's attribut ?

Thanks in advance.
holderheck
 
Posts: 1
Joined: Tue Jan 22, 2008 2:07 am
Has thanked: 0 time
Been thanked: 0 time

Re: CICS/BMS: How to erase a field and set the mdt to ON

 

Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post