IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

need to set MDT on programmatically


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
roopannamdhari
Warnings : 1

New User


Joined: 14 Sep 2006
Posts: 71
Location: Bangalore

PostPosted: Sat Jan 31, 2009 8:20 pm
Reply with quote

I am having a field in map it is declared as (askip,prot) .I want to receive value of this field while receiving map .

I tried searching few online material but didn’t work out so posting question here.

My approach: Please let me know were i am going wrong

CUST is map field it is declared as skip and protected

I am moving DFHBMFSE to attribute field of this field i.e., to CUSTA

Code:
MOVE     DFHBMFSE    TO  CUSTA
EXEC CICS
RECIEVE   MAP(‘MAP1’)
                  MAPSET(‘MAPSET1’)
END-EXEC


I am getting space in CUSTI field means CUSTI is not populating even after receive statement

Let me know how to set MDT on for a field in map.
Thanks in advance
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Sat Jan 31, 2009 9:13 pm
Reply with quote

Try adding FSET to the field attributes in the map definition.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Sat Jan 31, 2009 9:41 pm
Reply with quote

Quote:
MOVE DFHBMFSE TO CUSTA
EXEC CICS
RECIEVE MAP(‘MAP1’)
MAPSET(‘MAPSET1’)
END-EXEC


if this is the code you are using, no wonder you are having problems.

you need EXEC CICS SEND MAP before you can RECEIVE map
Back to top
View user's profile Send private message
Ajay Baghel

Active User


Joined: 25 Apr 2007
Posts: 206
Location: Bangalore

PostPosted: Sat Jan 31, 2009 10:01 pm
Reply with quote

Hi roopannamdhari,

Move DFHBMFSE to attribute part of the field (for which you want to set the mdt on ). Now, issue the send map. Now when you issue the receive the map command, your program can receive this field.

Thanks,
Ajay
Back to top
View user's profile Send private message
roopannamdhari
Warnings : 1

New User


Joined: 14 Sep 2006
Posts: 71
Location: Bangalore

PostPosted: Sun Feb 01, 2009 1:14 am
Reply with quote

I would like to thank all for the reply ... icon_smile.gif

Earl,
Quote:
if this is the code you are using, no wonder you are having problems.

you need EXEC CICS SEND MAP before you can RECEIVE


i do have SEND MAP statement ,but i am moving DFHBMFSE to attribute field just before Receiving MAP .

Ajay,
Do you mean MDT need to be set before sending map itself not before receiving map ?

like :
Code:
MOVE     DFHBMFSE    TO  CUSTA

EXEC CICS
SEND   MAP(‘MAP1’)
           MAPSET(‘MAPSET1’)
END-EXEC

EXEC CICS
RECIEVE   MAP(‘MAP1’)
                MAPSET(‘MAPSET1’)
END-EXEC
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Sun Feb 01, 2009 1:17 am
Reply with quote

If the field is ASKIP and PROT, it cannot be changed while on the screen. So if you want the MDT set, you must set it before sending the map because otherwise it isn't going to be set. Setting an attribute then receiving the map causes the attribute field on the terminal to overwrite the attribute field you just set, so effectively you did nothing.
Back to top
View user's profile Send private message
roopannamdhari
Warnings : 1

New User


Joined: 14 Sep 2006
Posts: 71
Location: Bangalore

PostPosted: Sun Feb 01, 2009 1:23 am
Reply with quote

Thanks Robert... hmm good point , let me try
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Sun Feb 01, 2009 6:10 am
Reply with quote

roopannamdhari

when I noted you need to issue send map before receive, I was trying
to get you to see what Ajay and Robert pointed out.

moving data to map area just before you do a receive map is not the
proper way to code.
Back to top
View user's profile Send private message
roopannamdhari
Warnings : 1

New User


Joined: 14 Sep 2006
Posts: 71
Location: Bangalore

PostPosted: Mon Feb 02, 2009 2:48 pm
Reply with quote

Thanks to all..

as per your suggestion i set MDT before Sending map and its working fine ... icon_smile.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Mon Feb 02, 2009 6:18 pm
Reply with quote

Glad to hear it.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Finding Esoteric Unit Names Programma... All Other Mainframe Topics 2
No new posts Programmatically determine HLQ ISPF i... TSO/ISPF 4
No new posts Change field case programmatically CICS 18
No new posts How to control the display of data fi... CICS 4
No new posts Programmatically changing the Map fie... CICS 9
Search our Forums:

Back to Top