Essa tela de login do mainframe pode ter vários nomes (tela VTAM, tela 3270, tela Telnet), mas como você chama, é apenas a tela usada para fazer logon. Como acontece com tudo no mundo do mainframe, é ridícula e estupidamente difícil obter uma resposta direta. Por exemplo, veja esta pergunta nos grupos do Google para uma pergunta realmente simples: Manuais sobre como modificar a tela de logon do VTAM? Quantas páginas você acha que são? Na verdade, não é tão difícil quanto esses idiotas fazem parecer, mas pelo menos essas pessoas foram úteis em comparação com esta postagem no fórum, onde um cara é ridicularizado por uma simples pergunta “Como alterar a tela de login?“.
Esse é o JCL que vai alterar a tela
Vamos criar ele na biblioteca - opção 3.4
ADCD.Z*.PROCLIB
Vamos editar
Vamos marcar o primeiro (ARCHJCL) com c de copiar
To Other Data Set Name - 'ADCD.Z110.PROCLIB' vamos criar o membro com o nome $$tela
Copiado - vamos dar PF3 e voltar
Vamos voltar B
$$tela vai estar no topo - vamos editar - e
RES (enter)
d99999 - na linha 000001 vamos colocar d99999 - para deletar todas as linhas
abaixo de Command vamos colocar a letra i (enter)
Depois de colar a primeira linha (enter) vai liberar a segunda linha
Segunda linha colado
ao colar todo o JCL vamos salvar - Save (enter)
vamos submeter - sub
Rodou ok - MAXCC=0
Vamos ver o job - opção m
Opção 5
opção ST
PREFIX *
PF8
S em USSSCHG para a gente visualizar
Rodou ok
Vamos dar o comando na console para atualizar o proximo login
Ao abrir uma nova tela vai estar tudo novo
Outra tela
jcl
Na console vamos dar o comando
Outra tela
JCL
Comando na console
 |
 |
//USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,
//* TYPRUN=SCAN,
// MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID
//*
//BUILD EXEC ASMACL
//C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//C.SYSIN DD *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
MACRO
&NAME SCREEN &MSG=™,&TEXT=™
AIF ('&MSG' EQ '™' OR '&TEXT' EQ '™').END
LCLC &BFNAME,&BFSTART,&BFEND
&BFNAME SETC 'BUF'.'&MSG'
&BFBEGIN SETC '&BFNAME'.'B'
&BFEND SETC '&BFNAME'.'E'
.BEGIN DS 0F
&BFNAME DC AL2(&BFEND-&BFBEGIN) MESSAGE LENGTH
&BFBEGIN EQU * START OF MESSAGE
DC X'F57A' ERASE/WRITE, WCC
DC X'110000' SBA, 0000 ROW 00 COL 01
DC X'290242F6C0E0' SFE, PROTECTED/NORMAL/YELLOW
DC C'Mainframe Operating System '
DC C' z/OS V1.10'
* NEXT ELEVEN LINES DISPLAYS LOGOs
DC X'110050' SBA, 0080 ROW 01 COL 01
DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
DC C' '
DC C' '
DC C' '
DC C' '
DC C' '
DC C' '
DC C' '
DC C' '
DC C' SSSS Y Y SSS'
DC C'S AAA '
DC C' S Y Y S '
DC C' A A '
DC C' SSS Y SSS'
DC C' AAAAA '
DC C' S Y '
DC C'S A A '
DC C' SSSS Y SSSS'
DC C' A A '
DC C' '
DC C' '
DC C' '
DC C' '
DC X'110410' SBA, 0960 ROW 12 COL 01
DC X'290242F4C0E0' SFE, PROTECTED/NORMAL/GREEN
DC C' Welcome to SYSA Mainf'
DC C'rame System! '
DC X'1104B0' SBA, 1120 ROW 14 COL 01
DC X'290242F5C0E0' SFE, PROTECTED/NORMAL/PURPLE
DC C' '
DC C' '
.* APPLICATION: TSO
DC X'110508' APPLICATION POSITION
DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
DC C'TSO' APPLICATION NAME
DC X'110511' DESCRIPTION POSITION
DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
DC C'- Logon to TSO/ISPF' APPLICATION DESCRIPTION
.* APPLICATION: NETVIEW
DC X'11052C' APPLICATION POSITION
DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
DC C'CNM01' APPLICATION NAME
DC X'110535' DESCRIPTION POSITION
DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
DC C'- Netview System' APPLICATION DESCRIPTION
.* APPLICATION: CICSTS32
DC X'110558' APPLICATION POSITION
DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
DC C'CICSTS32' APPLICATION NAME
DC X'110561' DESCRIPTION POSITION
DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
DC C'- CICS System' APPLICATION DESCRIPTION
.* APPLICATION: SA
DC X'11057C' APPLICATION POSITION
DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
DC C'SA' APPLICATION NAME
DC X'110585' DESCRIPTION POSITION
DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
DC C'- System Automation' APPLICATION DESCRIPTION
.* APPLICATION: IMS
DC X'1105A8' APPLICATION POSITION
DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
DC C'IMS' APPLICATION NAME
DC X'1105B1' DESCRIPTION POSITION
DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
DC C'- IMS System' APPLICATION DESCRIPTION
.* OTHER INFORMATION
DC X'110640' SBA, 1600 ROW 21 COL 01
DC C'Enter your choice==>'
DC X'110654' SBA, 1622 ROW 21 COL 22
DC X'290242F2C0C8' SFE, UNPROTECTED/NORMAL
DC X'13' INSERT CURSOR
DC X'11068F' SBA, 1690 ROW 22 COL 01
DC X'290242F6C0E0' SFE, PROTECTED/NORMAL/YELLOW
DC C&TEXT USS MESSAGES
DC X'11072F' SBA, 1840 ROW 24 COL 01
DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/GREEN
DC C'Your IP(@@@@@@@@@IPADDR:@@PRT), SNA LU(@@LUNAME)'
DC C' @@@@DATE @@@@TIME'
&BFEND EQU * END OF MESSAGE
.END MEND
*
*
* ..............
USSTAB USSTAB TABLE=STDTRANS,FORMAT=DYNAMIC
* SPACE
TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL TSO
USSPARM PARM=APPLID,DEFAULT=TSO
USSPARM PARM=P1,REP=DATA
* SPACE
CNM01 USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=CNM01
CICS USSCMD CMD=CICS,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=CICS
IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=IMS81CR1
SA USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=CNM01
* SPACE
USSMSG MSG=00,BUFFER=(BUF00,SCAN)
USSMSG MSG=01,BUFFER=(BUF01,SCAN)
USSMSG MSG=02,BUFFER=(BUF02,SCAN)
USSMSG MSG=03,BUFFER=(BUF03,SCAN)
* USSMSG MSG=04,BUFFER=(BUF04,SCAN)
USSMSG MSG=05,BUFFER=(BUF05,SCAN)
USSMSG MSG=06,BUFFER=(BUF06,SCAN)
USSMSG MSG=08,BUFFER=(BUF08,SCAN)
USSMSG MSG=10,BUFFER=(BUF10,SCAN)
USSMSG MSG=11,BUFFER=(BUF11,SCAN)
USSMSG MSG=12,BUFFER=(BUF12,SCAN)
USSMSG MSG=14,BUFFER=(BUF14,SCAN)
* SPACE
STDTRANS DC X'000102030440060708090A0B0C0D0E0F'
DC X'101112131415161718191A1B1C1D1E1F'
DC X'202122232425262728292A2B2C2D2E2F'
DC X'303132333435363738393A3B3C3D3E3F'
DC X'404142434445464748494A4B4C4D4E4F'
DC X'505152535455565758595A5B5C5D5E5F'
DC X'604062636465666768696A6B6C6D6E6F'
DC X'707172737475767778797A7B7C7D7E7F'
DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'
DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'
DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'
DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
END USSEND
* SPACE
*********************************************************************** ********
*DEFAULT MESSAGE PROVIDED BY VTAM:
* MSG 00: IST457I POSITIVE command COMMAND RESPONSE
* MSG 01: IST450I INVALID command COMMAND SYNTAX
* MSG 02: IST451I command COMMAND UNRECOGNIZED, PARAMETER=parameter
* MSG 03: IST452I parameter PARAMETER EXTRANEOUS
* MSG 04: IST453I parameter PARAMETER VALUE value NOT VALID
* MSG 05: N/A
* MSG 06: IST792I NO SUCH SESSION EXISTS
* MSG 07: N/A
* MSG 08: IST454I command COMMAND FAILED, INSUFFICIENT STORAGE
* MSG 09: N/A
* MSG 10: READY
* MSG 11: IST455I parameters SESSIONS ENDED
* MSG 12: IST456I keyword REQUIRED PARAMETER OMITTED
* MSG 13: N/A
* MSG 14: IST458I USS MESSAGE number NOT DEFINED
*********************************************************************** ********
* CUSTOMIZED USS MESSAGES:
SCREEN MSG=00,TEXT='Command is in progress...'
SCREEN MSG=01,TEXT='Invalid command or syntax'
SCREEN MSG=02,TEXT='Invalid Command'
SCREEN MSG=03,TEXT='Parameter is unrecognized!'
* SCREEN MSG=04,TEXT='Parameter with value is invalid'
SCREEN MSG=05,TEXT='The key you pressed is inactive'
SCREEN MSG=06,TEXT='There is not such session.'
SCREEN MSG=08,TEXT='Command failed as storage shortage.'
SCREEN MSG=10,TEXT='Enter one of above commands in red'
SCREEN MSG=11,TEXT='Your session has ended'
SCREEN MSG=12,TEXT='Required parameter is missing'
SCREEN MSG=14,TEXT='There is an undefined USS message'
END
/*
//L.SYSLMOD DD DISP=SHR,DSN=ADCD.Z110.VTAMLIB
//L.SYSIN DD *
NAME USSN(R)
//*
Vamos criar ele na biblioteca - opção 3.4
Menu Utilities Compilers Options Status Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
ISPF Primary Option Menu
Option ===> 3.4
0 Settings Terminal and user parameters User ID . : IBMUSER
1 View Display source data or listings Time. . . : 18:01
2 Edit Create or change source data Terminal. : 3278
3 Utilities Perform utility functions Screen. . : 1
4 Foreground Interactive language processing Language. : ENGLISH
5 Batch Submit job for language processing Appl ID . : ISR
6 Command Enter TSO or Workstation commands TSO logon : ISPFPROC
7 Dialog Test Perform dialog testing TSO prefix:
9 IBM Products IBM program development products System ID : ADCD
10 SCLM SW Configuration Library Manager MVS acct. : ACCT#
11 Workplace ISPF Object/Action Workplace Release . : ISPF 6.0
M More Additional IBM Products
Enter X to Terminate using log/list defaults
ADCD.Z*.PROCLIB
Menu RefList RefMode Utilities Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
Data Set List Utility
Option ===>
blank Display data set list P Print data set list
V Display VTOC information PV Print VTOC information
Enter one or both of the parameters below:
Dsname Level . . . ADCD.Z*.PROCLIB
Volume serial . .
Data set list options
Initial View Enter "/" to select option
1 1. Volume / Confirm Data Set Delete
2. Space / Confirm Member Delete
3. Attrib / Include Additional Qualifiers
4. Total / Display Catalog Name
Display Total Tracks
When the data set list is displayed, enter either:
"/" on the data set list command field for the command prompt pop-up,
an ISPF line command, the name of a TSO command, CLIST, or REXX exec, or
"=" to execute the previous command.
Vamos editar
Menu Options View Utilities Compilers Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
DSLIST - Data Sets Matching ADCD.Z*.PROCLIB Row 1 of 1
Command ===> Scroll ===> PAGE
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
e ADCD.Z110.PROCLIB ZARES1
***************************** End of Data Set list ****************************
Vamos marcar o primeiro (ARCHJCL) com c de copiar
Menu Functions Confirm Utilities Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
EDIT ADCD.Z110.PROCLIB Row 00001 of 00121
Command ===> Scroll ===> PAGE
Name Prompt Size Created Changed ID
c________ ARCHJCL 69 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CAJCL 76 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CICSA 121 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CICSB 121 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CSA 177 2008/11/06 2024/05/17 17:52:37 IBMUSER
_________ CSQ7CHIN 122 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CSQ7MSTR 145 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DBSPROC8 162 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DBSPROC9 162 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB2IRLM 28 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GCICS 34 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GDBM1 24 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GDIST 11 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GIRLM 32 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GMSTR 18 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GRFSH 17 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GWLMA 65 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GWLMC 68 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GWLMD 66 2008/11/06 2008/11/06 15:49:25 IBMUSER
To Other Data Set Name - 'ADCD.Z110.PROCLIB' vamos criar o membro com o nome $$tela
RefList Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
COPY Entry Panel
Command ===>
More: +
CURRENT from data set: 'ADCD.Z110.PROCLIB(ARCHJCL)'
To Library Options:
Project . . . Enter "/" to select option
Group . . . . Replace like-named members
Type . . . . / Process member aliases
To Other Data Set Name
Name . . . . . . . 'ADCD.Z110.PROCLIB'
Volume Serial . . . (If not cataloged)
NEW member name . . . $$tela (Blank unless member to be renamed)
Options
Sequential Disposition Pack Option SCLM Setting
2 1. Mod 1 1. Default 3 1. SCLM
2. Old 2. Pack 2. Non-SCLM
3. As is
Copiado - vamos dar PF3 e voltar
Menu Functions Confirm Utilities Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
EDIT ADCD.Z110.PROCLIB Row 00001 of 00121
Command ===> Scroll ===> PAGE
Name Prompt Size Created Changed ID
_________ ARCHJCL *Copied 69 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CAJCL 76 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CICSA 121 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CICSB 121 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CSA 177 2008/11/06 2024/05/17 17:52:37 IBMUSER
_________ CSQ7CHIN 122 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CSQ7MSTR 145 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DBSPROC8 162 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DBSPROC9 162 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB2IRLM 28 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GCICS 34 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GDBM1 24 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GDIST 11 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GIRLM 32 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GMSTR 18 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GRFSH 17 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GWLMA 65 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GWLMC 68 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GWLMD 66 2008/11/06 2008/11/06 15:49:25 IBMUSER
Vamos voltar B
Menu Options View Utilities Compilers Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
DSLIST - Data Sets Matching ADCD.Z*.PROCLIB 1 Member processed
Command ===> Scroll ===> PAGE
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
b ADCD.Z110.PROCLIB Edited ZARES1
***************************** End of Data Set list ****************************
$$tela vai estar no topo - vamos editar - e
Menu Functions Confirm Utilities Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
BROWSE ADCD.Z110.PROCLIB Row 00001 of 00122
Command ===> Scroll ===> PAGE
Name Prompt Size Created Changed ID
e________ $$TELA 69 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ ARCHJCL 69 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CAJCL 76 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CICSA 121 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CICSB 121 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CSA 177 2008/11/06 2024/05/17 17:52:37 IBMUSER
_________ CSQ7CHIN 122 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ CSQ7MSTR 145 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DBSPROC8 162 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DBSPROC9 162 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB2IRLM 28 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GCICS 34 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GDBM1 24 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GDIST 11 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GIRLM 32 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GMSTR 18 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GRFSH 17 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GWLMA 65 2008/11/06 2008/11/06 15:49:25 IBMUSER
_________ DB8GWLMC 68 2008/11/06 2008/11/06 15:49:25 IBMUSER
RES (enter)
File Edit Edit_Settings Menu Utilities Compilers Test Help ¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢ EDIT ADCD.Z110.PROCLIB($$TELA) - 01.00 Columns 00001 00072 Command ===> res Scroll ===> CSR ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 //* 000002 //********************************************************************* 000003 //* IVP IMS 10.1 000004 //* 000005 //* SKELETON: DFSIXS33 000006 //* 000007 //* FUNCTION: IVP SKELETAL JCL FOR DBRC GENJCL.ARCHIVE 000008 //********************************************************************* 000009 //* 000010 //************************************************************@SCPYRT** 000011 //* * 000012 //* LICENSED MATERIALS - PROPERTY OF IBM * 000013 //* * 000014 //* 5635-A01 * 000015 //* * 000016 //* (C) COPYRIGHT IBM CORP. 1989,1998 ALL RIGHTS RESERVED * 000017 //* *
d99999 - na linha 000001 vamos colocar d99999 - para deletar todas as linhas
File Edit Edit_Settings Menu Utilities Compilers Test Help ¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢ EDIT ADCD.Z110.PROCLIB($$TELA) - 01.00 Columns 00001 00072 Command ===> Scroll ===> CSR ****** ***************************** Top of Data ****************************** d99999 //* 000002 //********************************************************************* 000003 //* IVP IMS 10.1 000004 //* 000005 //* SKELETON: DFSIXS33 000006 //* 000007 //* FUNCTION: IVP SKELETAL JCL FOR DBRC GENJCL.ARCHIVE 000008 //********************************************************************* 000009 //* 000010 //************************************************************@SCPYRT** 000011 //* * 000012 //* LICENSED MATERIALS - PROPERTY OF IBM * 000013 //* * 000014 //* 5635-A01 * 000015 //* * 000016 //* (C) COPYRIGHT IBM CORP. 1989,1998 ALL RIGHTS RESERVED * 000017 //* * 000018 //* US GOVERNMENT USERS RESTRICTED RIGHTS - USE, DUPLICATION OR * 000019 //* DISCLOSURE RESTRICTED BY GSA ADP SCHEDULE CONTRACT WITH *
abaixo de Command vamos colocar a letra i (enter)
File Edit Edit_Settings Menu Utilities Compilers Test Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
EDIT ADCD.Z110.PROCLIB($$TELA) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
i***** ***************************** Top of Data ******************************
****** **************************** Bottom of Data ****************************
Depois de colar a primeira linha (enter) vai liberar a segunda linha
File Edit Edit_Settings Menu Utilities Compilers Test Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
EDIT ADCD.Z110.PROCLIB($$TELA) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,
''''''
****** **************************** Bottom of Data ****************************
Segunda linha colado
File Edit Edit_Settings Menu Utilities Compilers Test Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
EDIT ADCD.Z110.PROCLIB($$TELA) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,
000002 //* TYPRUN=SCAN,
''''''
****** **************************** Bottom of Data ****************************
ao colar todo o JCL vamos salvar - Save (enter)
File Edit Edit_Settings Menu Utilities Compilers Test Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
EDIT ADCD.Z110.PROCLIB($$tela) - 01.02 Columns 00001 00072
Command ===> save Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,
000002 //* TYPRUN=SCAN,
000003 // MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID
000004 //* ------------------------------------------------------------------
000005 //* ALTERACAO DA TELA DO INICIO DE LOGIN
000006 //* ------------------------------------------------------------------
000007 //BUILD EXEC ASMACL
000008 //C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR
000009 // DD DSN=SYS1.MACLIB,DISP=SHR
000010 //C.SYSIN DD *
000011 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000012 MACRO
000013 &NAME SCREEN &MSG=(TM),&TEXT=(TM)
000014 AIF ('&MSG' EQ '(TM)' OR '&TEXT' EQ '(TM)').END
000015 LCLC &BFNAME,&BFSTART,&BFEND
000016 &BFNAME SETC 'BUF'.'&MSG'
000017 &BFBEGIN SETC '&BFNAME'.'B'
000018 &BFEND SETC '&BFNAME'.'E'
000019 .BEGIN DS 0F
vamos submeter - sub
File Edit Edit_Settings Menu Utilities Compilers Test Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
EDIT ADCD.Z110.PROCLIB(CSA) - 01.02 Columns 00001 00072
Command ===> sub Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,
000002 //* TYPRUN=SCAN,
000003 // MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID
000004 //* ------------------------------------------------------------------
000005 //* ALTERACAO DA TELA DO INICIO DE LOGIN
000006 //* ------------------------------------------------------------------
000007 //BUILD EXEC ASMACL
000008 //C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR
000009 // DD DSN=SYS1.MACLIB,DISP=SHR
000010 //C.SYSIN DD *
000011 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000012 MACRO
000013 &NAME SCREEN &MSG=(TM),&TEXT=(TM)
000014 AIF ('&MSG' EQ '(TM)' OR '&TEXT' EQ '(TM)').END
000015 LCLC &BFNAME,&BFSTART,&BFEND
000016 &BFNAME SETC 'BUF'.'&MSG'
000017 &BFBEGIN SETC '&BFNAME'.'B'
000018 &BFEND SETC '&BFNAME'.'E'
000019 .BEGIN DS 0F
Rodou ok - MAXCC=0
17.08.54 JOB00045 $HASP165 USSSCHG ENDED AT N1 MAXCC=0 CN(INTERNAL) ***
Vamos ver o job - opção m
Menu Utilities Compilers Options Status Help
¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢¢
ISPF Primary Option Menu
Option ===> m
0 Settings Terminal and user parameters User ID . : IBMUSER
1 View Display source data or listings Time. . . : 18:24
2 Edit Create or change source data Terminal. : 3278
3 Utilities Perform utility functions Screen. . : 1
4 Foreground Interactive language processing Language. : ENGLISH
5 Batch Submit job for language processing Appl ID . : ISR
6 Command Enter TSO or Workstation commands TSO logon : ISPFPROC
7 Dialog Test Perform dialog testing TSO prefix:
9 IBM Products IBM program development products System ID : ADCD
10 SCLM SW Configuration Library Manager MVS acct. : ACCT#
11 Workplace ISPF Object/Action Workplace Release . : ISPF 6.0
M More Additional IBM Products
Enter X to Terminate using log/list defaults
Opção 5
Menu Help
------------------------------------------------------------------------------
IBM Products Panel
Option ===> 5
1 SMP/E System Modification Program/Extended
2 ISMF Integrated Storage Management Facility
3 RACF Resource Access Control Facility
4 HCD Hardware Configuration Dialogs
5 SDSF Spool Search and Display Facility
6 IPCS Interactive Problem Control System
7 DITTO DITTO/ESA for MVS Version 1
8 RMF Resource Measurement Facility
10 OMVS MVS OpenEdition
11 RRS Resource Recovery Services
12 MQ WMQ Series Operations and Control
13 FMN File Manager 3.1.0perations and Control
14 WLM Workload Manager
opção ST
Display Filter View Print Options Help
-------------------------------------------------------------------------------
HQX7750 ----------------- SDSF PRIMARY OPTION MENU --------------------------
COMMAND INPUT ===> st SCROLL ===> CSR
DA Active users INIT Initiators
I Input queue PR Printers
O Output queue PUN Punches
H Held output queue RDR Readers
ST Status of jobs LINE Lines
NODE Nodes
LOG System log SO Spool offload
MAS Members in the MAS
JC Job classes ULOG User session log
SE Scheduling environments
RES WLM resources
END Exit SDSF
PREFIX *
Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 1-19 (34)
COMMAND INPUT ===> prefix * SCROLL ===> CSR
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
IBMUSER TSU00044 IBMUSER 15 EXECUTION SYS1 SYS1
SYSLOG STC00002 +MASTER+ 15 EXECUTION SYS1 SYS1
VTAM STC00003 START1 15 EXECUTION SYS1 SYS1
ZFS STC00004 ++++++++ 15 EXECUTION SYS1 SYS1
INIT STC00006 START2 15 EXECUTION SYS1 SYS1
INIT STC00007 START2 15 EXECUTION SYS1 SYS1
INIT STC00008 START2 15 EXECUTION SYS1 SYS1
INIT STC00009 START2 15 EXECUTION SYS1 SYS1
INIT STC00010 START2 15 EXECUTION SYS1 SYS1
INIT STC00011 START2 15 EXECUTION SYS1 SYS1
INIT STC00012 START2 15 EXECUTION SYS1 SYS1
INIT STC00013 START2 15 EXECUTION SYS1 SYS1
INIT STC00014 START2 15 EXECUTION SYS1 SYS1
INIT STC00015 START2 15 EXECUTION SYS1 SYS1
TSO STC00016 START1 15 EXECUTION SYS1 SYS1
SDSF STC00018 START2 15 EXECUTION SYS1 SYS1
TCPIP STC00020 TCPIP 15 EXECUTION SYS1 SYS1
TN3270 STC00021 START2 15 EXECUTION SYS1 SYS1
DB9GMSTR STC00022 START2 15 EXECUTION SYS1 SYS1
PF8
Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 1-19 (34)
COMMAND INPUT ===> SCROLL ===> CSR
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
IBMUSER TSU00044 IBMUSER 15 EXECUTION SYS1 SYS1
SYSLOG STC00002 +MASTER+ 15 EXECUTION SYS1 SYS1
VTAM STC00003 START1 15 EXECUTION SYS1 SYS1
ZFS STC00004 ++++++++ 15 EXECUTION SYS1 SYS1
INIT STC00006 START2 15 EXECUTION SYS1 SYS1
INIT STC00007 START2 15 EXECUTION SYS1 SYS1
INIT STC00008 START2 15 EXECUTION SYS1 SYS1
INIT STC00009 START2 15 EXECUTION SYS1 SYS1
INIT STC00010 START2 15 EXECUTION SYS1 SYS1
INIT STC00011 START2 15 EXECUTION SYS1 SYS1
INIT STC00012 START2 15 EXECUTION SYS1 SYS1
INIT STC00013 START2 15 EXECUTION SYS1 SYS1
INIT STC00014 START2 15 EXECUTION SYS1 SYS1
INIT STC00015 START2 15 EXECUTION SYS1 SYS1
TSO STC00016 START1 15 EXECUTION SYS1 SYS1
SDSF STC00018 START2 15 EXECUTION SYS1 SYS1
TCPIP STC00020 TCPIP 15 EXECUTION SYS1 SYS1
TN3270 STC00021 START2 15 EXECUTION SYS1 SYS1
DB9GMSTR STC00022 START2 15 EXECUTION SYS1 SYS1
S em USSSCHG para a gente visualizar
Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF STATUS DISPLAY ALL CLASSES LINE 20-34 (34)
COMMAND INPUT ===> SCROLL ===> CSR
NP JOBNAME JobID Owner Prty Queue C Pos SAff ASys Status
RACF STC00023 START2 15 EXECUTION SYS1 SYS1
DB9GIRLM STC00024 START2 15 EXECUTION SYS1 SYS1
CICSA STC00025 START2 15 EXECUTION SYS1 SYS1
DB9GDBM1 STC00026 START2 15 EXECUTION SYS1 SYS1
HTTPD1 STC00027 WEBSRV 15 EXECUTION SYS1 SYS1
NFSS STC00028 START1 15 EXECUTION SYS1 SYS1
CSQ7MSTR STC00030 START2 15 EXECUTION SYS1 SYS1
DB9GDIST STC00031 START2 15 EXECUTION SYS1 SYS1
NFSC STC00032 START2 15 EXECUTION SYS1 SYS1
BPXAS STC00034 START2 15 EXECUTION SYS1 SYS1
BPXAS STC00036 START2 15 EXECUTION SYS1 SYS1
BPXAS STC00039 START2 15 EXECUTION SYS1 SYS1
PORTMAP STC00043 START2 15 EXECUTION SYS1 SYS1
S USSSCHG JOB00046 IBMUSER 1 PRINT A
$MASCOMM STC00001 START1 15 PRINT
Rodou ok
Display Filter View Print Options Help
-------------------------------------------------------------------------------
SDSF OUTPUT DISPLAY USSSCHG JOB00045 DSID 2 LINE 0 COLUMNS 02- 81
COMMAND INPUT ===> SCROLL ===> PAGE
********************************* TOP OF DATA **********************************
J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N
17.08.52 JOB00045 ---- FRIDAY, 17 MAY 2024 ----
17.08.52 JOB00045 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB.
17.08.53 JOB00045 ICH70001I IBMUSER LAST ACCESS AT 16:49:57 ON FRIDAY, MAY 17,
17.08.53 JOB00045 $HASP373 USSSCHG STARTED - INIT 1 - CLASS A - SYS SYS1
17.08.53 JOB00045 IEF403I USSSCHG - STARTED - TIME=17.08.53
17.08.53 JOB00045 IEF404I USSSCHG - ENDED - TIME=17.08.53
17.08.53 JOB00045 $HASP395 USSSCHG ENDED
------ JES2 JOB STATISTICS ------
17 MAY 2024 JOB EXECUTION DATE
175 CARDS READ
2,016 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
199 SYSOUT SPOOL KBYTES
0.01 MINUTES EXECUTION TIME
1 //USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,
//* TYPRUN=SCAN,
// MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID
//*
IEFC653I SUBSTITUTION JCL - (JOBNAME),'CREATE USS SCREEN ',CLASS=A,MSG
2 //BUILD EXEC ASMACL
3 XXASMACL PROC
XX*
XX********************************************************************
XX*
XX* Licensed Materials - Property of IBM
XX*
XX* 5696-234 5694-A01
XX*
XX* Copyright IBM Corporation 1992, 2008 All Rights Reserved.
XX*
XX* US Government Users Restricted Rights - Use, duplication
XX* or disclosure restricted by GSA ADP Schedule Contract
XX* with IBM Corp.
XX*
XX********************************************************************
XX*
XX* ASMACL
XX*
XX* This procedure runs the High Level Assembler, link-edits the
XX* newly assembled program.
XX*
XX********************************************************************
XX*
4 XXC EXEC PGM=ASMA90
XX*
5 //C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR
X/SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
6 // DD DSN=SYS1.MACLIB,DISP=SHR
7 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND),
XX UNIT=SYSALLDA,BUFNO=1
8 XXSYSPRINT DD SYSOUT=*
9 XXSYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND),
XX UNIT=SYSALLDA,DISP=(MOD,PASS),
XX BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1
XX*
10 //C.SYSIN DD *
11 XXL EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,C)
XX*
12 XXSYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE)
13 XX DD DDNAME=SYSIN
14 //L.SYSLMOD DD DISP=SHR,DSN=ADCD.Z110.VTAMLIB
X/SYSLMOD DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(CYL,(1,1,1)),
X/ DSN=&&GOSET(GO)
15 XXSYSUT1 DD DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),
XX UNIT=SYSALLDA,BUFNO=1
16 XXSYSPRINT DD SYSOUT=*
XX*
17 //L.SYSIN DD *
//*
STMT NO. MESSAGE
2 IEFC001I PROCEDURE ASMACL WAS EXPANDED USING SYSTEM LIBRARY HLA.SASMSA
ICH70001I IBMUSER LAST ACCESS AT 16:49:57 ON FRIDAY, MAY 17, 2024
IEF236I ALLOC. FOR USSSCHG C BUILD
IEF237I 0A81 ALLOCATED TO SYSLIB
IEF237I 0A81 ALLOCATED TO
IGD100I 0A95 ALLOCATED TO DDNAME SYSUT1 DATACLAS ( )
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD100I 0A95 ALLOCATED TO DDNAME SYSLIN DATACLAS ( )
IEF237I JES2 ALLOCATED TO SYSIN
IEF142I USSSCHG C BUILD - STEP WAS EXECUTED - COND CODE 0000
IEF285I SYS1.SISTMAC1 KEPT
IEF285I VOL SER NOS= ZARES1.
IEF285I SYS1.MACLIB KEPT
IEF285I VOL SER NOS= ZARES1.
IEF285I SYS24138.T170853.RA000.USSSCHG.SYSUT1.H01 DELETED
IEF285I VOL SER NOS= ZASYS1.
IEF285I IBMUSER.USSSCHG.JOB00045.D0000103.? SYSOUT
IEF285I SYS24138.T170853.RA000.USSSCHG.OBJ.H01 PASSED
IEF285I VOL SER NOS= ZASYS1.
IEF285I IBMUSER.USSSCHG.JOB00045.D0000101.? SYSIN
IEF373I STEP/C /START 2024138.1708
IEF374I STEP/C /STOP 2024138.1708 CPU 0MIN 00.23SEC SRB 0MIN 00.02S
IEF236I ALLOC. FOR USSSCHG L BUILD
IEF237I 0A95 ALLOCATED TO SYSLIN
IEF237I JES2 ALLOCATED TO
IEF237I 0A81 ALLOCATED TO SYSLMOD
IGD100I 0A95 ALLOCATED TO DDNAME SYSUT1 DATACLAS ( )
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF142I USSSCHG L BUILD - STEP WAS EXECUTED - COND CODE 0000
IEF285I SYS24138.T170853.RA000.USSSCHG.OBJ.H01 DELETED
IEF285I VOL SER NOS= ZASYS1.
IEF285I IBMUSER.USSSCHG.JOB00045.D0000102.? SYSIN
IEF285I ADCD.Z110.VTAMLIB KEPT
IEF285I VOL SER NOS= ZARES1.
IEF285I VOL SER NOS= ZASYS1.
IEF285I IBMUSER.USSSCHG.JOB00045.D0000104.? SYSOUT
IEF373I STEP/L /START 2024138.1708
IEF374I STEP/L /STOP 2024138.1708 CPU 0MIN 00.06SEC SRB 0MIN 00.00S
IEF375I JOB/USSSCHG /START 2024138.1708
IEF376I JOB/USSSCHG /STOP 2024138.1708 CPU 0MIN 00.29SEC SRB 0MIN 00.02S
High Level Assembler Option Summary
No Overriding ASMAOPT Parameters
No Overriding Parameters
No Process Statements
Options for this Assembly
NOADATA
ALIGN
NOASA
BATCH
CODEPAGE(047C)
NOCOMPAT
NODBCS
NODECK
DXREF
ESD
NOEXIT
FLAG(0,ALIGN,CONT,EXLITW,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0)
NOFOLD
NOGOFF
NOINFO
LANGUAGE(EN)
NOLIBMAC
LINECOUNT(60)
LIST(121)
MACHINE(,NOLIST)
MXREF(SOURCE)
F1=HELP F2=SPLIT F3=END F4=RETURN F5=IFIND F6=BOOK
F7=UP F8=DOWN F9=SWAP F10=LEFT F11=RIGHT F12=RETRIEVE
Vamos dar o comando na console para atualizar o proximo login
- 17.42.36 F VTAM,TABLE,OPTION=LOAD,NEWTAB=USSNCL
17.42.36 STC00003 IST097I MODIFY ACCEPTED
17.42.36 STC00003 IST865I MODIFY TABLE COMMAND COMPLETE-TABLE USSNCL LOADED
IST864I NEWTAB=USSNCL, OLDTAB=USSNCL, OPT=LOAD, TYPE=**NA**
IEE612I CN=L700 DEVNUM=0700 SYS=ADCD
IEE163I MODE= RD
Ao abrir uma nova tela vai estar tudo novo
MAINFRAME OPERATING SYSTEM Z/OS V1.10
SSSS Y Y SSSS AAA
S Y Y S A A
SSS Y SSS AAAAA
S Y S A A
SSSS Y SSSS A A
WELCOME TO SYSA MAINFRAME SYSTEM!
TSO - LOGON TO TSO/ISPF CNM01 - NETVIEW SYSTEM
CICSTS32 - CICS SYSTEM SA - SYSTEM AUTOMATION
IMS - IMS SYSTEM
ENTER YOUR CHOICE==> tso
ENTER ONE OF ABOVE COMMANDS IN RED
YOUR IP( : ), SNA LU(LCL701 ) 05/17/24 17:21:12
Outra tela
@@S@@@@@ @@@ @O@ @@@ @F@ UNAUTHORIZED
@@@@@@@@ @@@ @@@ @@@ @@@ ACCESS
@@! @@! @@@ @@! @@! FORBIDDEN
!@! !@! @!@ !@! !@!
@!!!:! @!@ !@! !!@ @!!
!!!!!: !@! !!! !!! !!!
!!: :!: !!: !!: !!:
:!: ::!!:! :!: ::!:
:: :::: :::: :: ::: ::::
: :: :: : : : :: : :
== == ==== ====== == == ====== ===== ==== == == ======
=== === == == == === == == == == == == === === ==
== = == ====== == == === ==== ===== ====== == = == ====
== == == == == == == == == == == == == == ==
== == == == ====== == == == == == == == == == ======
jcl
//USSDC23 JOB 'build tso screen',
// 'IBMUSER',
// NOTIFY=&SYSUID,
// MSGCLASS=H,
// MSGLEVEL=(1,1)
//*******************************************************************
//* *
//* JCL used to change TSO/vtam *
//* signon screen *
//* *
//* Chad D. Rikansrud *
//* Evil Mainframe logo by SoF *
//* Copyright EM Training LLC *
//*******************************************************************
//BUILD EXEC ASMACL
//*BUILD EXEC ASMACLG
//C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//C.SYSIN DD *
MACRO
&NAME SCREEN &MSG=.,&TEXT=.
AIF ('&MSG' EQ '.' OR '&TEXT' EQ '.').END
LCLC &BFNAME,&BFSTART,&BFEND
&BFNAME SETC 'BUF'.'&MSG'
&BFBEGIN SETC '&BFNAME'.'B'
&BFEND SETC '&BFNAME'.'E'
.BEGIN DS 0F
&BFNAME DC AL2(&BFEND-&BFBEGIN) MESSAGE LENGTH
&BFBEGIN EQU * START OF MESSAGE
DC X'F5' ERASE/WRITE
DC X'C3' WCC
DC X'114040' SBA
DC X'2902' SFE (Three Attribute Pairs To Follow)
DC X'C0F8' ATTR #1 (BASIC = PROTECTED)
DC X'42F2' ATTR #3 (COLOR = RED)
DC 21X'40'
DC C'@@S@@@@@ @@@ @O@ @@@ @F@'
DC 8X'40'
DC X'2902C0F842F5'
DC C'Unauthorized'
DC X'2902C0F842F2'
DC 30X'40'
DC C'@@@@@@@@ @@@ @@@ @@@ @@@ '
DC X'2902C0F842F5'
DC C'Access'
DC X'2902C0F842F2'
DC 36X'40'
DC C'@@! @@! @@@ @@! @@! '
DC X'2902C0F842F5'
DC C'Forbidden'
DC X'2902C0F842F2'
DC 33X'40'
DC C'!@! !@! @!@ !@! !@!'
DC 52X'40'
DC C'@!!!:! @!@ !@! !!@ @!!'
DC 52X'40'
DC C'!!!!!: !@! !!! !!! !!!'
DC 52X'40'
DC C'!!: :!: !!: !!: !!:'
DC 52X'40'
DC C':!: ::!!:! :!: ::!:'
DC 52X'40'
DC C':: :::: :::: :: ::: ::::'
DC 47X'40'
DC C': :: :: : : : :: : :'
DC 24X'40'
DC 160X'40'
DC X'2902C0F842F1'
DC C' == == ==== ====== == == '
DC C'====== ===== ==== == == ====== '
DC C' === === == == == === == '
DC C'== == == == == === === == '
DC C' == = == ====== == == === '
DC C'==== ===== ====== == = == ==== '
DC C' == == == == == == == '
DC C'== == == == == == == == '
DC C' == == == == ====== == == '
DC C'== == == == == == == ====== '
DC X'2902C0F842F7'
DC 160X'40'
DC X'2902C0C842F7' SFE, UNPROTECTED, TURQ
DC X'13' INSERT CURSOR
DC X'114EC7'
DC X'2901C00C'
DC C'Look at you Hacker! ID is HCKR'
&BFEND EQU * END OF MESSAGE
.END MEND
*
*
* ..............
USSTAB USSTAB TABLE=STDTRANS,FORMAT=DYNAMIC
* SPACE
TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=TSO
USSPARM PARM=P1,REP=DATA
CICS USSCMD CMD=CICS,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT='CICSTS42'
USSPARM PARM=LOGMODE
USSPARM PARM=P1,REP=DATA
USSMSG MSG=00,BUFFER=(BUF00,SCAN)
USSMSG MSG=01,BUFFER=(BUF01,SCAN)
USSMSG MSG=02,BUFFER=(BUF02,SCAN)
USSMSG MSG=03,BUFFER=(BUF03,SCAN)
* USSMSG MSG=04,BUFFER=(BUF04,SCAN)
USSMSG MSG=05,BUFFER=(BUF05,SCAN)
USSMSG MSG=06,BUFFER=(BUF06,SCAN)
USSMSG MSG=08,BUFFER=(BUF08,SCAN)
USSMSG MSG=10,BUFFER=(BUF10,SCAN)
USSMSG MSG=11,BUFFER=(BUF11,SCAN)
USSMSG MSG=12,BUFFER=(BUF12,SCAN)
USSMSG MSG=14,BUFFER=(BUF14,SCAN)
* SPACE
STDTRANS DC X'000102030440060708090A0B0C0D0E0F'
DC X'101112131415161718191A1B1C1D1E1F'
DC X'202122232425262728292A2B2C2D2E2F'
DC X'303132333435363738393A3B3C3D3E3F'
DC X'404142434445464748494A4B4C4D4E4F'
DC X'505152535455565758595A5B5C5D5E5F'
DC X'604062636465666768696A6B6C6D6E6F'
DC X'707172737475767778797A7B7C7D7E7F'
DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'
DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'
DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'
DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
END USSEND
* SPACE
*********************************************************************** ********
* DEFAULT MESSAGE PROVIDED BY VTAM:
* MSG 00: IST457I POSITIVE command COMMAND RESPONSE
* MSG 01: IST450I INVALID command COMMAND SYNTAX
* MSG 02: IST451I command COMMAND UNRECOGNIZED, PARAMETER=parameter
* MSG 03: IST452I parameter PARAMETER EXTRANEOUS
* MSG 04: IST453I parameter PARAMETER VALUE value NOT VALID
* MSG 05: N/A
* MSG 06: IST792I NO SUCH SESSION EXISTS
* MSG 07: N/A
* MSG 08: IST454I command COMMAND FAILED, INSUFFICIENT STORAGE
* MSG 09: N/A
* MSG 10: READY
* MSG 11: IST455I parameters SESSIONS ENDED
* MSG 12: IST456I keyword REQUIRED PARAMETER OMITTED
* MSG 13: N/A
* MSG 14: IST458I USS MESSAGE number NOT DEFINED
*********************************************************************** ********
* CUSTOMIZED USS MESSAGES:
SCREEN MSG=00,TEXT='Launchin your shit for ya'
SCREEN MSG=01,TEXT='loooooooooooooooooooooooooool'
SCREEN MSG=02,TEXT='loooooooooooooooooooooooooool'
SCREEN MSG=03,TEXT='Parameter is unrecognized!'
* SCREEN MSG=04,TEXT='Parameter with value is invalid'
SCREEN MSG=05,TEXT='The key you pressed is inactive'
SCREEN MSG=06,TEXT='There is not such session.'
SCREEN MSG=08,TEXT='Command failed as storage shortage.'
SCREEN MSG=10,TEXT=' '
SCREEN MSG=11,TEXT='Your session has ended'
SCREEN MSG=12,TEXT='Required parameter is missing'
SCREEN MSG=14,TEXT='There is an undefined USS message'
END
/*
//L.SYSLMOD DD DSN=ADCD.Z110.VTAMLIB,DISP=SHR
//L.SYSIN DD *
NAME USSN(R)
//*
Na console vamos dar o comando
- 13.00.10 F VTAM,TABLE,OPTION=LOAD,NEWTAB=USSN
13.00.10 STC00003 IST097I MODIFY ACCEPTED
13.00.10 STC00003 IST865I MODIFY TABLE COMMAND COMPLETE-TABLE USSN LOADED
IST864I NEWTAB=USSN, OLDTAB=USSN, OPT=LOAD, TYPE=**NA**
IEE612I CN=L700 DEVNUM=0700 SYS=ADCD
IEE163I MODE= RD
Outra tela
WELCOME TO THE E CORP NETWORK WARNING. YOU HAVE ACCESSED A PRIVATE COMPUTER SYSTEM. UNAUTHORIZED ACCESS, USE, CONNECTION, OR ENTRY IS NOT PERMITTED AND CONSTITUTES A CRIME PUNISHABLE BY LAW. WE RESERVE THE RIGHT TO FULLY PURSUE CRIMINAL AND CIVIL LEGAL PENALTIES. ALL INDIVIDUALS USING THIS COMPUTER SYSTEM WITH OR WITHOUT PROPER AUTHORITY ARE SUBJECT TO HAVING ALL THEIR ACTIVITIES MONITORED AND RECORDED. ANYONE USING THIS SYSTEM IMPLICITLY CONSENTS TO THIS MONITORING. ANY EVIDENCE OF SUSPECTED CRIMINAL ACTIVITY REVEALED BY SUCH MONITORING MAY BE PROVIDED TO LAW ENFORCEMENT OFFICIALS.
JCL
//USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A, 00010000
//* TYPRUN=SCAN, 00020000
// MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID 00030000
//*******************************************************************
//* *
//* JCL used to change TSO/vtam *
//* signon screen *
//* *
//* John Boudreaux *
//* 07/16/2016 asmacl - bind & link *
//* 07/17/2016 Added Graphic Macros *
//* 07/18/2016 Stole SoF's Color Macros and cleaned up *
//* *
//*******************************************************************
//BUILD EXEC ASMACL
//C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//C.SYSIN DD *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
MACRO
&NAME SCREEN &MSG=™,&TEXT=™
AIF ('&MSG' EQ '™' OR '&TEXT' EQ '™').END
LCLC &BFNAME,&BFSTART,&BFEND
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Declaring Kick-Ass Color to make sweet-sweet art with - SoF *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
&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
&BLACK SETC 'X''2902C0F842F8''' SFE HI,SKIP,BLACK
&DBLUE SETC 'X''2902C0F842F9''' SFE HI,SKIP,DBLUE
&ORANGE SETC 'X''2902C0F842FA''' SFE HI,SKIP,ORANGE
&PURPLE SETC 'X''2902C0F842FB''' SFE HI,SKIP,PURPLE
&LGREEN SETC 'X''2902C0F842FC''' SFE HI,SKIP,LGREEN
<URQ SETC 'X''2902C0F842FD''' SFE HI,SKIP,LTURQ
&GREY SETC 'X''2902C0F842FE''' SFE HI,SKIP,GREY
&BWHITE SETC 'X''2902C0F842FF''' SFE HI,SKIP,BOLDWHITE
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Declaring Graphic lines - JBX *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
&UPRIGHT SETC 'X''08D5''' UPPER RIGHT CORNER
&DOWNRIGHT SETC 'X''08D4''' UPPER RIGHT CORNER
&UPLEFT SETC 'X''08C5''' UPPER RIGHT CORNER
&DOWNLEFT SETC 'X''08C4''' UPPER RIGHT CORNER
&HBAR SETC 'X''08A2''' HORZ BAR
&VBAR SETC 'X''0885''' VIRT BAR
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
&BFNAME SETC 'BUF'.'&MSG'
&BFBEGIN SETC '&BFNAME'.'B'
&BFEND SETC '&BFNAME'.'E'
.BEGIN DS 0F
&BFNAME DC AL2(&BFEND-&BFBEGIN) MESSAGE LENGTH
&BFBEGIN EQU * START OF MESSAGE
DC X'F57A' ERASE/WRITE, WCC
DC X'110000' SBA, 0000 ROW 00 COL 01
DC &TURQ
DC C'Welcome to the E Corp Network'
* DC X'1140F3'
* DC C'TCPIP / 10.10.0.201'
DC X'11C2C2'
DC &TURQ
* DC C'MVS9.E-CORP-USA.COM'
DC X'11C540'
DC C'WARNING. You have accessed a private computer system. X
Unauthorized access, use,'
DC X'11C650'
DC C'connection, or entry is not permitted and constitutes X
a crime punishable by law.'
DC X'11C760'
DC C'We reserve the right to fully pursue criminal and civiX
l legal penalties. All'
DC X'11C8F0'
DC C'individuals using this computer system with or withoutX
proper authority are'
DC X'114A40'
DC C'subject to having all their activities monitored and rX
ecorded. Anyone using'
DC X'114B50'
DC C'this system implicitly consents to this monitoring. AnX
y evidence of suspected'
DC X'114C60'
DC C'criminal activity revealed by such monitoring may be pX
rovided to law enforcement'
DC X'114DF0'
DC C'officials.'
DC X'115050' SET BUFFER Row 2 Col 1
DC X'290242FCC0C8' SFE, UNPROTECTED/NORMAL/LGREEN
DC X'13' INSERT CURSOR
DC X'11C260' SET BUFFER Row 3 Col 1
DC &TURQ SET COLOR BACK
&BFEND EQU * END OF MESSAGE
.END MEND
*
*
* ..............
USSTAB USSTAB TABLE=STDTRANS,FORMAT=DYNAMIC
* SPACE
TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL TSO
USSPARM PARM=APPLID,DEFAULT=TSO
USSPARM PARM=P1,REP=DATA
* SPACE
CNM01 USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=CNM01
CICS USSCMD CMD=CICSTS42,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=CICS
IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=IMS81CR1
SA USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL
USSPARM PARM=APPLID,DEFAULT=CNM01
* SPACE
USSMSG MSG=00,BUFFER=(BUF00,SCAN)
USSMSG MSG=01,BUFFER=(BUF01,SCAN)
USSMSG MSG=02,BUFFER=(BUF02,SCAN)
USSMSG MSG=03,BUFFER=(BUF03,SCAN)
* USSMSG MSG=04,BUFFER=(BUF04,SCAN)
USSMSG MSG=05,BUFFER=(BUF05,SCAN)
USSMSG MSG=06,BUFFER=(BUF06,SCAN)
USSMSG MSG=08,BUFFER=(BUF08,SCAN)
USSMSG MSG=10,BUFFER=(BUF10,SCAN)
USSMSG MSG=11,BUFFER=(BUF11,SCAN)
USSMSG MSG=12,BUFFER=(BUF12,SCAN)
USSMSG MSG=14,BUFFER=(BUF14,SCAN)
* SPACE
STDTRANS DC X'000102030440060708090A0B0C0D0E0F'
DC X'101112131415161718191A1B1C1D1E1F'
DC X'202122232425262728292A2B2C2D2E2F'
DC X'303132333435363738393A3B3C3D3E3F'
DC X'404142434445464748494A4B4C4D4E4F'
DC X'505152535455565758595A5B5C5D5E5F'
DC X'604062636465666768696A6B6C6D6E6F'
DC X'707172737475767778797A7B7C7D7E7F'
DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'
DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'
DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'
DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
END USSEND
* SPACE
*********************************************************************** ********
*DEFAULT MESSAGE PROVIDED BY VTAM:
* MSG 00: IST457I POSITIVE command COMMAND RESPONSE
* MSG 01: IST450I INVALID command COMMAND SYNTAX
* MSG 02: IST451I command COMMAND UNRECOGNIZED, PARAMETER=parameter
* MSG 03: IST452I parameter PARAMETER EXTRANEOUS
* MSG 04: IST453I parameter PARAMETER VALUE value NOT VALID
* MSG 05: N/A
* MSG 06: IST792I NO SUCH SESSION EXISTS
* MSG 07: N/A
* MSG 08: IST454I command COMMAND FAILED, INSUFFICIENT STORAGE
* MSG 09: N/A
* MSG 10: READY
* MSG 11: IST455I parameters SESSIONS ENDED
* MSG 12: IST456I keyword REQUIRED PARAMETER OMITTED
* MSG 13: N/A
* MSG 14: IST458I USS MESSAGE number NOT DEFINED
*********************************************************************** ********
* CUSTOMIZED USS MESSAGES:
SCREEN MSG=00,TEXT='Command is in progress...'
SCREEN MSG=01,TEXT='Invalid command or syntax'
SCREEN MSG=02,TEXT='Invalid Command'
SCREEN MSG=03,TEXT='Parameter is unrecognized!'
* SCREEN MSG=04,TEXT='Parameter with value is invalid'
SCREEN MSG=05,TEXT='The key you pressed is inactive'
SCREEN MSG=06,TEXT='There is not such session.'
SCREEN MSG=08,TEXT='Command failed as storage shortage.'
SCREEN MSG=10,TEXT='Enter one of above commands in red'
SCREEN MSG=11,TEXT='Your session has ended'
SCREEN MSG=12,TEXT='Required parameter is missing'
SCREEN MSG=14,TEXT='There is an undefined USS message'
END
/*
//L.SYSLMOD DD DISP=SHR,DSN=ADCD.Z110.VTAMLIB
//L.SYSIN DD *
NAME USSN(R)
//*
Comando na console
- 13.00.10 F VTAM,TABLE,OPTION=LOAD,NEWTAB=USSN
13.00.10 STC00003 IST097I MODIFY ACCEPTED
13.00.10 STC00003 IST865I MODIFY TABLE COMMAND COMPLETE-TABLE USSN LOADED
IST864I NEWTAB=USSN, OLDTAB=USSN, OPT=LOAD, TYPE=**NA**
IEE612I CN=L700 DEVNUM=0700 SYS=ADCD
IEE163I MODE= RD
Mais exemplos - Clique Aqui
Uma modificação feita por mim - ficou interessante
@@S@@@@@ @@@ @O@ @@@ @F@ UNAUTHORIZED
@@@@@@@@ @@@ @@@ @@@ @@@ ACCESS
@@! @@! @@@ @@! @@! FORBIDDEN
!@! !@! @!@ !@! !@!
@!!!:! @!@ !@! !!@ @!!
!!!!!: !@! !!! !!! !!!
!!: :!: !!: !!: !!:
:!: ::!!:! :!: ::!:
:: :::: :::: :: ::: ::::
: :: :: : : : :: : :
WELCOME TO SYSA MAINFRAME SYSTEM!
TSO - LOGON TO TSO/ISPF CNM01 - NETVIEW SYSTEM
CICSTS32 - CICS SYSTEM SA - SYSTEM AUTOMATION
IMS - IMS SYSTEM
ENTER YOUR CHOICE==>
ENTER ONE OF ABOVE COMMANDS IN RED
SEU IP( : ), SNA LU(LCL703 ) 07/14/24 14:03:19
Esse foi o JCL
File Edit Edit_Settings Menu Utilities Compilers Test Help
───────────────────────────────────────────────────────────────────────────────
EDIT ADCD.Z22A.PARMLIB(@@TELA02) - 01.02 Columns 00001 00072
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000100 //USSSCHG JOB (JOBNAME),'CREATE USS SCREEN ',CLASS=A,
000200 // MSGLEVEL=(1,1),MSGCLASS=K,NOTIFY=&SYSUID
000300 //*
000400 //BUILD EXEC ASMACL
000500 //C.SYSLIB DD DSN=SYS1.SISTMAC1,DISP=SHR
000600 // DD DSN=SYS1.MACLIB,DISP=SHR
000700 //C.SYSIN DD *
000800 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000801 MACRO
000802 &NAME SCREEN &MSG=.,&TEXT=.
000803 AIF ('&MSG' EQ '.' OR '&TEXT' EQ '.').END
000804 LCLC &BFNAME,&BFSTART,&BFEND
000805 &BFNAME SETC 'BUF'.'&MSG'
000806 &BFBEGIN SETC '&BFNAME'.'B'
000807 &BFEND SETC '&BFNAME'.'E'
000808 .BEGIN DS 0F
000809 &BFNAME DC AL2(&BFEND-&BFBEGIN) MESSAGE LENGTH
000810 &BFBEGIN EQU * START OF MESSAGE
000811 DC X'F5' ERASE/WRITE
000812 DC X'C3' WCC
000813 DC X'114040' SBA
000814 DC X'2902' SFE (THREE ATTRIBUTE PAIRS TO FOLLOW)
000815 DC X'C0F8' ATTR #1 (BASIC = PROTECTED)
000816 DC X'42F2' ATTR #3 (COLOR = RED)
000817 DC 21X'40'
000818 DC C'@@S@@@@@ @@@ @O@ @@@ @F@'
000819 DC 8X'40'
000820 DC X'2902C0F842F5'
000821 DC C'UNAUTHORIZED'
000822 DC X'2902C0F842F2'
000823 DC 30X'40'
000824 DC C'@@@@@@@@ @@@ @@@ @@@ @@@ '
000825 DC X'2902C0F842F5'
000826 DC C'ACCESS'
000827 DC X'2902C0F842F2'
000828 DC 36X'40'
000829 DC C'@@! @@! @@@ @@! @@! '
000830 DC X'2902C0F842F5'
000831 DC C'FORBIDDEN'
000832 DC X'2902C0F842F2'
000833 DC 33X'40'
000834 DC C'!@! !@! @!@ !@! !@!'
000835 DC 52X'40'
000836 DC C'@!!!:! @!@ !@! !!@ @!!'
000837 DC 52X'40'
000838 DC C'!!!!!: !@! !!! !!! !!!'
000839 DC 52X'40'
000840 DC C'!!: :!: !!: !!: !!:'
000841 DC 52X'40'
000842 DC C':!: ::!!:! :!: ::!:'
000843 DC 52X'40'
000844 DC C':: :::: :::: :: ::: ::::'
000845 DC 47X'40'
000846 DC C': :: :: : : : :: : :'
000847 DC 24X'40'
000848 DC 160X'40'
000849 DC X'2902C0F842F1'
000850 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
004800 DC X'110410' SBA, 0960 ROW 12 COL 01
004900 DC X'290242F4C0E0' SFE, PROTECTED/NORMAL/GREEN
005000 DC C' WELCOME TO SYSA MAINF'
005100 DC C'RAME SYSTEM! '
005200 DC X'1104B0' SBA, 1120 ROW 14 COL 01
005300 DC X'290242F5C0E0' SFE, PROTECTED/NORMAL/PURPLE
005400 DC C' '
005500 DC C' '
005600 .* APPLICATION: TSO
005700 DC X'110508' APPLICATION POSITION
005800 DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
005900 DC C'TSO' APPLICATION NAME
006000 DC X'110511' DESCRIPTION POSITION
006100 DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
006200 DC C'- LOGON TO TSO/ISPF' APPLICATION DESCRIPTION
006300 .* APPLICATION: NETVIEW
006400 DC X'11052C' APPLICATION POSITION
006500 DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
006600 DC C'CNM01' APPLICATION NAME
006700 DC X'110535' DESCRIPTION POSITION
006800 DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
006900 DC C'- NETVIEW SYSTEM' APPLICATION DESCRIPTION
007000 .* APPLICATION: CICSTS32
007100 DC X'110558' APPLICATION POSITION
007200 DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
007300 DC C'CICSTS32' APPLICATION NAME
007400 DC X'110561' DESCRIPTION POSITION
007500 DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
007600 DC C'- CICS SYSTEM' APPLICATION DESCRIPTION
007700 .* APPLICATION: SA
007800 DC X'11057C' APPLICATION POSITION
007900 DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
008000 DC C'SA' APPLICATION NAME
008100 DC X'110585' DESCRIPTION POSITION
008200 DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
008300 DC C'- SYSTEM AUTOMATION' APPLICATION DESCRIPTION
008400 .* APPLICATION: IMS
008500 DC X'1105A8' APPLICATION POSITION
008600 DC X'290242F2C0E0' SFE, PROTECTED/NORMAL/RED
008700 DC C'IMS' APPLICATION NAME
008800 DC X'1105B1' DESCRIPTION POSITION
008900 DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/BLUE
009000 DC C'- IMS SYSTEM' APPLICATION DESCRIPTION
009100 .* OTHER INFORMATION
009200 DC X'110640' SBA, 1600 ROW 21 COL 01
009300 DC C'ENTER YOUR CHOICE==>'
009400 DC X'110654' SBA, 1622 ROW 21 COL 22
009500 DC X'290242F2C0C8' SFE, UNPROTECTED/NORMAL
009600 DC X'13' INSERT CURSOR
009700 DC X'11068F' SBA, 1690 ROW 22 COL 01
009800 DC X'290242F6C0E0' SFE, PROTECTED/NORMAL/YELLOW
009900 DC C&TEXT USS MESSAGES
010000 DC X'11072F' SBA, 1840 ROW 24 COL 01
010100 DC X'290242F1C0E0' SFE, PROTECTED/NORMAL/GREEN
010200 DC C'SEU IP(@@@@@@@@@IPADDR:@@PRT), SNA LU(@@LUNAME)'
010300 DC C' @@@@DATE @@@@TIME'
010400 &BFEND EQU * END OF MESSAGE
010500 .END MEND
010600 *
010700 *
010800 *
010900 USSTAB USSTAB TABLE=STDTRANS,FORMAT=DYNAMIC
011000 * SPACE
011100 TSO USSCMD CMD=TSO,REP=LOGON,FORMAT=BAL TSO
011200 USSPARM PARM=APPLID,DEFAULT=TSO
011300 USSPARM PARM=P1,REP=DATA
011400 * SPACE
011500 CNM01 USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL
011600 USSPARM PARM=APPLID,DEFAULT=CNM01
011700 CICS USSCMD CMD=CICS,REP=LOGON,FORMAT=BAL
011800 USSPARM PARM=APPLID,DEFAULT=CICS
011900 IMS USSCMD CMD=IMS,REP=LOGON,FORMAT=BAL
012000 USSPARM PARM=APPLID,DEFAULT=IMS81CR1
012100 SA USSCMD CMD=CNM01,REP=LOGON,FORMAT=BAL
012200 USSPARM PARM=APPLID,DEFAULT=CNM01
012300 * SPACE
012400 USSMSG MSG=00,BUFFER=(BUF00,SCAN)
012500 USSMSG MSG=01,BUFFER=(BUF01,SCAN)
012600 USSMSG MSG=02,BUFFER=(BUF02,SCAN)
012700 USSMSG MSG=03,BUFFER=(BUF03,SCAN)
012800 * USSMSG MSG=04,BUFFER=(BUF04,SCAN)
012900 USSMSG MSG=05,BUFFER=(BUF05,SCAN)
013000 USSMSG MSG=06,BUFFER=(BUF06,SCAN)
013100 USSMSG MSG=08,BUFFER=(BUF08,SCAN)
013200 USSMSG MSG=10,BUFFER=(BUF10,SCAN)
013300 USSMSG MSG=11,BUFFER=(BUF11,SCAN)
013400 USSMSG MSG=12,BUFFER=(BUF12,SCAN)
013500 USSMSG MSG=14,BUFFER=(BUF14,SCAN)
013600 * SPACE
013700 STDTRANS DC X'000102030440060708090A0B0C0D0E0F'
013800 DC X'101112131415161718191A1B1C1D1E1F'
013900 DC X'202122232425262728292A2B2C2D2E2F'
014000 DC X'303132333435363738393A3B3C3D3E3F'
014100 DC X'404142434445464748494A4B4C4D4E4F'
014200 DC X'505152535455565758595A5B5C5D5E5F'
014300 DC X'604062636465666768696A6B6C6D6E6F'
014400 DC X'707172737475767778797A7B7C7D7E7F'
014500 DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F'
014600 DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F'
014700 DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF'
014800 DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
014900 DC X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
015000 DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
015100 DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
015200 DC X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'
015300 END USSEND
015400 * SPACE
015500 ***********************************************************************
015600 *DEFAULT MESSAGE PROVIDED BY VTAM:
015700 * MSG 00: IST457I POSITIVE COMMAND COMMAND RESPONSE
015800 * MSG 01: IST450I INVALID COMMAND COMMAND SYNTAX
015900 * MSG 02: IST451I COMMAND COMMAND UNRECOGNIZED, PARAMETER=PARAMETER
016000 * MSG 03: IST452I PARAMETER PARAMETER EXTRANEOUS
016100 * MSG 04: IST453I PARAMETER PARAMETER VALUE VALUE NOT VALID
016200 * MSG 05: N/A
016300 * MSG 06: IST792I NO SUCH SESSION EXISTS
016400 * MSG 07: N/A
016500 * MSG 08: IST454I COMMAND COMMAND FAILED, INSUFFICIENT STORAGE
016600 * MSG 09: N/A
016700 * MSG 10: READY
016800 * MSG 11: IST455I PARAMETERS SESSIONS ENDED
016900 * MSG 12: IST456I KEYWORD REQUIRED PARAMETER OMITTED
017000 * MSG 13: N/A
017100 * MSG 14: IST458I USS MESSAGE NUMBER NOT DEFINED
017200 ***********************************************************************
017300 * CUSTOMIZED USS MESSAGES:
017400 SCREEN MSG=00,TEXT='COMMAND IS IN PROGRESS...'
017500 SCREEN MSG=01,TEXT='INVALID COMMAND OR SYNTAX'
017600 SCREEN MSG=02,TEXT='INVALID COMMAND'
017700 SCREEN MSG=03,TEXT='PARAMETER IS UNRECOGNIZED!'
017800 * SCREEN MSG=04,TEXT='PARAMETER WITH VALUE IS INVALID'
017900 SCREEN MSG=05,TEXT='THE KEY YOU PRESSED IS INACTIVE'
018000 SCREEN MSG=06,TEXT='THERE IS NOT SUCH SESSION.'
018100 SCREEN MSG=08,TEXT='COMMAND FAILED AS STORAGE SHORTAGE.'
018200 SCREEN MSG=10,TEXT='ENTER ONE OF ABOVE COMMANDS IN RED'
018300 SCREEN MSG=11,TEXT='YOUR SESSION HAS ENDED'
018400 SCREEN MSG=12,TEXT='REQUIRED PARAMETER IS MISSING'
018500 SCREEN MSG=14,TEXT='THERE IS AN UNDEFINED USS MESSAGE'
018600 END
018700 /*
018800 //L.SYSLMOD DD DISP=SHR,DSN=ADCD.Z22A.VTAMLIB
018900 //L.SYSIN DD *
019000 NAME USSN(R)
019100 //*
F1=Help F2=Split F3=Exit F4=Expand F5=Rfind F6=Rchange
F7=Up F8=Down F9=Swap F10=Left F11=Right F12=Cancel
Vamos dar o comando - F VTAM,TABLE,OPTION=LOAD,NEWTAB=USSN
- 13.00.10 F VTAM,TABLE,OPTION=LOAD,NEWTAB=USSN
13.00.10 STC00003 IST097I MODIFY ACCEPTED
13.00.10 STC00003 IST865I MODIFY TABLE COMMAND COMPLETE-TABLE USSN LOADED
IST864I NEWTAB=USSN, OLDTAB=USSN, OPT=LOAD, TYPE=**NA**
IEE612I CN=L700 DEVNUM=0700 SYS=ADCD
IEE163I MODE= RD
Encontrei um site que o cara ensina como se faz isso e é bem maneiro:
ResponderEliminarhttps://github.com/mainframed/usstable
Espero que curtam