Compartilhando conhecimento com o mundo

Com tecnologia do Blogger.

Pesquisa

Download

Blogger Tricks

Blogger Themes

Visitas

Assuntos

11/11/2013

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 TSO
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 ===>
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