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
 

 

Programmatically changing the Map field from DRK to NORM

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
socker_dad

Active User


Joined: 05 Dec 2006
Posts: 147
Location: Columbia, MO

PostPosted: Fri Feb 02, 2007 2:19 am    Post subject: Programmatically changing the Map field from DRK to NORM
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: 3158
Location: Tucson AZ

PostPosted: Fri Feb 02, 2007 2:37 am    Post subject:
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: 147
Location: Columbia, MO

PostPosted: Sat Feb 03, 2007 1:52 am    Post subject: Changing from DRK to NORM
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: 3158
Location: Tucson AZ

PostPosted: Sat Feb 03, 2007 3:16 am    Post subject: Re: Changing from DRK to NORM
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

Site Director


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

PostPosted: Sat Feb 03, 2007 3:21 am    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Sat Feb 03, 2007 3:31 am    Post subject:
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: 147
Location: Columbia, MO

PostPosted: Wed Feb 07, 2007 1:32 am    Post subject: Re: Changing from DRK to NORM
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: 3158
Location: Tucson AZ

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

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

Site Director


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

PostPosted: Wed Feb 07, 2007 5:05 am    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Wed Feb 07, 2007 5:07 am    Post subject:
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    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 Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts outrec field outside range Danielle.Filteau SYNCSORT 10 Sat Mar 04, 2017 2:37 am
No new posts 2 byte YEAR from Y'DATE2' field tecnokrat DFSORT/ICETOOL 2 Tue Feb 07, 2017 12:05 pm


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