Customização no Hercules - Criando um Usuário no z/OS

O Hercules z/OS vem com alguns usuários pre-definidos para poder acessar o z/OS, se você quiser criar um usuário personalizado seu é só seguir este tutorial que você vai conseguir criar um usuário com as mesmas permissões do IBMUSER, neste exemplo vou criar um usuário chamado MASTER; Criei um outro post que ensina como criar um usuário por JCL, é bem mais facil - clique aqui

No TSO vamos acessar o RACF;

Para acessar o RACF a opção é 3;

Opção 4 que vamos usar para cadastrar o nosso novo usuário;

Opção 1 (ADD) e em USER colocamos o usuário que queremos criar, no meu caso coloquei MASTER;

Informei o nome (USERNAME), digitei a password duas vezes,

A última opção foi colocado YES;

Marque um X em TSO PARAMETERS - Vamos colocar algumas opções para acessar o TSO;

Essas são as opções que temos que colocar;

Usuário criado agora vamos pesquisar para ver como ele ficou definido;

Vamos marcar a primeira opção, TSO;

Primeira tela, PF8;

Esta lá as opções que colocamos;

Agora vamos rodar um job para dar algumas permissões ao nosso novo usuário;

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

 EDIT       ADCD.LIB.JCL(ADDUSER) - 01.01                   Columns 00001 00072
 ****** ***************************** Top of Data ******************************
 000001 //P390UID  JOB ' ','ADD NEW USERID',MSGCLASS=H,MSGLEVEL=(1,1),
 000002 //         REGION=4M,TIME=1440,NOTIFY=&SYSUID,CLASS=A
 000003 //****************************************************************
 000004 //*    PERMIT ACESS USER MASTER                                  *
 000005 //****************************************************************
 000006 //NEWID    EXEC PGM=IKJEFT01,DYNAMNBR=75,TIME=100,REGION=6M
 000007 //SYSPRINT DD SYSOUT=*
 000008 //SYSTSPRT DD SYSOUT=*
 000009 //SYSTERM  DD DUMMY
 000010 //SYSUADS  DD DSN=SYS1.UADS,DISP=SHR
 000011 //SYSLBC   DD DSN=SYS1.BRODCAST,DISP=SHR
 000012 //SYSTSIN  DD *
 000013   PERMIT ACCT#     CLASS(ACCTNUM) ID(MASTER)
 000014   PERMIT JCL       CLASS(TSOAUTH) ID(MASTER)
 000015   PERMIT OPER      CLASS(TSOAUTH) ID(MASTER)
 000016   PERMIT ACCT      CLASS(TSOAUTH) ID(MASTER)
 000017   PERMIT MOUNT     CLASS(TSOAUTH) ID(MASTER)
 000020 LOGOFF

 Command ===> SUB                                                 Scroll ===> PAGE
  F1=Help      F2=Split     F3=Exit      F5=Rfind     F6=Rchange   F7=Up
  F8=Down      F9=Swap     F10=Left     F11=Right    F12=Cancel

Resultado do job, rodou ok;

   Display  Filter  View  Print  Options  Help
 -------------------------------------------------------------------------------
 SDSF OUTPUT DISPLAY P390UID  JOB00907  DSID     2 LINE 0       COLUMNS 02- 81
 COMMAND INPUT ===>                                            SCROLL ===> CSR
********************************* TOP OF DATA **********************************
                         J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N

20.05.09 JOB00907 ---- TUESDAY,   17 NOV 2015 ----
20.05.09 JOB00907  IRR010I  USERID ADCDMST  IS ASSIGNED TO THIS JOB.
20.05.09 JOB00907  ICH70001I ADCDMST  LAST ACCESS AT 19:52:43 ON TUESDAY, NOVEMB
20.05.09 JOB00907  $HASP373 P390UID  STARTED - INIT 1    - CLASS A - SYS SYS1
20.05.09 JOB00907  IEF403I P390UID - STARTED - TIME=20.05.09
20.05.11 JOB00907  IEF404I P390UID - ENDED - TIME=20.05.11
20.05.11 JOB00907  $HASP395 P390UID  ENDED
------ JES2 JOB STATISTICS ------
  17 NOV 2015 JOB EXECUTION DATE
           20 CARDS READ
           68 SYSOUT PRINT RECORDS
            0 SYSOUT PUNCH RECORDS
            3 SYSOUT SPOOL KBYTES
         0.03 MINUTES EXECUTION TIME
        1 //P390UID  JOB ' ','ADD NEW USERID',MSGCLASS=H,MSGLEVEL=(1,1),
          //         REGION=4M,TIME=1440,NOTIFY=&SYSUID,CLASS=A
          //****************************************************************
          //*    PERMIT ACESS USER MASTER                                  *
          //****************************************************************
          IEFC653I SUBSTITUTION JCL - ' ','ADD NEW USERID',MSGCLASS=H,MSGLEVEL=(
          CLASS=A
        2 //NEWID    EXEC PGM=IKJEFT01,DYNAMNBR=75,TIME=100,REGION=6M
        3 //SYSPRINT DD SYSOUT=*
        4 //SYSTSPRT DD SYSOUT=*
        5 //SYSTERM  DD DUMMY
        6 //SYSUADS  DD DSN=SYS1.UADS,DISP=SHR
        7 //SYSLBC   DD DSN=SYS1.BRODCAST,DISP=SHR
        8 //SYSTSIN  DD *
ICH70001I ADCDMST  LAST ACCESS AT 19:52:43 ON TUESDAY, NOVEMBER 17, 2015
IEF236I ALLOC. FOR P390UID NEWID
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSTSPRT
IEF237I DMY  ALLOCATED TO SYSTERM
IEF237I 0A81 ALLOCATED TO SYSUADS
IEF237I 0A95 ALLOCATED TO SYSLBC
IEF237I JES2 ALLOCATED TO SYSTSIN
IEF142I P390UID NEWID - STEP WAS EXECUTED - COND CODE 0000
ICH70001I ADCDMST  LAST ACCESS AT 19:52:43 ON TUESDAY, NOVEMBER 17, 2015
IEF236I ALLOC. FOR P390UID NEWID
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSTSPRT
IEF237I DMY  ALLOCATED TO SYSTERM
IEF237I 0A81 ALLOCATED TO SYSUADS
IEF237I 0A95 ALLOCATED TO SYSLBC
IEF237I JES2 ALLOCATED TO SYSTSIN
IEF142I P390UID NEWID - STEP WAS EXECUTED - COND CODE 0000
IEF285I   ADCDMST.P390UID.JOB00907.D0000102.?          SYSOUT
IEF285I   ADCDMST.P390UID.JOB00907.D0000103.?          SYSOUT
IEF285I   SYS1.UADS                                    KEPT
IEF285I   VOL SER NOS= ZARES1.
IEF285I   SYS1.BRODCAST                                KEPT
IEF285I   VOL SER NOS= ZASYS1.
IEF285I   ADCDMST.P390UID.JOB00907.D0000101.?          SYSIN
IEF373I STEP/NEWID   /START 2015321.2005
IEF374I STEP/NEWID   /STOP  2015321.2005 CPU    0MIN 01.20SEC SRB    0MIN 00.18S
IEF375I  JOB/P390UID /START 2015321.2005
IEF376I  JOB/P390UID /STOP  2015321.2005 CPU    0MIN 01.20SEC SRB    0MIN 00.18S
READY
  PERMIT ACCT#     CLASS(ACCTNUM) ID(MASTER)
READY
  PERMIT JCL       CLASS(TSOAUTH) ID(MASTER)
READY
  PERMIT OPER      CLASS(TSOAUTH) ID(MASTER)
READY
  PERMIT ACCT      CLASS(TSOAUTH) ID(MASTER)
READY
  PERMIT MOUNT     CLASS(TSOAUTH) ID(MASTER)
READY
LOGOFF
******************************** BOTTOM OF DATA ********************************

Acessando o TSO com o nosso novo usuário;