Instalando o Turnkey - Mainframe Versão S/370
Se você tem vontade de rodar um Mainframe para tentar aprender a mexer com cobol, JCL, TSO, comandos de console entre outros detalhes tem um pacote que vem com o mainframe versão S/370 pre-instalado; Link para download - Clique Aqui 500 mb Windows
Windows 98
Windows ME
Windows NT Version 4.0, Service Pack 6
Windows 2000, Service Pack 2
Windows XP
Linux
SuSE Linux 7.2
SuSE Linux 8.0
RedHat Linux 7.2
Depois de fazer o download abra ele com qualquer descompactador (eu usei o Winrar) pegue os arquivos e grave em uma pasta no seu micro. Depois de descompactado acesse pelo DOS esta pasta e de o comando abaixo:
setup
Depois de digitar vai cair nesta tela, escolha uma opcao para instalar o MVS Turnkey
MVS 3.8J System Installation/Generation
1. Install MVS Turnkey system - standard setup Debug: off
2. Install MVS Turnkey system - simple setup ANSI: on
3. Install MVS Starter system and SYSGEN files
x. Exit
Your choice ===>
Nesta opcao eu escolhi a 1 STANDAD SETUP
Hercules installation definition
Do you want to install Hercules from the CDROM?
===> [ N ]
Perguntou se eu quero instalar o Hercules pelo CDROM - eu coloquei Y
Cygwin support file installation
Do you want to install the Cygwin 1.3.10 support files from the CDROM?
===> [ N ]
Instalar o Cygwin - eu coloquei YES
TN3270 Terminal Emulator installation
Do you want to install c3270 3.2 from the CDROM
===> [ N ]
Instalar o Emulador de TN3270 - eu coloquei YES (ele cria alguns executaveis com links com acesso direto na console e para o TSO - muito interessante) mais se voce tiver um emulador 3270 pode colocar N (Dai voce deverar colocar nele os enderecos do host e a porta).
Target directory definition
Please enter the target directory, or press enter for default (mvs38j)
The directory can be given as an absolute path, i.e. with a \ character or a
drive letter (like C:) at the beginning, or relative to
C:\Program Files
With other words, the default installation directory is
C:\Program Files\mvs38j
Please do NOT use blanks/spaces in the directory name!
===> [ N ]
Esta vai ser a pasta onde voce vai instalar o Hercules no seu micro, lembre-se que depois de instalado o Hercules e nela que voce vai vir clicar para rodar o Hercules.
Turnkey DASD location definition
1. Use DASD images from CD-ROM
(Somewhat slower, requires about 40 MB disk space)
2. Copy DASD images to local hard disk (default)
(faster, but requires from 150 to 500 MB disk space)
3. Copy DASD images to local hard disk and use shadow files
(same space as above, allows easier fallback)
Your choice ===>
Agora voce vai copiar as imagens dos discos do Hercules para o seu micro, eu usei a opcao 2.
Console Port (CNSLPORT) Definition
Please enter the portnumber that Hercules should listen at
for incoming telnet and/or tn3270 connections for its builtin telnet server
===> [ 3270 ]
Definições da porta da console, eu apertei enter (default ficara 3270)
Socket Reader Device Port Definition
Please enter the portnumber that Hercules should listen at
for incoming data for the socket device card reader
===> [ 3505 ]
Porta do Socket device, apertei enter (default ficara 3505)
Web server port (HTTPPORT) Definition
Please enter the portnumber that Hercules should listen at
for incoming http requests to its builtin web server
===> [ 8081 ]
Porta do HTTPPORT, apertei enter (default ficara 8081)
Installation options:
CPU Type is: i686
Source path: /cygdrive/e/turnkey_3_cd = e:\turnkey_3_cd
Target path: /cygdrive/e/mvs38j_test = e:\mvs38j_test
Type of installation: turnkey
Location of Tur(n)key DASD images: HD
Hercules installation: N
C3270 installation: N
Telnet console port: 3270
Web server port: 8081
Socket device port: 3505
C3270 installation: N
Continue with Installation
===> (Y)?
Opcoes definidas para o seu Hercules, aperte enter.
Building ./conf directory
Installing startup scripts for Windows
Building ./dasd directory
Copying PAGE disk images
Copying SPOOL disk images
Copying MVS system disk images
Copying public volume disk images
Copying Sortwork disk images
Copying Scratch disk images
Copying Starter system disk images
Copying CBT disk images
Copying MVS Source disk images
Copying SMP disk images
Building ./jcl directory
Building ./scripts directory
Building ./shadow directory
Building ./prt directory
Building ./pch directory
Building ./log directory
Building ./tapes directory
Press the ENTER key to continue
Copiando para o micro os arquivos necessarios para rodar o Hercules no seu micro.
+=============================================================================+
| |
| Installation is now complete |
| ============================ |
| |
| |
| You can now change to the installation directory and start MVS 3.8 |
| by entering |
| |
| startmvs |
| |
| on the command line |
| |
| |
| Enjoy your private mainframe |
| |
+=============================================================================+
Press the ENTER key to continue
Instalacao completa.
Bem agora vamos rodar o hercules, dai na pasta onde foi criado o Hercules (bem vou colocar de novo a mensagem quando falava que iria criar a pasta - ela foi o cote 7 deste topico)
Target directory definition
Please enter the target directory, or press enter for default (mvs38j)
The directory can be given as an absolute path, i.e. with a \ character or a
drive letter (like C:) at the beginning, or relative to
C:\Program Files
With other words, the default installation directory is
C:\Program Files\mvs38j
Please do NOT use blanks/spaces in the directory name!
===> [ N ]
Na minha maquina o Hercules foi instalado no C:\Program Files\mvs38j procure o arquivo - startmvs
0190 3380 e:/mvs38j_test/dasd/work03.190 [1113 cyls] open +
0191 3390 e:/mvs38j_test/dasd/mvscat.191 [1113 cyls] open
0240 3350 e:/mvs38j_test/dasd/pub000.240 [555 cyls] open
0248 3350 e:/mvs38j_test/dasd/mvsdlb.248 [560 cyls] open
0280 3380 e:/mvs38j_test/dasd/pub002.280 [1770 cyls] open
0150 3330 e:/mvs38j_test/dasd/start1.150 [808 cyls] open
0151 3330 e:/mvs38j_test/dasd/spool0.151 [808 cyls] open
0340 3350 e:/mvs38j_test/dasd/cbt000.340 [555 cyls] open
0341 3350 e:/mvs38j_test/dasd/cbt001.341 [555 cyls] open
0342 3350 e:/mvs38j_test/dasd/cbt002.342 [555 cyls] open
0343 3350 e:/mvs38j_test/dasd/cbtcat.343 [555 cyls] open
0348 3350 e:/mvs38j_test/dasd/src000.348 [555 cyls] open
0349 3350 e:/mvs38j_test/dasd/src001.349 [555 cyls] open
034A 3350 e:/mvs38j_test/dasd/src002.34a [555 cyls] open
034B 3350 e:/mvs38j_test/dasd/src003.34b [555 cyls] open
0149 3350 e:/mvs38j_test/dasd/smp001.149 [560 cyls] open
014A 3350 e:/mvs38j_test/dasd/smp002.14a [560 cyls] open
014B 3350 e:/mvs38j_test/dasd/smp003.14b [560 cyls] open
014C 3350 e:/mvs38j_test/dasd/smp004.14c [560 cyls] open
> panrate 1000
Panel refresh rate = 1000 millisecond(s)
HHC429I EOF reached on .RC file.
Command ==>
Depois de clicar ele vai dar esta mensagens que esta encontrando os discos.
Depois clique na pasta do Hercules o arquivo - startterm - Vai abrir algumas telas do DOS.
HHC604I Client 192.168.1.196 connected to 3270 device 0010
HHC604I Client 192.168.1.197 connected to 3270 device 0011
HHC604I Client 192.168.1.196 connected to 3270 device 00C0
HHC604I Client 192.168.1.197 connected to 3270 device 00C1
HHC604I Client 192.168.1.197 connected to 3270 device 00C2
HHC604I Client 192.168.1.196 connected to 3215 device 0009
Vai disponibilizar acesso aos terminais e console.
MVS Initial Program Load (IPL)
Agora vamos dar IPL no STARTMVS para poder carregar o sistema.
Command ==> ipl 148
148 e' o disco onde esta carregado o IPL. Depois do IPL vai aparece esta mensagem.
CPU0000: SIGP CPU0001 Initial program reset PARM 00000000
000C:CCW=03000000 20000001=>040E0000 00041572 00000000 00000000 ................
000C:Stat=0E00 Count=0001
000C:Sense=40000000 00000000 00000000 00000000 00000000 00000000
000C:Sense=INTREQ
Na pasta do Hercules tem um arquivo chamado startterm - clique nele - Se você tiver um emulador de Telnet coloque o endere?§o de seu micro para poder acessar a console do Hercules.
| IEA101A SPECIFY SYSTEM PARAMETERS FOR RELEASE 03.8 .VS2
Esta é a mensagem que vai aparecer na console, nela voce digita R 00,CLPA
Daqui em diante e' mais tranquilo - O site abaixo tem todos os passos:
http://www.bsp-gmbh.com/turnkey/cookbook/index.html
Vejam o TSOWelcome to MVS3.8J, running under the Hercules emulator
TTTTTTTT UU UU RRRRRRR NN NN KK KK EEEEEEEE YY YY
TT UU UU RR RR NNN NN KK KK EE YY YY
TT UU UU RR RR NNNN NN KK KK EE YY YY
TT UU UU RRRRRRR NN NN NN KKKK EEEEEEE YYY
TT UU UU RRRR NN NN NN KK KK EE YY
TT UU UU RR RR NN NNNN KK KK EE YY
TT UU UU RR RR NN NNN KK KK EE YY
TT UUUUUU RR RR NN NN KK KK EEEEEEE YY
?¦\ _,,,---,,_ brought to you by
ZZZzz /,`.-'`' -.;-;;, Volker Bandke
?¦,4- ) )-,_. ,\ ( ''-' vbandke@bsp-gmbh.com
'---''(_/--' `-'\_)
Logon ===>
O link abaixo é um help do TSO no Tunkey, ele passa os usuário e senhas para acessar.
http://www.bsp-gmbh.com/turnkey/cookbook/howto.html
Vejam a Console
IGF992I MIH INIT COMPLETE, PRI=000300, SEC=000015
IEE360I SMF NOW RECORDING ON SYS1.MANX ON MVSRES TIME=14.29.46
IEF677I WARNING MESSAGE(S) FOR JOB JES2 ISSUED
- $HASP493 JES2 QUICK-START IS IN PROGRESS
- $HASP412 MAXIMUM OF 1 READER(S) EXCEEDED
* *IEA000A 00C,INT REQ,42,0E40,4000,,,JES2
IEE041I THE SYSTEM LOG IS NOW ACTIVE
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP160 PRINTER1 INACTIVE - CLASS=A
$HASP160 PRINTER2 INACTIVE - CLASS=Z
IEE152I ENTER CANCEL D C,K
IEE159E MESSAGE WAITING
Acessando o Turnkey
Welcome to MVS3.8J, running under the Hercules emulator
TTTTTTTT UU UU RRRRRRR NN NN KK KK EEEEEEEE YY YY
TT UU UU RR RR NNN NN KK KK EE YY YY
TT UU UU RR RR NNNN NN KK KK EE YY YY
TT UU UU RRRRRRR NN NN NN KKKK EEEEEEE YYY
TT UU UU RRRR NN NN NN KK KK EE YY
TT UU UU RR RR NN NNNN KK KK EE YY
TT UU UU RR RR NN NNN KK KK EE YY
TT UUUUUU RR RR NN NN KK KK EEEEEEE YY
?¦\ _,,,---,,_ brought to you by
ZZZzz /,`.-'`' -.;-;;, Volker Bandke
?¦,4- ) )-,_. ,\ ( ''-' vbandke@bsp-gmbh.com
'---''(_/--' `-'\_)
Logon ===>
USUÁRIOS E SENHAS
user ID - Password
------- ------------
IBMUSER IBMUSER
HERC01 HERC01
HERC02 CUL8TR
HERC03 HERC03
HERC04 PASS4U
Usando o IBMUSER
IBMUSER LOGON IN PROGRESS AT 09:26:07 ON MARCH 19, 1905
NO BROADCAST MESSAGES
READY
Main Menu do RPF
Acessando
------------------------------ RPF MAIN MENU ------------No workspace available
Option ===>
Userid - IBMUSER
0 Defaults - Alter / Display session defaults Time - 10:00:04
1 View - Display source data or output listings System - BSP1
2 Edit - Update / Create a member or dataset
3 Utility - Enter UTILITY
4 Assembler - Foreground ASSEMBLY and/or LINK
5 User - Execute RPF user routine
6 TSO - Execute TSO commands
7 Tutorial - Display information on using RPF
8 Test - Enter TEST mode (Authorized)
9 Operator - Enter OPERATOR mode
X Exit - Terminate RPF.
Hit PF03/15 to terminate RPF.
Tirando os Aplicativos do Ar
Fechar a console do Turnkey sem retirar os aplicativos pode corromper as imagens - o melhor a fazer quando você não quer mais mexer com ele é retirar os aplicativos - vou colocar os comandos para retirar;
De o comando D A,L para descobrir o que esta no ar:
- D A,L
IEE102I 03.20.33 05.080 ACTIVITY 414 C
00006 JOBS 00006 INITIATORS
CMD1 CMD1 CMD1 V=V
JES2 JES2 IEFPROC V=V
BSPPILOT BSPPILOT IEFPROC V=V S
MF1 MF1 IEFPROC V=V S
NET NET IEFPROC V=V
TSO TSO STEP1 V=V S
00000 TIME SHARING USERS
00000 ACTIVE 00008 MAX VTAM TSO USERS
Na console de o comando para retirar
P TSO
Z NET,QUICK
P BSPPILOT
P CMD1
De um tempinho e depois de o comando D A,L para ver o que esta rodando - se tiver alguma coisa rodando de o comando CANCEL nome-do-aplicativo pois vai retirar do ar.
$PI
$DU,STAT
$PREADER1
$PPRINTER1
$PPRINTER2
$PPUNCH1
Por ultimo de os comandos:
$PJES2
Z EOD
QUIESCE
$PJES2
- $PJES2
$HASP000 JES2 NOT DORMANT -- SYSTEM NOW DRAINING
Z EOD
- Z EOD
* *IEE362A SMF ENTER DUMP FOR SYS1.MANX ON MVSRES
IEE360I SMF NOW RECORDING ON SYS1.MANY ON MVSRES TIME=07.13.38
IEE334I HALT EOD SUCCESSFUL
IEE043I A SYSTEM LOG DATA SET HAS BEEN QUEUED TO SYSOUT CLASS L
IEE037I LOG NOT ACTIVE
STC 15 $HASP100 SMFDAILY ON STCINRDR
Agora sim - pode fechar de boa o seu TURNKEY
Procedimentos para Iniciar o Turnkey
Console do Turnkey
Command ==> ipl 148
Mensagem que aparece na console do Turnkey
ipl 148
CPU0000: SIGP CPU0001 Initial program reset PARM 00000000
00C0:CCW=03000000 20000001=>040E0000 00041572 00000000 00000000 ................
00C0:Stat=0E00 Count=0001
00C0:Sense=40000000 00000000 00000000 00000000 00000000 00000000
00C0:Sense=INTREQ
00C1:CCW=03000000 20000001=>040E0000 00041572 00000000 00000000 ................
00C1:Stat=0E00 Count=0001
00C1:Sense=40000000 00000000 00000000 00000000 00000000 00000000
00C1:Sense=INTREQ
Command ==>
CPU0000 PSW=070E0000 00000000 0000000000000000 ..W..... instcount=1605048
Console do Mainframe
| IEA101A SPECIFY SYSTEM PARAMETERS FOR RELEASE 03.8 .VS2
Responder
r 00,clpa
| IEA101A SPECIFY SYSTEM PARAMETERS FOR RELEASE 03.8 .VS2
| r 00,clpa
| IEA940I THE FOLLOWING PAGE DATA SETS ARE IN USE
| PLPA ... SYS1.PAGELPA
| COMMON . SYS1.PAGECSA
| DUPLEX . SYS1.DUPLEX
| LOCAL .. SYS1.PAGEL01
| LOCAL .. SYS1.PAGEL02
Esta carregando normal - quando aparecer esta mensagem abaixo
IEE360I SMF NOW RECORDING ON SYS1.MANX ON MVSRES TIME=05.23.22
IGF992I MIH INIT COMPLETE, PRI=000300, SEC=000015
IEF677I WARNING MESSAGE(S) FOR JOB JES2 ISSUED
*00 $HASP479 UNABLE TO OBTAIN CKPT DATA SET LOCK - IO ERROR -
* REPLY Y OR N TO CONTINUE
De na console R 0,N
IEE152I ENTER CANCEL D C,K
R 0,N
| 00 $HASP479 UNABLE TO OBTAIN CKPT DATA SET LOCK - IO ERROR -
| REPLY Y OR N TO CONTINUE
- R 0 SUPPRESSED
IEE600I REPLY TO 00 IS;SUPPRESSED
- $HASP428 CORRECT THE ABOVE PROBLEMS AND RESTART JES2
- $HASP085 JES2 TERMINATION COMPLETE
Arrumando a paginação da tela da console - de o comando K S, e deixe como esta abaixo - depois de K E,D e K A,NONE
IEE150I CHANGE OPTIONS IF DESIRED ENTER CANCEL
K S,DEL=Y,SEG=09,CON=Y,RNUM=19,RTME=046
K S,DEL=RD,SEG=09,CON=Y,RNUM=19,RTME=001
K E,D
K A,NONE
Como o JES saiu do ar - agora vamos startar ele no ar - digite S JES2
S JES2
- S JES2
IEF677I WARNING MESSAGE(S) FOR JOB JES2 ISSUED
*01 $HASP426 SPECIFY OPTIONS - HASP-II, VERSION JES2 4.1
Vai aparecer esta mensagem para especificar qual JES2 - responda - R 1,FORMAT,NOREQ - vai colocar no ar o JES2 e colocar o sistema no ar
- $HASP493 JES2 COLD-START IS IN PROGRESS
- $HASP423 HASP00 IS BEING FORMATTED
- $HASP412 MAXIMUM OF 1 READER(S) EXCEEDED
IEE041I THE SYSTEM LOG IS NOW ACTIVE
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 ID 1 T=**.** I=3600 $SI1-I4
$HASP000 OK
$HASP000 OK
$HASP000 OK
$HASP000 PCH1 INVALID OPERAND
$HASP000 OK
$HASP160 PRINTER1 INACTIVE - CLASS=A
$HASP160 PRINTER2 INACTIVE - CLASS=Z
$HASP160 PUNCH1 INACTIVE - CLASS=B
JOB 1 $HASP100 DUMMY ON READER1 DUMMY
STC 2 $HASP100 INIT ON STCINRDR
- STC 2 $HASP373 INIT STARTED
- STC 2 IEF403I INIT - STARTED - TIME=08.53.11
STC 3 $HASP100 INIT ON STCINRDR
:
STC 8 $HASP250 DYNAMASK IS PURGED
- STC 14 IKT007I TCAS ACCEPTING LOGONS
- STC 14 IKT005I TCAS IS INITIALIZED
- STC 10 BSPSP91I - Parms passed: NOREPLYU
- STC 10 BSPSP93I - PFK definitions will be updated in memory
- STC 10 BSPSP22I - Dataset processed: SYS1.PARMLIB
- STC 10 BSPSP23I - on volume MVSRES
- STC 10 BSPSP21I - Member being processed: SETPFK01
- STC 10 +BSPSP98I - Member processed, LASTCC=0000
- STC 10 +BSPSP21I - Member being processed: SETPFK02
- STC 10 +BSPSP98I - Member processed, LASTCC=0000
- STC 10 +BSPSP99I - End of processing, MAXRC=0000
- STC 10 IEF404I BSPSETPF - ENDED - TIME=03.17.08
- STC 10 $HASP395 BSPSETPF ENDED
STC 10 $HASP150 BSPSETPF ON PRINTER2 34 LINES
$HASP160 PRINTER2 INACTIVE - CLASS=Z
STC 10 $HASP250 BSPSETPF IS PURGED
Depois se aparecer esta mensagem
00 $HASP479 UNABLE TO OBTAIN CKPT DATA SET LOCK - IO ERROR
-
*05 $HASP436 REPLY Y OR N TO CONFIRM CHECKPOINT RECORD CHANGE
Responda R N,Y - onde o N é a pendencia
- $HASP493 JES2 COLD-START IS IN PROGRESS
- $HASP423 HASP00 IS BEING FORMATTED
- $HASP412 MAXIMUM OF 1 READER(S) EXCEEDED
IEE041I THE SYSTEM LOG IS NOW ACTIVE
:
Start as impressoras - na tela da console de os comandos $SPRT1 e $SPRT2
Depois veja o que esta no ar - de o comando D A,L - se aparecer igual a tela abaixo - o sistema esta no ar - é só abrir o emulador para acessar o TSO para poder acessar.
- D A,L
IEE102I 03.20.33 05.080 ACTIVITY 414 C
00006 JOBS 00006 INITIATORS
CMD1 CMD1 CMD1 V=V
JES2 JES2 IEFPROC V=V
BSPPILOT BSPPILOT IEFPROC V=V S
MF1 MF1 IEFPROC V=V S
NET NET IEFPROC V=V
TSO TSO STEP1 V=V S
00000 TIME SHARING USERS
00000 ACTIVE 00008 MAX VTAM TSO USERS
0 comentários:
Enviar um comentário