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

Hilighting a line where multipe fields are on the line


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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: 2146
Location: At my coffee table

PostPosted: Wed Mar 24, 2010 12:04 am
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
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: 2146
Location: At my coffee table

PostPosted: Wed Mar 24, 2010 12:47 am
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
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
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
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
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

Moderator Emeritus


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

PostPosted: Wed Mar 24, 2010 7:59 pm
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
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

Moderator Emeritus


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

PostPosted: Thu Apr 01, 2010 8:00 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Reading dataset in Python - New Line ... All Other Mainframe Topics 22
No new posts rewrite same SAY line CLIST & REXX 8
No new posts Merge files with a key and insert a b... DFSORT/ICETOOL 6
No new posts Repeat a DD line- comment and insert ... CA Products 3
Search our Forums:

Back to Top