Como Instalar e Rodar o z/OS no Hercules no Windows
Sobre o Hercules z/OS
Apesar de ser tecnicamente possível rodar z/OS (o mais atual dos sistemas operacionais de mainframe) no Hercules, a IBM não permite devido a questões de licenciamento. Ainda assim é possível rodar sistemas operacionais mais antigos que foram liberados pela IBM para domínio público como OS/360, DOS/360, DOS/VS, MVS, VM/370 e TSS/370, mesmo sendo versões de mainframe bem antiga alguns comandos e conceitos são usados nos atuais z/OS.
Hercules rodando o z/OS
O Hércules é gratuíto, já os produtos IBM (z/OS, DB2, CICS, IMS-TM, etc) é outra história, as licenças são carissimas, além de que para nós pobres mortais teríamos que conhecer um pouco de tudo:
- Instalar/Customizar o próprio z/OS;
- Instalar/Customizar o vários produtos: RACF, VTAM, XES, WLM, SDSF, TSO, DB2, IMS-TM, CICS, e uma parafernalha de softwares necessários para deixar o ambiente operacional, nem que seja só para executar um JCL simples (por exemplo: IEFBR14)
- Comandos de operação para: dar IPL, e monitorar o ambiente, aqueles velhos V nnnn,OFFLINE - V nnnn,ONLINE - D A,L - Replay de mensagens, entre outros.
Imagens de uma Instalação do Hercules
Retirando os Aplicativos do Ar
Download da Imagem do z/OS
Clique Aqui - Neste site fala do download;
Clique Aqui - Mais detalhes sobre a instalação;
Hercules.cnf
# ---------------------------------------------------------------------------------------
# Configuration file for Hercules & IBM ADCD z/OS 1.6 (HSOTOMA)
# ---------------------------------------------------------------------------------------
CPUSERIAL 000111 # CPU serial number
CPUMODEL 2064 # CPU model number
MAINSIZE 150 # Main storage size in megabytes 768
XPNDSIZE 0 # Expanded storage size in megabytes
CNSLPORT 3270 # TCP port number to which consoles connect
HTTPPORT 8081 # HTTP server
NUMCPU 4 # Number of CPUs
NUMVEC 2 # Vector facilities emulated
TZOFFSET +0200
OSTAILOR OS/390 # OS tailoring
PANRATE 5000 # Panel refresh rate
ARCHMODE ESAME # Architecture mode S/370, ESA/390 or ESAME
PGMPRDOS LICENSED # Allow OS/390 and Z/OS systems to run
# ---------------------------------------------------------------------------------------
# IPL parameter
# ---------------------------------------------------------------------------------------
LOADPARM 0A82CS..
# ---------------------------------------------------------------------------------------
# SYMBOLS DEFINITION - COLOQUE ABAIXO O ENDEREÇO DAS IMAGENS DO Z/OS 1.6
# ---------------------------------------------------------------------------------------
DEFSYM DASD "C:\Mainframe\Imagens_Run\IBM_ZOS_1.6\IBM_ADCD_zOS_v1.6_" # discos
# ---------------------------------------------------------------------------------------
# Terminals
# ---------------------------------------------------------------------------------------
0700 3270
0701 3270
0702 3270
0900 3270
0901 3270
# ---------------------------------------------------------------------------------------
# DASD
# ---------------------------------------------------------------------------------------
0A80 3390 $(DASD)z6res1.a80
0A81 3390 $(DASD)z6res2.a81
0A82 3390 $(DASD)z6sys1.a82
0A83 3390 $(DASD)z6uss1.a83
0A84 3390 $(DASD)z6uss2.a84
0A85 3390 $(DASD)z6dis1.a85
0A86 3390 $(DASD)z6dis2.a86
0A87 3390 $(DASD)z6dis3.a87
0A88 3390 $(DASD)z6dis4.a88
0A89 3390 $(DASD)z6dis5.a89
0A8A 3390 $(DASD)z6was1.a8a
0A8B 3390 $(DASD)z6was2.a8b
0A8C 3390 $(DASD)z6db81.a8c
0A8D 3390 $(DASD)z6db82.a8d
0A8E 3390 $(DASD)z6cic1.a8e
0A8F 3390 $(DASD)z6ims1.a8f
# ---------------------------------------------------------------------------------------
# Tapes
# ---------------------------------------------------------------------------------------
0550.4 3420 *
0560.4 3480 *
0580.4 3490 *
# ---------------------------------------------------------------------------------------
# Reader/Printer
# ---------------------------------------------------------------------------------------
000C 3505 rdr00c.txt ascii trunc
000E 1403 prt00e.txt
#
# CTC link
#
0E22.2 3088 CTCI 192.168.6.2 192.168.6.1
O hercules.cnf é o arquivo de configuração para iniciar o emulador, o que vem no pacote fonte é genérico (dá para alterar as configurações nele). Outro detalhe é que um sistema pode ser iniciado a partir do emulador usando o comando ipl.
ResponderEliminarcOMO FAÇO PARA BAIXA OS DISCOS DO ZOS PELA INTERNET E SABE O ENDERAÇA,ENTOS DELES?
ResponderEliminarOBRIGADO
Abra este link:
ResponderEliminarhttp://pastebin.com/PHiT8jmE
No começo desta página tem um link - DOWNLOAD - clique nele, você vai receber um arquivo TXT com a informação do link para baixar pelo Torrent;
O arquivo TXT o endereço do download em torrent esta próximo do texto abaixo:
STEP 1: DOWNLOAD ZOS.
GET THE "IBM ZOS 1.10" TORRENT: xxxxLINK TORRENTxxxx
Quem quiser mais informação de como faz funcionar o z/OS no micro de uma olhada neste link
ResponderEliminarhttp://claudemarmartins.blogspot.com.br/2014/11/instalando-o-hercules-zos.html
Dei print de uma instalação completa.
Claudio, boa noite. Estou com um uma situação e nao consegui achar nada. Será que vc poderia me ajudar? Estou rodando Hergules no Windows 7, apos iniciiar selecionar o drive F para o inicio vem aquela pergunta: REPLY I TO INITIALIZE SYSPLEX ADCDPL, OR R TO REINITIALIZE KCF.
EliminarQuando tento utilizar os comandos que achei:
r 00,r
r 00,i
Tudo que recebo HHCPN144E - Invalid operando 00,r.
Ja tentei várias opções mas a partir dai nao saio.
Tem alguma ideia?
Boa tarde. Primeiramente obrigado por ajudar nesta instalação. Estou com uma dúvida. Qual arquivo hercules.conf devo alterar no passo 4. O da pasta da instalação do hercules ou o que vem nas imagens do zos. No print do link http://claudemarmartins.blogspot.com.br/2014/11/instalando-o-hercules-zos.html o arquivo aberto está parecendo ser o que veio junto com as imagens. Estou usando a versão 3.07 do ZOS.
ResponderEliminarDesde já agradeço.
Você tem que alterar a que vem do Hercules, a que vem com as imagens é só modelo de como funciona para esta versão de z/OS;
ResponderEliminarAbra ele com o bloco de notas que você vai conseguir abrir.
Obrigado Claudemar. Alterei conforme descreveu. Agora estou com o problema seguinte: O terminal do Hercules está me retornando o erro: HCCP011I CPU0000: Disabled wait state
ResponderEliminardepois que executo o comando ipl. Pesquisando comecei a descobrir que pode ser as configurações de tipo de cpu, memoria, etc e tal. Estou alterando alguns parâmetros de acordo com as especificações http://www.hercules-390.org/hercconf.html#CPUSERIAL mas ainda não consegui resolver. O amigo conseguiria me ajudar? Estou usando sistema x64 com 8gb de ram, isso num amd fx4100.
Grato desde já.
ipl 0a80 HHCCP014I CPU0000: Special-operation exception CODE=0013 ILC=4 PSW=00080000 80000616 INST=B2790000 SACF 0(0) set_addressR:00000000:K:06=00080000 800005FC 40404040 F0F04040 ........ 00 GR00=00000000 GR01=00000000 GR02=00000000 GR03=00000000 GR04=00000000 GR05=00000000 GR06=00000000 GR07=00000000 GR08=00000000 GR09=00000000 GR10=00000000 GR11=00000000 GR12=00000000 GR13=00000000 GR14=00000000 GR15=00000000 CR00=01B00200 CR01=00000000 CR02=00000000 CR03=00000000 CR04=00000000 CR05=00000000 CR06=FE000000 CR07=00000000 CR08=00000000 CR09=00000000 CR10=00000000 CR11=00000000 CR12=00000000 CR13=00000000 CR14=C2000000 CR15=00000000 HHCCD001I Readahead thread 1 started: tid=0000148C, pid=6344 HHCCD001I Readahead thread 2 started: tid=00000220, pid=6344 HHCCP011I CPU0000: Disabled wait state PSW=000A0000 003000B1 Command ==>
Todas as vezes que deu pra mim o erro:
ResponderEliminarDisabled wait state PSW
Foi alguma coisa que coloquei de errado no hercules.cnf - faz assim manda pra mim (aqui mesmo no comentario) a sua hercules.cnf para dar uma olhadinha.
Amigo, estou com o mesmo problema, quando dou o comando IPL acontece o disable wait state 00000088. Pode me ajudar?
EliminarTodas as vezes que deu pra mim:
EliminarHHCCP011I CPU0000: Disabled wait state
PSW=000A0000 00000088
Foi alguma coisa que coloquei errada na hercules.cnf - coloquei alguma imagem em um endereço errado, coloque aqui a sua hercules.cnf pra mim dar uma olhada.
Semana passada criei um blog só para falar coisas sobre o Hercules, coloquei várias dicas dele, acessa lá:
ResponderEliminarhttps://herculesmainferame.blogspot.com.br
Tem muito coisa que dá para se fazer nele;
Olá Claudemar. Estou conseguindo progredir na instalação do hercules. Problema agora é que quandro dou o comando ipl, depois de um tempo processando, ele começa a aparecer a mensagem +VTAMAP01I Waiting for VTAM to be started. Li que pode ser permissões write/read na pasta das imagens, já alterei e já está com controle total, porém nada ainda. Continua a mesma mensagem. Quanto ao blogue que citou, estou dando uma olhada nele. Abaixo, segue o arquivo hercules.cnf.
ResponderEliminar#
# 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 0A95DB..
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.9 IPL A80?
# Display Terminals
0700 3270
0701 3270
0702 3270
0703 3270
0704 3270
# DASD Devices
0A80 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.01.of.26.sares1.cckd
0A81 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.02.of.26.zacic1.cckd
0A82 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.03.of.26.zadb81.cckd
0A83 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.04.of.26.zadb82.cckd
0A84 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.05.of.26.zadb83.cckd
0A85 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.06.of.26.zadb84.cckd
0A86 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.07.of.26.zadb91.cckd
0A87 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.08.of.26.zadb92.cckd
0A88 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.09.of.26.zadis1.cckd
0A89 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.10.of.26.zadis2.cckd
0A8A 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.11.of.26.zadis3.cckd
0A8B 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.12.of.26.zadis4.cckd
0A8C 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.13.of.26.zadis5.cckd
0A8D 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.14.of.26.zadis6.cckd
0A8E 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.15.of.26.zaims1.cckd
0A8F 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.16.of.26.zaprd1.cckd
0A90 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.17.of.26.zaprd2.cckd
0A91 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.18.of.26.zaprd3.cckd
0A92 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.19.of.26.zaprd4.cckd
0A93 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.20.of.26.zares1.cckd
0A94 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.21.of.26.zares2.cckd
0A95 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.22.of.26.zasys1.cckd
0A96 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.23.of.26.zauss1.cckd
0A97 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.24.of.26.zawas1.cckd
0A98 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.25.of.26.zawas2.cckd
0A99 3390 D:/Mainframe/ibm.adcd.zos.1.10.disk.26.of.26.zawas3.cckd
Obrigado mais uma vez pela ajuda.
Usando a sua Hercules.cnf ocorreu isso comigo;
ResponderEliminar- 01.10.23 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.10.43 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.11.03 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.11.23 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.11.43 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.12.03 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.12.24 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.12.44 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.13.04 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.13.24 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.13.44 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.14.04 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.14.24 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.14.44 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.15.04 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.15.24 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.15.44 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.16.04 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.17.24 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.17.44 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.18.04 STC00039 +VTAMAP01I Waiting for VTAM to be started.
- 01.18.24 STC00039 +VTAMAP01I Waiting for VTAM to be started.
O sistema fica aguardando o VTAM ser iniciado;
Estou achando que é o jeito (da numeração) que você colocou as imagens do z/OS no hercules.cnf, usa assim pois deu certo comigo:
#
# Carrega a variavel DASD
#
DEFSYM DASD "D:/Mainframe"
#
#
#
# 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
Abra um emulador de telnet (para abrir a console) e na console do Hescules você dá o comando ipl 0a81
Acho que descobri o que foi que ocorreu, você usou o endereço dos discos no exemplo que coloquei neste tópico, ela foi testada para carregar o z/OS versão 1.6, a versão 1.10 que você estava usando esta usando outra numeração de disco, acho que o sistema na hora que vai carregar o VTAM não esta encontrando o disco para ele carregar;
ResponderEliminarColocando esses endereços que coloquei acima vai carregar pois os endereços dos discos estão corretos para a versão 1.10
No z/OS 1.10 a numeração dos discos são diferentes quando você subir o z/OS dá o comando na console:
ResponderEliminarD U,DASD,,000,999
*16.52.32 *IWM048E WLM RUNNING IN GOAL MODE WITH THE DEFAULT
* POLICY
97 0317 3390 F-NRD /RSDNT
0318 3390 F-NRD /RSDNT
0A80 3390 F-NRD /RSDNT
0A81 3390 S ZARES1 PRIV/RSDNT
0A82 3390 A ZARES2 PRIV/RSDNT
0A83 3390 O ZADB81 PRIV/RSDNT
0A84 3390 O ZADB82 PRIV/RSDNT
0A85 3390 O ZADB83 PRIV/RSDNT
0A86 3390 O ZADB84 PRIV/RSDNT
0A87 3390 A ZADB91 PRIV/RSDNT
0A88 3390 A ZADB92 PRIV/RSDNT
0A89 3390 A ZACIC1 PRIV/RSDNT
0A8A 3390 O ZADIS1 PRIV/RSDNT
0A8B 3390 O ZADIS2 PRIV/RSDNT
0A8C 3390 O ZADIS3 PRIV/RSDNT
0A8D 3390 O ZADIS4 PRIV/RSDNT
0A8E 3390 O ZADIS5 PRIV/RSDNT
0A8F 3390 O ZADIS6 PRIV/RSDNT
0A90 3390 O ZAIMS1 PRIV/RSDNT
0A91 3390 A ZAPRD1 PRIV/RSDNT
0A92 3390 A ZAPRD2 PRIV/RSDNT
0A93 3390 O ZAPRD3 PRIV/RSDNT
0A94 3390 O ZAPRD4 PRIV/RSDNT
0A95 3390 A ZASYS1 STRG/RSDNT
0A96 3390 A ZAUSS1 PRIV/RSDNT
0A97 3390 O ZAWAS1 PRIV/RSDNT
0A98 3390 O ZAWAS2 PRIV/RSDNT
0A99 3390 O ZAWAS3 PRIV/RSDNT
0A9A 3390 O SARES1 PRIV/RSDNT
0A9B 3390 F-NRD /RSDNT
0A9C 3390 F-NRD /RSDNT
0A9D 3390 F-NRD /RSDNT
0A9E 3390 F-NRD /RSDNT
0A9F 3390 F-NRD /RSDNT
0AA0 3390 F-NRD /RSDNT
0AA1 3390 F-NRD /RSDNT
IEE612I CN=L700 DEVNUM=0700 SYS=ADCD
D U,DASD,,000,999
IEE163I MODE= RD
Obrigado pelo seus esclarecimentos. Consegui rodar o sistema.
ResponderEliminarOla Claudemar tudo bem??
ResponderEliminarTive um problema com o user SYSADM para full access no DB2 ... quando tento conectar utilizando a proc DBSPROC ele da um JCL error, poderia me ajudar por gentileza?? pelo IBMUSER nao consigo acesso as tools do db2 :(
O IBMUSER não consegui também acessar tem que ser SYSADM pois ele tem acesso no DB2, com o usuário SYSADM no TSO altere a Procedure de DBSPROC para DBSPROC9 em COMMAND coloque ISPF que você vai conseguir acessar o TSO.
ResponderEliminarVeja como fiz no link - http://herculesmainferame.blogspot.com.br/2015/11/acessando-o-db2-no-hercules-zos.html
Logando com a procedure DBSPROC dava este erro pra mim:
ICH70001I SYSADM LAST ACCESS AT 21:15:53 ON TUESDAY, NOVEMBER 3, 2015
IKJ56455I SYSADM LOGON IN PROGRESS AT 21:17:16 ON NOVEMBER 3, 2015
IKJ56457I LOGON FAILED JCL ERROR IN LOGON PROCEDURE
IKJ56470I SYSADM LOGGED OFF TSO AT 21:17:16 ON NOVEMBER 3, 2015
IKJ56400A ENTER LOGON OR LOGOFF-
boa noite.
ResponderEliminarvocê conhece essa mensagem de erro?
IKT00405I SCREEN ERASURE CAUSED BY ERROR RECOVERY PROCEDURE
***
ela está aparecendo logo depois de logar no sistema.
So deixando aqui para o caso de alguem passar por aqui com o mesmo problema:
EliminarAperta PA1 e ENTER nas 3 vezes que der o erro.
Welder que emulador de telnet você esta usando?
ResponderEliminarVocê esta usando a porta 3270?
Parece que o emulador enviou um data stream que não é suportadado pelo terminal emulador, faça algumas coisas;
Primeiro - Altere a configuração da porta do seu emulador de telnet 3278 , 3279 e para 3270 (altera e tenta acessar, não deu certo altera a porta para outro valor e tenta de novo);
Segundo - Abaixe um outro emulador, instala e depois configura e tenta acessar de novo o TSO.
http://www.ciasc.sc.gov.br/downloads2/download/83-programas/18715-emulador-pw3270-4-2-0?server=1
Clique em Downloado - Este emulador PW3270 é gratis do governo federal.
Terceiro - Se não der certo de um print pra mim da tela do TSO antes de você entrar.
Boa noite.
ResponderEliminarClaudemar, deu certo aqui. De fato, era a versão do emulador 3270. Estava usando a Versão 5.0 - Revisão 3093. Baixei a que passou e rodou de primeira sem dar erro.
Mais uma vez, obrigado pela ajuda!
Curioso esse problema, justamente na versão mais nova do emulador ela realmente não deixa usar o ispf.
EliminarJá no caso do VM/370 funciona normalmente.
Claudemar bom dia.
ResponderEliminarNovamente, gostaria da sua ajuda. Estou tentando aprender aprender a trabalhar com mainframe e conforme as perguntas que já fiz, percebe que de fato ainda sou amador nesse 'mundo novo'. Acontece que ao tentar fazer login no sistema, usando o userid IBMUSER -> SYS1 o sistema permitia que eu digitasse o user e o pass porém nao fazia mais nada depois disso. Testei inclusivo com outros usuários que citou no seu artigo/tutorial de instalação. Porém, agora o sistema está apresentando a mensagem:
LCL701 UNABLE TO ESTABLISH SESSION - INIT SELF FAILED WITH SENSE 08570002
já de cara, quando o hercules termina de subir, ou seja, não deixa nein tentar fazer login.
Consegue me ajudar com esse erro?
Obrigado.
Welder Silva fica tranquila, é assim mesmo nas dificuldades a gente vai aprendendo, confirma pra mim algumas informações?
ResponderEliminar01 - Essa mensagem de erro dá no TSO ou no CICS?
02 - O TSO esta online, de esses dois comandos na console:
K A,NONE
d a,l
Procure para ver se você acha o TSO, se tiver online, tire ele do ar com o comando:
P TSO
Deve dar uma mensagem assim:
- 16.05.10 P TSO
- 16.05.10 STC01748 IKT006I TCAS ENDED
- 16.05.10 STC01748 IEF404I TSO - ENDED - TIME=16.05.10
Depois coloque ele de novo online com este comando:
S TSO
Deve sair uma mensagem igual a essa:
- 16.05.55 S TSO
- 16.05.55 STC01772 $HASP373 TSO STARTED
- 16.05.55 STC01772 IKT007I TCAS ACCEPTING LOGONS
- 16.05.55 STC01772 IKT005I TCAS IS INITIALIZED
Se não resolver não se preocupe, comigo uma vez eu desliguei o computador sem fechar o Hercules, na hora que fui mexer de novo com o Hercules começou a dar vários erros malucos, eu peguei as imagens "que não tinha mexido - (um backup)" e restaurei encima das imagens onde estava rodando as imagens do meu Hercules, funcionou, parou os erros, desencanei, eram tantos erros que acredito que não conseguiria resolver todos.
Qualquer duvida é só falar estamos ai pra ajudar;
Hola Claudemar Martins, tenia ese problema pero lo solucione con el comando S TSO. Muchas gracias por tu ayuda, saludos desde Peru
EliminarClaudemar, tentei os passos que orientou, mas não teve jeito. Tive que voltar um bkp que tinha das imagens. Provavelmente o problema aconteceu por conta de queda de energia, o que pode ter levado a 'zuar' o hercules.
ResponderEliminarMais uma vez, obrigado pela ajuda.
Bom dia Claudemar,
ResponderEliminarpreciso utilizar dois Hercules em uma rede interna preciso de uma configuração dos ips para os 2 hercules se comunicarem via TCP IP, você tem um esquema com essa configuração para disponibilizar ou me indica onde pesquisar ? . Grato Raul.
Raul Faccio,
ResponderEliminarTentei fazer essa conexão mais não consegui mais vou deixar alguns links sobre este assunto;
http://herculesmainferame.blogspot.com.br/2015/12/configurando-rede-sobre-o-hercules-zos.html
http://www.sigt.net/software/montando-un-equipo-hercules-y-zos-para-emulacion-de-un-entorno-real-y-iii.html
http://herculesmainferame.blogspot.com.br/2015/11/zos-conectividade-tcpipftp.html
Claudemar Martins
Boa noite,
ResponderEliminarBaixei as imagens do zos1.10 por torrent conforme informado.
Mas ao tentar executar está apresentando a mensagem:
CKD HEADER INVALID
Poderiam me auxiliar ??
Até aonde entendi creio que os discos estejam corrompidos.
Abaixo arquivo hercules.cnf
#
# 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 0A95DB..
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.9 IPL A80?
# Display Terminals
0700 3270
0701 3270
0702 3270
0703 3270
0704 3270
# DASD Devices
0A81 3390 cckd/zares1.cckd
0A82 3390 cckd/zares2.cckd
0A83 3390 cckd/zadb81.cckd
0A84 3390 cckd/zadb82.cckd
0A85 3390 cckd/zadb83.cckd
0A86 3390 cckd/zadb84.cckd
0A87 3390 cckd/zadb91.cckd
0A88 3390 cckd/zadb92.cckd
0A89 3390 cckd/zacic1.cckd
0A8A 3390 cckd/zadis1.cckd
0A8B 3390 cckd/zadis2.cckd
0A8C 3390 cckd/zadis3.cckd
0A8D 3390 cckd/zadis4.cckd
0A8E 3390 cckd/zadis5.cckd
0A8F 3390 cckd/zadis6.cckd
0A90 3390 cckd/zaims1.cckd
0A91 3390 cckd/zaprd1.cckd
0A92 3390 cckd/zaprd2.cckd
0A93 3390 cckd/zaprd3.cckd
0A94 3390 cckd/zaprd4.cckd
0A95 3390 cckd/zasys1.cckd
0A96 3390 cckd/zauss1.cckd
0A97 3390 cckd/zawas1.cckd
0A98 3390 cckd/zawas2.cckd
0A99 3390 cckd/zawas3.cckd
0A9A 3390 cckd/sares1.cckd
Boa noite,
ResponderEliminarBaixei as imagens do zos1.10 por torrent conforme informado.
Mas ao tentar executar está apresentando a mensagem:
CKD HEADER INVALID
Poderiam me auxiliar ??
Até aonde entendi creio que os discos estejam corrompidos.
Abaixo arquivo hercules.cnf
#
# 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 0A95DB..
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.9 IPL A80?
# Display Terminals
0700 3270
0701 3270
0702 3270
0703 3270
0704 3270
# DASD Devices
0A81 3390 cckd/zares1.cckd
0A82 3390 cckd/zares2.cckd
0A83 3390 cckd/zadb81.cckd
0A84 3390 cckd/zadb82.cckd
0A85 3390 cckd/zadb83.cckd
0A86 3390 cckd/zadb84.cckd
0A87 3390 cckd/zadb91.cckd
0A88 3390 cckd/zadb92.cckd
0A89 3390 cckd/zacic1.cckd
0A8A 3390 cckd/zadis1.cckd
0A8B 3390 cckd/zadis2.cckd
0A8C 3390 cckd/zadis3.cckd
0A8D 3390 cckd/zadis4.cckd
0A8E 3390 cckd/zadis5.cckd
0A8F 3390 cckd/zadis6.cckd
0A90 3390 cckd/zaims1.cckd
0A91 3390 cckd/zaprd1.cckd
0A92 3390 cckd/zaprd2.cckd
0A93 3390 cckd/zaprd3.cckd
0A94 3390 cckd/zaprd4.cckd
0A95 3390 cckd/zasys1.cckd
0A96 3390 cckd/zauss1.cckd
0A97 3390 cckd/zawas1.cckd
0A98 3390 cckd/zawas2.cckd
0A99 3390 cckd/zawas3.cckd
0A9A 3390 cckd/sares1.cckd
Dá uma olhada nos endereços da imagens, abaixo do:
Eliminar# DASD Devices
Esta correto cckd/ ?
Você tem que colocar o endereço da pasta onde esta a imagem do z/OS no seu micro, exemplo:
0A81 3390 E:\Hercules\cckd\zares1.cckd
0A82 3390 E:\Hercules\cckd\zares2.cckd
0A83 3390 E:\Hercules\cckd\zadb81.cckd
0A84 3390 E:\Hercules\cckd\zadb82.cckd
0A85 3390 E:\Hercules\cckd\zadb83.cckd
Dá para criar uma variável e colocar no lugar do endereço, ficaria assim:
EliminarDEFSYM DASD "E:/Hercules/cckd"
#
# 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
Boa noite,
ResponderEliminarObrigado pela ajuda e desculpa a demora em retornar mas estava sem net :/.
Fiz as alterações no arquivo de configuração e continua apresentando o mesmo erro.
Coloquei as imagens em uma pasta IBMZOS e realizei a alteração no arquivo deixando da forma abaixo.
Entretanto continua apresentando o mesmo erro "CKD header invalid".
#
# Hercules Emulator Control file…
# Description:
# MaxShutdownSecs: 15
#
#
# System parameters
#
# Display Terminals
0700 3270
0701 3270
0702 3270
0703 3270
0704 3270
# DASD Devices
0A81 3390 C:/IBMZOS/sares1.cckd
0A82 3390 C:/IBMZOS/zacic1.cckd
0A83 3390 C:/IBMZOS/zadb81.cckd
0A84 3390 C:/IBMZOS/zadb82.cckd
0A85 3390 C:/IBMZOS/zadb83.cckd
0A86 3390 C:/IBMZOS/zadb84.cckd
0A87 3390 C:/IBMZOS/zadb91.cckd
0A88 3390 C:/IBMZOS/zadb92.cckd
0A89 3390 C:/IBMZOS/zadis1.cckd
0A8A 3390 C:/IBMZOS/zadis2.cckd
0A8B 3390 C:/IBMZOS/zadis3.cckd
0A8C 3390 C:/IBMZOS/zadis4.cckd
0A8D 3390 C:/IBMZOS/zadis5.cckd
0A8E 3390 C:/IBMZOS/zadis6.cckd
0A8F 3390 C:/IBMZOS/zaims1.cckd
0A90 3390 C:/IBMZOS/zaprd1.cckd
0A91 3390 C:/IBMZOS/zaprd2.cckd
0A92 3390 C:/IBMZOS/zaprd3.cckd
0A93 3390 C:/IBMZOS/zares1.cckd
0A94 3390 C:/IBMZOS/zares2.cckd
0A95 3390 C:/IBMZOS/zasys1.cckd
0A96 3390 C:/IBMZOS/zauss1.cckd
0A97 3390 C:/IBMZOS/zawas1.cckd
0A98 3390 C:/IBMZOS/zawas2.cckd
0A99 3390 C:/IBMZOS/zawas3.cckd
Acabei de observar, dá uma olhada:
Eliminar0A81 3390 C:/IBMZOS/sares1.cckd
Veja se esta com este nome este arquivo, nas minhas anotações ele vem como zares1.cckd
Uma outra coisa, se não der certo a minha primeira dica tente alterar a barra:
ResponderEliminar0A81 3390 C:/IBMZOS/sares1.cckd
0A82 3390 C:/IBMZOS/zacic1.cckd
0A83 3390 C:/IBMZOS/zadb81.cckd
0A84 3390 C:/IBMZOS/zadb82.cckd
0A85 3390 C:/IBMZOS/zadb83.cckd
0A86 3390 C:/IBMZOS/zadb84.cckd
0A87 3390 C:/IBMZOS/zadb91.cckd
0A88 3390 C:/IBMZOS/zadb92.cckd
Tente alterar a barra / para \
0A81 3390 C:\IBMZOS\sares1.cckd
0A82 3390 C:\IBMZOS\zacic1.cckd
0A83 3390 C:\IBMZOS\zadb81.cckd
0A84 3390 C:\IBMZOS\zadb82.cckd
0A85 3390 C:\IBMZOS\zadb83.cckd
0A86 3390 C:\IBMZOS\zadb84.cckd
0A87 3390 C:\IBMZOS\zadb91.cckd
0A88 3390 C:\IBMZOS\zadb92.cckd
# Vou deixar um exemplo de uma hercules.cnf
ResponderEliminar# Hercules Emulator Control file...
# Description:
# MaxShutdownSecs: 15
# # http://dtsc.dfw.ibm.com/MVSDS/'HTTPD2.ADCD.GLOBAL.HTML(READ110S)‘
#
# 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 0A95DB..
## LOADPARM 0A82CSM1 # http://leo.steamr.com/2012/07/booting-zos-emulation-files-with-hercules/
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.9 IPL A80?
#********************************************************************
# SYMBOLS DEFINITION *
#********************************************************************
# DEFSYM DASD “C:/Mainframe/Imagens_Run/IBM_ZOS_1.10” # discos
# DEFSYM PROD “Z110/PROD”
# DEFSYM PRTR “Z110/PRTR”
#********************************************************************
# Display Terminals
#********************************************************************
0700 3270
0701 3270
0702 3270
0703 3270
0704 3270
#********************************************************************
# DASD Devices
#********************************************************************
0A81 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zares1.cckd
0A82 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zares2.cckd
0A83 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadb81.cckd
0A84 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadb82.cckd
0A85 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadb83.cckd
0A86 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadb84.cckd
0A87 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadb91.cckd
0A88 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadb92.cckd
0A89 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zacic1.cckd
0A8A 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadis1.cckd
0A8B 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadis2.cckd
0A8C 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadis3.cckd
0A8D 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadis4.cckd
0A8E 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadis5.cckd
0A8F 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zadis6.cckd
0A90 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zaims1.cckd
0A91 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zaprd1.cckd
0A92 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zaprd2.cckd
0A93 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zaprd3.cckd
0A94 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zaprd4.cckd
0A95 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zasys1.cckd
0A96 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zauss1.cckd
0A97 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zawas1.cckd
0A98 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zawas2.cckd
0A99 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/zawas3.cckd
0A9A 3390 C:/Mainframe/Imagens_Run/IBM_ZOS_1.10/sares1.cckd
#********************************************************************
# TAPE
#********************************************************************
0550 3490 # tape
Bia noite,
ResponderEliminarRealizei os dois testes da barra e do arquivo deixando igual ao seu e o erro ainda continua.
Vou tentar baixar novamente as imagens.
Uallace dá uma olhada neste seu download veio o arquivo hercules.cnf?
ResponderEliminarSuspeito que seja alguma configuração no hercules.cnf que esteja causando este problema.
Olá amigo, alguma solução para o problema de CPU disabled wait state
ResponderEliminarTodas as vezes que deu pra mim o erro:
EliminarDisabled wait state PSW
Foi alguma coisa que coloquei de errado no hercules.cnf, algum parâmetro errado.
HI everyone please if someone can upload ALL Files DASD PLEASE IF YOU CAND SEND TORRENT FILE BEST REGARDS
ResponderEliminarClaudemar, este link de Torrent (para baixa as imagens) está funcionando ainda? Parece que não.
ResponderEliminarVi um outro get-Z-OS.gif que também parece estar quebrado...
Abs
Eu consegui baixar somente a noite, de dia parece que os computadores que estão compartilhados estão desligados.
EliminarUma outra dúvida configurei o terminal e criei um local, porém qdo fui executar para abir o 2 segundo ele não funcionou disse connection reject, no avaliable 3270 device.
ResponderEliminarQue emulador você esta usando? Abaixa o PW3270 e tenta abrir usando ele:
Eliminarhttp://www.seati.ma.gov.br/download/
Boa noite!
ResponderEliminarEstava usando o emulador Quick3270 mas a licença expirou. Hoje fui tentar usar o PW3270 mas quando tento abrir uma sessão de TSO aparece a mensagem: IKT00405I SCREEN ERASURE CAUSED BY ERROR RECOVERY PROCEDURE.
Testei em outro emulador(pago tbm) e funcionou. Existe alguma configuração especial (no arquivo hercules ou no próprio emulador)para usar o PW3270 ?
Você esta usando a porta 3270?
EliminarParece que o emulador enviou um data stream que não é suportadado pelo terminal emulador, faça algumas coisas;
Primeiro - Altere a configuração da porta do seu emulador de telnet 3278 , 3279 e para 3270 (altera e tenta acessar, não deu certo altera a porta para outro valor e tenta de novo);
Segundo - Abaixe um outro emulador, instala e depois configura e tenta acessar de novo o TSO.
http://www.ciasc.sc.gov.br/downloads2/download/83-programas/18715-emulador-pw3270-4-2-0?server=1
Clique em Downloado - Este emulador PW3270 é gratis do governo federal.
Terceiro - Se não der certo de um print pra mim da tela do TSO antes de você entrar.
O meu dá o seguinte error
ResponderEliminarHercules version 3.13 built on Sep 28 2017 01:38:00
running on I5-ARRECAD-005 (Windows_NT-6.1 AMD64 MP=4)
Connection rejected, no available 3270 device
Como você configurou o arquivo HERCULES.CNF os terminais?
EliminarColocou 3270?
Bom dia Claudemar. Consegui rodar, com algumas barbeiragens. Onde vejo um materia introdutório ? Para entender os processos. Sou desenvolvedor COBOL, quero entrar agora no mundo dos mainframes.
ResponderEliminarTenho um blog sobre Hercules e lá fala sobre muitas coisas -
Eliminarhttp://herculesmainferame.blogspot.com.br
Acho que lá você vai encontrar muitas coisas interessantes sobre o Hercules, desculpe a demora na resposta, este mês estou de férias.
Boa tarde Claudemar, obrigado pelas informações.
ResponderEliminarO link do torrent nao esta funcionando mais.
Teria um outro pra eu realizar o download?
Deixe o torrent baixando a noite pois os fontes para download estão disponivies, esses dias inicie o download pelo Torrent a noite e consegui, de dia acredito que não tem muitas fontes para download e de noite (aqui) é de dia onde o pessoal esta com as fontes.
EliminarTem um lugar que dá pra fazer o download da imagem em ISO (clique em ISO IMAGE) pra fazer download, encontrei esse site pesquisando no google
EliminarOS/390 - https://archive.org/details/os390_v2r10_demopkg
VM/ESA - https://archive.org/details/VMESA240ADCDCD1
A versão z/OS eu já vi neste site, agora pesquisando não encontrei
Boa noite Claudemar!
ResponderEliminarNão estou conseguindo realizar nenhuma função no VISTA TN3270, ao carregar a ipl 0a81 do zos 1.10, estou obtendo as seguintes informaçõoes no fim do processamento do Hercules:
*IEA247I USING IEASYSDB FOR z/OS 01.10.00 HBB7750
ISG313I SYSTEM IS INITIALIZING IN GRS NONE MODE. RING OR STAR CONFIGURATION KEYWORDS IN GRSCNF00 ARE IGNORED.
HHCCD002I Writer thread 1 started: tid=000028E4, pid=9260
HHCCD003I Garbage collector thread started: tid=00002A54, pid=9260
IEA598I TIME ZONE = W.06.00.00
IXL011I XES HARDWARE SUPPORT IS NOT INSTALLED. REASON: 02
IXC414I CANNOT JOIN SYSPLEX ADCDPL WHICH IS RUNNING IN MONOPLEX MODE: CONFIGURATION REQUIREMENT
IXC404I SYSTEM(S) ACTIVE OR IPLING: ADCD
HHCCP042I SYSCONS interface inactive
* IXC420D REPLY I TO INITIALIZE SYSPLEX ADCDPL, OR R TO REINITIALIZE XCF. REPLYING I WILL IMPACT OTHER ACTIVE SYSTEMS
HHCCD002I Writer thread 2 started: tid=00002480, pid=9260
HHCTE009I Client 192.168.0.104 connected to 3270 device 0:0700
Saberia dizer se está ocorrendo algum problema?
Esta é a mensagem interessante:
Eliminar* IXC420D REPLY I TO INITIALIZE SYSPLEX ADCDPL, OR R TO REINITIALIZE XCF. REPLYING I WILL IMPACT OTHER ACTIVE SYSTEMS
Respoda na console do mainframe r 00,i
Qualquer duvida siga esse tutorial:
https://herculesmainferame.blogspot.com/2015/11/instalando-o-hercules-zos-110-no-windows.html
Muito obrigado Claudemar! Deu tudo certo.
EliminarAgora poderei estudar a vontade as vertentes de segurança do sistema, visto que já faço auditoria do mesmo, eu estava procurando obter conhecimentos mais técnicos.
Se você possuir alguma dica de estudos, sobre RACF e afins, agradeço se puder compartilhar.
Obrigado.
Nunca trabalhei com o RACF mas tenho alguns materiais sobre ele:
Eliminarhttps://herculesmainferame.blogspot.com/2016/08/racf-book.html
https://herculesmainferame.blogspot.com/2015/11/racf-resource-access-control-facility.html
https://herculesmainferame.blogspot.com/2015/12/entendendo-sobre-jcl-utilitario-icetool.html
Hola Claudemar
ResponderEliminarEstoy tratando de compilar un programa cobol con DB2 desde emulador HERCULES. Pero no tengo exito, He intendado muchos ejemplos que encontre en internet, pero ninguno funciona. Por ultimo use el PROC DSNHICOB, la pre compilacion sale bien pero sale RC=12 en la compilacion. Tal vez tenga que configurar el hercules.cnf ?
me podrias ayudar..
*********************************************************
* COBOL DECLARATION FOR TABLE IBMUSER.USER
*********************************************************
01 DCLUSER.
* ****************************************************
10 ID PIC S9(9) USAGE COMP.
IGYDS0017-E "ID" should begin in area "A". It was processed as if f
IGYDS1082-E A period was required. A period was assumed before "ID"
IGYDS1159-E A "PICTURE" clause was not found for elementary item "FI
X(1)" was assumed.
IGYSC1082-E A period was required. A period was assumed before "ID"
IGYDS1102-E Expected "DIVISION", but found "PIC". "DIVISION" was as
"PIC".
IGYDS1082-E A period was required. A period was assumed before "PIC