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

Change colors in tn3270 logon screen


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
arunkumar atr

New User


Joined: 03 Dec 2008
Posts: 19
Location: Chennai

PostPosted: Tue May 05, 2009 1:40 pm
Reply with quote

Hi all,
I changed my tn3270 logon screen.But im not able to change the content color.can anyone help me out for this.

-Arun
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Tue May 05, 2009 1:51 pm
Reply with quote

Hi,

Pardon my ignorance - what is "content"?
Back to top
View user's profile Send private message
arunkumar atr

New User


Joined: 03 Dec 2008
Posts: 19
Location: Chennai

PostPosted: Tue May 05, 2009 2:40 pm
Reply with quote

Hi Anuj,
Content means the characters/symbols displayed in logon screen like my shop name/logo,time,date,ipaddress,etc.,
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Tue May 05, 2009 5:14 pm
Reply with quote

The 3270 emulator typically controls field colors. The way to change it depends upon which emulator you're using. And generally individual field colors cannot be changed -- only colors for field types (such as unprotected alphanumeric, protected numeric, etc).
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Tue May 05, 2009 5:27 pm
Reply with quote

Here are some similar links:

ibmmainframes.com/viewtopic.php?t=37961&highlight=color+colour
ibmmainframes.com/viewtopic.php?t=2947&highlight=color
ibmmainframes.com/viewtopic.php?t=26379&highlight=color
ibmmainframes.com/viewtopic.php?t=36427&highlight=color+colour
Back to top
View user's profile Send private message
MBabu

Active User


Joined: 03 Aug 2008
Posts: 400
Location: Mumbai

PostPosted: Wed May 06, 2009 8:11 am
Reply with quote

It sounds like you are creating a login screen so here is a sample of how I created one with colors a long time ago. Screen shot:


Code:
USSN     TITLE 'LOGON SCREEN'
         SPACE
         SPACE
USSN     USSTAB   FORMAT=DYNAMIC
         SPACE
LOGON    USSCMD   CMD=LOGON,REP=LOGON,FORMAT=BAL
         USSPARM  PARM=P1,REP=DATA,DEFAULT=' '
         USSPARM  PARM=LOGMODE
         USSPARM  PARM=APPLID,DEFAULT='TSO'
         SPACE
L        USSCMD   CMD=L,REP=LOGON,FORMAT=BAL
         USSPARM  PARM=P1,REP=APPLID,DEFAULT='TSO'
         USSPARM  PARM=LOGMODE
         SPACE
TSO      USSCMD   CMD=TSO,REP=LOGON,FORMAT=BAL
         USSPARM  PARM=P1,REP=DATA
         USSPARM  PARM=LOGMODE
         USSPARM  PARM=APPLID,DEFAULT='TSO'
         EJECT
&BLUE    SETC  'X''2902C0F842F1'''       SFE HI,SKIP,BLUE
&RED     SETC  'X''2902C0F842F2'''       SFE HI,SKIP,RED
&PINK    SETC  'X''2902C0F842F3'''       SFE HI,SKIP,PINK
&GREEN   SETC  'X''2902C0F842F4'''       SFE HI,SKIP,GREEN
&TURQ    SETC  'X''2902C0F842F5'''       SFE HI,SKIP,TURQ
&YELLOW  SETC  'X''2902C0F842F6'''       SFE HI,SKIP,YELLOW
&WHITE   SETC  'X''2902C0F842F7'''       SFE HI,SKIP,WHITE
USSMSG10 USSMSG   MSG=10,BUFFER=(BUF010,SCAN)
BUF010   DS    0H
         DC    AL2(END010-BUF010)
         DC    X'F5C7'                                   COMMAND + WCC
         DC    X'11',AL2(((24-1)*80)+(80-1))                 R=24,C=80
         DC    X'1DC8'                           PROTECTED,INTENSIFIED
         DC    X'11',AL2(((01-1)*80)+(01-1))                 R=01,C=01
         DC    &WHITE,C'Junksys'
         DC    X'11',AL2(((04-1)*80)+(01-1))                 R=01,C=01
         DC    &YELLOW,79C'-'
         DC    X'11',AL2(((06-1)*80)+(22-1))                 R=06,C=01
         DC    &WHITE
         DC    C'            z/OS 1.5'
         DC    X'11',AL2(((08-1)*80)+(01-1))                 R=01,C=01
         DC    &YELLOW,79C'-'
         DC    X'11',AL2(((17-1)*80)+(01-1))                 R=15,C=01
         DC    &TURQ                           SFE HI,SKIP,TURQUOISE
         DC    C'     Terminal Name ....'
         DC    &WHITE
         DC    C'@@LUNAME      '
         DC    &TURQ                           SFE HI,SKIP,TURQUOISE
         DC    C'IP Address .........'
         DC    &WHITE
         DC    C'@@@@@@@@@IPADDR'
         DC    X'11',AL2(((18-1)*80)+(01-1))                 R=16,C=01
         DC    &TURQ
         DC    C'     SSCPNAME .........'
         DC    &WHITE
         DC    C'@@SSCPNM      '
         DC    &TURQ
         DC    C'Network qual name ..'
         DC    &WHITE
         DC    C'@@@@@@@@@@@@@@NQN'
         DC    X'11',AL2(((20-1)*80)+(01-1))                 R=01,C=01
         DC    &YELLOW,79C'-'
         DC    X'11',AL2(((21-1)*80)+(01-1))                 R=20,C=01
         DC    &TURQ
         DC    C'     Enter',&YELLOW,C'LOGON userid',&TURQ,C'or'
         DC    &YELLOW,C'L CICS'
         DC    X'11',AL2(((22-1)*80)+(54-1))                 R=22,C=66
         DC    X'11',AL2(((01-1)*80)+(62-1))                 R=22,C=66
         DC    &TURQ
         DC    C'@@@@TIME @@@@DATE'
         DC    X'11',AL2(((22-1)*80)+(6-1))                 R=23,C=01
         DC    &WHITE
         DC    C'====>'
         DC    X'1D40'                                     UNPROTECTED
         DC    X'13'                                      INSERTCURSOR
         DC    X'11',AL2(((22-1)*80)+(26-1))                 R=24,C=52
         DC    &WHITE
         DC    C'<===='
         DC    X'11',AL2(((10-1)*80)+(40-1))                 R=24,C=52
         DC    &RED
         DC    C'Do not place confidential information'
         DC    X'11',AL2(((11-1)*80)+(40-1))                 R=24,C=52
         DC    &RED
         DC    C'on this system at any time.'
END010   EQU   *
         EJECT
END      USSEND
         END     ,            END OF ASSEMBLY
Back to top
View user's profile Send private message
arunkumar atr

New User


Joined: 03 Dec 2008
Posts: 19
Location: Chennai

PostPosted: Wed May 06, 2009 8:47 am
Reply with quote

Hi all
Thanks for support.I ll check it n come back.
Back to top
View user's profile Send private message
arunkumar atr

New User


Joined: 03 Dec 2008
Posts: 19
Location: Chennai

PostPosted: Thu May 07, 2009 5:51 pm
Reply with quote

Hi all,

I changed the colors.Once again Thanks for ur support

-Arun
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Thu May 07, 2009 6:07 pm
Reply with quote

Hi,

If you share your solution that can help others later, Thanks.
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 -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Reflection 3270 screen shows only 23 ... Compuware & Other Tools 6
No new posts Binary File format getting change whi... All Other Mainframe Topics 7
No new posts 3270 personal communications. Can't c... TSO/ISPF 2
No new posts SELECT from data change table DB2 5
No new posts Trying to change copybook in online c... CICS 4
Search our Forums:

Back to Top