Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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
Prakash_mainframes

New User


Joined: 26 Feb 2005
Posts: 5
Location: Pune

PostPosted: Thu Mar 10, 2005 11:50 am    Post subject: How to change the BMS Field COLOR in CICS
Reply with quote

Hi,

I have created for screens in CICS and I want to move color to the error messages that i show in my screen., say RED... How to perform this ? And also I would like to know the colors that are available in CICS.
Expecting your early reply.

Cheers,
Prakash.
Back to top
View user's profile Send private message

ovreddy

Active User


Joined: 06 Dec 2004
Posts: 211
Location: Keane Inc., Minneapolis USA.

PostPosted: Thu Mar 10, 2005 1:52 pm    Post subject:
Reply with quote

Hi Prakash,
You can set a color to a Field in Map using the following syntax...

FNAME DFHMDF POS=(1,5),LENGTH=10, X
ATTRB=(UNPROT,BRT,FSET), X
INITIAL='XXXXXXXXXX',PICIN='X(10)', X
PICOUT='X(10)',COLOR=RED

color Specifies the color to be used for this field. The valid colors are:
BLUE, GREEN, NEUTRAL, PINK, RED, TURQUOISE, YELLOW.

Bye,
Reddy
Back to top
View user's profile Send private message
rs_naveen

New User


Joined: 07 Mar 2005
Posts: 3

PostPosted: Wed Mar 16, 2005 4:46 pm    Post subject: Re: Color in CICS
Reply with quote

Hi,

If you want to dynamically change the color of the map fields,you can give color to the field+C

Eg;if you want to make red to a map field 'MSG'.Make sure that your mapset definition contains dsatts option

You can say in the program,

Move DFHRED to MSGC

Regards,
Naveen
Back to top
View user's profile Send private message
rick

New User


Joined: 18 Jun 2004
Posts: 59
Location: Chennai

PostPosted: Wed Mar 16, 2005 8:02 pm    Post subject:
Reply with quote

Hi Reddy,

I have tried this , but it doesnt work


FNAME DFHMDF POS=(1,5),LENGTH=10, X
ATTRB=(UNPROT,BRT,FSET), X
INITIAL='XXXXXXXXXX',PICIN='X(10)', X
PICOUT='X(10)',COLOR=RED


It says me warning there is no COLOR keyword during compilation.


Thanks and Regards,
Back to top
View user's profile Send private message
mcmillan

Site Admin


Joined: 18 May 2003
Posts: 1200
Location: India

PostPosted: Wed Mar 16, 2005 10:44 pm    Post subject:
Reply with quote

Quote:
I have tried this , but it doesnt work


The COLOR operand is ignored unless the terminal supports color, as indicated by the RDO TYPETERM definition COLOR(YES) option.

Quote:
I would like to know the colors that are available in CICS


The valid colors are blue, red, pink, green, turquoise, yellow, and neutral.

It says me warning there is no COLOR keyword during compilation.

If you are using Dynamic Color Attributes ,then don't forget to include DSATTS=COLOR and MAPATTS=COLOR attributes to your DFHMSD.

Code:
DFHMSD TYPE=&SYSPARM,                                 
      MODE=INOUT,LANG=COBOL,STORAGE=AUTO,TIOAPFX=YES, 
      MAPATTS=(COLOR,HILIGHT),DSATTS=(COLOR,HILIGHT)


Quote:
I want to move color to the error messages that i show in my screen., say RED


Code:
If <error> Move DFHRED to FieldC
EXEC CICS SEND MAP
Back to top
View user's profile Send private message
Tony.Y

New User


Joined: 26 Nov 2006
Posts: 3
Location: China

PostPosted: Sun Nov 26, 2006 4:05 pm    Post subject:
Reply with quote

A ha, That's also what I need. Thanks
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 Is CICS BMS logic on z/OS different ... Andi1982 CICS 2 Fri Dec 01, 2017 1:56 pm
No new posts Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm
No new posts How to get complete URL from CICS Con... mbattu CICS 1 Tue Nov 14, 2017 11:59 pm
No new posts Integrating CICS applications craig2020 CICS 1 Sun Oct 29, 2017 6:49 pm
This topic is locked: you cannot edit posts or make replies. Incrementing current time field by 30... arunsoods DFSORT/ICETOOL 11 Thu Oct 26, 2017 3:22 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us