Cansou da tela de apresentação do TSO, este foi o procedimento que foi feito para alterar esta tela, é um procedimento bem fácil é só alterar um programa fonte, depois de alterado e salvo a alteração é recebido no próximo logon no TSO;
Era assim;
Ficou assim;
Acesse a opção 3.4 - para acessar a biblioteca;
Acesse a biblioteca ADCD.Z110.CLIST
Vamos entrar na biblioteca (b)
Procure pelo membro ISPFCL e edite ele;
Antes de editar ele estava assim;
Ficou assim, só mexi no começo;
Era assim;
ICH70001I IBMUSER LAST ACCESS AT 04:27:05 ON FRIDAY, NOVEMBER 6, 2015
IKJ56455I IBMUSER LOGON IN PROGRESS AT 01:03:22 ON NOVEMBER 10, 2015
IKJ56951I NO BROADCAST MESSAGES
*****************************************************************
* *
* APPLICATION DEVELOPER'S CONTROLLED DISTRIBUTION (ADCD) *
* *
* ADCD.Z110.CLIST(ISPFCL) PRODUCES THIS MESSAGE *
* ADCD.* DATASETS CONTAIN SYSTEM CUSTOMIZATION *
* SMP/E DATASETS CAN BE LOCATED FROM 3.4 WITH DSNAME **.CSI *
* HTTP://DTSC.DFW.IBM.COM/ADCD.HTML CONTAINS DOCUMENTATION *
* *
* USERID PASSWORD COMMENT *
* ---------------- ------------ -------------- *
* IBMUSER - SYS1/IBMUSER FULL AUTHORITY *
* ADCDMST - ADCDMST FULL AUTHORITY *
* ADCDA THRU ADCDZ - TEST LIMITED AUTHORITY(NO OMVS)*
* OPEN1 THRU OPEN3 - SYS1 UID(0) (NO TSO) *
* *
*****************************************************************
ispf
***
Ficou assim;
ICH70001I IBMUSER LAST ACCESS AT 01:03:22 ON TUESDAY, NOVEMBER 10, 2015
IKJ56455I IBMUSER LOGON IN PROGRESS AT 01:18:47 ON NOVEMBER 10, 2015
IKJ56951I NO BROADCAST MESSAGES
*****************************************************************
* TABELA DE USUARIOS PRE DEFINIDOS *
* *
* +------------------+--------------+--------------------------+*
* | USUARIO | SENHA | COMENTARIO |*
* +------------------+--------------+--------------------------+*
* | IBMUSER | SYS1/IBMUSER | FULL AUTHORITY |*
* | ADCDMST | ADCDMST | FULL AUTHORITY |*
* | SYSADM | SYS1/SYSADM | DB2 AND RACF SPECIAL AUT.|*
* | SYSOPR | SYS1/SYSOPR | DB2 AND RACF SPECIAL AUT.|*
* | ADCDA THRU ADCDZ | TEST | LIMITED AUTHOR.(NO OMVS) |*
* | OPEN1 THRU OPEN3 | SYS1 | UID(0) (NO TSO) |*
* +------------------+--------------+--------------------------+*
* *
*****************************************************************
ispf
***Acesse a opção 3.4 - para acessar a biblioteca;
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. . . : 01:12
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
Acesse a biblioteca ADCD.Z110.CLIST
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.Z110.CLIST
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 entrar na biblioteca (b)
Menu Options View Utilities Compilers Help
DSLIST - Data Sets Matching ADCD.Z110.CLIST Row 1 of 1
Command ===> Scroll ===> PAGE
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
b ADCD.Z110.CLIST ZARES1
***************************** End of Data Set list ****************************
Procure pelo membro ISPFCL e edite ele;
Menu Functions Confirm Utilities Help
BROWSE ADCD.Z110.CLIST Row 00041 of 00053
Command ===> Scroll ===> PAGE
Name Prompt Size Created Changed ID
_________ IPC@PRIM 20 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ ISPFCL 49 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ ISRFC02 553 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ OMVS 69 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ QMFDS 75 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ QMFTOSPF 62 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ QMFTOSP8 61 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ QMFTOSP9 61 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ TSOZ15 5 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ TSOZ16 5 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ TSOZ17 5 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ TSOZ18 5 2008/11/06 2008/11/06 15:50:00 IBMUSER
_________ TSOZ19 5 2008/11/06 2008/11/06 15:50:00 IBMUSER
**End**
Antes de editar ele estava assim;
Menu Utilities Compilers Help
BROWSE ADCD.Z110.CLIST(ISPFCL) - 01.00 Line 00000000 Col 001 080
Command ===> Scroll ===> PAGE
********************************* Top of Data **********************************
PROC 0 VOL(ZASYS1)
CONTROL NOMSG NOFLUSH
PROFILE NOMODE MSGID PROMPT INTERCOM WTPMSG
WRITE *****************************************************************
WRITE * *
WRITE * APPLICATION DEVELOPER'S CONTROLLED DISTRIBUTION (ADCD) *
WRITE * *
WRITE * ADCD.Z110.CLIST(ISPFCL) PRODUCES THIS MESSAGE *
WRITE * ADCD.* DATASETS CONTAIN SYSTEM CUSTOMIZATION *
WRITE * SMP/E DATASETS CAN BE LOCATED FROM 3.4 WITH DSNAME **.CSI *
WRITE * HTTP://DTSC.DFW.IBM.COM/ADCD.HTML CONTAINS DOCUMENTATION *
WRITE * *
WRITE * USERID PASSWORD COMMENT *
WRITE * ---------------- ------------ -------------- *
WRITE * IBMUSER - SYS1/IBMUSER FULL AUTHORITY *
WRITE * ADCDMST - ADCDMST FULL AUTHORITY *
WRITE * ADCDA THRU ADCDZ - TEST LIMITED AUTHORITY(NO OMVS)*
WRITE * OPEN1 THRU OPEN3 - SYS1 UID(0) (NO TSO) *
WRITE * *
WRITE *****************************************************************
/* */
/* ALLOCATION CLIST FOR ISPF PROFILE DATA SET */
/* */
FREE FILE(ISPPROF ISPTABL)
SET &DSNAME = &STR(&SYSUID..ISPF.ISPPROF)
ALLOC DA('&DSNAME') OLD FILE(ISPPROF)
ALLOC DA('&DSNAME') OLD FILE(ISPTABL)
IF &LASTCC ¬= 0 THEN DO
FREE FILE(ISPCRTE)
DELETE '&DSNAME.'
DELETE '&DSNAME.' NOSCRATCH
ATTRIB ISPCRTE DSORG(PO) RECFM(F B) LRECL(80) BLKSIZE(3120)
ALLOC DA('&DSNAME.') SPACE(2 4) TRACKS DIR(2) VOL(&VOL) -
USING (ISPCRTE) FILE(ISPPROF)
IF &LASTCC = 0 THEN -
ALLOC DA('&DSNAME.') OLD FILE(ISPTABL)
ELSE DO
WRITE %%% UNABLE TO ALLOCATE OR CREATE ISPF PROFILE DATA SET "&DSNAME
FREE FILE(ISPPROF)
Menu Utilities Compilers Help
BROWSE ADCD.Z110.CLIST(ISPFCL) - 01.00 Line 00000040 Col 001 080
Command ===> Scroll ===> PAGEFicou assim, só mexi no começo;
File Edit Edit_Settings Menu Utilities Compilers Test Help
EDIT ADCD.Z110.CLIST(ISPFCL) - 01.02 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 PROC 0 VOL(ZASYS1)
000002 CONTROL NOMSG NOFLUSH
000003 PROFILE NOMODE MSGID PROMPT INTERCOM WTPMSG
000004 WRITE *****************************************************************
000005 WRITE * TABELA DE USUARIOS PRE DEFINIDOS *
000006 WRITE * *
000007 WRITE * +------------------+--------------+--------------------------+*
000008 WRITE * | USUARIO | SENHA | COMENTARIO |*
000009 WRITE * +------------------+--------------+--------------------------+*
000010 WRITE * | IBMUSER | SYS1/IBMUSER | FULL AUTHORITY |*
000011 WRITE * | ADCDMST | ADCDMST | FULL AUTHORITY |*
000012 WRITE * | SYSADM | SYS1/SYSADM | DB2 AND RACF SPECIAL AUT.|*
000013 WRITE * | SYSOPR | SYS1/SYSOPR | DB2 AND RACF SPECIAL AUT.|*
000014 WRITE * | ADCDA THRU ADCDZ | TEST | LIMITED AUTHOR.(NO OMVS) |*
000015 WRITE * | OPEN1 THRU OPEN3 | SYS1 | UID(0) (NO TSO) |*
000016 WRITE * +------------------+--------------+--------------------------+*
000017 WRITE * *
000018 WRITE *****************************************************************
000019 /* */
000020 /* ALLOCATION CLIST FOR ISPF PROFILE DATA SET */
000021 /* */
000022 FREE FILE(ISPPROF ISPTABL)
000023 SET &DSNAME = &STR(&SYSUID..ISPF.ISPPROF)
000024 ALLOC DA('&DSNAME') OLD FILE(ISPPROF)
000025 ALLOC DA('&DSNAME') OLD FILE(ISPTABL)
000026 IF &LASTCC ¬= 0 THEN DO
000027 FREE FILE(ISPCRTE)
000028 DELETE '&DSNAME.'
000029 DELETE '&DSNAME.' NOSCRATCH
000030 ATTRIB ISPCRTE DSORG(PO) RECFM(F B) LRECL(80) BLKSIZE(3120)
000031 ALLOC DA('&DSNAME.') SPACE(2 4) TRACKS DIR(2) VOL(&VOL) -
000032 USING (ISPCRTE) FILE(ISPPROF)
000033 IF &LASTCC = 0 THEN -
000034 ALLOC DA('&DSNAME.') OLD FILE(ISPTABL)
000035 ELSE DO
000036 WRITE %%% UNABLE TO ALLOCATE OR CREATE ISPF PROFILE DATA SET "&DSNAM
000037 FREE FILE(ISPPROF)
000038 EXIT CODE(12)
000039 END
000040 FREE FILE(ISPCRTE)
000041 END
000042 ELSE DO
000043 CONTROL MSG
000044 WRITE
000045 EXIT CODE(0)
000046 END
000047 END
****** **************************** Bottom of Data ****************************
0 comentários:
Enviar um comentário