Aula Prática 02 Trabalhando com ISPF, Comando Allocate e JCL para criar arquivos (Datasets).

Описание: Aula Prática 02 - Aqui temos um visão geral sobre os principais datates, onde estão destacados três formas de criação dos mesmos em um ambiente zOS Mainframe, que são:
Via menu do ISPF
Via linha de comando do TSO com o uso do Allocate
Via JCL, Job Control Language, acionando o utilitário IEFBR14.
Allocate:
Para criar um PS
ALLOC DA('TMZOS1.ARQS.SEQ') NEW CATALOG SPACE(1,1) tracks DSORG(PS) RECFM(F,B) LRECL(80) BLKSIZE(800) UNIT(SYSDA)
Para criar um PO
ALLOC DA('TMZOS1.ARQPO.BIBL') NEW CATALOG SPACE(1,1) tracks DIR(10) DSORG(PO) RECFM(F,B) LRECL(80) BLKSIZE(800) UNIT(SYSDA)
Para criar um PDSE
ALLOC DA('TMZOS1.ARQPDSE.BIBL') NEW CATALOG SPACE(1,1) tracks DSORG(PO) DSNTYPE(LIBRARY) RECFM(F,B) LRECL(80) BLKSIZE(800) UNIT(SYSDA)

Uso de JCL
//CRIADTS JOB 'CRIARJCL','MARCOS SILVA',
// CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID,
// MSGLEVEL=(1,1),REGION=0M,TIME=1440
//*
//* CRIANDO UM DATASET SEQUENCIAL
//*
//STEP01 EXEC PGM=IEFBR14,TIME=1440
//CRIASEQ DD DSN=TMZOS1.ARQSQ.SEQ,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//*
//* CRIANDO UM DATASET PDS
//*
//STEP02 EXEC PGM=IEFBR14,TIME=1440
//CRIAPO DD DSN=TMZOS1.ARQPO.BIBL,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(5,1,10),),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=800)
//*
//* CRIANDO UM DATASET PDS-E
//*
//STEP03 EXEC PGM=IEFBR14,TIME=1440
//CRIAPDS DD DSN=TMZOS1.ARQPDSE.BIBL,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(5,1),RLSE),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=800),
// DSNTYPE=LIBRARY
//

Se você estiver gostando do conteúdo do Canal Treinador Mainframe e deseja contribuir e apoiar o nosso trabalho, faça a sua contribuição através do PIX [email protected], com isso você vai estar ajudando a construirmos um canal com mais qualidade e um conteúdo cada dia mais especializado no mundo zOS Mainframe.