Este foi um procedimento que fiz para alterar a de apresentação do z/OS, ficou bem bacana;
Primeiro - O fonte para alterar: ADCD.Z*.VTAM.SOURCE(USSN) - altere e salve;
Segundo - Submeta este job para recopilar: ADCD.Z*.VTAM.SOURCE(USSNJCL)
Terceiro - Se tiver alguma duvida de como desenhar as letras acesse este site - Clique Aqui
4 - Por fim temos que dar um comando na console habilitar a tela (sem este comando teríamos que dar um IPL para ver a nova tela);
A tela estava deste jeito;
Vai ficar deste jeito
O membro ADCD.Z*.VTAM.SOURCE(USSN - esta o fonte que vamos alterar a tela de login, abaixo esta o modelo da minha alteração.
Copilar - USSNJCL
Este membro você vai copilar o fonte;
Rodando o job que vai assemblar o USSN
Com este comando não precisamos dar IPL para ver;
Abrindo o emulador de telnet, tela disponivel;
Primeiro - O fonte para alterar: ADCD.Z*.VTAM.SOURCE(USSN) - altere e salve;
Segundo - Submeta este job para recopilar: ADCD.Z*.VTAM.SOURCE(USSNJCL)
Terceiro - Se tiver alguma duvida de como desenhar as letras acesse este site - Clique Aqui
4 - Por fim temos que dar um comando na console habilitar a tela (sem este comando teríamos que dar um IPL para ver a nova tela);
A tela estava deste jeito;
Vai ficar deste jeito
z/OS Z110 Level 0809 IP Address =
VTAM Terminal = LCL703
Application Developers Controlled Distribution
## ####### ##### ####### ####### ## ###### ######
#### ## ## ## ## ## ## ## ## ## ## ## ##
## ## ## ## ## ## ## ## ## ## ## ##
## ## ## ## ## ## ## ## ## ## ## ######
######## ## ## ## ## ## ## ## ## ## ##
## ## ## ## ## ## ## ## ## ## ## ## ## ##
## ## ####### ##### ####### # ####### ## ###### ######
System Customization - ADCD.Z110.*
+------------------+--------------+----------------------------+
| IBMUSER | SYS1/IBMUSER |FULL AUTHORITY |
| ADCDMST | ADCDMST |FULL AUTHORITY |
| ADCDA - ADCDZ | TEST |LIMITED AUTHORITY(NO OMVS) |
| OPEN1 - OPEN3 | SYS1 |UID(0) (NO TSO) |
+------------------+--------------+----------------------------+
Enter "LOGON" ou "L TSO", "L CICS", "L IMS3270"
O membro ADCD.Z*.VTAM.SOURCE(USSN - esta o fonte que vamos alterar a tela de login, abaixo esta o modelo da minha alteração.
Menu Utilities Compilers Help
BROWSE ADCD.Z110.VTAM.SOURCE(USSN) - 01.17 Line 00000000 Col 001 080
Command ===> Scroll ===> PAGE
********************************* Top of Data **********************************
USSN TITLE '-- ACF/VTAM USS TABLE FOR NONSNA DEVICES'
SPACE
*/* ------------------------------------------------------------------
*/*
*/* USS TABLE FOR NONSNA DEVICES ...
*/*
*/* . CAN USE 3270 CONTROL CHARACTERS
*/*
*/* ------------------------------------------------------------------
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
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 C'z/OS Z110 Level 0809 '
DC C' IP Address = @@@@@@@@@IPADDR'
*
DC X'11',AL2(((02-1)*80)+(01-1)) R=02,C=01
DC C' '
DC C' VTAM Terminal = @@LUNAME '
*
DC X'11',AL2(((04-1)*80)+(01-1)) R=04,C=01
DC C' Application Developers Control'
DC C'led Distribution'
*
DC X'11',AL2(((05-1)*80)+(01-1)) R=05,C=01
DC C' '
DC C' '
*
DC X'11',AL2(((06-1)*80)+(01-1)) R=06,C=01
DC C' ## ####### ##### ####### #######'
DC C' ## ###### ###### '
*
DC X'11',AL2(((07-1)*80)+(01-1)) R=07,C=01
DC C' #### ## ## ## ## ## ## ## '
DC C' ## ## ## ## ##'
*
DC X'11',AL2(((08-1)*80)+(01-1)) R=08,C=01
DC C' ## ## ## ## ## ## ## ## '
DC C' ## ## ## ## '
*
DC X'11',AL2(((09-1)*80)+(01-1)) R=09,C=01
DC C' ## ## ## ## ## ## ## ## '
DC C' ## ## ## ###### '
*
DC X'11',AL2(((10-1)*80)+(01-1)) R=10,C=01
DC C' ######## ## ## ## ## ## ## '
DC C' ## ## ## ##'
*
DC X'11',AL2(((11-1)*80)+(01-1)) R=11,C=01
DC C' ## ## ## ## ## ## ## ## ## '
DC C' ## ## ## ## ##'
*
DC X'11',AL2(((12-1)*80)+(01-1)) R=12,C=01
DC C' ## ## ####### ##### ####### # ####### '
DC C'## ###### ###### '
*
DC X'11',AL2(((14-1)*80)+(01-1)) R=14,C=01
DC C' System Customization '
DC C'- ADCD.Z110.* '
*
DC X'11',AL2(((15-1)*80)+(01-1)) R=15,C=01
DC C' '
DC C' '
*
DC X'11',AL2(((16-1)*80)+(01-1)) R=16,C=01
DC C' +------------------+--------------+----'
DC C'------------------------+ '
*
DC X'11',AL2(((17-1)*80)+(01-1)) R=17,C=01
DC C' | IBMUSER | SYS1/IBMUSER |FULL'
DC C' AUTHORITY |'
*
DC X'11',AL2(((18-1)*80)+(01-1)) R=18,C=01
DC C' | ADCDMST | ADCDMST |FULL'
DC C' AUTHORITY |'
*
DC X'11',AL2(((19-1)*80)+(01-1)) R=19,C=01
DC C' | ADCDA - ADCDZ | TEST |LIMI'
DC C'TED AUTHORITY(NO OMVS) |'
*
DC X'11',AL2(((20-1)*80)+(01-1)) R=20,C=01
DC C' | OPEN1 - OPEN3 | SYS1 |UID('
DC C'0) (NO TSO) |'
*
DC X'11',AL2(((21-1)*80)+(01-1)) R=21,C=01
DC C' +------------------+--------------+----'
DC C'------------------------+'
*
DC X'11',AL2(((22-1)*80)+(01-1)) R=22,C=01
DC C' Enter "LOGON" ou "L TSO", "L C'
DC C'ICS", "L IMS3270" '
*
DC X'11',AL2(((23-1)*80)+(80-1)) R=23,C=80
DC X'1D40' UNPROTECTED
DC X'13' INSERTCURSOR
END010 EQU *
EJECT
END USSEND
END , END OF ASSEMBLYCopilar - USSNJCL
Este membro você vai copilar o fonte;
Menu Utilities Compilers Help
BROWSE ADCD.Z110.VTAM.SOURCE(USSNJCL) - 01.05 Line 00000000 Col 001 080
Command ===> Scroll ===> PAGE
********************************* Top of Data **********************************
//USSN JOB ' ','NAME',
// CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),REGION=0M,TIME=1440
//* ---------------------------------------------------
//* NONSNA USS TABLE - USSN
//*
//* TO ADCD.Z110.VTAMLIB
//* ---------------------------------------------------
//ASM EXEC PGM=ASMA90,REGION=1024K,PARM='NODECK,OBJECT'
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.SISTMAC1,DISP=SHR
//SYSUT1 DD UNIT=3390,SPACE=(CYL,(20,5))
//SYSUT2 DD UNIT=3390,SPACE=(CYL,(10,1))
//SYSUT3 DD UNIT=3390,SPACE=(CYL,(2,1))
//SYSUT4 DD UNIT=3390,SPACE=(CYL,(2,1))
//SYSUT5 DD UNIT=3390,SPACE=(CYL,(2,1)),DCB=SYS1.MACLIB,
// DISP=(,PASS)
//SYSLIN DD DSN=&&OBJ(USSN),DISP=(,PASS),
// SPACE=(CYL,(1,1,1)),UNIT=3390
//SYSIN DD DSN=ADCD.Z110.VTAM.SOURCE(USSN),DISP=SHR
//* ---------------------------------------------------
//LKED EXEC PGM=HEWLH096,COND=(0,LT),
// PARM=('SIZE=(1000K,100K),NCAL,XREF,LET,LIST')
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DSN=ADCD.Z110.VTAMLIB,DISP=SHR
//SYSUT1 DD UNIT=3390,SPACE=(6160,(230,760))
//OBJECT DD DSN=*.ASM.SYSLIN,VOL=REF=*.ASM.SYSLIN,DISP=SHR
//SYSLIN DD *
INCLUDE OBJECT(USSN)
NAME USSN(R)
******************************** Bottom of Data ********************************Rodando o job que vai assemblar o USSN
Menu Functions Confirm Utilities Help
BROWSE ADCD.Z110.VTAM.SOURCE Row 00007 of 00011
Command ===> Scroll ===> PAGE
Name Prompt Size Created Changed ID
sub______ USSNJCL *Browsed 31 2008/11/06 2015/11/03 01:07:08 IBMUSER
_________ USSN0 121 2008/11/06 2008/11/06 15:51:57 IBMUSER
_________ USSN1 117 2008/11/06 2008/11/06 15:51:57 IBMUSER
_________ USSN100 121 2008/11/06 2015/11/02 22:58:45 ADCDMST
_________ USSN2 122 2008/11/06 2015/11/03 02:08:11 IBMUSER
**End**
IKJ56250I JOB USSN(JOB00829) SUBMITTED
***02.21.29 JOB00829 $HASP165 USSN ENDED AT N1 MAXCC=0 CN(INTERNAL)
*** Menu Functions Confirm Utilities Help
BROWSE ADCD.Z110.VTAM.SOURCE Row 00007 of 00011
Command ===> Scroll ===> PAGE
Name Prompt Size Created Changed ID
_________ USSNJCL *RC=0 31 2008/11/06 2015/11/03 01:07:08 IBMUSER
_________ USSN0 121 2008/11/06 2008/11/06 15:51:57 IBMUSER
_________ USSN1 117 2008/11/06 2008/11/06 15:51:57 IBMUSER
_________ USSN100 121 2008/11/06 2015/11/02 22:58:45 ADCDMST
_________ USSN2 122 2008/11/06 2015/11/03 02:08:11 IBMUSER
**End**Com este comando não precisamos dar IPL para ver;
F VTAM,TABLE,OPTION=LOAD,NEWTAB=USSN *23.33.14 STC00798 *01 DFHPA1909 CICS DATA 216 IS INVALID FOR KEYWORD
* CICSSVC=. RESPECIFY KEYWORD AND DATA.
- 02.22.30 F VTAM,TABLE,OPTION=LOAD,NEWTAB=USSN
02.22.30 STC00777 IST097I MODIFY ACCEPTED
02.22.30 STC00777 IST865I MODIFY TABLE COMMAND COMPLETE-TABLE USSN LOADED
IST864I NEWTAB=USSN, OLDTAB=USSN, OPT=LOAD, TYPE=**NA**
IEE612I CN=L700 DEVNUM=0700 SYS=ADCD
F VTAM,TABLE,OPTION=LOAD,NEWTAB=USSNAbrindo o emulador de telnet, tela disponivel;
z/OS Z110 Level 0809 IP Address =
VTAM Terminal = LCL703
Application Developers Controlled Distribution
## ####### ##### ####### ####### ## ###### ######
#### ## ## ## ## ## ## ## ## ## ## ## ##
## ## ## ## ## ## ## ## ## ## ## ##
## ## ## ## ## ## ## ## ## ## ## ######
######## ## ## ## ## ## ## ## ## ## ##
## ## ## ## ## ## ## ## ## ## ## ## ## ##
## ## ####### ##### ####### # ####### ## ###### ######
System Customization - ADCD.Z110.*
+------------------+--------------+----------------------------+
| IBMUSER | SYS1/IBMUSER |FULL AUTHORITY |
| ADCDMST | ADCDMST |FULL AUTHORITY |
| ADCDA - ADCDZ | TEST |LIMITED AUTHORITY(NO OMVS) |
| OPEN1 - OPEN3 | SYS1 |UID(0) (NO TSO) |
+------------------+--------------+----------------------------+
Enter "LOGON" ou "L TSO", "L CICS", "L IMS3270"
Encontrei um site que o cara ensina como se faz isso e é bem maneiro:
ResponderEliminarhttp://emuframe.com/index.php/31-modificando-la-pantalla-de-logon-vtam
Espero que curtam