27/11/15

Search-For Utility for TSO


Imagine que você criou um JCL para resolver um problema muito sério, depois de criar você rodou e resolveu o problema se passaram meses e o mesmo problema voltou a ocorrer e você tem que rodar o mesmo JCL mais não lembra o nome do membro que você criou, você sabe o nome da biblioteca e alguma outra coisa deste JCL, o TSO tem uma função muito interessante de busca em uma determinada biblioteca palavras que ajudam em muito a encontrar o jcl, para demonstrar vou criar um membro em uma biblioteca e vou colocar uma palavra chave que vou pesquisar, vou colocar a palavra chave chamada de PW3270
   Menu  Utilities  Compilers  Help

 BROWSE    ADCD.LIB.JCL(WX01) - 01.07                 Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************

PW3270 - PALAVRA QUE QUERO ENCONTRAR;

******************************** Bottom of Data ********************************













  F1=Help    F2=Split   F3=Exit    F5=Rfind   F7=Up      F8=Down    F9=Swap
 F10=Left   F11=Right  F12=Cancel

Iniciando a Pesquisa

Vamos acessar a opção 3.15 para fazer a pesquisa;
   Menu  Utilities  Compilers  Options  Status  Help

                            ISPF Primary Option Menu
 Option ===> 3.15

 0  Settings      Terminal and user parameters            User ID . : IBMUSER
 1  View          Display source data or listings         Time. . . : 15:44
 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:
 8  Workplace     ISPF Object/Action Workplace            System ID : ADCD
 9  IBM Products  IBM program development products        MVS acct. : ACCT#
 10 SCLM          SW Configuration Library Manager        Release . : ISPF 6.0
 11 SDSF          Spool Search and Display Facility
 M  More          Additional IBM Products

      Enter X to Terminate using log/list defaults


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

Parâmetros da Pesquisa

Observe os itens abaixo;
+-----------------+---------------------------------------+
| Search DS Name  | Coloco o nome da biblioteca entre ''  |
+-----------------+---------------------------------------+
| PDS Member List | Coloco *                              |
+-----------------+---------------------------------------+
| Caps            | Coloco a palavra que quero encontrar  |
+-----------------+---------------------------------------+

Ficando assim;
   Menu  Utilities  Options  Help

                          Extended Search-For Utility
 Command ===>
                                                                    More:     +
 Search DS Name  . . 'ADCD.LIB.JCL'
 PDS Member List . . *         (blank/pattern - member list, * - search all)

 (Leave Search DSN "blank" for concatenated-uncataloged-password panel)

 Enter Search Strings and Optional operands (WORD/PREFIX/SUFFIX,C)
    Caps . . PW3270
    Caps . .
    Caps . .
    Asis . .
    Asis . .

 Listing DSN . . . . IBMUSER.SRCHFOR.LIST
 Process Options . .
 Statements Dsn  . .

 Enter "/" to select option      Execution Mode          Output Mode
  F1=Help      F2=Split     F3=Exit      F7=Backward  F8=Forward   F9=Swap
 F10=Actions  F12=Cancel

O resultado olhando rapidamente parece ser meio confuso mais observa que no começo da linha onde aparece a palavra STRING(S) FOUND tem um nome - este é o nome do membro que tem esta palavra;
   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

 VIEW       IBMUSER.SRCHFOR.LIST                            Columns 00001 00072
 Command ===>                                                  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 1  ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF
 000002   LINE-#  SOURCE SECTION                    SRCH DSN: ADCD.LIB.JCL
 000003
 000004
 000005   WX01                        --------- STRING(S) FOUND ----------------
 000006
 000007        2  PW3270 - PALAVRA QUE QUERO ENCONTRAR;
 000008
 000009 1  ISRSUPC   -   MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF
 000010       SEARCH-FOR SUMMARY SECTION            SRCH DSN: ADCD.LIB.JCL
 000011
 000012  LINES-FOUND  LINES-PROC  MEMBERS-W/LNS  MEMBERS-WO/LNS  COMPARE-COLS  L
 000013          1        39864            1            491           1:80
 000014
 000015
  F1=Help      F2=Split     F3=Exit      F5=Rfind     F6=Rchange   F7=Up
  F8=Down      F9=Swap     F10=Left     F11=Right    F12=Cancel


Leia Mais

26/11/15

RACF - Resource Access Control Facility

O RACF (RESOURCE ACCESS CONTROL FACILITY ) é um software de segurança que permite o controle de acessos e proteção de recursos, garantindo a segurança e integridade do ambiernte. Suas principais funções são:

Autenticação - Realizado em 2 passos. O primeiro é identificar o usuário que está acessando, e o segundo é autenticá-lo, para isso é usado um ID e uma senha. Pode-se ainda usar certificado digital e cartões de acesso.

Autorização - O RACF controla a interação do ambiente com os usuários, autorizando o tipo de acesso (leitura e/ou gravação) a cada recurso e/ou datasets.

Auditoria - Através da log, onde é gravada todo tipo de registro de acesso aos recursos, autorizado ou não.

O RACF armazena suas informações em um banco de dados, sendo consultado a todo instante que o RACF recebe um pedido de consulta. Pode-se ainda ter um banco secundário, mudando-o a qualquer instante, sem precisar parar o produto ou realizando um IPL.

Banco de Dados RACF

O banco de dados RACF armazena informações sobre usuários, grupos, conjuntos de dados e outros recursos. Os registros do banco de dados que descrevem esses objetos são chamados de perfis. O banco de dados RACF tem diferentes tipos de perfis. Um perfil que protege um único recurso, como por exemplo uma transação ou tecla criptográfica é chamado de perfil discreto. Um perfil que protege vários recursos é chamado de perfil genérico. O banco de dados RACF também utiliza perfis de usuários e do grupo.

Nota: Os perfis RACF não devem ser confundidos com os perfis do Tivoli Secureway User Adminstration. Para obter mais informações sobre os perfis do Tivoli SecureWay User Administration, consulte Perfis de Usuário e de Grupo.

Segmentos RACF

Os segmentos dos perfis RACF são extensões opcionais do perfil base que contém informações sobre um determinado aplicativo ou função de gerenciamento. Por exemplo, se o usuário precisa executar o Customer Information Control System (CICS), seu perfil de usuário requer um segmento CICS. Os perfis de usuários podem exigir vários segmentos adicionais para acomodar as atividades necessárias para um usuário.

Autenticação do Usuário

Ao iniciar sessão no sistema operacional, o usuário deve especificar um ID do usuário e senha válidos. O RACF também oferece suporte a alternativas para senhas tradicionais. Por exemplo, o RACF oferece suporte a passtickets. O passticket pode ser gerado pelo RACF ou por outra função autorizada e pode ser utilizado somente se estiver em um determinado sistema dentro de um período de tempo limitado. Ao autenticar um usuário, o RACF verifica o seguinte:

* Se o usuário está definido no RACF
* Se o usuário forneceu uma senha ou uma alternativa válidas, como por exemplo um passticket
* Se o UID (ID do usuário) e o GID (ID do grupo) são válidos no UNIX OS/390
* Se o ID do usuário está no status de revogação, o que impede que um usuário definido pelo RACF entre no sistema ou acesse determinados grupos
* Se o usuário tem autorização para utilizar o sistema nesse dia e hora
* Se o usuário tem autorização para acessar o terminal

Autorização de Recursos

Quando o usuário solicita acesso a um recurso, o gerenciador de recurso do sistema emite um pedido do RACF para verificar se o usuário tem autorização para acessar o recurso. O RACF verifica o perfil que contém informações sobre o recurso solicitado no banco de dados do RACF. O RACF passa essas informações ao gerenciador de recurso do sistema. Com base nessas informações, o gerenciador de recurso do sistema concede ou nega o pedido.

Atributos do Usuário RACF

Os usuários com funções de job diferentes exigem tipos de acesso a recursos diferentes. Os atributos do usuário do RACF podem fornecer a um usuário direitos de acesso especiais aos recursos. Os atributos do usuário também determinam o que um usuário pode fazer com o banco de dados do RACF. A seguir são fornecidos alguns exemplos de atributos básicos do usuário RACF:

ESPECIAL -- Este atributo de usuário é válido para um administrador RACF que tem direito de utilizar todos os comandos do RACF e definir qualquer tipo de perfil no banco de dados RACF. O atributo ESPECIAL do RACF permite que o usuário gerencie o conteúdo do banco de dados do RACF, mas não oferece acesso especial aos outros recursos do OS/390 além do que um usuário comum teria.

OPERAÇÕES -- Este atributo de usuário fornece ao usuário acesso a todos os conjuntos de dados e a algumas classes de recursos adicionais no sistema. O atributo também permite que o usuário aloque conjuntos de dados para qualquer outro usuário no sistema. Por motivos de segurança, esse atributo deve ser fornecido somente a IDs do usuário temporários, abertos em situações de emergência.

AUDITOR -- Este atributo de usuário é válido para um usuário responsável pela auditoria do banco de dados RACF, além de logs e integridade do sistema. O atributo AUDITOR fornece ao usuário o direito de observar todos os perfis do banco de dados RACF e alterar os atributos de auditoria do sistema e de perfis individuais.

REVOGAR -- Este atributo de usuário fornece uma forma de impedir que um usuário definido para RACF utilize o sistema. O atributo REVOGAR pode ser disparado quando o usuário digita uma senha incorreta muitas vezes, ou não inicia sessão no sistema por um determinado número de dias. Esse atributo também pode ser válido quando um administrador revoga o perfil do usuário.

Comandos do RACF

Os Comandos usados no RACF são divididos por tipos, ou seja, para cada tipo de definição há um grupo específico.

Comandos de Função
DEFINE
ALTER
LIST
DELETE

Comandos de Usuário
ADDUSER
ALTUSER
LISTUSER
DELUSER

Comandos de Grupo
ADDGROUP
ALTGROUP
LISTGROUP
DELGROUP

Comandos de Dataset
ADDSD
ALTDSD
LISTDSD
DELDSD

Comandos para Recurso Geral
RDEFINE
RALTER
RLIST
RDELETE
Para cada tipo de recurso existe uma variedade de comandos para se controlar os acessos. Existem varias maneiras de se executar os comandos:

1) Pelo TSO, digitando comandos na tela principal do ISPF, ou na tela 6
RDEFINE FACILITY BPX.SUPERUSER UACC(NONE)
PERMIT BPX.SUPERUSER CLASS(FACILITY) ID(JANE) ACCESS(READ)
SEARCH MASK(FZPRKD) CLASS(DATASET)
Existe o commando HELP, que pode ser consultado a qualquer hora, seguido do comando que vc deseja saber mais informações, ou limitar a somente a SINTAX do comando em si.

2) Por batch, utilizando o programa IKJEFT01:
TSOBAT01 EXEC PGM=IKJEFT01
SYSTSPRT DD SYSOUT=*
SYSPRINT DD SYSOUT=*
SYSUADS DD DSN=SYS1.UADS,DISP=SHR
SYSLBC DD DSN=SYS1.BRODCAST,DISP=SHR
SYSTSIN DD *



/*

3) Pelos paineis do RACF

CLASSES

O bando de dados do RACF armazena as informações sobre os usuários grupos e recursos. Um conjunto de profiles de um mesmo tipo se torna uma classe. Quando é definido as profiles dos usuários, não se aloca ela na classes de DATASET e sim de USER, pois as profiles armazenam informações semelhantes como NOME do usuário, OWNER, AUTHORITY, etc, assim como não se cria uma profile de DATASET na classe de DASD. Existem várias classes ja pré-definidas no ambiente como USER, DATASET e GROUP, mas pode-se ativar as outras classes de acordo com a necessidade. As classes ficam armazenadas na CDT (Class Descriptor Table). Se usa o comando SETROPTS para se fazer a manutenção das classes.

SETROPTS CLASSACT()

Algumas classes que podem ser ativadas são:

TAPEVOL Classe de segurança para Fitas
SDSF Classe de segurança da sysout do SDSF
OPERCMDS Classe de segurança para controlar quem pode dar comandos de operador
PROGRAM Classe de segurança para programas

Pode ser ver quais classes estão ativas com o comando:

SETROPTS LIST

Pode se incluir novas classes, de acordo com a instalação de novos produtos (utilizando os comandos RDEFINE e RALTER), porém deve-se seguir as definições e particularidades do software descrita no manual do software a ser instalado.

PROFILES

Profile (ou perfil), são informações referentes aos recursos protegidos pelo RACF. Ele protege basicamente 2 tipos de recursos: Dataset ou Recursos (Resources). Tudo o que não for um dataset, é um recurso. Os recursos se resumem a DASD, fitas, programas, terminais, entre outros.

Essas informações ficam armazenadas em profiles, que são nada mais que perfis. Os profiles de Dataset contem informações como, aonde está localizado o dataset (DASD ou Fita). As profiles de Recursos contém informações genéricas. Cada recurso que é definido no RACF, é criado uma profile, porém pode-se usar uma única profile para progeter mais de um único recurso.

Discrete - Tem relação de 1 para 1 com o recurso ( 1 profile para cada recurso). Ex: Se cria uma única profile para proteger um único arquivo ‘GP.PROD.AGENCIA’

Generic Tem relação de 1 para N . Uma profile controla acesso a vários recursos, onde os nomes contem padrões ou caracteres que o RACF usa para associar uns aos outros. Esse tipo de profile contém uma lista de usuários autorizados e qual tipo de acesso cada um possui. Ex: Se cria uma profile para proteger todos os dataset que tenham ´GP.PROD´ no inicio do nome, e ainda o usuário A so pode ler enquanto o usuário B pode alterar. Grouped - Pode não conseguir criar um padrão de nome nos recursos para se criar apenas uma profile. No caso se usa uma profile grouped, aonde se agrupa vários recursos e/ou datasets sem padrão no nome, como ocorre no generic.

Ex: Uma profile para vários datasets ´GP.PROD.G0001´, ´BZ.DESA.CONTA´, ´BANANA.SPLIT´ .

1) Profile de Usuário

Para cada usuário, se cria um user profile na classe USER . O profile consiste em segmentos e opcionalmente outras informações relacionadas ao usuário ou ao recurso que o utiliza.

User ID -> é o nome do profile, RACF permite apenas a criação de um unico identifier para cada usuário. O tamanho máximo do usuário é 8 caracteres, mas o tamanho máximo permitido pelo TSO é 7. O ID é unico e não pode ser repetido.

Owner -> O owner do profile tem a autoridade para muda-lo. Todo profile no RACF precisa de um owner.

Password -> Campo criptografado. Não é possivel descriptografar a senha, se a senha for esquecida, o administrador pode por uma senha temporaria e o usuário pode muda-la no próximo logon.

Atributos -> Esse campo contém atributos extraordinários. Os Atributos SPECIAL, OPERATIONS e AUDITOR devem ser dado apenas a algumas pessoas.

Groups -> um user ID pertence no minino au seu proprio grupo, mas pode fazer parte de outros grupos

1.1) Atributos de Usuário

Atributos de usuário são acessos especiais no ambiente, que podem ser assinadas ao usuario quando conectadas algum grupo especifico. Quando um atributo é aplicado no sistema inteiro, e especificado em niveis é chamado atributo de usuário. Quando um atributo é aplicado apenas em um grupo especifico é chamado de group-related user attribute. Atributos de usuario é especificado com os comandos ADDUSER ou ALTUSER e armazenados na profile do usuário sem levar em consideraçao o grupo no qual o usuario esta conectado. Entretanto, atributos que se espefica com o comando CONNECT são validos apenas para o grupo.

Os atributos de usuários são:

SPECIAL Um usuario que tem SPECIAL pode executar todos os comandos RACF, e so é usado por administradores. Este atributo da o controle total sobre todos os profiles do banco de dados do RACF. Ainda se pode atribuir o SPECIAL num nivel de grupo. Quando se faz isso, apenas se tem acesso as profiles de quem esta dentro do grupo.

AUDITOR Este atributo é dado para os usuários que são responsáveis por auditar o RACF. Ainda se pode atribuir o AUDITOR num nivel de grupo. Quando se faz isso, apenas se tem acesso as profiles de quem esta dentro do grupo.

OPERATIONS Tem acesso total nas classes DATASET, DASDVOL, GDASDVOL, PSFMPL, TAPEVOL, VMBATCH, VMCMD, VMMDISK, VMNODE e VMRDR . Ainda se pode atribuir o OPERATIONS num nivel de grupo. Quando se faz isso, apenas se tem acesso aos recursos de acesso ao grupo.

REVOKE Não deixa o usuario entrar no sistema. Pode ser usado tambem em um grupo. Pode tambem ser programada a inclusão do REVOKE ou ate a retirada com o comando RESUME.
CLAUTH Permite criar profiles dentro de uma classe
RESTRICTED Não deixa o usuário receber acesso temporaio com os comandos de ADDUSER e ALTUSER.
PROTECTED Não revoga o acesso
WHEN Especifica uma data (dia da semana, hora do dia) que o usuario pode usar o sistema.

Quando se define um usuário é essencial que o nome do default group seja definido. Cada usuário criado precisa no minimo estar associado ao seu próprio grupo, mas pode estar associado a varios grupos. Além disso é necessário ter um owner no profile do usuário. Normalmente o default group é escolhido como o owner.

1.2) Segmentos do Usuário

Quando se cria um usuario no RACF, tambem se cria o seu perfil no banco de dados. Um perfil de usuário consistem em segmentos, que são os diversos softwares do ambiente no qual o usuário precisa de acesso para trabalhar.

-> CICS
-> DCE
-> DFP
-> LANGUAGE
-> LNOTES
-> NDS
-> NETVIEW
-> OMVS
-> OPERPARM
-> OVM
-> TSO
-> WORKATTR

As informações referentes a cada segmento ficam no profile de cada usuário do RACF

USERID - identificação do usuário (ID)
NAME - Nome do usuário
OWNER - Owner do profile do usuário
DFLTGRP - Grupo padrão do usuário
AUTHORITY - Autoridade do Usuário no grupo padrão
PASSWORD - senha do usuário (criptografado)
PWD PHRASE - Opcionalmente frase-senha (criptografado)
REVOKE - Data que o RACF bloqueia o acesso desse ID no sistema
RESUME -Data que o RACF libera o acesso no sistema
UACC - Universal access authority para recursos que o usuário criar
WHEN - Dia da semana e as horas do dia que o usuario pode usar o ambiente
ADDCATEGORY - Categoria de segurança do usuário
SECLEVEL - Nivel de Segurança do usuário
CLAUTH - Classes que o usuário pode criar profiles
SPECIAL - indica se o usuário tem o atributo SPECIAL
AUDITOR - indica se o usuário tem o atributo AUDITOR
OPERATIONS - indica se o usuário tem o atributo OPERATIONS
ADSP - Indica que todos os dataset que o usuario criar serão protegidos pelo RACF
GRPACC - Indica que os usuarios de outro grupo tem acesso aos dataset do outros usuários
MODEL - Qual foi o ID modelo criado para este ID
OIDCARD - Indica que o usuario deve indicar um ID card quando logar
SECLABEL - Label default de segurança
CERTNAME - O nome da profile na classe DIGTCERT que está relacioanda a este ID
CERTLABL - O label certificado associado ao profile da Classe DIGTCERT que está relacionado a este ID

1.3) Como Adicionar uma Profile de Usuário

Por comandos no TSO:
ADDUSER  NAME(‘NOME DO USUARIO’) DFLTGRP() OWNER() PASSWORD()
Pelas telas do RACF:

- Na tela principal do RACF escolher a opção “USER PROFILES AND YOUR OWN PASSWORD”
- Colocar opção 1 add e colocar o ID que será criado no campo USER
- Preencher os campos : OWNER ( user ID ), USER NAME ( nome do usuário ) e DEFAULT GROUP ( grupo )
- Preencher os campos de USER ATTRIBUTES com YES conforme necessidade:

As opções são: GROUP ACCESS, SPECIAL, ADSP, OPERATIONS, OIDCARD, AUDUTOR, etc

A mensagem Profile Added no canto superior direito da tela.

1.4) Senha

Para se resetar a senha no caso de esquecimento ou violação pode ser emitir o comando no TSO:

Usuário IBMUSER:

 - Caso a senha esteja violada - A senha vai ser alterada para ibmuser
ALU ibmuser PASS(ibmuser)

- Caso a senha não esteja violada - A senha vai ser alterada para ibmuser
ALU ibmuser RESUME PASS(ibmuser)

Menu  Utilities  Compilers  Options  Status  Help                            
                                                                                
                            ISPF Primary Option Menu                            
                                                                                
0  Settings      Terminal and user parameters            User ID . : ADCDA     
1  View          Display source data or listings         Time. . . : 16:07     
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: ADCDA     
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 5.6  
M  More          Additional IBM Products                                       
                                                                                
                                                                                
      Enter X to Terminate using log/list defaults                              
                                                                                
                                                                                
Option ===> 6

Menu  List  Mode  Functions  Utilities  Help                                 
                                                                                
                               ISPF Command Shell                               
Enter TSO or Workstation commands below:                                       
                                                                                
===>                                                                           
                                                                                
                                                                                
                                                                                
Place cursor on choice and press enter to Retrieve command                     
                                                                                
=> ALU ibmuser PASS(ibmuser)                                                   
=> ALU ibmuser RESUME PASS(ibmuser)                                            
=>
=>
=>
=>
=>
=>
=>
=>

Ou pelas telas do RACF:

- opção 4 PASSWORD e colocando o USER ID no campo USER
- Preencher o campo de senha ou de frase-senha

Grupos RACF

Cada usuário RACF é membro de no mínimo um grupo RACF. Um usuário que pertence a um grupo é chamado de conectado ao grupo. Os grupos RACF podem ter várias finalidades. As mais comuns são as seguintes:

* Grupos de proteção de recursos permitem que você proteja conjuntos de dados. Existem dois tipos de conjuntos de dados: conjuntos de dados do usuário e conjuntos de dados do grupo. O qualificador de primeiro nível para obter acesso a um conjunto de dados do usuário é o ID do usuário. Para todos os outros conjuntos de dados, o qualificador de primeiro nível é definido como um grupo do RACF. Por exemplo, para proteger um conjunto de dados CICS41.LOADLIB, você precisa definir um grupo com o nome CICS41. A seguir, você pode definir os perfis de conjuntos de dados RACF que começam com CICS41, para sua proteção.

* Grupos administrativos podem ser utilizados para informações. Uma forma comum de utilizar esses grupos é criar uma estrutura que emule a organização dos departamentos e divisões da sua empresa. Em seguida, conecte os usuários pertencentes a um departamento ao grupo correspondente. Quando você precisar saber quem trabalha em um determinado departamento, pode descobrir listando o grupo que representa o departamento.

* Grupos funcionais são os grupos que representam funções de trabalho ou responsabilidades e são utilizados para fornecer direitos de acesso aos usuários. Por exemplo, se sua empresa tem a função de contador, crie o grupo RACF CONTA para representar essa função. Em seguida, conecte todos os contadores a esse grupo, supondo que eles tenham os mesmos requisitos de acesso. Após isso, digite o grupo CONTA em todas as listas de acesso para os recursos aos quais os contadores precisam ter acesso.

Os atributos de usuário ESPECIAL, OPERAÇÕES e AUDITOR podem ser concedidos a um usuário através de sua conexão a um grupo. Quando recebidos através de um grupo, esses atributos são denominados GRUPO-ESPECIAL, GRUPO-OPERAÇÕES, etc. Um usuário com um desses atributos pode utilizar o atributo somente para acessar recursos de propriedade do grupo.

2.1) Como Adicionar um Grupo

Pela tela do TSO:
ADDGROUP  OWNER() SUPGROUP()
Ou pelas telas do RACF:

- Opção 3 GROUP PROFILES AND USER-TO-GROUP CONNECTIONS
- Opção 1 para Adicionar, coloque o nome do grupo na opção GROUP NAME.
- Preencha o campo OWNER, e SUPERIOR GROUP.
- O Profile foi adicionado! Uma mensagem de Profile Added vai aparecer no canto direito esquerdo da tela.

2.2) Como Alterar um Grupo

Pela Tela do TSO:
ALTGROUP  OWNER() SUPGROUP() TERMUACC|NOTERMUACC

Podendo também se fazer pelas telas do RACF:

- Opção 3 GROUP PROFILES AND USER-TO-GROUP CONNECTIONS
- Opção 2 CHANGE, coloque o nome do grupo no campo GROUP NAME
- Altere as informações desejadas: Owner, Superior Group, etc.
- O grupo foi alterado. Uma mensagem de Profile Changed vai aparecer no canto direito esquerdo da tela.

2.3) Conectando um Usuário em um Grupo

Pela tela do TSO:
CONNECT  GROUP()

Ou pelas telas do RACF:

- Opção 4 CONNECT, colocando o grupo no qual o usuario será conectado
- Preencha o campo USER com o nome do usuario que vc deseja conectar, o OWNER, qual o UACC que o usuário terá nos arquivos do grupo e a autoridade no grupo.
- Preencha os campos conforme a necessidade mudando de NO pra YES: Group Access, ADSP, Revoke, Resume, etc.
- Usuário foi conectado ao grupo! Uma mensagem de User Connected vai aparecer no canto direito esquerdo da tela.

Clique Aqui


Leia Mais

25/11/15

Entendo Sobre JCL de SORT

Introdução sobre Sort

Para quem nunca mexeu com JCL hoje vamos mostrar as funcionalidades que é uma mão na roda o SORT, o que ele faz? Imagine que você tem um arquivo com o nome e o telefone de várias amigos só que os nomes estão fora de ordem, o SORT classifica os nomes em ordem ascendente/descendente deixando mais fácil para você localizar os nomes e números de telefone, vamos começar a colocar a mão na massa e ver como funciona na pratica;

O nosso jcl de teste, reparem que o SORTIN (é onde esta a nossa entrada de dados), o resultado (saída) SORTOUT vai ser aonde vamos jogar os dados classificados do nosso SORT, neste exemplo estamos gravando em um dataset, o parametro SORT FIELDS=(1,6,CH,D) - é como vamos classificar os dados - 1,6 - vamos pegar da primeira posição o número 6 quer dizer o tamanho total do campo;

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

 EDIT       ADCD.LIB.JCL(SORT2) - 01.02                     Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 000001 //SORT1      JOB (20,FB3),TRALEY,COND=(0,NE),
 000002 //            CLASS=A,MSGCLASS=H,NOTIFY=IBMUSER,REGION=5M
 000003 //* ------------------------------------------------------
 000004 //*                RODANDO JCL DE SORT
 000005 //* ------------------------------------------------------
 000006 //SORT     EXEC PGM=SORT
 000007 //SORTIN   DD *
 000008 AAAAAA 999999 APARECIDA
 000009 BBBBBB 888888 BENEDITA
 000010 CCCCCC 777777 CIDA COSTA
 000011 DDDDDD 666666 DIANA
 000012 EEEEEE 555555 ELEDIANA
 000013 HHHHHH 444444 FRANCISCA
 000014 //SYSOUT   DD SYSOUT=A
 000015 //SORTOUT  DD  DSN=IBMUSER.SORT,DISP=(NEW,CATLG),
 000016 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160),
 000017 //         UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
 000018 //SYSIN    DD *
 000019    SORT FIELDS=(1,6,CH,D)
 000020    RECORD TYPE=F,LENGTH=(1500)
 ****** **************************** Bottom of Data ****************************


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

Depois de rodar vamos voltar na tela inicial, vamos checar o resultado do nosso dataset, opção 3.4 (enter) para a gente ver o novo arquivo criado;
   Menu  Utilities  Compilers  Options  Status  Help

                            ISPF Primary Option Menu

 0  Settings      Terminal and user parameters            User ID . : ADCDMST
 1  View          Display source data or listings         Time. . . : 12:47
 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: ADCDMST
 8  Workplace     ISPF Object/Action Workplace            System ID : ADCD
 9  IBM Products  IBM program development products        MVS acct. : ACCT#
 10 SCLM          SW Configuration Library Manager        Release . : ISPF 6.0
 11 SDSF          Spool Search and Display Facility
 M  More          Additional IBM Products

      Enter X to Terminate using log/list defaults


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

Coloque o nome do arquivo;
   Menu  RefList  RefMode  Utilities  Help

                             Data Set List Utility
                                                                    More:     +
    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 . . . IBMUSER.SORT
    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,
 Option ===>
  F1=Help      F2=Split     F3=Exit      F7=Backward  F8=Forward   F9=Swap
 F10=Actions  F12=Cancel

Coloque B abaixo de command (tecle enter);
   Menu  Options  View  Utilities  Compilers  Help

 DSLIST - Data Sets Matching IBMUSER.SORT                            Row 1 of 1

 Command - Enter "/" to select action                  Message           Volume
 -------------------------------------------------------------------------------
 b        IBMUSER.SORT                                                   ZASYS1
 ***************************** End of Data Set list ****************************













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

Olha o resultado, a posição 1 até a 6 foi classificada em forma descentente (do maior para o menor);
   Menu  Utilities  Compilers  Help

 BROWSE    IBMUSER.SORT                               Line 00000000 Col 001 080
********************************* Top of Data **********************************
HHHHHH 444444 FRANCISCA
EEEEEE 555555 ELEDIANA
DDDDDD 666666 DIANA
CCCCCC 777777 CIDA COSTA
BBBBBB 888888 BENEDITA
AAAAAA 999999 APARECIDA
******************************** Bottom of Data ********************************










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

Agora vamos rodar o job de novo, vamos classificar os campos númericos só que agora vamos classificar em ascendente do menor para o maior valor, o parametro SORT FIELDS=(8,6,CH,A) - a primeira posição é a oitava - o tamanho desse campo é 6 e vamos classificar de ascendente (A) - um detalhe importante, como este arquivo já existe temos que alterar o parametro disp do arquivo - em //SORTOUT DD DSN=IBMUSER.SORT,DISP=(NEW,CATLG), agora vai ficar como //SORTOUT DD DSN=IBMUSER.SORT,DISP=(SHR), rodando;
   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

 EDIT       ADCD.LIB.JCL(SORT2) - 01.03                     Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 000001 //SORT1      JOB (20,FB3),TRALEY,COND=(0,NE),
 000002 //            CLASS=A,MSGCLASS=H,NOTIFY=IBMUSER,REGION=5M
 000003 //* ------------------------------------------------------
 000004 //*                RODANDO JCL DE SORT
 000005 //* ------------------------------------------------------
 000006 //SORT     EXEC PGM=SORT
 000007 //SORTIN   DD *
 000008 AAAAAA 999999 APARECIDA
 000009 BBBBBB 888888 BENEDITA
 000010 CCCCCC 777777 CIDA COSTA
 000011 DDDDDD 666666 DIANA
 000012 EEEEEE 555555 ELEDIANA
 000013 HHHHHH 444444 FRANCISCA
 000014 //SYSOUT   DD SYSOUT=A
 000015 //SORTOUT  DD  DSN=IBMUSER.SORT,DISP=(SHR),
 000016 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160),
 000017 //         UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
 000018 //SYSIN    DD *
 000019    SORT FIELDS=(8,6,CH,A)
 000020    RECORD TYPE=F,LENGTH=(1500)
 ****** **************************** Bottom of Data ****************************
  F1=Help      F2=Split     F3=Exit      F5=Rfind     F6=Rchange   F7=Up
  F8=Down      F9=Swap     F10=Left     F11=Right    F12=Cancel

Resultado, do menor para o maior;
   Menu  Utilities  Compilers  Help

 BROWSE    IBMUSER.SORT                               Line 00000000 Col 001 080
********************************* Top of Data **********************************
HHHHHH 444444 FRANCISCA
EEEEEE 555555 ELEDIANA
DDDDDD 666666 DIANA
CCCCCC 777777 CIDA COSTA
BBBBBB 888888 BENEDITA
AAAAAA 999999 APARECIDA
******************************** Bottom of Data ********************************










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


Leia Mais

24/11/15

RACFUNLD - Rodando um Unload Utility

O JOB RACFUNLD executa o utilitário de unload (descarrega) as informações de do RACF e cria um dataset dos registros do unload. Este dataset de unload é usado como entrada para o processo de carregamento.

Este JCL é muito interessante, nele vamos pegar todas as informações dos usuários cadastrados no nosso RACF e gravar em um dataset, quem nunca mexeu com mainframe vai ser uma experiencia vem bacana ver rodar um job e ver o resultado que criou no final do processamento;
//RACFUNLD JOB  'RACFUNLD',
//         NOTIFY=&SYSUID,
//         CLASS=A,
//         MSGCLASS=X,
//         MSGLEVEL=(1,1),
//         REGION=6000K,
//         COND=(4,LT)
//UNLOAD   EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
//SYSPRINT DD SYSOUT=A,COPIES=1,DEST=U1018
//****************************************************
//* CHANGE SYS1.RACFDB.BACKUP TO YOUR RACF DB
//* CHANGE CASE.RACFUNLD TO YOUR OWN
//****************************************************
//INDD1    DD   DISP=SHR,DSN=SYS1.RACFDS.BACKUP
//OUTDD    DD   DSN=CASE.RACF.FLATFILE,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(70,10),RLSE),
//            DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)

No meu TSO ficou assim, juntei o começo, vamos rodar ele em COMMAND coloquei SUB;
   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

 EDIT       ADCD.LIB.JCL(RACFUNLD) - 01.03                  Columns 00001 00072
 Command ===> sub                                              Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 000200 //RACFUNLD JOB  'RACFUNLD',NOTIFY=&SYSUID,CLASS=A,
 001100 //         MSGCLASS=X,MSGLEVEL=(1,1),REGION=6000K,
 001400 //         COND=(4,LT)
 001500 //UNLOAD   EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
 001600 //SYSPRINT DD SYSOUT=A,COPIES=1
 001700 //****************************************************
 001800 //* CHANGE SYS1.RACFDB.BACKUP TO YOUR RACF DB
 001900 //* CHANGE CASE.RACFUNLD TO YOUR OWN
 002000 //****************************************************
 002100 //INDD1    DD   DISP=SHR,DSN=SYS1.RACFDS.BACKUP
 002210 //OUTDD    DD   DSN=CASE.RACF.FLATFILE,
 002300 //            DISP=(NEW,CATLG,DELETE),
 002400 //            SPACE=(CYL,(70,10),RLSE),
 002500 //            DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)
 ****** **************************** Bottom of Data ****************************


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

Rodou o job 1382;
   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help

 EDIT       ADCD.LIB.JCL(RACFUNLD) - 01.03                  Columns 00001 00072
 Command ===> sub                                              Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 000200 //RACFUNLD JOB  'RACFUNLD',NOTIFY=&SYSUID,CLASS=A,
 001100 //         MSGCLASS=X,MSGLEVEL=(1,1),REGION=6000K,
 001400 //         COND=(4,LT)
 001500 //UNLOAD   EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
 001600 //SYSPRINT DD SYSOUT=A,COPIES=1
 001700 //****************************************************
 001800 //* CHANGE SYS1.RACFDB.BACKUP TO YOUR RACF DB
 001900 //* CHANGE CASE.RACFUNLD TO YOUR OWN
 002000 //****************************************************
 002100 //INDD1    DD   DISP=SHR,DSN=SYS1.RACFDS.BACKUP
 002210 //OUTDD    DD   DSN=CASE.RACF.FLATFILE,
 002300 //            DISP=(NEW,CATLG,DELETE),
 002400 //            SPACE=(CYL,(70,10),RLSE),
 002500 //            DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)
 ****** **************************** Bottom of Data ***************************
 IKJ56250I JOB RACFUNLD(JOB01382) SUBMITTED
 ***

Depois de 5 segundos recebo esta informação
 17.38.26 JOB01382 $HASP165 RACFUNLD ENDED AT N1  MAXCC=0 CN(INTERNAL)
 ***

Agora vamos ver como o job rodou, na tela inicial do TSO digite 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. . . : 17:39
 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:
 8  Workplace     ISPF Object/Action Workplace            System ID : ADCD
 9  IBM Products  IBM program development products        MVS acct. : ACCT#
 10 SCLM          SW Configuration Library Manager        Release . : ISPF 6.0
 11 SDSF          Spool Search and Display Facility
 M  More          Additional IBM Products

      Enter X to Terminate using log/list defaults


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

Digite 5 (enter)
   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




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

Agora vamos pesquisar o job digite ST (enter);
   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

 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.
 PF 1=HELP      2=SPLIT     3=END       4=RETURN    5=IFIND     6=BOOK
 PF 7=UP        8=DOWN      9=SWAP     10=LEFT     11=RIGHT    12=RETRIEVE

Vamos pesquisar o nosso job digite FIND RACFUNLD (ou de PF8 e observe o nome até encontrar);
   Display  Filter  View  Print  Options  Help
 -------------------------------------------------------------------------------
 SDSF STATUS DISPLAY ALL CLASSES                        LINE 1-17 (34)
 COMMAND INPUT ===> find RACFUNLD                              SCROLL ===> CSR
 NP   JOBNAME  JobID    Owner    Prty Queue      C  Pos  SAff  ASys Status
      IBMUSER  TSU01366 IBMUSER    15 EXECUTION          SYS1  SYS1
      ADCDMST  TSU01377 ADCDMST    15 EXECUTION          SYS1  SYS1
      CAMP055  TSU01381 CAMP055    15 EXECUTION          SYS1  SYS1
      SYSLOG   STC01338 +MASTER+   15 EXECUTION          SYS1  SYS1
      ZFS      STC01340 ++++++++   15 EXECUTION          SYS1  SYS1
      VTAM     STC01341 START1     15 EXECUTION          SYS1  SYS1
      INIT     STC01342 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01343 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01344 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01345 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01346 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01347 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01348 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01349 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01350 START2     15 EXECUTION          SYS1  SYS1
      INIT     STC01351 START2     15 EXECUTION          SYS1  SYS1
      TSO      STC01352 START1     15 EXECUTION          SYS1  SYS1
 PF 1=HELP      2=SPLIT     3=END       4=RETURN    5=IFIND     6=BOOK
 PF 7=UP        8=DOWN      9=SWAP     10=LEFT     11=RIGHT    12=RETRIEVE

Encontramos digite S (enter) para acessar e ver o resultado dele;
   Display  Filter  View  Print  Options  Help
 -------------------------------------------------------------------------------
 SDSF STATUS DISPLAY ALL CLASSES                        LINE 30-31 (31)
 COMMAND INPUT ===>                                            SCROLL ===> CSR
 NP   JOBNAME  JobID    Owner    Prty Queue      C  Pos  SAff  ASys Status
 s    RACFUNLD JOB01382 IBMUSER     1 PRINT      A
      $MASCOMM STC00001 START1     15 PRINT















 PF 1=HELP      2=SPLIT     3=END       4=RETURN    5=IFIND     6=BOOK
 PF 7=UP        8=DOWN      9=SWAP     10=LEFT     11=RIGHT    12=RETRIEVE

Vendo o job, rodou ok;
 Display  Filter  View  Print  Options  Help
 -------------------------------------------------------------------------------
 SDSF OUTPUT DISPLAY RACFUNLD JOB01382  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

17.38.24 JOB01382 ---- WEDNESDAY, 25 NOV 2015 ----
17.38.24 JOB01382  IRR010I  USERID IBMUSER  IS ASSIGNED TO THIS JOB.
17.38.24 JOB01382  ICH70001I IBMUSER  LAST ACCESS AT 17:18:40 ON WEDNESDAY, NOVE
17.38.24 JOB01382  $HASP373 RACFUNLD STARTED - INIT 1    - CLASS A - SYS SYS1
17.38.24 JOB01382  IEF403I RACFUNLD - STARTED - TIME=17.38.24
17.38.26 JOB01382  IEF404I RACFUNLD - ENDED - TIME=17.38.26
17.38.26 JOB01382  $HASP395 RACFUNLD ENDED
------ JES2 JOB STATISTICS ------
  25 NOV 2015 JOB EXECUTION DATE
           14 CARDS READ
           77 SYSOUT PRINT RECORDS
            0 SYSOUT PUNCH RECORDS
            5 SYSOUT SPOOL KBYTES
         0.02 MINUTES EXECUTION TIME
        1 //RACFUNLD JOB  'RACFUNLD',NOTIFY=&SYSUID,CLASS=A,
          //         MSGCLASS=X,MSGLEVEL=(1,1),REGION=6000K,
          //         COND=(4,LT)
          IEFC653I SUBSTITUTION JCL - 'RACFUNLD',NOTIFY=IBMUSER,CLASS=A,MSGCLASS
          LT)
        2 //UNLOAD   EXEC PGM=IRRDBU00,PARM=NOLOCKINPUT
        3 //SYSPRINT DD SYSOUT=A,COPIES=1
          //****************************************************
          //* CHANGE SYS1.RACFDB.BACKUP TO YOUR RACF DB
          //* CHANGE CASE.RACFUNLD TO YOUR OWN
          //****************************************************
        4 //INDD1    DD   DISP=SHR,DSN=SYS1.RACFDS.BACKUP
        5 //OUTDD    DD   DSN=CASE.RACF.FLATFILE,
          //            DISP=(NEW,CATLG,DELETE),
          //            SPACE=(CYL,(70,10),RLSE),
          //            DCB=(RECFM=FB,LRECL=4096,BLKSIZE=0)
ICH70001I IBMUSER  LAST ACCESS AT 17:18:40 ON WEDNESDAY, NOVEMBER 25, 2015
IEF236I ALLOC. FOR RACFUNLD UNLOAD
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I 0A81 ALLOCATED TO INDD1
IGD100I 0A95 ALLOCATED TO DDNAME OUTDD    DATACLAS (        )
IEF142I RACFUNLD UNLOAD - STEP WAS EXECUTED - COND CODE 0000
IEF285I   IBMUSER.RACFUNLD.JOB01382.D0000101.?         SYSOUT
IEF285I   SYS1.RACFDS.BACKUP                           KEPT
IEF285I   VOL SER NOS= ZARES1.
IEF285I   CASE.RACF.FLATFILE                           CATALOGED
IEF285I   VOL SER NOS= ZASYS1.
IEF373I STEP/UNLOAD  /START 2015329.1738
IEF374I STEP/UNLOAD  /STOP  2015329.1738 CPU    0MIN 01.28SEC SRB    0MIN 00.02S
IEF375I  JOB/RACFUNLD/START 2015329.1738
IEF376I  JOB/RACFUNLD/STOP  2015329.1738 CPU    0MIN 01.28SEC SRB    0MIN 00.02S
IRR67010I Specified option: NOLOCKINPUT
IRR67013I Option in effect: NOLOCKINPUT
IRR67182I SYS1.RACFDS.BACKUP associated with DD INDD1 has been successfully open
IRR67007I The blocksize was taken from DD INDD1 and the data set was closed.
IRR67150I Processing 1 RACF data set(s).
IRR67182I SYS1.RACFDS.BACKUP associated with DD INDD1 has been successfully open
IRR67164I INDD1 is a backup data set. All input data sets must be backup data se
IRR67093I Processing group profiles.
IRR67494I 14 group profile(s) have been unloaded.
IRR67093I Processing user profiles.
IRR67494I 56 user profile(s) have been unloaded.
IRR67093I Processing dataset profiles.
IRR67494I 42 dataset profile(s) have been unloaded.
IRR67093I Processing general profiles.
IRR67494I 1 general ACCTNUM profile(s) have been unloaded.
IRR67494I 2 general CBIND profile(s) have been unloaded.
IRR67494I 28 general DIGTCERT profile(s) have been unloaded.
IRR67494I 36 general DSNR profile(s) have been unloaded.
IRR67494I 21 general FACILITY profile(s) have been unloaded.
IRR67494I 1 general GXFACILI profile(s) have been unloaded.
IRR67494I 11 general PROGRAM profile(s) have been unloaded.
IRR67494I 1 general PTKTDATA profile(s) have been unloaded.
IRR67494I 4 general SECLABEL profile(s) have been unloaded.
IRR67494I 30 general SERVER profile(s) have been unloaded.
IRR67494I 50 general STARTED profile(s) have been unloaded.
IRR67494I 5 general SURROGAT profile(s) have been unloaded.
IRR67494I 5 general TSOAUTH profile(s) have been unloaded.
IRR67494I 9 general TSOPROC profile(s) have been unloaded.
IRR67494I 11 general UNIXMAP profile(s) have been unloaded.
IRR67402I Database unload utility has successfully finished processing.
******************************** BOTTOM OF DATA ********************************











 PF 1=HELP      2=SPLIT     3=END       4=RETURN    5=IFIND     6=BOOK
 PF 7=UP        8=DOWN      9=SWAP     10=LEFT     11=RIGHT    12=RETRIEVE

O job que rodamos leu o dataset do RACF e criou um outro dataset com essas informações, vamos acessar este data set no começo do TSO digite 3.4 (enter);
   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. . . : 17:46
 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:
 8  Workplace     ISPF Object/Action Workplace            System ID : ADCD
 9  IBM Products  IBM program development products        MVS acct. : ACCT#
 10 SCLM          SW Configuration Library Manager        Release . : ISPF 6.0
 11 SDSF          Spool Search and Display Facility
 M  More          Additional IBM Products

      Enter X to Terminate using log/list defaults


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

Em Dsname Level colocamos o nome do nosso dataset CASE.RACF.FLATFILE (enter)
   Menu  RefList  RefMode  Utilities  Help

                             Data Set List Utility
 Option ===>
                                                                    More:     +
    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 . . . CASE.RACF.FLATFILE
    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,
  F1=Help      F2=Split     F3=Exit      F7=Backward  F8=Forward   F9=Swap
 F10=Actions  F12=Cancel

Do lado no nome do dataset embaixo de COMMAND digite B (enter)
   Menu  Options  View  Utilities  Compilers  Help

 DSLIST - Data Sets Matching CASE.RACF.FLATFILE                      Row 1 of 1
 Command ===>                                                  Scroll ===> PAGE

 Command - Enter "/" to select action                  Message           Volume
 -------------------------------------------------------------------------------
 b        CASE.RACF.FLATFILE                                             ZASYS1
 ***************************** End of Data Set list ****************************













  F1=Help    F2=Split   F3=Exit    F5=Rfind   F7=Up      F8=Down    F9=Swap
 F10=Left   F11=Right  F12=Cancel

O resultado do nosso job, ele leu o RACF e gravou em um dataset todas as informações do nosso RACF;
   Menu  Utilities  Compilers  Help

 BROWSE    CASE.RACF.FLATFILE                         Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************
0102 DB2      SYSADM   USE
0100 DB2      SYS1     1997-06-10 SYS1     NONE     NO
0100 DSN710   SYS1     2001-06-13 IBMUSER  NONE     NO
0102 EMPLOYEE INTERNAL USE
0100 EMPLOYEE SYS1     1996-07-19 IBMUSER  NONE     NO
0120 EMPLOYEE 0000000500
0102 EXTERNAL PUBLIC   USE
0100 EXTERNAL SYS1     1996-07-19 IBMUSER  NONE     NO
0120 EXTERNAL 0000000999
0102 IMWEB    WEBADM   USE
0102 IMWEB    WEBSRV   USE
0100 IMWEB    SYS1     1996-07-19 IBMUSER  NONE     NO
0120 IMWEB    0000000205
0102 OMVSGRP  OMVSKERN USE
0102 OMVSGRP  TCPIP    USE
0102 OMVSGRP  TN3270   USE
0100 OMVSGRP  SYS1     1995-06-08 IBMUSER  NONE     NO
0120 OMVSGRP  0000000001
0102 SPECIAL  PRIVATE  USE
0100 SPECIAL  SYS1     1996-07-19 IBMUSER  NONE     NO
0120 SPECIAL  0000000255
0102 SSHDG    SSHD     USE
0100 SSHDG    SYS1     2006-11-09 ADCDMST  NONE     NO
0120 SSHDG    0000000009
0102 SYSCTLG  IBMUSER  JOIN
0100 SYSCTLG  SYS1     1995-06-06 IBMUSER  NONE     NO
0101 SYS1     SYSCTLG
0101 SYS1     VSAMDSET
0101 SYS1     TEST
0101 SYS1     DB2
0101 SYS1     DSN710
0101 SYS1     UUCPG
0101 SYS1     TTY
0101 SYS1     EMPLOYEE
0101 SYS1     EXTERNAL
0101 SYS1     IMWEB
0101 SYS1     OMVSGRP
0101 SYS1     SPECIAL
0101 SYS1     SSHDG
0102 SYS1     IBMUSER  JOIN
0102 SYS1     OPEN1    USE
0102 SYS1     OPEN2    USE
0102 SYS1     OPEN3    USE
0102 SYS1     SYSADM   USE
0102 SYS1     SYSOPR   USE
0102 SYS1     START1   USE
0102 SYS1     START2   USE
0102 SYS1     DSN1WLM1 USE
0102 SYS1     FTPD     USE
0102 SYS1     INETD    USE
0102 SYS1     BPXOINIT USE
0102 SYS1     DB8GRFSH USE
0102 SYS1     ADCDMST  USE
0102 SYS1     DB9GRFSH USE
0102 SYS1     DB9GENV5 USE
0102 SYS1     CAMP055  USE
0100 SYS1              1995-06-06 IBMUSER  NONE     NO
0120 SYS1     0000000000
0102 TEST     ADCDA    USE
0102 TEST     ADCDB    USE
0102 TEST     ADCDC    USE
0102 TEST     ADCDD    USE
0102 TEST     ADCDE    USE
0102 TEST     ADCDF    USE
0102 TEST     ADCDG    USE
0102 TEST     ADCDH    USE
0102 TEST     ADCDI    USE
0102 TEST     ADCDJ    USE
0102 TEST     ADCDK    USE
0102 TEST     ADCDL    USE
0102 TEST     ADCDM    USE
0102 TEST     ADCDN    USE
0102 TEST     ADCDO    USE
0102 TEST     ADCDP    USE
0102 TEST     ADCDQ    USE
0102 TEST     ADCDR    USE
0102 TEST     ADCDS    USE
0102 TEST     ADCDT    USE
0102 TEST     ADCDU    USE
0102 TEST     ADCDV    USE
0102 TEST     ADCDW    USE
0102 TEST     ADCDX    USE
0102 TEST     ADCDY    USE
0102 TEST     ADCDZ    USE
0100 TEST     SYS1     1995-06-07 IBMUSER  NONE     NO
0100 TTY      SYS1     2002-11-13 IBMUSER  NONE     NO
0120 TTY      0000000003
0102 UUCPG    UUCP     USE
0100 UUCPG    SYS1     2002-11-10 IBMUSER  NONE     NO
----- corte ----
  F1=Help    F2=Split   F3=Exit    F5=Rfind   F7=Up      F8=Down    F9=Swap
 F10=Left   F11=Right  F12=Cancel


RACFUNLD - Vendo os Dados no Nosso RACF
Leia Mais

Criando um Painel ISPF para o TSO

REXX (REstructured eXtended eXecutor) e uma lingua de programacao interpretada criada por r Mike Cowlishaw . Nas palavras de seu criador, REXX é uma linguagem de programação que foi desenvolvida para os usuários e não para a conveniência dos implementadores — aqueles que implementam compiladores e interpretadores. É uma linguagem estruturada de alto nível para ambiente de multi-plataforma, implementada através de versões comerciais ou livres desde desktops até em mainframes.

Para escrever teus codigos em Rexx, voce pode usar o ISPF edit ou o compilador do mesmo. Antes de comecar qualquer codigo em Rexx, use /* Rexx */ para indicar ao edit que voce esta programando em rexx.

DICA: Use hilite no edit do ISPF para colorir seu codigo (ajuda muuuito a identificar seu codigo)

Criando um Painel 

Para aprender a fazer um painel ISPF de um início de um scanner interativo porta REXX/ISPF foi criado o 'The PiNGeRaToR';



Script Completo

/* RExX */
/* trace t */
file_name = create_pds()
DO While file_name = 1
 file_name = create_pds()
END
ADDRESS ISPEXEC "LIBDEF ISPPLIB DATASET ID("file_name")"
ADDRESS ISPEXEC "DISPLAY PANEL(TEMP1)"
Do While RC = 0
   tgt = ip
   IF timeout = '' THEN tout = 10
   ELSE tout = timeout
   rc_out = OUTTRAP('ping.')
   address tso 'ping' tgt '(timeout' tout
   rc_out = OUTTRAP('OFF')
   IF rc = 0 then hp = 'THiS HoST iS ALiVe!'
   ELSE hp = 'THiS HoST iS DoWN, Yo :('
   ADDRESS ISPEXEC "DISPLAY PANEL(TEMP1)"
END
ADDRESS ISPEXEC "LIBDEF ISPPLIB DATASET ID()"
SAY "DeLeTiNG TeMP DaTaSeT"
"DELETE "file_name
EXIT
/* Create PDS Function */
create_pds:
  stem.0 = 26
  stem.1 = ')ATTR DEFAULT(%+_)'
  stem.2 = '% TYPE(TEXT) INTENS(HIGH) COLOR(RED) CAPS(OFF)'
  stem.3 = '+ TYPE(TEXT) INTENS(LOW) CAPS(OFF)'
  stem.4 = '_ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT)'
  stem.5 = '$ TYPE(INPUT) INTENS(LOW) PAD(_)'
  stem.6 = '! TYPE(OUTPUT) INTENS(LOW) COLOR(YELLOW)'
  stem.7 = ')BODY'
  stem.8 = '%-----------------------> ReXX PiNGeRaToR <---------------'
  stem.9 = '%COMMAND ===>_ZCMD'
  stem.10 = '%'
  stem.11 = '+'
  stem.12 = '+   iP/HoSTNaMe  .......$ip                            +'
  stem.13 = '+   PiNG TiMeouT .......$timeout+'
  stem.14 = '+'
  stem.15 = '+   TaRGeT  : !tgt'
  stem.16 = '+   TiMeouT : !tout'
  stem.17 = '+'
  stem.18 = '+'
  stem.19 = '+   !hp'
  stem.20 = '+'
  stem.21 = '+'
  stem.22 = ')INIT'
  stem.23 = '.HELP = TUTORPAN'
  stem.24 = ')REINIT'
  stem.25 = ')PROC'
  stem.26 = ')END'
  F = RANDOM(100,999)||RANDOM(100,999)
  FILE = "'"||USERID()||".T"||F
  sysin = SYSDSN(FILE||"'")
  IF (sysin^="OK") THEN
   DO
   "ALLOCATE DATASET("FILE"') CATALOG LRECL (80),
   BLKSIZE(27920) RECFM(F B) DSORG(PO) TRACKS SPACE(1 5) DIR(30)"
   "ALLOC FI(MYDD) DA("FILE"(TEMP1)') SHR REUSE"
   "EXECIO * DISKW MYDD (STEM STEM. FINIS"
   "FREE F(MYDD)"
   RETURN FILE||"'"
   END
  RETURN 1

Comigo funcionou somente assim, depois de logar no TSO saiu e em READ dou o nome do membro que criei dai consigo pesquisar o IP;
 READY
ping
 Enter host name or address
127.0.0.1
 CS V1R10: Pinging host 127.0.0.1
 Ping #1 response took 0.001 seconds.
 READY
ping
 Enter host name or address
192.1.200.1
 CS V1R10: Pinging host 192.1.200.1
 Ping #1 timed out
 READY










Fonte - Clique Aqui
Script - Clique Aqui
Leia Mais

Apostila de Banco de Dados DB2 para Mainframes

A apostila Banco de Dados DB2 para Mainframes foi desenvolvido pela Mainframe School treinamentos em seus cursos sendo um ótimo material de estudos totalmente em português. O material mostra uma introdução sobre o DB2 para Mainframes sendo indicado para estudantes de concursos públicos e profissionais de TI em geral. Vale a pena conferir.

Download PDF

Créditos
Leia Mais

20/11/15

Configurando a Rede sobre o Hercules z/OS

Uma coisa que acho que muitos vão reparar é que o Hercules rodando qualquer versão z/os não da para rodar um programa de FTP e pegar dele o resultado de um job e visualizar melhor em um bloco de notas, pelas minhas pesquisas tem que colocar na mesma rede o z/OS com o seu micro, o video abaixo mostra que o usuário conseguiu dar ping no mainframe no site do google, isso quer dizer ele conseguiu se comunicar com o mundo exterior pelo mainframe.



Alguns sites que ensinam a fazer esta conectividade:

Créditos desse video - Clique Aqui - CTCI-Win Download - Clique Aqui - Clique Aqui - Clique Aqui
Leia Mais

18/11/15

Erro no CICS - DFHPA1909 CICS DATA 216 IS INVALID FOR KEYWORD

Customer Information Control System, ou simplesmente CICS, é um monitor de transações utilizado inicialmente nos sistemas operacionais z/OS e z/VSE dos mainframes da IBM. Atualmente o CICS é disponibilizado para outros sistemas operacionais, como o i5/OS, OS/2, AIX, Windows, Linux, dentre outros. A implementação para o sistema z/OS é de longe a mais popular e importante dentre todas. CICS é um sistema de processamento de transações designado tanto para atividade Online como processamento Batch. Uma transação é basicamente um conjunto de comandos que executam uma tarefa. Normalmente , a maioria das transações são tarefas relativamente simples, como a atualização de uma conta corrente. Executado em servidores Z IBM System, o CICS facilmente suporta milhares de transações por segundo. Aplicações CICS podem ser escritas em muitas linguagens de programação, incluindo COBOL, PL/I, C, C++, IBM Basic Assembly language, REXX, e Java.

Erro no CICS

Depois de um tempo consegui encontrar uma solução para o erro abaixo:

   *09.00.19 STC00060 *02 DFHPA1909 CICS     DATA 216 IS INVALID FOR KEYWORD
   * CICSSVC=. RESPECIFY KEYWORD AND DATA.

A solução que encontrei

Primeiro alterado a LOADPARM para 0A95DC..
# --------------------------------------------------------------------------------------- 
# Hercules Emulator Control file...                                                      
# Description: 
# MaxShutdownSecs: 15
#
#
# System parameters
# --------------------------------------------------------------------------------------- 

ARCHMODE  z/Arch
ALRF      ENABLE
CCKD      RA=2,RAQ=4,RAT=2,WR=2,GCINT=5,GCPARM=0,NOSTRESS=0,TRACE=0,FREEPEND=-1
CNSLPORT  3270
CONKPALV  (3,1,10)
CPUMODEL  3090
CPUSERIAL 012345
DIAG8CMD  ENABLE
ECPSVM    YES
LOADPARM  0A95DC..    # CICS ONLINE
# LOADPARM  0A95CC..
# LOADPARM  0A95DB..    # estava assim
LPARNAME  HERCULES
MAINSIZE  1024
MOUNTED_TAPE_REINIT  DISALLOW
NUMCPU    4
OSTAILOR  Z/OS
PANRATE   80
PGMPRDOS  LICENSED
SHCMDOPT  NODIAG8
SYSEPOCH  1900
TIMERINT  50
TZOFFSET  +1400
YROFFSET  0

HERCPRIO  0
TODPRIO   -20
DEVPRIO   8
CPUPRIO   0
PANTITLE  z/OS 1.10 IPL A80?

# ---------------------------------------------------------------------------------------    
# SYMBOLS DEFINITION                                          
# ---------------------------------------------------------------------------------------    

DEFSYM DASD "C:\Mainframe\Z_OS_110"
DEFSYM PRTR "C:\Mainframe\Z_OS_110"

# ---------------------------------------------------------------------------------------    
# Device list
# ---------------------------------------------------------------------------------------    

# Display Terminals

0700    3270
0701    3270
0702    3270
0703    3270
0704    3270

# DASD Devices

0A81    3390    $(DASD)\zares1.cckd
0A82    3390    $(DASD)\zares2.cckd
0A83    3390    $(DASD)\zadb81.cckd
0A84    3390    $(DASD)\zadb82.cckd
0A85    3390    $(DASD)\zadb83.cckd
0A86    3390    $(DASD)\zadb84.cckd
0A87    3390    $(DASD)\zadb91.cckd
0A88    3390    $(DASD)\zadb92.cckd
0A89    3390    $(DASD)\zacic1.cckd
0A8A    3390    $(DASD)\zadis1.cckd
0A8B    3390    $(DASD)\zadis2.cckd
0A8C    3390    $(DASD)\zadis3.cckd
0A8D    3390    $(DASD)\zadis4.cckd
0A8E    3390    $(DASD)\zadis5.cckd
0A8F    3390    $(DASD)\zadis6.cckd
0A90    3390    $(DASD)\zaims1.cckd
0A91    3390    $(DASD)\zaprd1.cckd
0A92    3390    $(DASD)\zaprd2.cckd
0A93    3390    $(DASD)\zaprd3.cckd
0A94    3390    $(DASD)\zaprd4.cckd
0A95    3390    $(DASD)\zasys1.cckd
0A96    3390    $(DASD)\zauss1.cckd
0A97    3390    $(DASD)\zawas1.cckd
0A98    3390    $(DASD)\zawas2.cckd
0A99    3390    $(DASD)\zawas3.cckd
0A9A    3390    $(DASD)\sares1.cckd
Depois de dar o IPL com essa configuração acesso o CICS (tecle enter)
WELCOME TO CICS 03:01:03


                    ******\  ******\  ******\   ******\(R)
                   ********\ ******\ ********\ ********\
                   **\\\\**\   **\\\ **\\\\**\ **\\\\**\
                   **\    \\   **\   **\    \\ **\    \\
                   **\         **\   **\       *******\
                   **\         **\   **\        *******\
                   **\         **\   **\         \\\\**\
                   **\   **\   **\   **\   **\ **\   **\
                   ********\ ******\ ********\ ********\
                    ******\\ ******\  ******\\  ******\\
                     \\\\\\   \\\\\\   \\\\\\    \\\\\\
Vai dar erro mais dá para digitar: CEDA DEF PROGRAM(N28A) GROUP(N28APPL)
WELCOME TO CICS 03:01:03





                     ******\  ******\  ******\   ******\(R)
                    ********\ ******\ ********\ ********\
                    **\\\\**\   **\\\ **\\\\**\ **\\\\**\
                    **\    \\   **\   **\    \\ **\    \\
                    **\         **\   **\       *******\
                    **\         **\   **\        *******\
                    **\         **\   **\         \\\\**\
                    **\   **\   **\   **\   **\ **\   **\
                    ********\ ******\ ********\ ********\
                     ******\\ ******\  ******\\  ******\\
                      \\\\\\   \\\\\\   \\\\\\    \\\\\\





DFHAC2001 03/09/2018 03:04:31 CICS Transaction '' is not recognized. Check
  that the transaction name is correct. CEDA DEF PROGRAM(N28A) GROUP(N28APPL)
Agora o que faz depois daqui não sei;
DEF PROGRAM(N28A) GROUP(N28APPL)
  OVERTYPE TO MODIFY                                        CICS RELEASE = 0650
   CEDA  DEFine PROGram( N28A     )
    PROGram        : N28A
    Group          : N28APPL
    DEscription  ==>
    Language     ==>                    CObol | Assembler | Le370 | C | Pli
    RELoad       ==> No                 No | Yes
    RESident     ==> No                 No | Yes
    USAge        ==> Normal             Normal | Transient
    USElpacopy   ==> No                 No | Yes
    Status       ==> Enabled            Enabled | Disabled
    RSl            : 00                 0-24 | Public
    CEdf         ==> Yes                Yes | No
    DAtalocation ==> Below              Below | Any
    EXECKey      ==> User               User | Cics
    COncurrency  ==> Quasirent          Quasirent | Threadsafe
    Api          ==> Cicsapi            Cicsapi | Openapi
   REMOTE ATTRIBUTES
+  DYnamic      ==> No                 No | Yes
   S Object already exists in this group.
                                                      SYSID=CICS APPLID=CICS
   DEFINE UNSUCCESSFUL                          TIME:  03.12.06  DATE: 18.068
PF 1 HELP 2 COM 3 END             6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL
Leia Mais

OS/390 DEMOpkg System

O OS/390 foi lançado em 1995 como um sucessor do MVS. A IBM suspendeu o suporte para os sistemas OS/390 ao final de 2004. O OS/390 é um sistema operacional da IBM para os mainframes da família do System/370 e System/390. O OS/390 é a soma do MVS com o UNIX System Services. A base do OS/390 inclui um servidor de comunicação que suporta VTAM, a funcionalidade VTAM AnyNet, TCP/IP e TIOC. Ele disponibiliza implementações da arquitetura SNA (3270), APPC, High Performance Routing, suporte a ATM, sockets, e RPC. Tenho um carinho especial com esta versão pois foi com ela que comecei a trabalhar com Mainframe, vamos mostrar como é rodar ela no Hercules;

Hercules.cnf

Configuração completa da Hercules.cnf
# ---------------------------------------------------------------------------------------    
# Configuration file for Hercules & IBM OS/390 V2R10 ADCD
# based on configfile for z/os 1.3 and infos from DEVMAP.NME on cd1
# For more information consult the attached readme.html
# and visit IBM at http://198.81.193.6/adcd10/rel10.html
# ---------------------------------------------------------------------------------------    
# IBM OS/390 V2R10 ADCD
# ---------------------------------------------------------------------------------------    

ARCHMODE ESA/390
CNSLPORT 3270
#CONKPALV (3,1,10)
CODEPAGE default
CPUMODEL 2064
CPUSERIAL 01C5D1
ECPSVM NO
LOADPARM 01C1DP.1
LPARNAME HERCULES
MAINSIZE 192
#MOUNTED_TAPE_REINIT DISALLOW
NUMCPU 1
OSTAILOR OS/390
PANRATE 500
PGMPRDOS LICENSED
SHCMDOPT NODIAG8
SYSEPOCH 1900
#TIMERINT 50
TZOFFSET +0000
YROFFSET 0 


# ---------------------------------------------------------------------------------------    
# SYMBOLS DEFINITION                                                *
# ---------------------------------------------------------------------------------------    

DEFSYM DASD "/home/s106/hercules-3.07/imagens"
# DEFSYM PROD "/home/s106/hercules-3.07/imagens"
DEFSYM PRTR "/home/s106/hercules-3.07/imagens"

# ---------------------------------------------------------------------------------------    
# Device list
# ---------------------------------------------------------------------------------------    

0580    3420         # tape
0581    3420         # tape
0590    3420         # tape
0700    3270           # master console
0701    3270           # local TSO 1
0702    3270           # local TSO 2
0900    3270           # local TSO 3
0901    3270           # local TSO 4

# ---------------------------------------------------------------------------------------    
# Device dasd
# ---------------------------------------------------------------------------------------    

01C0 3390 $(DASD)/OS390/dmtres.1c0 #
01C1 3390 $(DASD)/OS390/dmtcat.1c1 #
01C2 3390 $(DASD)/OS390/dmtos2.1c2 #
01C3 3390 $(DASD)/OS390/dmtos1.1c3 #
01C4 3390 $(DASD)/OS390/dmtd01.1c4 #
01C5 3390 $(DASD)/OS390/dmtd02.1c5 #
01C6 3390 $(DASD)/OS390/dmtd03.1c6 #
01CB 3390 $(DASD)/OS390/dmtd04.1cb # -
01C7 3390 $(DASD)/OS390/dmtp01.1c7 # -
01C8 3390 $(DASD)/OS390/dmtp02.1c8 # -
01CA 3390 $(DASD)/OS390/dmtos3.1ca #
01C9 3390 $(DASD)/OS390/dmtp03.1c9 # -

# ---------------------------------------------------------------------------------------    
# CTCI for TCP/IP
# ---------------------------------------------------------------------------------------    

0E20.2   LCS  10.0.1.20
0010    3270    console

Carregando OS/390 no Hercules

Dando IPL na console do Hercules;
IPL 01C0

Carregando;
s106@s106:~/hercules-3.07$ hercules -f os390.cnf
Hercules Version 3.07
(c)Copyright 1999-2010 by Roger Bowler, Jan Jaeger, and others
Built on Jan 12 2011 at 22:57:22
Build information:
  Modes: S/370 ESA/390 z/Arch
  Max CPU Engines: 8
  Using setresuid() for setting privileges
  Dynamic loading support
  Using shared libraries
  No External GUI support
  HTTP Server support
  No CCKD BZIP2 support
  Regular Expressions support
  Automatic Operator support
  No HET BZIP2 support
  National Language Support
  Machine dependent assists: cmpxchg1 cmpxchg4 cmpxchg8 fetch_dw store_dw multi_byte
Running on s106 Linux-2.6.35-24-generic.#42-Ubuntu SMP Thu Dec 2 01:41:57 UTC 2010 i686 MP=2
HHCHD018I Loadable module directory is /usr/local/lib/hercules
Crypto module loaded (c) Copyright Bernard van der Helm, 2003-2010
  Active: Message Security Assist
          Message Security Assist Extension 1
          Message Security Assist Extension 2
HHCHT001I HTTP listener thread started: tid=B75B0B70, pid=4931
HHCCF020W Vector Facility support not configured
HHCHT013I Using HTTPROOT directory "/usr/local/share/hercules/"
HHCHT006I Waiting for HTTP requests on port 8081
HHCCF065I Hercules: tid=B78B26C0, pid=4931, pgid=4931, priority=0
HHCCF042E Device type 2540 not recognized
HHCTE001I Console connection thread started: tid=B7470B70, pid=4931
HHCTE003I Waiting for console connection on port 3270
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtres.1c0 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtcat.1c1 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtos2.1c2 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtos1.1c3 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtd01.1c4 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtd02.1c5 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtd03.1c6 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtd04.1cb cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtp01.1c7 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtp02.1c8 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtos3.1ca cyls=2226 heads=15 tracks=33390 trklen=56832
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtp03.1c9 cyls=2226 heads=15 tracks=33390 trklen=56832
HHCIF005E hercifc: ioctl error doing TUNSETIFF on ?: 1 Operation not permitted
HHCTU001E hercifc timeout, possible older version?
HHCTU003E Error setting TUN/TAP mode: /dev/net/tun: Operação não permitida
HHCLC073I 0E20: TAP device  opened
HHCCP002I CPU0000 thread started: tid=A726BB70, pid=4931, priority=15
HHCTT002I Timer thread started: tid=A716AB70, pid=4931, priority=0
HHCCP003I CPU0000 architecture mode ESA/390
HHCCP002I CPU0001 thread started: tid=A7069B70, pid=4931, priority=15

HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtos2.1c2 cyls=2226 heads=15 tracks=3339+
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtos1.1c3 cyls=2226 heads=15 tracks=33390
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtd01.1c4 cyls=2226 heads=15 tracks=33390
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtd02.1c5 cyls=2226 heads=15 tracks=33390
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtd03.1c6 cyls=2226 heads=15 tracks=33390
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtd04.1cb cyls=2226 heads=15 tracks=33390
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtp01.1c7 cyls=2226 heads=15 tracks=33390
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtp02.1c8 cyls=2226 heads=15 tracks=33390
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtos3.1ca cyls=2226 heads=15 tracks=33390
HHCDA020I /home/s106/hercules-3.07/imagens/OS390/dmtp03.1c9 cyls=2226 heads=15 tracks=33390
HHCIF005E hercifc: ioctl error doing TUNSETIFF on ?: 1 Operation not permitted                  
HHCTU001E hercifc timeout, possible older version?                                              
HHCTU003E Error setting TUN/TAP mode: /dev/net/tun: Opera    o n  o permitida                   
HHCLC073I 0E20: TAP device  opened                                                              
HHCCP002I CPU0000 thread started: tid=A726BB70, pid=4931, priority=15                           
HHCTT002I Timer thread started: tid=A716AB70, pid=4931, priority=0                              
HHCCP003I CPU0000 architecture mode ESA/390                                                     
HHCCP002I CPU0001 thread started: tid=A7069B70, pid=4931, priority=15                           
HHCCP003I CPU0001 architecture mode ESA/390                                                     
HHCPN001I Control panel thread started: tid=B78B26C0, pid=4931                                  
HHCAO001I Hercules Automatic Operator thread started;                                           
          tid=A6CD7B70, pri=0, pid=4931   

A abaixo mensagem da console do Hercules acho que é só colocar uma versão atualizado do TUN/TAP que ela não aparece - mesmo com ela carregou o OS/390;
HHCIF005E hercifc: ioctl error doing TUNSETIFF on ?: 1 Operation not permitted                  
HHCTU001E hercifc timeout, possible older version?                                              
HHCTU003E Error setting TUN/TAP mode: /dev/net/tun: Opera    o n  o permitida                   
HHCLC073I 0E20: TAP device  opened                                                              

A primeira vez ao iniciar - R 00,I
  IEA247I USING IEASYS00 FOR OS/390 02.10.00 HBB7703
  IEA598I TIME ZONE = W.00.00.00
  IXL011I XES HARDWARE SUPPORT IS NOT INSTALLED.  REASON: 02
  IXC414I CANNOT JOIN SYSPLEX TESTPLX WHICH IS RUNNING IN MONOPLEX MODE:
   CONFIGURATION REQUIREMENT
  IXC404I SYSTEM(S) ACTIVE OR IPLING: DEMOPKG
| IXC420D REPLY I TO INITIALIZE SYSPLEX TESTPLX, OR R TO REINITIALIZE XCF
  R 00,I
  IEE600I REPLY TO 00 IS;I
  IXC413I MULTISYSTEM SYSPLEX CONFIGURATION PREVENTED BY PLEXCFG=MONOPLEX
  IXC413I XCFLOCAL SYSPLEX CONFIGURATION PREVENTED BY PLEXCFG=MONOPLEX
  IXC418I SYSTEM DEMOPKG IS NOW ACTIVE IN SYSPLEX TESTPLX

Respondendo a pendencia do Jes2
     *04.59.54 DEMOPKG          *01 $HASP426 SPECIFY OPTIONS - JES2 OS 2.10
     *       SSNAME=JES2
     *05.01.06 DEMOPKG          *BPXP007E STARTING PHYSICAL FILE SYSTEM NFS IN
     * ADDRESS SPACE NFSCM
















  IEE612I CN=05       DEVNUM=0700 SYS=DEMOPKG
  r 01,format,noreq

Respondendo a pendencia 02,y
    *05.05.21 DEMOPKG          *$HASP436 CONFIRM COLD START ON
    * CKPT1 - VOLSER=DMTCAT DSN=SYS1.HASPCKDP
    * CKPT2 - NOT IN USE
    * SPOOL - PREFIX=DMTCA  DSN=SYS1.HASPACE
    *05.05.21 DEMOPKG          *02 $HASP441 REPLY 'Y' TO CONTINUE
    * INITIALIZATION OR 'N' TO TERMINATE IN RESPONSE TO MESSAGE HASP436














 IEE612I CN=05       DEVNUM=0700 SYS=DEMOPKG
 02,y

Respondendo a pendencia 03,y
    *05.07.48 DEMOPKG          *$HASP419 MEMBER 3090 HAS DETERMINED THAT THE
    * FOLLOWING JES2
    *         MEMBERS ARE DORMANT: 7490.
    *05.07.48 DEMOPKG          *03 $HASP420 REPLY 'Y' IF 7490 IS DOWN (IPL
    * REQUIRED), 'N' IF NOT















 IEE612I CN=05       DEVNUM=0700 SYS=DEMOPKG
03,y

 IEE163I MODE= R

Começou a entrar no ar os aplicativos;
   | 05.07.48 DEMOPKG          *$HASP419 MEMBER 3090 HAS DETERMINED THAT THE
   |  FOLLOWING JES2
   |          MEMBERS ARE DORMANT: 7490.
   | 05.07.48 DEMOPKG          *03 $HASP420 REPLY 'Y' IF 7490 IS DOWN (IPL
   |  REQUIRED), 'N' IF NOT
   - 05.08.37 DEMOPKG           03,y
     05.08.37 DEMOPKG           IEE600I REPLY TO 03 IS;Y
   | 05.08.37 DEMOPKG          *$HASP493 JES2 COLD START IS IN PROGRESS
   - 05.08.37 DEMOPKG           $HASP423 DMTCAT IS BEING FORMATTED
     05.08.41 DEMOPKG           $HASP266 JES2 CKPT1 DATA SET IS BEING FORMATTED
     05.08.42 DEMOPKG           $HASP267 JES2 CKPT1 DATA SET HAS BEEN
      SUCCESSFULLY FORMATTED
     05.08.42 DEMOPKG           $HASP492 JES2 COLD START HAS COMPLETED
     05.08.45 DEMOPKG           IEE041I THE SYSTEM LOG IS NOW ACTIVE
   - 05.08.46 DEMOPKG STC00003  $HASP373 EZAZSSI  STARTED
   - 05.08.46 DEMOPKG STC00002  $HASP373 SDSF     STARTED




 IEE612I CN=05       DEVNUM=0700 SYS=DEMOPKG


 IEE163I MODE= R

Depois de um tempo os aplicativos estão online;
   - 05.44.53 DEMOPKG           d a,l
     05.44.53 DEMOPKG           IEE114I 05.44.53 2015.318 ACTIVITY 839       C
      JOBS     M/S    TS USERS    SYSAS    INITS   ACTIVE/MAX VTAM     OAS
     00006    00016    00001      00027    00029    00001/00100       00014
      LLA      LLA      LLA      NSW  S  VLF      VLF      VLF      NSW  S
      DLF      DLF      DLF      NSW  S  JES2     JES2     JES2     NSW  S
      DFRMM    DFRMM    DFRMM    NSW  S  SDSF     SDSF     SDSF     NSW  S
      VTAM5    VTAM5    VTAM     NSW  S  RACF     RACF     RACF     NSW  S
      SYSLOGD5 STEP1    IBMUSER  OWT  AO INETD6   STEP1    IBMUSER  OWT  AO
      ASCH     ASCH     ASCH     NSW  S  APPC     APPC     APPC     NSW  S
      TCPIP    TCPIP    TCPIP    NSW  SO SMTP     SMTP     SMTP     NSW  S
      NSLD     NSLD     NSLD     OWT  SO PORTMAP1 STEP1    PORTMAP  OWT  AO
      TIMED1   STEP1    IBMUSER  OWT  AO FTPD1    STEP1    FTPD     OWT  AO
      NSLD1    STEP1    NSADMIN  OWT  AO TSO      TSO      TSO      OWT  S
      NFSSRV   NFSSRV   NFSSRV   NSW  SO WEBSRV5  WEBSRV5  WEBSRV   IN   SO
     IBMUSER OWT




 IEE612I CN=05       DEVNUM=0700 SYS=DEMOPKG


 IEE163I MODE= R

Tela de login
**********************************************************
*           Dallas Demonstration Center                   *
*                OS/390 DEMOpkg                           *
* Enter an application name or a VTAM LOGON command.      *
* Example:  TSO userid  or  LOGON APPLID(applid)          *
***********************************************************

    TSO     - TSO/E
    NVAS    - NetView Access Services
    NETVIEW - NetView/ESA
    CICS    - CICS/ESA
    IMS     - IMS/ESA






===>

Usuários disponíveis para acessar;
+---------------+-----------------+------------------------------+
| USERID        | PASSWORD        | Details                      | 
+---------------+-----------------+------------------------------+
| P390          | SYS1 or P390    | (RACF special authority)     |
| IBMUSER       | SYS1 or IBMUSER | (RACF special authority)     |
| SYSADM        | SYS1 or SYSADM  | (DB2 and RACF special auth)  | 
| SYSOPR        | SYS1 or SYSOPR  | (DB2 and RACF special auth)  |
| P390A - P390Z | TEST            |                              |
| TESTER        | TEST            |                              |
+---------------+-----------------+------------------------------+

Primeiro acesso no TSO - ibmuser
ICH70001I IBMUSER  LAST ACCESS AT 05:39:37 ON SATURDAY, NOVEMBER 14, 2015
IKJ56455I IBMUSER LOGON IN PROGRESS AT 05:39:58 ON NOVEMBER 14, 2015
 ICH70004I USER(CPSMCMAS) GROUP(SYSPROC) NAME(CICSPLEX CMAS)             CN(INT
ERNAL)
 ICH70004I ATTEMPTED 'READ' ACCESS OF                                  CN(INTER
NAL)
 ICH70004I ENTITY 'CESD'                                               CN(INTER
NAL)
 ICH70004I IN CLASS 'TCICSTRN' AT 16:14:06 ON OCTOBER 18, 2000         CN(INTER
NAL)
*** HFS DATA SET 'IBMUSER.HFS' HAS BEEN CREATED

LOGON PROC IS SYSUSER
ALLOCATING ISPF AND BASE DATASETS  .  .  .  .  .  .
*****************************************************
*    WELCOME TO THE DALLAS DEMONSTRATION CENTER     *
*          OS/390 V2R10 DEMOPKG SYSTEM              *
*****************************************************

INMR003I You have no messages or data sets to receive.
***

Dentro do TSO - vamos acessar os IBM Products;
   Menu  Utilities  Compilers  Options  Status  Help

                           OS/390 Primary Option Menu

 0  Settings      Terminal and user parameters            User ID . : IBMUSER
 1  View          Display source data or listings         Time. . . : 02:00
 2  Edit          Create or change source data            Terminal. : 3278
 3  Utilities     Perform utility functions               Screen. . : 1
 6  Command       Enter TSO or Workstation commands       Language. : ENGLISH
 7  Dialog Test   Perform dialog testing                  Appl ID . : ISP
 8  LM Facility   Library administrator functions         TSO logon : SYSUSER
 P  IBM Products  IBM program development products        TSO prefix: IBMUSER
 10 SCLM          SW Configuration Library Manager        System ID : DEMOPKG
 11 Workplace     ISPF Object/Action Workplace            MVS acct. : 12345678
 12 OS/390 System OS/390 system programmer applications   Release . : ISPF 5.0
 13 OS/390 User   OS/390 user applications


      Enter X to Terminate using log/list defaults




 Option ===> P

Vamos em Utilities
 --------------------------- DEMOpkg PRODUCTS --------------------------------
 OPTION  ===> U


   A   App Development     - Application Development Products
   B   Database Tools      - Database Tools
   D   Data Management     - Data Management Products
   S   Systems Management  - Systems Management Products
   T   Tivoli              - Tivoli TME / Netview Products
   U   Utilities           - System Utility Products

   L    List all installed products.

 Enter PF3 to return.







Opção U - Vamos ver as definições do usuário IBMUSER;
 ----------------------- System and Utility Products -------------------------
 OPTION  ===> u


   U   Userid Maint       - DEMOpkg Userid Maintenance
   G   GDDM               - GDDM Products
   K   ICSF/MVS           - Integrated Cryptographic Service Facility
   I   IXFP               - Iceberg Extended Facilities Product
   R   RRS                - RRS Resource Recovery Information
   A   ATC                - Application Testing Collection
   D   DITTO              - DITTO/ESA


 Press PF3 to return.










Vamos ver as definições do usuário IBMUSER;
 COMMAND ===>

  This exec manages TSO userids and authorities.

       lu   AU - Add a new TSO userid
            DU - Delete a TSO userid
            LU - List RACF information for a TSO userid

            AA - Add new authorities to a userid

      Userid: ibmuser_
      User Name: ____________________
      Start date: 11/20/15    Revoke date: 11/20/01

      RACF Group: U   (U)ser (A)dmin (S)ysprog (B)Partner

      Netview access:  N

  Press ENTER to process or PF03 to quit.





Vendo as definições;
 ********** IBMUSER RACF INFORMATION **********

 USER=IBMUSER  NAME=::::::::::::::::::::  OWNER=IBMUSER   CREATED=89.261
  DEFAULT-GROUP=SYSPROG   PASSDATE=15.318  PASS-INTERVAL=N/A
  ATTRIBUTES=SPECIAL OPERATIONS
  REVOKE DATE=NONE   RESUME DATE=NONE
  LAST-ACCESS=15.324/02:01:26
  CLASS AUTHORIZATIONS=NONE
  NO-INSTALLATION-DATA
  NO-MODEL-NAME
  LOGON ALLOWED   (DAYS)          (TIME)
  ---------------------------------------------
  ANYDAY                          ANYTIME
 ICH30003I GROUP VSAMDSET USER CONNECTION NOT INDICATED
   GROUP=VSAMDSET  AUTH=?        CONNECT-OWNER=IBMUSER   CONNECT-DATE=92.287
     CONNECTS=    00  UACC=READ     LAST-CONNECT=UNKNOWN
     CONNECT ATTRIBUTES=NONE
     REVOKE DATE=NONE   RESUME DATE=NONE
 ICH30003I GROUP SYSCTLG  USER CONNECTION NOT INDICATED
   GROUP=SYSCTLG   AUTH=?        CONNECT-OWNER=IBMUSER   CONNECT-DATE=92.287
     CONNECTS=    00  UACC=READ     LAST-CONNECT=UNKNOWN
     CONNECT ATTRIBUTES=NONE
     REVOKE DATE=NONE   RESUME DATE=NONE
 ***

Shutting Down the OS/390 DEMOpkg System

Para retirar os aplicativos pela console este são os comandos que foram usados;
START SHUTDWN
$pjes2
$pjes2,abend
r xx,end
f dlf,mode=d
p dlf
p lla
p vlf
z eod
quiesce

Se curti tirar retirar os aplicativos um por um;
+------------------+--------------------------------------+
| APPC             | C APPC                               |
+------------------+--------------------------------------+
| AS               | P ASCCT                              |
|                  | P ASFS                               |
+------------------+--------------------------------------+
| ASCH             | C ASCH                               |
+------------------+--------------------------------------+
| CICS             | F CICSPRT1,CEMT P SHUT               |
|                  | F CICSPRA1,CEMT P SHUT               |
|                  | C CTGATE                             |
+------------------+--------------------------------------+
| Component Broker | C BBODMN                             |
+------------------+--------------------------------------+
| DataHub          | F DATAHUB,SHUTDOWN                   |
+------------------+--------------------------------------+
| Database 2 (DB2) | @STOP DB2                            |
+------------------+--------------------------------------+
| DataProp Apply   | P DPROPAPP                           |
+------------------+--------------------------------------+
| DataProp Capture | P DPROPCAP                           |
+------------------+--------------------------------------+
| DCE/DFS          | P DCE                                |
|                  | P DFS                                |
+------------------+--------------------------------------+
| DFM              | P DFM,SUB=MSTR                       |
| EREP             | P EREP                               |
| FFST             | P FFST                               |
| Firewall         | P FWKERN                             |
| HCM              | P CBDQDISP                           |
+------------------+--------------------------------------+
| Host Command     | R xx,CLOSE IMMED                     |
| Facility (HCF)   |                                      |
+------------------+--------------------------------------+
| IMS              | R xx,/CHECKPOINT FREEZE              |
|                  | P IMSAIRLM                           |
|                  | P IMSATOC                            |
+------------------+--------------------------------------+
| Intelligent Miner| P IMSERV                             |
+------------------+--------------------------------------+
| JES2             | $PLINEx                              |
|                  | $PJES2                               |
+------------------+--------------------------------------+
| LANSERV          | P LANSRV                             |
+------------------+--------------------------------------+
| MQM              | MQM1 STOP QMGR                       |
+------------------+--------------------------------------+
| MQM1             | STOP CHINIT                          |
+------------------+--------------------------------------+
| Net.Commerce     | P CMNSRV                             |
+------------------+--------------------------------------+
| NetView          | P NETVSSI                            |
|                  | Rxx,CLOSE IMMED                      |
+------------------+--------------------------------------+
| NFS Server       | P NFSSRV                             |
+------------------+--------------------------------------+
| NPM              | P NPMNSI                             |
|                  | P NPM                                |
+------------------+--------------------------------------+
| NVAS             | P NVAS                               |
+------------------+--------------------------------------+
| OSA/SF           | P IOASRV                             |
+------------------+--------------------------------------+
| RMF              | P RMF.RMF                            |
+------------------+--------------------------------------+
| RRS              | SETRRS CANCEL                        |
+------------------+--------------------------------------+
| SOM              | P SOM,SUB=MSTR                       |
+------------------+--------------------------------------+
| System Automation| P AUTOSSI                            |
|                  | Rxx,CLOSE IMMED                      |
+------------------+--------------------------------------+
| TCP/IP           | P TCPIP                              |
+------------------+--------------------------------------+
| Teleprocessing   |                                      |
| Network Simulator|                                      |
| (TPNS)           | P TPNSPROC                           |
+------------------+--------------------------------------+
| TSO              | P TSO                                |
+------------------+--------------------------------------+
| Tivoli OPC       | P OPCE                               |
|                  | P OPCG                               |
+------------------+--------------------------------------+
| Tivoli           |                                      |
| Service Desk     | P SDINFO                             |
|                  | P SDFREE                             |
|                  | P SDWEB                              |
+------------------+--------------------------------------+
| Tivoli Storage   |                                      |
| Manager          | F TIVSM,HALT                         |
+------------------+--------------------------------------+
| VTAM             | Z NET,QUICK                          |
+------------------+--------------------------------------+
| Web Server       | P WEBSRV                             |
+------------------+--------------------------------------+

IPLing the Customized OS/390 DEMOpkg System

Os parametros disponiveis de LOADPARM para o hercules.cnf
+-------------------------------------------------------+-------------------+
| If you run only the Base volumes, specify:            | LOADPARM=01C1DP.1 |
+-------------------------------------------------------+-------------------+
| If you also run the Data Management volumes, specify: | LOADPARM=01C1DM.1 |
+-------------------------------------------------------+-------------------+
| If you also run the Tivoli volumes, specify:          | LOADPARM=01C100.1 |
+-------------------------------------------------------+-------------------+

Leia Mais