Como crear un member nuevo en un Dataset vacio

Para crear un miembro en un data set lo normal es colocar en la linea de comando "S NOMBRE" dentro del dataset en el cual se quiere crear el miembro, sin embargo para esto tienes que entrar al dataset primero, estando vacio el dataset no permite entrar manda error de "no members in data set"

La forma facil para mi es colocar una letra E en la columna de command y luego del nombre del dataset poner entre parentesis el nombre del miembro nuevo que se quiere crear, por ejemplo: 

E        PIRRO.JCL(erep)

Con esto le creara un miembro nuevo y ya de ahora en adelante se puede usar el comando "S NOMBRE"

JCL para hacer DUMP

Este JCL se utiliza para hacer DUMP (copia del Volumen que por lo general es un DASD)

DUMPIN: VOL=SER: se cambia los asteriscos por el nombre del volumen que queremos hacerle DUMP

DUMPOUT: el nombre del dataset al cual vamos a enviar el DUMP con toda su información, VOL:SER se cambia los asteriscos por el nombre del VOL:SER donde esta el dataset donde enviaremos el DUMP

En este ejemplo estamos incluyendo todo si notan en la linea 1000 y 1100 dice INCLUDE y luego **, eso significa que incluira todo, luego en la linea 1300 a 1500, de todo lo que incluira estamos excluyendo los datasets que inicien con el nombre SYS1.VTOCIX y SYS1.VVDS debido que no los necesitamos.

=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000100 //NOMBREJO JOB 'DASD TO DSN',                                  
000200 //   MSGCLASS=Y,CLASS=P,NOTIFY=&SYSUID                                  
000300 //DFDSS    EXEC PGM=ADRDSSU,REGION=4096K  PARM='TYPRUN=NORUN'           
000400 //SYSPRINT DD   SYSOUT=*                                                
000500 //DUMPIN   DD   UNIT=SYSALLDA,VOL=SER=******,DISP=SHR                 
000600 //DUMPOUT  DD   DSN=NOMBRE.DEL.DS,DISP=(,CATLG),                
000700 //         UNIT=3390,VOL=SER=******,SPACE=(CYL,(1000,250),RLSE)         
000800 //SYSIN    DD   *                                                     
000900  DUMP DATASET (             -                                         
001000       INCLUDE(              -                                         
001100              **             -                                         
001200                )            -                                         
001300       EXCLUDE(              -                                         
001400              SYS1.VTOCIX.** -                                         
001500              SYS1.VVDS.**   -                                         
001600                )            -                                         
001700               )             -                                         
001800       LOGINDD(DUMPIN)       -                                         
001900       OUTDDNAME(DUMPOUT)    -                                         
002000       ALLDATA(*)            -                                         
002100       ALLX                  -                                         
002200       TOL(ENQF)                                                      

Instalar un z/OS nuevo teniendo un LPAR arriba

En esta guia estare escribiendo poco a poco los pasos que se necesitan para instalar el z/OS desde cero en un LPAR nuevo, teniendo en cuenta, que ya existe un LPAR activo, aqui les dejo los pasos para hacerlo.

1. INICIAR los DASD
2. Hacerle DUMP a los discos que usaremos de imagen
3. Restaurar los DUMPs a los discos que usaremos como primarios en el LPAR a crear
4. Construir Master Catalog
5. Construir User Catalog
6. Conectar el User Catalog al Master Catalog
7. Definir los datasets No VSAM en el Master Catalog y User Catalog
8. Crear Aliases (SYS2, SYS3)
9. 
   

JCL para Iniciar DASDs

Aqui les dejo un JCL para inicializar DASDs

NOTA: Para correr este JCL el DASD debe estar offline, esto se hace usando el comando V ****,offline (**** numero del DASD)

UNITADDRESS = direccion de la unidad a inicializar
VERIFY = Nombre del VOLSER a inicializar
VOLID = Nombre del VOLSER a inicializar


=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000100 //NOMBREJO JOB 'DASD INIT',
000200 // MSGCLASS=Y,CLASS=P,NOTIFY=&SYSUID
000300 //STEP1 EXEC PGM=ICKDSF
000400 //SYSPRINT DD SYSOUT=*
000500 //SYSIN DD *
000600 INIT UNITADDRESS(0300) VERIFY(TPSYS1) VOLID(TPSYS1) VTOC(0,1,51) -
000700 INDEX(3,7,8)
                                     

JCL Alter de un dataset

Aqui les dejo un JCL para hacer ALTER a un dataset para cambiarle el nombre y catalogarlo en un Catalog distinto.


=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000100 //NOMBREJO JOB NOTIFY=&SYSUID,                         
000200 //             MSGCLASS=Y,CLASS=P                                       
000300 //STEP1    EXEC  PGM=IDCAMS                                             
000400 //SYSPRINT DD   SYSOUT=*                                                
000500 //SYSIN    DD   *                                                       
000600     ALTER NOMBRE.DEL.DATASET                             -                          
000700        NEWNAME(NUEVO.NOMBRE.DEL.DATASET)                 -                          
000800        CATALOG(NOMBRE DEL CATALOG DONDE QUIERES PONER EL DATASET)                                  

Que es un Subsystem?

Los subsystem en los Mainframe se puede comparar con lo que seria los servicios en Windows, si un servicio en Windows no esta corriendo si intentas abrir alguna aplicacion que utilice ese servicio el mismo no funciona correctamente, asi mismo pasa con los subsystems en los Mainframe.

Estos son algunos de los subsystems mas conocidos:

VTAM significa Virtual Telecommunications Access Method, el VTAM le permite al Mainframe comunicarse  con otros sistemas, perifericos y demás.

Que es un Dataset?

Que es un Dataset?

Un dataset se le puede comparar con los folders o carpetas en Windows, sin embargo es un poco diferente, procedo a enumerar las diferencias y algunas caracteristicas de los Datasets.

Diferencias entre los folders y los datasets

• En Windows se pueden crear carpetas dentro de otras carpetas, en Mainframe esto no es posible (por lo menos segun mi conocimiento).
• En Windows los archivos que se guardan en una carpeta se llaman archivos, en Mainframe se llaman members o miembros.

Caracteristicas de un dataset

• Un dataset tiene que tener minimo 2 qualifiers.
• El primer qualifier se le llama HLQ o High Level Qualifier por lo general es el nombre de usuario para poder diferenciar y el segundo calificador normalmente es el tipo de datos que se estan guardan en dicho Dataset.
• Cada qualifier tiene que ser separado por un punto. 
• Cada qualifier puede tener maximo 8 caracteres.
• Cada qualifier tiene que empezar con una letra del alfabeto, o un caracter nacional ($, $, @), excepto el primer qualifier que puede iniciar solamente con una letra del alfabeto.
• Cada qualifier puede estar compuesto por caraceteres del alfabeto, numeros o caracteres nacionales.
• Cada dataset maximo puede tener 22 qualifiers.

Ejemplo de un Dataset: Victor.program.RPG

En este caso el HLQ de este Dataset seria Victor, program seria el 2do quailifier para determinar de que este dataset es para programas, y RPG seria el 3er qualifier y seria para diferenciar que solo programas hecho en lenguaje RPG.

Una imagen mostrando una lista de Dataset