MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

3270 hardware orders in data of ispf table

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10
PostPosted: Fri Dec 12, 2008 2:53 pm    Post subject: 3270 hardware orders in data of ispf table Reply with quote
I want to change the color in an ISPF table field by placing hardware orders in the data, but it will not work this way:
Code:

sccid.='<<< CCID not found'                                           
do i=1 to ccid.0                                                     
  ccid=substr(ccid.i,1,10)                                           
  if substr(ccid.i,33,1)='Y' then,                                   
     vccid=substr(ccid.i,14,1)' 'substr(ccid.i,33,40) 
/* trying to replace the space with a 3270 extended hardware order */             
  else                                                               
   /*vccid=substr(ccid.i,14,1)' 'substr(ccid.i,33,40)*/                 
     vccid=substr(ccid.i,14,1)'[color=red]2902c20fc0f0[/color]'x||substr(ccid.i,33,40) 
  sccid.ccid=vccid                                                   
end     

I want to replace the 2nd byte of variable vccid with an attribute byte

this is part of the result:
Code:

                        Row 22 to 26 of 26
                      SCROLL ===> CSR 
                                       
    impact==>| |<==within window?       
 CCID#         | | CCID status           
   - - - - - - - - | | - - - - - - - - - - - -
 C081100314 4[color=red]..B.{[/color]0N,FIX 2,open,pendin
BCBS PER     :         C0505123       
  C081100821 <<< CCID not found         
904-905-2154  DC6:5 C0378  C0505211   
  C081100523 4 Y,FIX 2,open,approved   

The orders have become part of the data. How do I do this?
Back to top
View user's profile Send private message Send e-mail
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
PostPosted: Fri Dec 12, 2008 3:11 pm    Post subject: Reply with quote
You can't. Unlike CICS, ISPF runs the data through translate tables to convert the invalid data to something displayable.

If you need field or character level coloring of a display of table data, you'll need to format it yourself using a dynamic area and possibly a shadow variable.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group