27/05/16

Mudar Usuário que Alterou um Membro de uma BIblioteca

Vamos supor que queremos modificar usuário que foi o último que alterou um determinado membro de uma biblioteca, não seria uma coisa bacana de fazer (acho anti-ético) geralmente quem quer fazer isso quer tirar da sua matricula a "culpa do erro" de uma modificação mal feita e culpar outra pessoa, como estamos em um blog sobre o Hercules vamos compartilhar. Vamos pegar o membro ARCHJCL do dataset ADCD.Z110.PROCLIB; Como você pode ver abaixo, a última pessoa a modificar o membro foi IBMUSER. Mas nós queremos mudá-lo para SYSADM - Para fazer isso, só precisamos usar a opção G ao lado do membro e dar ENTER.
   Menu  Functions  Confirm  Utilities  Help

BROWSE            ADCD.Z110.PROCLIB                         Row 00001 of 00120
Command ===>                                                  Scroll ===> PAGE
           Name     Prompt       Size   Created          Changed          ID
g________ 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
_________ 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
_________ DB8GWLMJ                 60  2008/11/06  2008/11/06 15:49:25  IBMUSER

Então você vai ter uma tela onde você pode redefinir as estatísticas do ISPF do membro. Agora é só selecionar a opção 1, e adicione AA01055 no campo New Userid e tecle ENTER.
   Menu  Functions  Confirm  Utilities  Help
   +-----------------------------------------------------------------------+
 B |                       Reset Member Statistics                         | 20
 C |                                                                       | GE
   |  Data Set Name:                                                       |
 G |  'ADCD.Z110.PROCLIB(ARCHJCL)'                                         | SER
 _ |                                                                       | SER
 _ |  Options                                                              | SER
 _ |  1  1. Reset ISPF statistics                                          | SER
 _ |     2. Delete ISPF statistics                                         | SER
 _ |                                                                       | SER
 _ |  New Userid  . . . SYSADM   (If userid is to be changed)              | SER
 _ |  New Version . . .          (If version number is to be changed)      | SER
 _ |  New Mod . . . . .          (If mod number is to be changed)          | SER
 _ |                                                                       | SER
 _ | Press ENTER to process action. Press CANCEL to cancel reset.          | SER
 _ |                                                                       | SER
 _ |                                                                       | SER
 _ +-----------------------------------------------------------------------+ SER
 _________ 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
 _________ DB8GWLMJ                 60  2008/11/06  2008/11/06 15:49:25  IBMUSER

No final vai ficar o usuário SYSADM que ficara como o ultimo usuário que modificou o membro ARCHJCL;
   Menu  Functions  Confirm  Utilities  Help

 BROWSE            ADCD.Z110.PROCLIB                         Row 00001 of 00120
 Command ===>                                                  Scroll ===> PAGE
            Name     Prompt       Size   Created          Changed          ID
 _________ ARCHJCL  *Reset          69  2008/11/06  2008/11/06 15:49:25  SYSADM
 _________ 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
 _________ 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
 _________ DB8GWLMJ                 60  2008/11/06  2008/11/06 15:49:25  IBMUSER

Original - Volto a repetir, em uma empresa com um mainframe de verdade não acho isso legal de fazer é mais bacana assumir o erro;

Leia Mais