Esse tutorial é para compartilhar dados sobre o Mainframe. Tenho muita dificuldade de encontrar tutoriais em Português. E na web, posso consultar com mais facilidade.

Espero que ajude alguém. :)

Criar Backup de particionado via JCL/MAINFRAME.

1- Consultar os dados do PDS(Particionado) para cópia.

Ir nas opções do TSO:

• PDF;
• 3(UTILITIES);

• 4(DSLIST);

• listar o PDS;

• Digitar comandos de linha no espaço à esquerda do conjunto de dados - "I" informação. Na imagem está com "B" subistituir por "I"

• Precisaremos dos dados configurados do particionado que estamos criando backup, como volume, o blocksize o length...

2- JCL para a criação de backup.

Seguindo a última tela acima, "Tela informação - DATASET INFORMATION". Criação do backup abaixo:

       ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000001 //JOBXX01D JOB 'JOB-PRD',CLASS=C,MSGCLASS=X,NOTIFY=&SYSUID,TIME=(0,20)
000002 //********************************************************************
000003 //* STEP001 - UTILITARIO IEBCOPY - backup de jcl                     *
000004 //********************************************************************
000005 //STEP001  EXEC  PGM=IEBCOPY                                            
000006 //SYSPRINT DD  SYSOUT=*                                                 
000007 //SYSOUT   DD  SYSOUT=*                                                 
000008 //SYSOUT1  DD  DSNAME=KCO3C3C.CATALOGO.FUETEST,DISP=SHR            
000009 //SYSOUT2  DD  DSNAME=KCO3C3C.CATALOGO.FUETEST.BACKUP,                   
000010 //             DISP=(NEW,CATLG,DELETE),                                 
000011 //             DCB=(DSORG=PO,LRECL=80,BLKSIZE=0,RECFM=FB),              
000012 //             SPACE=(TRK,(10,10,10),RLSE),                             
000013 //             UNIT=3390,VOL=SER=KCTR55                                 
000014 //SYSIN    DD *                                                         
000015  COPY OUTDD=SYSOUT2,INDD=SYSOUT1                                        
000016 /*                                                                      
*********************************** Bottom of Data ****************************

• SYSOUT1 = Particionado de entrada.

• SYSOUT2 = Particionado de saída.

• DSORG = Igual a Organization da tela anterior.

• LRECL = Igual a Record Lenght da tela anterior.

• BLKSIZE = Geralmente eu coloco zeros.

• RECFM = Igual a Record format da tela anterior, nesse caso a tela está com U, mas eu no jcl está com FB(fixo blocado).

• VOL=SER = Volume serial da tela anterior.

• SYSIN = É o comando de copy onde:

  • OUTDD=SYSOUT2 = Saída da cópia.
  • INDD=SYSOUT1 = Entrada da cópia.

Submetendo o Job, cria-se o particionado de backup e copia-se todos os membros.

Até a próxima...