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

Know what color text my variable has in CICS


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Stef Van der Straeten

New User


Joined: 21 Apr 2022
Posts: 3
Location: Belgium

PostPosted: Thu Apr 21, 2022 6:35 pm
Reply with quote

Good day,

I'm trying to find what exact color my variable has on screen.

Like this:
IF EX1MINC(J, I) = DFHRED THEN COMMT01O = 'RED';

But I can't find what the exact code should be in place of the 'DFHRED' to make this work.

Thanks in advance,
Stef.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Thu Apr 21, 2022 6:49 pm
Reply with quote

Have you copied DFHBMSCA into your program? If not, add that and try again. DFHRED is defined in DFHBMSCA.
Back to top
View user's profile Send private message
Stef Van der Straeten

New User


Joined: 21 Apr 2022
Posts: 3
Location: Belgium

PostPosted: Thu Apr 21, 2022 7:01 pm
Reply with quote

Thanks for your reply.

Yes, i have added %INCLUDE(DFHBMSCA);

I have been able to put the variables i want to be red, to DFHRED.
For the next part of my program, i have to be able to identify which of my variables are red and which are not.

Is [ IF EX1MINC(J, I) = DFHRED THEN ... ] normally supposed to work already if I included DFHBMSCA?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Thu Apr 21, 2022 7:29 pm
Reply with quote

Quote:
Is [ IF EX1MINC(J, I) = DFHRED THEN ... ] normally supposed to work already if I included DFHBMSCA?
Yes, it should. What is the exact error message(s) you are getting?
Back to top
View user's profile Send private message
Stef Van der Straeten

New User


Joined: 21 Apr 2022
Posts: 3
Location: Belgium

PostPosted: Thu Apr 21, 2022 7:50 pm
Reply with quote

No errors, the program just seems to skip the IF as if it isn't red.

Even a simple IF like IF EX1MINC(J, I) = DFHRED THEN COMMT01O = 'YES';
is getting skipped as if the text on screen isn't red.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8651
Location: Dubuque, Iowa, USA

PostPosted: Thu Apr 21, 2022 8:04 pm
Reply with quote

You're probably looking at the wrong variable, then. Colors are stored in the attribute byte of each field on the screen, so you'd need to be comparing the attribute byte (NOT the screen variable).
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 CICS region is terminated abnormally ... CICS 2
No new posts Issue with EXEC CICS QUERY SECURITY c... CICS 6
No new posts Debugging not getting triggered throu... CICS 3
No new posts Creating CSV file from Variable recs ... DFSORT/ICETOOL 11
No new posts Evaluate variable to execute a jcl step JCL & VSAM 3
Search our Forums:

Back to Top