Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
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).
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
