terça-feira, fevereiro 08, 2011

Utilitário Adabas - ADAINV

O utilitário ADAINV é usado para;

- criar um descritor (função invertido), ou
- Couple dois arquivos (função COUPLE).

A função INVERT

- modifica a tabela de definição de campo (FDT) para indicar que o campo especificado é um descritor e;
- adiciona todos os valores e listas de ISN correspondente para o campo para a lista invertida.

O descritor de recém definidos podem ser utilizados da mesma forma como qualquer outro descritor. Esta função também pode ser usado para criar um subdescriptor, superdescriptor, phonetic descriptor, hyperdescriptor, ou collation descriptor

A função COUPLES acrescenta um descritor comum aos dois arquivos (atualiza suas listas invertidas). Qualquer dos dois arquivos podem ser acoplados desde que um descritor comum com formato idêntico e definições de comprimento está presente em ambos os arquivos. Um único arquivo pode ser associado a até 18 outros arquivos, mas apenas uma relação de engate pode existir entre dois arquivos de uma vez. Um arquivo não pode ser associado a si mesmo.

Nota

Apenas os arquivos com a numeração abaixo de 255 podem ser acoplados.

Alterações que afetam listas invertidas um arquivo associado são feitas automaticamente para o outro arquivo. O DBA deve considerar a sobrecarga adicional necessária para atualizar o acoplamento de listas para o descritor utilizado como base para o engate é atualizado, ou quando os registros são adicionados ou excluídos a partir de qualquer arquivo. Por exemplo, se um campo utilizado como base para o acoplamento contém um grande número de valores nulos e não é definida com o NU (supressão null) opção, o resultado pode ser um aumento significativo no tempo de execução e espaço em disco necessário para armazenar o acoplamento listas.

ADAINV criando um campo no file 325
MEMBER=ADAINV2  000013 REC SAVE:27.06.2014 09:19 BY   USERID AA99001  R=00000001
DSN=AAB.DIBD.JCLS                                LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFAINV4 JOB (AAFA,DBA),EXEMPLO,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
/*
ADAINV criando um superdescritor
MEMBER=ADAIN070 000015 REC SAVE:11.05.2012 10:53 BY   USERID AA99001  R=00000001
DSN=AAB.DIBD.JCLS                                LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AEAPI070 JOB (AEAP,OSB),EXEMPLO,CLASS=S,MSGCLASS=A,TYPRUN=HOLD
//*UQ ALLOW
//* ------------------------------------------------------------
//*                  CRIAR SUPER DESCRITOR
//* ------------------------------------------------------------
//INVERT    EXEC AAFAU177,TIME=1440
//DDCARD    DD *
ADARUN PROG=ADAINV,DBID=177
//DDKARTE   DD *
ADAINV INVERT FILE=70
ADAINV        SUPDE='S1=AB(3,8),AA(1,3),AD(1,1),AC(1,12)'
ADAINV        SUPDE='S3=AG(1,1),AH(1,12)'
ADAINV        SUPDE='S4=AK(1,8),AN(1,3),AG(1,1),AH(1,12)'
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
/*
ADAINV criando um subdescritor
MEMBER=ADAINV01 000013 REC SAVE:15.08.2014 10:17 BY   USERID AA99001  R=00000001
DSN=AAB.DIBD.JCLS                                LIB=S3 VOL=PRL303 UNIT=1126
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//ALYPI340 JOB (AEAP,OSB),EXEMPLO,CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ------------------------------------------------------------
//*                  CRIAR SUPER DESCRITOR
//* ------------------------------------------------------------
//INVERT    EXEC AAFAU177,TIME=1440
//DDCARD    DD *
ADARUN PROG=ADAINV,DBID=177
//DDKARTE   DD *
ADAINV INVERT FILE=340
ADAINV        SUBDE='SE=AE(3,8)'
ADAINV        TEMPSIZE=3000,SORTSIZE=1600
/*

0 comentários:

Enviar um comentário