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 control the display of data field programmatically?

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

New User


Joined: 27 Aug 2006
Posts: 45
Location: Taiwan

PostPosted: Wed Apr 04, 2007 8:25 am    Post subject: How to control the display of data field programmatically?
Reply with quote

I need to set certain data field to be highlighted. I know that I can manipulated how to display the data field in a COBOL program after referencing the other usage like the following :

05 ATTR-UNPROT-FSET PIC X(01) VALUE 'A'.
05 ATTR-PROT-ASKIP-FSET PIC X(01) VALUE '1'.
05 ATTR-UNPROT-BRT-PEN-FSET PIC X(01) VALUE 'I'.
05 ATTR-PROT-ASKIP-DRK PIC X(01) VALUE '@'.

Please advise the one-byte combination of the attribute field/

Thanks in advance

Jacob
Back to top
View user's profile Send private message

jacobdng

New User


Joined: 27 Aug 2006
Posts: 45
Location: Taiwan

PostPosted: Wed Apr 04, 2007 10:45 am    Post subject:
Reply with quote

I have found that there are DFH constants serving the purpose.

http://publib.boulder.ibm.com/infocenter/txformp/v6r0m0/index.jsp?topic=/com.ibm.cics.te.doc/erziai00150.htm
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 743
Location: Germany

PostPosted: Wed Apr 04, 2007 3:27 pm    Post subject:
Reply with quote

Hi !

Yes, you could move the relating DFH Keywords to the attibute Byte of
the map-field for changing the attibutes of a map-field for the next send-map.

Also use the search-function in this forum. This topic had been descibed
in details in former time here.

Regards, UmeySan
Back to top
View user's profile Send private message
divya_maddi

New User


Joined: 03 Nov 2005
Posts: 33

PostPosted: Mon Apr 09, 2007 6:03 pm    Post subject: using a single byte
Reply with quote

move the following value to the attribute of the screen variable. For example if your screen variable is sc-name and then the attribute variable is sc-name-a, then move one of the following to sc-name-a:

ATTR1234
- 1 - U = UNPROT - P = PROT
- 2 - A = ALPHA - N = NUM
- 3 - N = NORM - B = BRT - D = DRK
- 4 - O = MDT-OFF - M = MDT-ON


ATTRUANO PIC X VALUE ' '.
ATTRUANM PIC X VALUE 'A'.
ATTRUABO PIC X VALUE 'H'.
ATTRUABM PIC X VALUE 'I'.
ATTRUADO PIC X VALUE '<'.
ATTRUADM PIC X VALUE '('.
ATTRUNNO PIC X VALUE '&'.
ATTRUNNM PIC X VALUE 'J'.
ATTRUNBO PIC X VALUE 'Q'.
ATTRUNBM PIC X VALUE 'R'.
ATTRUNDO PIC X VALUE '*'.
ATTRUNDM PIC X VALUE ')'.
ATTRPANO PIC X VALUE '-'.
ATTRPANM PIC X VALUE '/'.
ATTRPABO PIC X VALUE 'Y'.
ATTRPABM PIC X VALUE 'Z'.
ATTRPADO PIC X VALUE '%'.
ATTRPADM PIC X VALUE '_'.
ATTRPNNO PIC X VALUE '0'.
ATTRPNNM PIC X VALUE '1'.
ATTRPNBO PIC X VALUE '8'.
ATTRPNBM PIC X VALUE '9'.
ATTRPNDO PIC X VALUE '@'.
ATTRPNDM PIC X VALUE QUOTE.
Back to top
View user's profile Send private message
jacobdng

New User


Joined: 27 Aug 2006
Posts: 45
Location: Taiwan

PostPosted: Tue Apr 10, 2007 6:25 am    Post subject:
Reply with quote

Dear divya,

Thanks for your information.

Jacob
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 Storing huge volume of data, compare ... Pradeep K M All Other Mainframe Topics 3 Mon Jan 16, 2017 5:08 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
No new posts INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 0 Mon Jan 02, 2017 11:16 am
No new posts JES2 JEC: Use UNIX Pipes to Pass Data... Virendra Shambharkar JCL & VSAM 21 Tue Dec 20, 2016 6:55 pm


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