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 FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am
No new posts JES2 job size field matching Windows ... SRICOBSAS All Other Mainframe Topics 4 Tue Sep 05, 2017 5:49 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm

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