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
 
Hilighting a line where multipe fields are on the line

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

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Tue Mar 23, 2010 9:21 pm    Post subject: Hilighting a line where multipe fields are on the line
Reply with quote

I am trying to hilight the weekend lines on a map.
The map has 17 fields on a row. I have them hilighted as individual fields but it looks a bit strange. I want to hilight the entire line on the map if the date is a weekend.

Thanks,
George
Back to top
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Wed Mar 24, 2010 12:04 am    Post subject:
Reply with quote

If the data is just display, then build the 17 data items into a 79 byte map field and hilite it.....
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Wed Mar 24, 2010 12:30 am    Post subject:
Reply with quote

CICS Guy wrote:
If the data is just display, then build the 17 data items into a 79 byte map field and hilite it.....


I tried that. Obviously, I did not do it correctly. Maybe I can get some insights on how to do it.

Here is the redefinition for the MAP.


000110 011000 01 W3-SCREEN REDEFINES LV03I.
000111 011100 03 FILLER PIC X(158).
000112 011200 03 OUT-TAB.
000113 011300 05 OUT-LINE OCCURS 18 TIMES.
000114 011400 07 OUT-DTR PIC X(01).
000115 011500 07 OUT-DATE PIC X(06).
000116 011600 07 FILLER PIC X(03).
000117 011700 07 OUT-AHR PIC X(01).
000118 011800 07 OUT-ANN PIC X(04) JUST RIGHT.
000119 011900 07 FILLER PIC X(03).
000120 012000 07 OUT-AFR PIC X(01).
000121 012100 07 OUT-AF PIC X(01).
000122 012200 07 FILLER PIC X(03).
000123 012300 07 OUT-SHR PIC X(01).
000124 012400 07 OUT-SCK PIC X(04) JUST RIGHT.
000125 012500 07 FILLER PIC X(03).
000126 012600 07 OUT-SFR PIC X(01).
000127 012700 07 OUT-SF PIC X(01).
000128 012800 07 FILLER PIC X(03).
000129 012900 07 OUT-EHR PIC X(01).
000130 013000 07 OUT-CME PIC X(04) JUST RIGHT.
000131 013100 07 FILLER PIC X(03).
000132 013200 07 OUT-EFR PIC X(01).
000133 013300 07 OUT-CEF PIC X(01).
000134 013400 07 FILLER PIC X(03).
000135 013500 07 OUT-THR PIC X(01).
000136 013600 07 OUT-CMT PIC X(04) JUST RIGHT.
000137 013700 07 FILLER PIC X(03).
000138 013800 07 OUT-TFR PIC X(01).
000139 013900 07 OUT-CTF PIC X(01).
000140 014000 07 FILLER PIC X(03).
000141 014100 07 OUT-PHR PIC X(01).
000142 014200 07 OUT-PLD PIC X(04) JUST RIGHT.
000143 014300 07 FILLER PIC X(03).
000144 014400 07 OUT-PFR PIC X(01).
000145 014500 07 OUT-PF PIC X(01).
000146 014600 07 FILLER PIC X(03).
000147 014700 07 OUT-JHR PIC X(01).
000148 014800 07 OUT-JRY PIC X(04) JUST RIGHT.
000149 014900 07 FILLER PIC X(03).
000150 015000 07 OUT-JFR PIC X(01).
000151 015100 07 OUT-JF PIC X(01).
000152 015200 07 FILLER PIC X(03).
000153 015300 07 OUT-LHR PIC X(01).
000154 015400 07 OUT-LWP PIC X(04) JUST RIGHT.
000155 015500 07 FILLER PIC X(03).
000156 015600 07 OUT-LFR PIC X(01).
000157 015700 07 OUT-LF PIC X(01).
000158 015800 07 FILLER PIC X(03).
000159 015900 07 OUT-MHR PIC X(01).
000160 016000 07 OUT-MIL PIC X(04) JUST RIGHT.
000161 016100 07 FILLER PIC X(03).
000162 016200 07 OUT-MFR PIC X(01).
000163 016300 07 OUT-MF PIC X(01).
000164 016400 07 FILLER PIC X(03).
000165 016500 03 FILLER PIC X(75).

000167 016700 01 W4-SCREEN REDEFINES W3-SCREEN.
000168 016800 03 FILLER PIC X(167).
000169 016900 03 OUT-TAB1.
000170 017000 05 OUT-R-L OCCURS 18 TIMES.
000171 017100 07 OUT-DTR1 PIC X(001).
000172 017200 07 FILLER PIC X(130).
000173 017300 03 FILLER PIC X(75).
000174 017400
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Wed Mar 24, 2010 12:47 am    Post subject:
Reply with quote

I was refering to building a single 79 (or is it 130?) byte line in WS and then moving it to one of the map output fields...
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Wed Mar 24, 2010 12:57 am    Post subject:
Reply with quote

The line is 114 bytes. I do nto know how 114 bytes fit into 79 positions but it does. Maybe the attributes and the like account for the othe bytes.

OUT-LINE is a redefines of the map that I am using. I have tried hilighting the entire line, but only the date (OUT-DATE) is higlighted.
That is why I hilighted the individual pieces.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Wed Mar 24, 2010 8:41 am    Post subject:
Reply with quote

you cant' do what you want by simply redefining the existing map.

If display only, change the map to have single 18 lines - 79 bytes
each.

Reassemble map (and new copy)

Modify your program accordingly

recomplie program (and new copy)
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Wed Mar 24, 2010 5:33 pm    Post subject:
Reply with quote

Thanks for the input everyone.

The map is not display only. I am attaching an image of the screen.
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Wed Mar 24, 2010 5:40 pm    Post subject:
Reply with quote

I tried to attach something, however, it did not work.

Sorry.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Mar 24, 2010 7:59 pm    Post subject:
Reply with quote

Hello,

Suggest you use copy/paste and the "Code" tag which will show the data the same as it appears on a 3270.

There is a Preview feature so you can see your post as it will appear to the forum (rather than the way it appears in the reply editor). When you see what you want, Submit.
Back to top
View user's profile Send private message
George Tillmon

New User


Joined: 22 Mar 2010
Posts: 27
Location: Montgomery, AL

PostPosted: Thu Apr 01, 2010 6:47 pm    Post subject:
Reply with quote

Thank you all for your assistance. However, due to workload, I am going to have to let this particular topic go for the time being.

Again, thanks.

George
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Apr 01, 2010 8:00 pm    Post subject: Reply to: Hilighting a line where multipe fields are on the
Reply with quote

You're welcome - someone will be here when you get back to this icon_smile.gif

d
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 line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts Split file based on comparsion to 2 f... Div Grad DFSORT/ICETOOL 3 Thu Jul 27, 2017 9:16 pm

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