O utilitário ADAPRI imprime o conteúdo de um bloco (ou conjunto de blocos) contidos no Associator, Data Storage, Work, TEMP, SORT, dual ou multiplos CLOG, dual ou multiplos PLOG, e recovery log (RLOG), ou nas imagens do Delta Save (DSIM).
ADAPRI CLOGPRI
Um exemplo de um JCL na CLOG
Opções disponíveis do ADAPRI;
FROMRABN / TORABN: Range de Blocks a ser impresso - Os números de início e término das RABNs a ser impresso. Ambos os valores devem ser especificados; não há padrões. A impressão começa com o número do bloco especificado com o parâmetro FROMRABN e termina com o número do bloco especificado com o parâmetro TORABN. Cada bloco na faixa é impresso em formato hexadecimal.
Parâmetros opcionais
BATCH: Output Format - Controla o comprimento da linha da saída da impressa. Se BATCH não for especificado, o tamanho da linha padrão é 80 caracteres. Se BATCH for especificado, o tamanho da linha de produção é de 120 caracteres.
DEVICE: Tipo de Dispositivo - O tipo de dispositivo que contém o conjunto de dados a ser impresso. Esse parâmetro será necessário se o tipo de dispositivo é diferente do tipo de dispositivo padrão atribuído pelo parâmetro DEVICE ADARUN.
NOUSERABEND: Encerramento do processo sem Abend - Quando um erro de parâmetro ou um erro funcional ocorre enquanto esta função de utilidade está em execução, o programa imprime normalmente uma mensagem de erro e termina com abend do usuário 34 (com um dump) ou abend do usuário 35 (sem um dump). Se NOUSERABEND é especificado, o utilitário não abend depois de imprimir a mensagem de erro. Em vez disso, a mensagem "utilidade encerrada devido a erro Condição" é exibido eo utilitário termina com código de condição 20.
Nota:
Quando NOUSERABEND é especificado, recomendamos que seja especificado como o primeiro parâmetro da função utilidade (antes de todos os outros parâmetros). Isto é necessário para assegurar que o seu processamento de erro de parâmetro ocorre corretamente.
NUMBER: Command/ Protection Log Data Set Number - O número do múltiplo (dois a oito) log de comando (CLOG) ou o registo de protecção de dados (PLOG) definir a partir de que os blocos estão a ser impresso. NÚMERO só pode ser especificado quando CLOGPRI ou PLOGPRI é especificado. Quando NÚMERO = 2 é especificado, os blocos DD/CLOGR2 são impressos; se a função CLOGPRI ou PLOGPRI for especificado sem NÚMERO, os blocos são tomadas a partir de DD/CLOGR1 (o padrão).
ADAPRI CLOGPRI
Um exemplo de um JCL na CLOG
MEMBER=ADAPRI 000018 REC SAVE:20.10.2015 18:01 BY USERID UU01055 R=00000001
DSN=DBA.ADAB.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAFORM JOB (AAFA,DIBD),DBA,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ----------------------------------------------------------
//* ESTE UTILITARIO IMPRIME OS INDICES DE UM BLOCO
//* ----------------------------------------------------------
//PRINTER EXEC PGM=ADARUN
//DDCLOGR1 DD DISP=SHR,DSN=ADABAS.DB010.CLOGR1 <=== CLOG1
//DDCLOGR2 DD DISP=SHR,DSN=ADABAS.DB010.CLOGR2 <=== CLOG2
//DDDRUCK DD SYSOUT=A
//DDPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//DDCARD DD *
ADARUN PROG=ADAPRI
//DDKARTE DD *
ADAPRI CLOGPRI FROMRABN=1,TORABN=450,NUMBER=1
/*Opções disponíveis do ADAPRI;
ADAPRI ASSOPRI
ADAPRI DATAPRI
ADAPRI WORKPRI
ADAPRI TEMPPRI
ADAPRI SORTPRI
ADAPRI RLOGPRI
ADAPRI CLOGPRI (NUMBER={1|N})
ADAPRI PLOGPRI (NUMBER={1|N})
FROMRABN= INICIO_NUMERO_DO_BLOCK
TORABN= PARA_NUMERO_DO_BLOCK
(BATCH)
(DEVICE = TIPO DE DEVICE)
(NOUSERABEND)FROMRABN / TORABN: Range de Blocks a ser impresso - Os números de início e término das RABNs a ser impresso. Ambos os valores devem ser especificados; não há padrões. A impressão começa com o número do bloco especificado com o parâmetro FROMRABN e termina com o número do bloco especificado com o parâmetro TORABN. Cada bloco na faixa é impresso em formato hexadecimal.
Parâmetros opcionais
BATCH: Output Format - Controla o comprimento da linha da saída da impressa. Se BATCH não for especificado, o tamanho da linha padrão é 80 caracteres. Se BATCH for especificado, o tamanho da linha de produção é de 120 caracteres.
DEVICE: Tipo de Dispositivo - O tipo de dispositivo que contém o conjunto de dados a ser impresso. Esse parâmetro será necessário se o tipo de dispositivo é diferente do tipo de dispositivo padrão atribuído pelo parâmetro DEVICE ADARUN.
NOUSERABEND: Encerramento do processo sem Abend - Quando um erro de parâmetro ou um erro funcional ocorre enquanto esta função de utilidade está em execução, o programa imprime normalmente uma mensagem de erro e termina com abend do usuário 34 (com um dump) ou abend do usuário 35 (sem um dump). Se NOUSERABEND é especificado, o utilitário não abend depois de imprimir a mensagem de erro. Em vez disso, a mensagem "utilidade encerrada devido a erro Condição" é exibido eo utilitário termina com código de condição 20.
Nota:
Quando NOUSERABEND é especificado, recomendamos que seja especificado como o primeiro parâmetro da função utilidade (antes de todos os outros parâmetros). Isto é necessário para assegurar que o seu processamento de erro de parâmetro ocorre corretamente.
NUMBER: Command/ Protection Log Data Set Number - O número do múltiplo (dois a oito) log de comando (CLOG) ou o registo de protecção de dados (PLOG) definir a partir de que os blocos estão a ser impresso. NÚMERO só pode ser especificado quando CLOGPRI ou PLOGPRI é especificado. Quando NÚMERO = 2 é especificado, os blocos DD/CLOGR2 são impressos; se a função CLOGPRI ou PLOGPRI for especificado sem NÚMERO, os blocos são tomadas a partir de DD/CLOGR1 (o padrão).
0 comentários:
Enviar um comentário