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
 

 

Change colors in tn3270 logon screen

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
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    Post subject: Change colors in tn3270 logon screen
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

Senior Member


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

PostPosted: Tue May 05, 2009 1:51 pm    Post subject:
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    Post subject:
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: 8119
Location: East Dubuque, Illinois, USA

PostPosted: Tue May 05, 2009 5:14 pm    Post subject:
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

Senior Member


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

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

Here are some similar links:

http://ibmmainframes.com/viewtopic.php?t=37961&highlight=color+colour
http://ibmmainframes.com/viewtopic.php?t=2947&highlight=color
http://ibmmainframes.com/viewtopic.php?t=26379&highlight=color
http://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: 401
Location: Mumbai

PostPosted: Wed May 06, 2009 8:11 am    Post subject:
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    Post subject:
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    Post subject:
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

Senior Member


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

PostPosted: Thu May 07, 2009 6:07 pm    Post subject: Reply to: Change colors in tn3270 logon screen
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    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm
No new posts Fail to change physical VSAM filename... jacobdng CICS 7 Fri Jan 20, 2017 12:36 pm
No new posts IMS DC screen Access sivasaras IMS DB/DC 3 Fri Nov 18, 2016 6:38 pm
No new posts Change date (DD/MM/YY) in 2nd record ... uday kiran DFSORT/ICETOOL 12 Wed Sep 07, 2016 10:57 pm


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