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

Programmatically changing the Map field from DRK to NORM


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

Active User


Joined: 05 Dec 2006
Posts: 177
Location: Seattle, WA

PostPosted: Fri Feb 02, 2007 2:19 am
Reply with quote

I have developed a map that has a field that is defined as dark. Under certain circumstances, I need to programmatically change this field to normal; then back to dark once the condition has been satisfied.

It is not a message field - defined elsewhere in the map, but a "MORE: - +" to show the user that their look up request has retrieved more data than can be shown on the screen at the same time.

Now the question: What values are used to change the attribute from dark to normal - while keeping the field protected? I have the DFHBMCA, but was not certain which value would accomplish this.

I am leaning towards ATTR-PROT to show the field and then ATTR-PROT-DRK to hide it again. Is this correct?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Feb 02, 2007 2:37 am
Reply with quote

Sounds like it to me, without searching up the BMS manual....Give it a try and see.
BTW, you said "I am leaning towards ATTR-PROT....." which kinda implies thinking of other methods, what else was in the mix?
Back to top
View user's profile Send private message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 177
Location: Seattle, WA

PostPosted: Sat Feb 03, 2007 1:52 am
Reply with quote

Well, the -MDT fields caught my eye. And as mentioned in the documentation, the copybook is fairly cryptic.

Ah! Texts that are 30 years old when we were limited to 8 character names!

The option suggested in-house was using another map with these two fields defined in addition to all the other fields. Before you scoff, bear in mind that the system I have been hired to support is written in CICS Conversational mode! Scary, very scary.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Sat Feb 03, 2007 3:16 am
Reply with quote

socker_dad wrote:
And as mentioned in the documentation
I'll get a solid answer if you could give me the doc name or number so I can find it.
Quote:
The option suggested in-house was using another map with these two fields defined in addition to all the other fields.
Definetly not needed.
Quote:
Before you scoff, bear in mind that the system I have been hired to support is written in CICS Conversational mode! Scary, very scary.
Are you sure you didn't mean pseudo-conversational? Now THAT's scary..... icon_wink.gif
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Sat Feb 03, 2007 3:21 am
Reply with quote

And we'll re-activate MACRO level . . . .
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Sat Feb 03, 2007 3:31 am
Reply with quote

dick scherrer wrote:
And we'll re-activate MACRO level . . . .
That's what I cut my teeth on macro level assembler pseudo-conversational running on slow 4800 lines in an underpowered page thrashing trailing-edge 135..... icon_rolleyes.gif
Geez, it's great to be (somewhat) current.... icon_lol.gif
Back to top
View user's profile Send private message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 177
Location: Seattle, WA

PostPosted: Wed Feb 07, 2007 1:32 am
Reply with quote

"Are you sure you didn't mean pseudo-conversational? Now THAT's scary....."

Nope - the transaction starts and stays resident for the entire life of the program. No swapping out while waiting for the user. Incredible waste of system resources.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Wed Feb 07, 2007 3:42 am
Reply with quote

Yea, but a breaze to code..... icon_lol.gif
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Feb 07, 2007 5:05 am
Reply with quote

COMMAREA - we don' need no stinking COMMAREA - we'll just use our local program storage. . . . and wait for a response. . . .

And maybe we'll encourage/allow users to leave things locked while they go to lunch too. . . icon_smile.gif
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Wed Feb 07, 2007 5:07 am
Reply with quote

Now, now, Dick, don't hold back, tell us how you really feel.....
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 Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts changing defaults in db2 admin - Unlo... DB2 0
No new posts Join 2 files according to one key field. JCL & VSAM 3
No new posts How to move the first field of each r... DFSORT/ICETOOL 5
No new posts S0C7 - Field getting overlayed COBOL Programming 2
Search our Forums:

Back to Top