Existem inúmeros utilitários no Adabas que são utilizados pelo DBA para gerenciar a base de dados. Estes utilitários não estão disponíveis para desenvolvedores de aplicações e nunca deve ser usado sem orientação e supervisão pela DBA. Eles são mencionados aqui para proporcionar uma profunda compreensão do Adabas e seu funcionamento.
ADAACK
O utilitário ADAACK permite verificar o address converter de um arquivo específico ou conjunto de arquivos ou para um ISN específico ou um intervalo de ISNs.
ADACDCA descrição do utilitário ADACDC é que ele lhe permite produzir um arquivo contendo o delta com todas as alterações feitas ao banco de dados ao longo do período abrangido pelo Protection Log (PLOG). Você também pode usar este utilitário para produzir um arquivo que lista cada inserir e excluir transações feitas no banco de dados durante o período abrangido pelo Protection Log (sem produzir um delta dessas mudanças).
ADACMPA descrição do utilitário ADACMP é que lhe permite editar e comprimir registros de dados que serão carregados na base de dados. Este utilitário também permite que você descompactar arquivos individuais do banco de dados Adabas.
ADACNVO utilitário ADACNV pode converte (convert) um banco de dados Adabas mainframe a partir da versão 6.1 ou superior para uma versão superior ou reverter (revert) um banco de dados Adabas em uma versão superior de volta para uma versão inferior.
ADADBSTodas as funções ADADBS também pode ser realizada utilizando Adabas Online System (AOS). Ao utilizar o Adabas Recovery Aid, com AOS é preferível para operações de troca de arquivo porque ele escreve checkpoints que são necessárias para a operação de recuperação.Qualquer número de funções pode ser realizada durante uma única execução de ADADBS
ADADCKA descrição do utilitário ADADCK é que ele lhe permite verificar de armazenamento de dados e do Data Storage space table (DSST) do arquivo especificado no banco de dados.
ADADEFAs características do banco de dados sã definidas usando este utilitario: DEFINE: Definindo um banco e arquivo de Checkpoint MODIFY: Alterando parametros com o banco já definido NEWWORK: Definindo uma Work File para o banco
ADAFRMUtilitario para formatar as areas para o banco adabas. A formatação deve ser realizada antes de qualquer novo conjunto de dados pode ser usado pelo núcleo Adabas ou um utilitário Adabas. Depois de ter aumentado um conjunto de dados com o aumento ou função ADADBS ADD, novos RABNs também deve ser formatado.
ADAICKEste utilitário ADAICK permite verificar a estrutura física do associador.
ADAINVO utilitário ADAINV lhe permite criar descritores em um arquivo e identificar os descritores usados para acoplar dois arquivos.
ADALODEste utilitário ADALOD lhe permite carregar um arquivo em um banco de dados e para adicionar ou excluir um grande número de registros (ISNs) ou a partir de um arquivo existente.
ADAMERO utilitário ADAMER lhe permite a elaboração de estatísticas que indicam o número de Data Storage acessos necessários para encontrar e ler um recorde ao usar um descritor ADAM.
ADAORDEste utilitário ADAORD lhe permite reorganizar os Associator ou Data Storage (ou os dois juntos) de um banco de dados ou arquivos especificado. Este utilitário também permite reestruturar um banco de dados ou arquivo.
ADAPLPEste utilitário ADAPLP lhe permite imprimir os registros de proteção de dados contidos no Adabas Work ou no Adabas data protection log.
ADAPRIEste utilitário ADAPRI lhe permite imprimir o conteúdo de um bloco (ou range de blocos) contidos no Associator, Data Storage, Work, temp, sort, multiplos data set command log, multiplos data set de protection log, ou no recovery log data set.
ADARAI O utilitário ADARAI prepara o recovery log (RLOG), lista as informações contidas na RLOG, cria as instruções de controle das statements para recuperar o banco de dados, e desabilita o ADARAI logging.
ADAREPEste utilitário ADAREP lhe permite produzir o relatório de status de banco de dados.
ADARESEste utilitário permite que você execute funções de recuperação de banco de dados.
ADASAVEste utilitário lhe permite salvar ou restaurar um banco de dados ou arquivos de banco de dados específico.
ADASELEste utilitário permite que você selecione e descomprima informações no Adabas sequential (SIBA) ou dual/multiple (PLOG) protection log (PLOG) e escrevê-lo a um conjunto de dados de impressão (DDDRUCK / DRUCK) ou em um data set que o usuário vai especificar.
ADAULDEste utilitário lhe permite descarregar um arquivo Adabas.
ADAVALEste utilitário lhe permite validar qualquer ou todos os arquivos dentro de um banco de dados Adabas, exceto o checkpoint e os security files.
ADAWRKEste utilitário lhe permite produzir relatórios a partir de registros na área de autorestart da Work. Esta informação pode ser usada quando o autostart do banco de dados não vai vir para gravar em cima. Ele pode ajudá-lo a determinar como lidar com a recuperação do banco de dados.
ADAZAPEste utilitário lhe permite que você exiba (em formato hexadecimal) e, opcionalmente, alterar o conteúdo do Associator, Data Storage, or Work data sets.
ADAZINEste utilitário lhe permite que você imprima informações sobre manutenção sobre o SVC.
MEMBER=ADAACK 000020 REC SAVE:09.03.2001 14:00 BY USERID LAM R=00000001
DSN=ADABAS.V742.JOBS VOL=PRL302 UNIT=1125
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAADAACK JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A,TYPRUN=HOLD
//* --------------------------------------------------------------
//* ADAMER:
//* ADAM ESTIMATION
//* --------------------------------------------------------------
//MER EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADA5.LOADLIB <=== ADABAS LOAD
//DDASSOR1 DD DSN=ADABAS.DBID046.ASSO1,DISP=SHR <=== ADABAS ASSO
//DDDATAR1 DD DSN=ADABAS.DBID046.DATA1,DISP=SHR <=== ADABAS DATA
//* --------------------------------------------------------------
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADAACK,SVC=249,DEVICE=3390,DBID=177
//DDKARTE DD *
ADAACK ACCHECK FILE=27
/*ADACDCA descrição do utilitário ADACDC é que ele lhe permite produzir um arquivo contendo o delta com todas as alterações feitas ao banco de dados ao longo do período abrangido pelo Protection Log (PLOG). Você também pode usar este utilitário para produzir um arquivo que lista cada inserir e excluir transações feitas no banco de dados durante o período abrangido pelo Protection Log (sem produzir um delta dessas mudanças).
MEMBER=ADACDC 000036 REC SAVE:22.10.2013 12:42 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFDACDC JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ------------------------------------------------------------
//* ADACDC: CAPTURE DELTA CHANGES
//* ------------------------------------------------------------
//ADACDC EXEC AAFAU046
//STEPLIB DD DSN=ADA5.LOADLIB,DISP=SHR
//* ------------------------------------------------------------
//DDASSOR1 DD DSN=ADABAS.DBID046.ASSO1,DISP=SHR
//DDASSOR2 DD DSN=ADABAS.DBID046.ASSO2,DISP=SHR
//* ------------------------------------------------------------
//DDSIIN DD DSN=ADABAS.C.DB046.PLOG.G3707V00,
// DISP=OLD,UNIT=CVRT,VOL=SER=VC0027
//* ------------------------------------------------------------
//CDCTXI DD DSN=AEA.S.ADACDC.A1,DISP=(NEW,CATLG,DELETE),
// VOL=SER=PRD313,SPACE=(CYL,(500,20)),UNIT=SYSDA,
// DCB=(DSORG=PS,LRECL=23996,BLKSIZE=24000,RECFM=FB)
//* ------------------------------------------------------------
//CDCTXO DD DSN=AEA.S.ADACDC.A2,DISP=(NEW,CATLG,DELETE),
// VOL=SER=PRD313,SPACE=(CYL,(500,20)),UNIT=SYSDA,
// DCB=(DSORG=PS,LRECL=23996,BLKSIZE=24000,RECFM=FB)
//* ------------------------------------------------------------
//CDCOUT DD DSN=AEA.S.ADACDC.F297,DISP=(NEW,CATLG,DELETE),
// VOL=SER=PRD313,SPACE=(CYL,(500,20)),UNIT=SYSDA,
// DCB=(DSORG=PS,LRECL=23996,BLKSIZE=24000,RECFM=FB)
//* ------------------------------------------------------------
//SYSOUT DD SYSOUT=*
//DDDRUCK DD SYSOUT=A
//DDPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//DDCARD DD *
ADARUN PROG=ADACDC,DBID=046
//DDKARTE DD *
ADACDC RESETTXF,PHASE=BOTH
ADACDC FILE=216
/*ADACMPA descrição do utilitário ADACMP é que lhe permite editar e comprimir registros de dados que serão carregados na base de dados. Este utilitário também permite que você descompactar arquivos individuais do banco de dados Adabas.
MEMBER=ADACMPP 000019 REC SAVE:25.05.2005 13:28 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAD185 JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A,TYPRUN=HOLD
//*UQ ALLOW
//* --------------------------------------------------------------
//* ADACMP DECOMPRESS FILE 185
//* --------------------------------------------------------------
//ADACMP EXEC AAFAU046
//DDEBAND DD DSN=ADABAS.ULD.F185.DB046,DISP=OLD,UNIT=SYSDA,
// VOL=SER=PRD005 ===> ENTRADA
//DDAUSBA DD DSN=ADABAS.DEC.F185,UNIT=SYSDA,DISP=(NEW,CATLG,DELETE),
// VOL=SER=PRD007,SPACE=(CYL,(100,5)),
// DCB=(LRECL=80,BLKSIZE=6160,RECFM=VB,DSORG=PS)
//DDFEHL DD DSN=&&FEHL,UNIT=SYSDA,DISP=(NEW,DELETE),
// SPACE=(TRK,1)
//DDCARD DD *
ADARUN PROG=ADACMP,DBID=046
/*
//DDKARTE DD *
ADACMP DECOMPRESS
/*ADACNVO utilitário ADACNV pode converte (convert) um banco de dados Adabas mainframe a partir da versão 6.1 ou superior para uma versão superior ou reverter (revert) um banco de dados Adabas em uma versão superior de volta para uma versão inferior.
MEMBER=ADACNVC 000022 REC SAVE:15.09.2008 16:15 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFPSAVE JOB (AAFP,DIBD),EXEMPLOD,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ---------------------------------------------------------
//* CONVERTER O BANCO PARA UMA OUTRA VERSAO
//* ---------------------------------------------------------
//CNV EXEC PGM=ADARUN
//STEPLIB DD DSN=ADABAS.V813.LOAD,DISP=SHR <=== ADABAS LOAD
//* ---------------------------------------------------------
//DDASSOR1 DD DSN=ADABAS.DB220.ASSO1,DISP=SHR
//DDDATAR1 DD DSN=ADABAS.DB220.DATA1,DISP=SHR
//DDWORKR1 DD DSN=ADABAS.DB220.WORK1,DISP=SHR
//DDFILEA DD DSN=ADABAS.C.SAVE.DB220.ADACNV.V813,
// DISP=(NEW,KEEP),UNIT=TP35,LABEL=(1,SL)
//* ---------------------------------------------------------
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADACNV,SVC=249,DE=8391,DBID=220
//DDKARTE DD *
ADACNV CONVERT TOVERS=81
/*ADADBSTodas as funções ADADBS também pode ser realizada utilizando Adabas Online System (AOS). Ao utilizar o Adabas Recovery Aid, com AOS é preferível para operações de troca de arquivo porque ele escreve checkpoints que são necessárias para a operação de recuperação.Qualquer número de funções pode ser realizada durante uma única execução de ADADBS
MEMBER=ADADBS 000015 REC SAVE:10.02.2010 09:20 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFSNATB JOB (AAFP,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ----------------------------------------------------------
//* PROCEDIMENTO DO ADS - REFRESH PARA GERAR A DDPRINT
//* ----------------------------------------------------------
//ADADBS EXEC AAFAU220
//DDCARD DD *
ADARUN PROG=ADADBS,DBID=220
//DDPRINT DD SYSOUT=A
//DDKARTE DD *
ADADBS REFRESHSTATS CMDUSAGE
ADADBS COUNTERS
ADADBS FILEUSAGE
ADADBS THREADUSAGE
/*MEMBER=ADADBSD 000116 REC SAVE:04.04.2011 14:43 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFSNATB JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A
//*UQ ALLOW
//* ----------------------------------------------------
//* DELETAR FILES NO BANCO - BANCO ONLINE
//* ----------------------------------------------------
//ADADBS EXEC AAFAU222
//DDCARD DD *
ADARUN PROG=ADADBS,DBID=222
//DDKARTE DD *
ADADBS DELETE FILE=29
ADADBS DELETE FILE=30ADADCKA descrição do utilitário ADADCK é que ele lhe permite verificar de armazenamento de dados e do Data Storage space table (DSST) do arquivo especificado no banco de dados.
MEMBER=ADADCK 000012 REC SAVE:28.11.2005 17:08 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFADCK JOB (AAFA,DIBD),EXEMPLO,CLASS=A,MSGCLASS=A
//*UQ ALLOW
//* -------------------------------------------------------
//* ADADCK: DATA STORAGE CHECK
//* CHECA A DATA STORAGE
//* -------------------------------------------------------
//ADADCK EXEC AAFAU046,REGION=0M
//DDCARD DD *
ADARUN PROG=ADADCK,DBID=046
//DDKARTE DD *
ADADCK DSCHECK
/*ADADEFAs características do banco de dados sã definidas usando este utilitario: DEFINE: Definindo um banco e arquivo de Checkpoint MODIFY: Alterando parametros com o banco já definido NEWWORK: Definindo uma Work File para o banco
MEMBER=ADADE020 000016 REC SAVE:26.05.2008 13:31 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFADEF JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=X TYPRUN=HOLD
//*UQ ALLOW
//* -------------------------------------------------------
//* DEFINICAO DE UM NOVO BANCO ADABAS
//* -------------------------------------------------------
//DEFINE EXEC AAFAU046
//DDCARD DD *
ADARUN PROG=ADADEF,MODE=SINGLE,DBID=046,SVC=249,DEVICE=8391
//DDKARTE DD *
ADADEF DEFINE DBNAME='DB.S046.SINTEGRA',DBIDENT=046
ADADEF ASSOSIZE=2676,DATASIZE=4000,WORKSIZE=200
ADADEF MAXFILES=2048
ADADEF FILE=19,CHECKPOINT
ADADEF NAME='AAF-CHECKPOINT',MAXISN=100000
ADADEF DSSIZE=5000B,NISIZE=100B,UISIZE=30B
/*MEMBER=ADADEFW 000013 REC SAVE:18.06.2008 11:04 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFADEF JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TUPRUN=HOLD
//*UQ ACCOUNT AABS
//* ----------------------------------------------------------
//* DEFINE NOVA WORK PARA O BANCO
//* ----------------------------------------------------------
//DEF EXEC AAFAU046
//DDCARD DD *
ADARUN PROG=ADADEF,MODE=SINGLE,DBID=046
/*
//DDKARTE DD *
ADADEF NEWWORK WORKSIZE=1000,WORKDEV=8391
/*ADAFRMUtilitario para formatar as areas para o banco adabas. A formatação deve ser realizada antes de qualquer novo conjunto de dados pode ser usado pelo núcleo Adabas ou um utilitário Adabas. Depois de ter aumentado um conjunto de dados com o aumento ou função ADADBS ADD, novos RABNs também deve ser formatado.
MEMBER=ADAFCLOC 000023 REC SAVE:13.02.2009 17:43 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFPSRMS JOB (AAFP,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ---------------------------------------------------------------
//* FORMATA E CATALOGA OS DATASET DO CLOG
//* ---------------------------------------------------------------
//FORMATAR EXEC PGM=ADARUN
//STEPLIB DD DSN=ADA5.LOADLIB,DISP=SHR
//* ---------------------------------------------------------------
//DDCLOGR1 DD DISP=(NEW,CATLG),DSN=ADABAS.DB046.CLOGR1, <=== CLOG1
// SPACE=(CYL,(300)),UNIT=SYSDA,VOL=SER=ADAW01
//* ---------------------------------------------------------------
//**DDCLOGR2 DD DISP=(NEW,CATLG),DSN=ADABAS.DB046.CLOGR2, <=== CLOG2
//** SPACE=(CYL,(300)),UNIT=SYSDA,VOL=SER=ADAW04
//* ---------------------------------------------------------------
//SYSUDUMP DD SYSOUT=X
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADAFRM,DBID=046
//DDKARTE DD *
ADAFRM CLOGFRM SIZE=300,NUMBER=1,DEVICE=8391
**ADAFRM CLOGFRM SIZE=300,NUMBER=2,DEVICE=8391
/*ADAICKEste utilitário ADAICK permite verificar a estrutura física do associador.
MEMBER=ADAICK 000020 REC SAVE:09.03.2001 13:58 BY USERID LAM R=00000001
DSN=ADABAS.V813.JOBS VOL=PRL302 UNIT=1125
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//ADAICK JOB
//*
//* ADAICK:
//* INDEX AND ADDRESS CONVERTER CHECK
//*
//ICK EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADABAS.VVRS.LOAD <=== ADABAS LOAD
//*
//DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DBYYYYY.ASSOR1 <=== ASSO
//DDDATAR1 DD DISP=SHR,DSN=EXAMPLE.DBYYYYY.DATAR1 <=== DATA
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADAICK,SVC=XXX,DEVICE=3390,DBID=YYYYY
/*
//DDKARTE DD *
ADAICK ICHECK FILE=1-3
/*ADAINVO utilitário ADAINV lhe permite criar descritores em um arquivo e identificar os descritores usados para acoplar dois arquivos.
MEMBER=ADAINV0 000015 REC SAVE:30.03.2013 08:54 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFSNATB JOB (ALAD,OSB),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ------------------------------------------------------------
//* CRIAR SUPER DESCRITOR
//* ------------------------------------------------------------
//INVERT EXEC AAFAU046,TIME=1440
//DDCARD DD *
ADARUN PROG=ADAINV,DBID=046
//DDKARTE DD *
ADAINV INVERT FILE=77
ADAINV SUPDE='SM=DW(1,1),GF(1,1),GJ(1,6),GH(1,11)'
ADAINV SUPDE='SN=DR(1,1),GF(1,1),GO(1,11)'
ADAINV SUPDE='SY=DR(1,1),DO(1,11),DK(1,8),DL(1,4)'
ADAINV SORTSIZE=3000,TEMPSIZE=3000
/*MEMBER=ADAINV2 000013 REC SAVE:27.06.2014 09:19 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAINV4 JOB (AAFA,DBA),SUPORTE,CLASS=S,MSGCLASS=A,TYPRUN=HOLD
//*UQ ALLOW
//* --------------------------------------------------------------
//* CRIAR UM DESCRITOR -- TEMP/SORT - 3000
//* --------------------------------------------------------------
//INVERT EXEC AAFAU240,TIME=1440
//DDCARD DD *
ADARUN PROG=ADAINV,DBID=240
//DDKARTE DD *
ADAINV INVERT FILE=325
ADAINV FIELD='FF'
ADAINV TEMPSIZE=3000,SORTSIZE=1600
/*ADALODEste utilitário ADALOD lhe permite carregar um arquivo em um banco de dados e para adicionar ou excluir um grande número de registros (ISNs) ou a partir de um arquivo existente.
MEMBER=ADALOD1 000021 REC SAVE:14.08.2012 07:53 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//ADDPLOAD JOB (AAFP,DIBD),SGIDBA,MSGCLASS=A,CLASS=S TYPRUN=HOLD
//*UQ ALLOW
//* ----------------------------------------------------------
//* BAIXAR NO BANCO BACKUP FEITO PELO ADAULD
//* ----------------------------------------------------------
//LOAD EXEC AAFAU231
//DDEBAND DD DSN=AAF.C.ULD.F091.DB222,
// DISP=OLD,UNIT=TP35,VOL=SER=TP0983,LABEL=(1,SL)
//* ----------------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADALOD,DBID=231
//DDKARTE DD *
ADALOD LOAD FILE=91
ADALOD NAME='ADD-VEICULO-FURT'
ADALOD INDEXCOMPRESSION=YES
ADALOD DSSIZE=29000B
ADALOD MAXISN=600000
ADALOD NISIZE=13000B
ADALOD UISIZE=100B
ADALOD TEMPSIZE=1000,SORTSIZE=1000
/*ADAMERO utilitário ADAMER lhe permite a elaboração de estatísticas que indicam o número de Data Storage acessos necessários para encontrar e ler um recorde ao usar um descritor ADAM.
MEMBER=ADAMER 000020 REC SAVE:09.03.2001 14:00 BY USERID LAM R=00000001
DSN=ADABAS.V742.JOBS VOL=PRL302 UNIT=1125
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFDAMER JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A,TYPRUN=HOLD
//* --------------------------------------------------------------
//* ADAMER:
//* ADAM ESTIMATION
//* --------------------------------------------------------------
//MER EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADA5.LOADLIB <=== ADABAS LOAD
//* --------------------------------------------------------------
//DDEBAND DD DISP=OLD,DSN=AAB.C.BI231099.COMPR1 <=== COMPRESS DATA
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADAMER,MODE=MULTI,SVC=249,DEVICE=8391,DBID=177
/*
//DDKARTE DD *
ADAMER MAXISN=1000,ADAMDE=AA,BITRANGE=0,2,4
ADAMER DATADEV=8391,DATAPFAC=10,DATASIZE=100,175,25
/*ADAORDEste utilitário ADAORD lhe permite reorganizar os Associator ou Data Storage (ou os dois juntos) de um banco de dados ou arquivos especificado. Este utilitário também permite reestruturar um banco de dados ou arquivo.
MEMBER=ADAORDRA 000014 REC SAVE:01.07.2007 13:37 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAREDB JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A,TYPRUN=HOLD
//*UQ ALLOW
//* --------------------------------------------------------------
//* REORGANIZAR O BANCO DE DADOS
//* --------------------------------------------------------------
//ADAORD EXEC AAFAU046,TIME=1440
//DDFILEA DD DSN=ADABAS.C.RESTR.DB046.ALL,UNIT=TP35,DISP=(NEW,KEEP),
// VOL=SER=(TP0222,TP0317,TP0318,TP0319)
//DDCARD DD *
ADARUN PROG=ADAORD,MODE=SINGLE,DBID=046,PLOGRQ=NO
ADARUN LP=25000,LWKP2=3494
//DDKARTE DD *
ADAORD REORDB
/*ADAPLPEste utilitário ADAPLP lhe permite imprimir os registros de proteção de dados contidos no Adabas Work ou no Adabas data protection log.
MEMBER=ADAPLP 000014 REC SAVE:12.04.2000 11:01 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFASPLP JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A
//*UQ ALLOW
//* --------------------------------------------------------------
//* ADAPLP - PROTECTION LOG PRINT (FROM DUAL PLOG)
//* --------------------------------------------------------------
//PLP EXEC AAFAU046
//DDPLOG DD DSN=ADABAS.C.DBP.PLOG.G1165V00,DISP=OLD
//DDCARD DD *
ADARUN PROG=ADAPLP,DBID=046
//DDKARTE DD *
ADAPLP SPLOGPRI PRINT,FILE=175
/*ADAPRIEste utilitário ADAPRI lhe permite imprimir o conteúdo de um bloco (ou range de blocos) contidos no Associator, Data Storage, Work, temp, sort, multiplos data set command log, multiplos data set de protection log, ou no recovery log data set.
MEMBER=ADAPRI 000017 REC SAVE:06.01.2009 17:56 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAFORM JOB (AAFA,DIBD),EXEMPLO,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.DB046.CLOGR1 <=== CLOG1
//DDCLOGR2 DD DISP=SHR,DSN=ADABAS.DB046.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
/*ADARAI O utilitário ADARAI prepara o recovery log (RLOG), lista as informações contidas na RLOG, cria as instruções de controle das statements para recuperar o banco de dados, e desabilita o ADARAI logging.
Muito complexo, várias opçõesADAREPEste utilitário ADAREP lhe permite produzir o relatório de status de banco de dados.
MEMBER=ADAREP0 000011 REC SAVE:30.08.2011 08:35 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAR241 JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A
//*UQ ALLOW
//* --------------------------------------------------------
//* ADAREP DO BANCO DE DADOS
//* --------------------------------------------------------
//REP EXEC AAFAU241,REGION=0M
//DDCARD DD *
ADARUN PROG=ADAREP,DBID=241,SVC=249,DEVICE=8391
//DDKARTE DD *
ADAREP NOFILE
/*ADARESEste utilitário permite que você execute funções de recuperação de banco de dados.
MEMBER=ADARESR 000018 REC SAVE:16.04.1999 14:56 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAREGE JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ACCOUNT AABS
//* ADARES : REGENERATE
//*
//RES EXEC AAFAU046
//DDSIIN DD DSN=ADABAS.C.DBP.PLOG.G0877V00, <=== PLOG TAPE
// UNIT=CART,DISP=OLD
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADARES,SVC=249,DEVICE=8391,DBID=046,MODE=SINGLE
ADARUN LP=10000,LWKP2=1972,LU=65535,PLOGRQ=NO
/*
//DDKARTE DD *
ADARES REGENERATE PLOGNUM=143,FROMCP=SYN2,FROMBLK=113808
/*ADASAVEste utilitário lhe permite salvar ou restaurar um banco de dados ou arquivos de banco de dados específico.
MEMBER=ADASA030 000014 REC SAVE:11.02.2011 16:07 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAS030 JOB (AAFP,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* -----------------------------------------------------
//* BACKUP OFF-LINE BANCO DE DADOS
//* -----------------------------------------------------
//SAVE EXEC AAFAU030,TIME=1440
//DDSAVE1 DD DSN=ADABAS.C.SAVE.DB030.FECHA2,
// DISP=(NEW,KEEP),UNIT=TP35,LABEL=(1,SL)
//* -----------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADASAV,DBID=030,MODE=SINGLE,PLOGRQ=NO
//DDKARTE DD *
ADASAV SAVE
/*MEMBER=RESTO230 000015 REC SAVE:17.10.2013 18:58 BY USERID AA01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFPREST JOB (AAFA,DIBD),DBA,CLASS=S,MSGCLASS=A,TYPRUN=HOLD
//*UQ ALLOW
//* ---------------------------------------------------------
//* RESTORE DB OFF-LINE
//* ---------------------------------------------------------
//RESTORE EXEC AAFAU222,TIME=1440
//DDREST1 DD DSN=ADABAS.C.SAVE.DB240.MES.G0090V00,
// DISP=OLD,UNIT=CVRT,VOL=SER=(VC0561,VC0562,VC0563)
//* ---------------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADASAV,DBID=222,MODE=SINGLE
//DDKARTE DD *
ADASAV RESTORE FMOVE=39
ADASAV OVERWRITE
/*ADASELEste utilitário permite que você selecione e descomprima informações no Adabas sequential (SIBA) ou dual/multiple (PLOG) protection log (PLOG) e escrevê-lo a um conjunto de dados de impressão (DDDRUCK / DRUCK) ou em um data set que o usuário vai especificar.
MEMBER=ADASEL 000025 REC SAVE:24.10.2013 10:13 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFASEL JOB (AAFA,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* --------------------------------------------------------------
//* IMPRESSAO DOS REGISTROS DO ARQUIVO GRAVADO DO PLOG
//* --------------------------------------------------------------
//ADASEL EXEC AAFAU046
//STEPLIB DD DSN=ADA5.LOADLIB,DISP=SHR
//* --------------------------------------------------------------
//DDASSOR1 DD DSN=ADABAS.DBID046.ASSO1,DISP=SHR
//DDASSOR2 DD DSN=ADABAS.DBID046.ASSO2,DISP=SHR
//* --------------------------------------------------------------
//DDSIIN DD DSN=ADABAS.C.DB046.PLOG.G3713V00,
// DISP=OLD,UNIT=CVRT,VOL=SER=VC0598
//* --------------------------------------------------------------
//DDEXPA DD SYSOUT=A
//DDDRUCK DD SYSOUT=A
//DDPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//* --------------------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADASEL
//DDKARTE DD *
SELECT ALL 22
DISPLAY ISN
/*ADAULDEste utilitário lhe permite descarregar um arquivo Adabas.
MEMBER=ADAULD 000014 REC SAVE:16.07.2013 08:55 BY USERID AA99009 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFPU298 JOB (AAFP,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* --------------------------------------------------------------
//* SALVANDO ARQUIVOS
//* --------------------------------------------------------------
//ADAULD EXEC AAFAU046,TIME=1440
//DDOUT1 DD DSN=AAF.C.ULD.F298.DB046,
// DISP=(NEW,KEEP),UNIT=TP35,LABEL=(1,SL)
//* -----------------------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADAULD,DBID=046
//DDKARTE DD *
ADAULD FILE=298
/*ADAVALEste utilitário lhe permite validar qualquer ou todos os arquivos dentro de um banco de dados Adabas, exceto o checkpoint e os security files.
MEMBER=ADAVAL 000023 REC SAVE:09.03.2001 14:22 BY USERID LAM R=00000001
DSN=ADABAS.V813.JOBS VOL=PRL302 UNIT=1125
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AADAVAL JOB (AAFP,DIBD),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//* --------------------------------------------------------------
//* ADAVAL: VALIDATE DATA BASE
//* --------------------------------------------------------------
//VAL EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADABAS.VVRS.LOAD <=== ADABAS LOAD
//* --------------------------------------------------------------
//DDASSOR1 DD DISP=SHR,DSN=ADABAS.DBID046.ASSO1 <=== ASSO
//DDDATAR1 DD DISP=SHR,DSN=ADABAS.DBID046.DATA1 <=== DATA
//DDWORKR1 DD DISP=SHR,DSN=ADABAS.DBID046.WORK1 <=== WORK
//DDSORTR1 DD DISP=OLD,DSN=ADABAS.DBIDL.SORTR1 <=== SORT AREA 1
//DDTEMPR1 DD DISP=OLD,DSN=ADABAS.DBIDL.TEMPR1 <=== TEMP AREA
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADAVAL,SVC=249,DEVICE=3390,DBID=177
//DDKARTE DD *
ADAVAL VALIDATE FILE=1,TEMPSIZE=200,SORTSIZE=500
/*ADAWRKEste utilitário lhe permite produzir relatórios a partir de registros na área de autorestart da Work. Esta informação pode ser usada quando o autostart do banco de dados não vai vir para gravar em cima. Ele pode ajudá-lo a determinar como lidar com a recuperação do banco de dados.
MEMBER=ADAWRKJ 000018 REC SAVE:29.06.2007 23:10 BY USERID USAJH R=00000001
DSN=ADABAS.V813.JOBS VOL=PRL302 UNIT=1125
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//ADAWRK JOB
//*
//* ADAWRK: ALL FUNCTIONS
//*
//WRK EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADABAS.Vvrs.LOAD <=== ADABAS LOAD
//*
//DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDWORKR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE DD *
ADAWRK SUMMARY=YES
/*ADAZAPEste utilitário lhe permite que você exiba (em formato hexadecimal) e, opcionalmente, alterar o conteúdo do Associator, Data Storage, or Work data sets.
MEMBER=ADAZAP 000031 REC SAVE:09.03.2001 14:23 BY USERID LAM R=00000001
DSN=ADABAS.V813.JOBS VOL=PRL302 UNIT=1125
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//ADAZAP JOB
//* THIS IS A SAMPLE OF ADAZAP UTILITY, IT CAN BE USED TO
//* CHANGE THE CONTENTS OF A SPECIFIC ADABAS RABN IN EITHER
//* DATA, ASSO OR WORK.
//* THE RABN, THE OFFSET AND THE VALUES TO BE REPLACED NEED TO
//* BE SPECIFIED IN HEXADECIMAL VALUES.
//*
//* TO OBTAIN THE MASTER PASSWORD, PLEASE CONTACT YOUR LOCAL
//* SUPPORT CENTER.
//*
//* THIS UTILITY MUST BE USED VERY CAREFULLY.
//* ANY MISUSE MAY LEAD TO SERIOUS PROBLEMS.
//*
//ZAP EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADABAS.VVRS.LOAD <=== ADABAS LOAD
//*
//DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DBYYYYY.ASSOR1 <=== ASSO
//DDDATAR1 DD DISP=SHR,DSN=EXAMPLE.DBYYYYY.DATAR1 <=== DATA
//DDWORKR1 DD DISP=SHR,DSN=EXAMPLE.DBYYYYY.WORKR1 <=== WORK
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADAZAP,MODE=MULTI,SVC=XXX,DEVICE=3390,DBID=YYYYY
//DDKARTE DD *
ADAZAP MCODE=MMMMMMMM <<--- MASTER PASSWORD
ADAZAP ASSO RABN=1,OFFSET=X'10',LENGTH=16 <===DISPLAY ASSO RABN 1
ADAZAP ASSO RABN=1,OFFSET=X'10',VER='C1C2',REP=X'C2C1'
ADAZAP ASSO RABN=1,OFFSET=X'10',LENGTH=16 <===DISPLAY ASSO RABN 1
/*ADAZINEste utilitário lhe permite que você imprima informações sobre manutenção sobre o SVC.
MEMBER=ADAZIN 000018 REC SAVE:29.06.2007 23:10 BY USERID USAJH R=00000001
DSN=ADABAS.V813.JOBS VOL=PRL302 UNIT=1125
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//ADAZIN JOB
//*
//* ADAZIN: ALL FUNCTIONS
//*
//WRK EXEC PGM=ADARUN
//STEPLIB DD DISP=SHR,DSN=ADABAS.Vvrs.LOAD <=== ADABAS LOAD
//*
//DDASSOR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDWORKR1 DD DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDDRUCK DD SYSOUT=X
//DDPRINT DD SYSOUT=X
//SYSUDUMP DD SYSOUT=X
//DDCARD DD *
ADARUN PROG=ADAZIN,SVC=249,DEVICE=3390,DBID=177
/*
//DDKARTE DD *
ADAZIN MOD='ADAREP,ADASEL'
ADAZIN SVC=225,255
0 comentários:
Enviar um comentário