09/11/15

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;

JCL para criar um novo usuário;
   Menu  Utilities  Compilers  Help

 BROWSE    ADCD.LIB.JCL(ADDUSER) - 01.03              Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************
//ADDIDS   JOB   (),
//         CLASS=A,
//         MSGCLASS=D,
//         MSGLEVEL=(1,1),
//         NOTIFY=&SYSUID,
//         TIME=1440
//* -------------------------------------------------------------- 
//* CRIANDO UM USUARIO NO RACF
//* -------------------------------------------------------------- 
//S0       EXEC PGM=IKJEFT01,DYNAMNBR=75,TIME=100,REGION=6M
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSUADS  DD DSN=SYS1.UADS,DISP=SHR
//SYSLBC   DD DSN=SYS1.BRODCAST,DISP=SHR
//SYSTSIN  DD *
  DELUSER MASTER 
  ADDUSER MASTER  +
  NAME('CLAUDEMAR') +
  OWNER(IBMUSER) +
  PASSWORD(INITPW) +
  TSO( +
    ACCTNUM(ACCT#) +
    PROC(ISPFPROC) +
    COMMAND(ISPF) +
    JOBCLASS(A) +
    MSGCLASS(X) +
    HOLDCLASS(X) +
    SYSOUTCLASS(X) +
    SIZE(40000) +
    MAXSIZE(0) ) +
    OMVS(HOME('/HOME/MASTER ') +
    PROGRAM('/BIN/SH') +
    UID(512) )
PERMIT   JCL      CLASS(TSOAUTH) ID(MASTER ) ACCESS(READ)
PERMIT   OPER     CLASS(TSOAUTH) ID(MASTER ) ACCESS(READ)
PERMIT   ACCT#    CLASS(ACCTNUM) ID(MASTER ) ACCESS(READ)
PERMIT   ISPFPROC CLASS(TSOPROC) ID(MASTER ) ACCESS(READ)
SETROPTS REFRESH  RACLIST(TSOPROC)
SETROPTS REFRESH  RACLIST(TSOAUTH)
SETROPTS REFRESH  RACLIST(ACCTNUM)

Job rodou ok;
   Display  Filter  View  Print  Options  Help
 -------------------------------------------------------------------------------
 SDSF OUTPUT DISPLAY ADDIDS   JOB00762  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

02.52.05 JOB00762 ---- TUESDAY,   10 NOV 2015 ----
02.52.05 JOB00762  IRR010I  USERID IBMUSER  IS ASSIGNED TO THIS JOB.
02.52.05 JOB00762  ICH70001I IBMUSER  LAST ACCESS AT 02:10:35 ON TUESDAY, NOVEMB
02.52.05 JOB00762  $HASP373 ADDIDS   STARTED - INIT 1    - CLASS A - SYS SYS1
02.52.05 JOB00762  IEF403I ADDIDS - STARTED - TIME=02.52.05
02.52.06 JOB00762  IEF404I ADDIDS - ENDED - TIME=02.52.06
02.52.06 JOB00762  $HASP395 ADDIDS   ENDED
------ JES2 JOB STATISTICS ------
  10 NOV 2015 JOB EXECUTION DATE
           40 CARDS READ
           75 SYSOUT PRINT RECORDS
            0 SYSOUT PUNCH RECORDS
            3 SYSOUT SPOOL KBYTES
         0.01 MINUTES EXECUTION TIME
        1 //ADDIDS   JOB   (),
          //         CLASS=A,
          //         MSGCLASS=D,
          //         MSGLEVEL=(1,1),
          //         NOTIFY=&SYSUID,
          //         TIME=1440
          //*
          IEFC653I SUBSTITUTION JCL - (),CLASS=A,MSGCLASS=D,MSGLEVEL=(1,1),NOTIF
        2 //S0       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 IBMUSER  LAST ACCESS AT 02:10:35 ON TUESDAY, NOVEMBER 10, 2015
IEF236I ALLOC. FOR ADDIDS S0
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 ADDIDS S0 - STEP WAS EXECUTED - COND CODE 0000
IEF285I   IBMUSER.ADDIDS.JOB00762.D0000102.?           SYSOUT
IEF285I   IBMUSER.ADDIDS.JOB00762.D0000103.?           SYSOUT
IEF285I   SYS1.UADS                                    KEPT
IEF285I   VOL SER NOS= ZARES1.
IEF285I   SYS1.BRODCAST                                KEPT
IEF285I   VOL SER NOS= ZASYS1.
IEF285I   IBMUSER.ADDIDS.JOB00762.D0000101.?           SYSIN
IEF373I STEP/S0      /START 2015314.0252
IEF374I STEP/S0      /STOP  2015314.0252 CPU    0MIN 00.70SEC SRB    0MIN 00.05S
IEF375I  JOB/ADDIDS  /START 2015314.0252
IEF376I  JOB/ADDIDS  /STOP  2015314.0252 CPU    0MIN 00.70SEC SRB    0MIN 00.05S
******************************** BOTTOM OF DATA ********************************

  F1=HELP      F2=SPLIT     F3=END       F4=RETURN    F5=IFIND     F6=BOOK
  F7=UP        F8=DOWN      F9=SWAP     F10=LEFT     F11=RIGHT    F12=RETRIEVE

A senha que foi criada para o meu usuário foi INITPW
 ------------------------------- TSO/E LOGON -----------------------------------


    Enter LOGON parameters below:                   RACF LOGON parameters:

    Userid    ===> MASTER 

    Password  ===>                                  New Password ===>

    Procedure ===> ISPFPROC                         Group Ident  ===>

    Acct Nmbr ===> ACCT#

    Size      ===> 40000

    Perform   ===>

    Command   ===> ISPF

    Enter an 'S' before each option desired below:
            -Nomail         -Nonotice        -Reconnect        -OIDcard

 PF1/PF13 ==> Help    PF3/PF15 ==> Logoff    PA1 ==> Attention    PA2 ==> Reshow
 You may request specific help information by entering a '?' in any entry field

Consegui acessar;
 ICH70001I MASTER   LAST ACCESS AT 02:53:29 ON TUESDAY, NOVEMBER 10, 2015
 IKJ56455I MASTER  LOGON IN PROGRESS AT 02:56:35 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 AUTH.|*
 * | SYSOPR           | SYS1/SYSOPR  | DB2 AND RACF SPECIAL AUTH.|*
 * | ADCDA THRU ADCDZ | TEST         | LIMITED AUTHOR.(NO OMVS)  |*
 * | OPEN1 THRU OPEN3 | SYS1         | UID(0) (NO TSO)           |*
 * +------------------+--------------+---------------------------+*
 *                                                                *
 ******************************************************************

 ISPF
 ***

Como consegui acessar vou fazer um teste - digito M enter
   Menu  Utilities  Compilers  Options  Status  Help

                            ISPF Primary Option Menu

 0  Settings      Terminal and user parameters            User ID . : MASTER 
 1  View          Display source data or listings         Time. . . : 02:56
 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: MASTER 
 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


 Option ===> M
  F1=Help      F2=Split     F3=Exit      F7=Backward  F8=Forward   F9=Swap
 F10=Actions  F12=Cancel

Opção 5 (enter)
   Menu  Help
 ------------------------------------------------------------------------------
                            IBM Products Panel

 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




 Option ===> 5
  F1=Help      F2=Split     F3=Exit      F7=Backward  F8=Forward   F9=Swap
 F10=Actions  F12=Cancel

Vamos ver os jobs, digite ST (enter)
   Display  Filter  View  Print  Options  Help
 -------------------------------------------------------------------------------
 HQX7750 -----------------  SDSF PRIMARY OPTION MENU  --------------------------

 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

 Licensed Materials - Property of IBM

 5694-A01 Copyright IBM Corp. 1981, 2008. All rights reserved.
 US Government Users Restricted Rights - Use, duplication or
 disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
 COMMAND INPUT ===> ST                                         SCROLL ===> PAGE
  F1=HELP      F2=SPLIT     F3=END       F4=RETURN    F5=IFIND     F6=BOOK
  F7=UP        F8=DOWN      F9=SWAP     F10=LEFT     F11=RIGHT    F12=RETRIEVE

Feito, consegui acessar - Agora é só brincar com este novo usuário;
   Display  Filter  View  Print  Options  Help
 -------------------------------------------------------------------------------
 SDSF STATUS DISPLAY ALL CLASSES                        LINE 1-17 (77)
 NP   JOBNAME  JobID    Owner    Prty Queue      C  Pos  SAff  ASys Status
      IBMUSER  TSU00761 IBMUSER    15 EXECUTION          SYS1  SYS1
      MASTER   TSU00765 MASTER     15 EXECUTION          SYS1  SYS1
      SYSLOG   STC00710 +MASTER+   15 EXECUTION          SYS1  SYS1
      VTAM     STC00712 START1     15 EXECUTION          SYS1  SYS1
      ZFS      STC00713 ++++++++   15 EXECUTION          SYS1  SYS1
      INIT     STC00714 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00715 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00716 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00717 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00718 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00719 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00720 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00721 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00722 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC00723 START2     15 EXECUTION          SYS1  SYS1
      TSO      STC00724 START1     15 EXECUTION          SYS1  SYS1
      SDSF     STC00726 START2     15 EXECUTION          SYS1  SYS1
 COMMAND INPUT ===>                                            SCROLL ===> PAGE
  F1=HELP      F2=SPLIT     F3=END       F4=RETURN    F5=IFIND     F6=BOOK
  F7=UP        F8=DOWN      F9=SWAP     F10=LEFT     F11=RIGHT    F12=RETRIEVE


0 comentários:

Enviar um comentário