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
 

 

How to change the BMS Field COLOR in CICS

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

New User


Joined: 31 Mar 2005
Posts: 1

PostPosted: Tue Jul 31, 2007 8:21 pm    Post subject: Re: How to change the BMS Field COLOR in CICS
Reply with quote

I was trying to change the color of a field in my map. I had used the options DSATTS=COLOR,MAPATTS=COLOR in my map definition and in the program I moved the value DFHYELLO to the C field on the map. However it doesnt seem to work.
Am I missing something else???
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Tue Jul 31, 2007 8:38 pm    Post subject: Re: How to change the BMS Field COLOR in CICS
Reply with quote

usbendre wrote:
I was trying to change the color of a field in my map. I had used the options DSATTS=COLOR,MAPATTS=COLOR in my map definition and in the program I moved the value DFHYELLO to the C field on the map. However it doesnt seem to work.
Am I missing something else???

Does the terminal or emulator you are using support the color attributes?
Back to top
View user's profile Send private message
socker_dad

Active User


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

PostPosted: Tue Jul 31, 2007 10:35 pm    Post subject: Re: How to change the BMS Field COLOR in CICS
Reply with quote

On my map, I had to specify MAPATTS=(COLOR,HILIGHT) on the initial DFHMSD statement:

Code:

SEM01M  DFHMSD TYPE=&SYSPARM,           
               MODE=INOUT,               
               MAPATTS=(COLOR,HILIGHT), 
               LANG=COBOL,               
               CTRL=(FREEKB,FRSET),     
               TIOAPFX=YES,             
               TERM=3270-2               


Then on the DFHMDI I specified the extended attributes.

Code:

EMSMAP1 DFHMDI SIZE=(24,80),   
               LINE=1,         
               COLUMN=1,       
               EXTATT=YES       


This allowed me to be able to move colors to the 'C' field and have it actually work:

Code:

MOVE COLOR-NEUTRAL          TO MORPOSC
                               MORPLSC


Good luck!
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Wed Aug 01, 2007 12:15 am    Post subject:
Reply with quote

The extended attribute has nothing to do with COLOR, the 4 extended attributes get moved to the mapfield-H field.

Code:

EXAT-REVERSE-VIDEO         PIC X(01) VALUE '2'.
EXAT-UNDERLINE             PIC X(01) VALUE '4'.
EXAT-UNDERLN-REVERSE       PIC X(01) VALUE '6'.
EXAT-DEFAULT               PIC X(01) VALUE HIGH-VALUES.
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 Aug 01, 2007 3:25 am    Post subject: Re: How to change the BMS Field COLOR in CICS
Reply with quote

Oh well. You know - use the shot gun approach. icon_lol.gif
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 How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts CICS Transaction Timeout Hooman24 CICS 2 Sun Apr 16, 2017 2:16 pm
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm


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