Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

need to set MDT on programmatically

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
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    Post subject: need to set MDT on programmatically
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: 8054
Location: East Dubuque, Illinois, USA

PostPosted: Sat Jan 31, 2009 9:13 pm    Post subject:
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    Post subject:
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: 205
Location: Bangalore

PostPosted: Sat Jan 31, 2009 10:01 pm    Post subject: Reply to: need to set MDT on programmatically
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    Post subject:
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: 8054
Location: East Dubuque, Illinois, USA

PostPosted: Sun Feb 01, 2009 1:17 am    Post subject:
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    Post subject:
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    Post subject:
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    Post subject:
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: 8054
Location: East Dubuque, Illinois, USA

PostPosted: Mon Feb 02, 2009 6:18 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Change field case programmatically pahiker CICS 18 Wed Oct 08, 2014 6:48 pm
No new posts How to control the display of data fi... divya_maddi CICS 4 Wed Apr 04, 2007 8:25 am
No new posts Programmatically changing the Map fie... socker_dad CICS 9 Fri Feb 02, 2007 2:19 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us