Consist ADS

O Consist ADS Advanced Development Solution oferece ao usuário todas as facilidades para reaproveitar as aplicações legadas escritas em NATURAL®, convertendo automaticamente os fontes para a linguagem ADVANCE® e disponibilizando-os para compilação e execução. Um ambiente de desenvolvimento integrado que inclui a linguagem ADVANCE®, o Banco de Dados DB2® e o componente ConsistDMS® que transforma o Banco de Dados ADABAS® para DB2®.



ConsistDMS® - componente do ConsistADS® que transforma automaticamente a estrutura do Banco de Dados ADABAS® para DB2® e compatibiliza programas convertidos com as definições do novo modelo de dados.



O ConsistADS® preserva os investimentos feitos nas aplicações desenvolvidas em NATURAL®, permitindo que novas aplicações e aplicações convertidas para a linguagem ADVANCE® sejam migradas para qualquer outra plataforma ou mantidas nas plataformas de origem como: IBM Mainframe® z/OS®, Linux on System z®, Unix, Linux e Windows. A arquitetura do Ambiente Integrado de Desenvolvimento do ConsistADS® combina funcionalidades que garantem às organizações de qualquer tamanho desenvolver aplicações de negócios de forma rápida e eficiente, atendendo aos mais atuais requisitos de tecnologia da informação.

As funcionalidades de edição, compilação, depuração, instalação e distribuição de objetos do ConsistADS® permitem que uma aplicação seja desenvolvida e testada a partir de qualquer ponto da rede e disponibilizada em produção em qualquer plataforma, seja ela remota ou não. Toda essa flexibilidade resulta em redução de custos, melhor aproveitamento de recursos e aumento de produtividade, permitindo o trabalho remoto, pois o único pré-requisito na estação do desenvolvedor é um Web browser.

Através de uma robusta camada de comunicação, o ConsistADS® proporciona transparência de comunicação entre duas ou mais aplicações, independentemente de plataforma, localização, conteúdos, formatos e protocolos. Com ampla portabilidade e escalabilidade, encontra-se disponível nas plataformas IBM Mainframe® z/OS®, Linux on System z® e nas principais plataformas Unix, Linux e Windows.

Fundamentado em um novo paradigma, o ConsistADS® surge como o ambiente ideal e eficiente para o desenvolvimento de aplicações envolvendo várias plataformas. Disponibiliza componentes opcionais para implementar SOA - Service Oriented Architecture e para integração com ferramentas de BPM - Business Process Management.

Benefícios do ConsistADS®:

* Preserva o investimento existente;
* Converte automaticamente os fontes para a linguagem ADVANCE®;
* Migra as estruturas de dados Adabas® para bases relacionais - DB2®;
* Fornece robusta camada de comunicação;
* Disponibiliza as aplicações na Internet de forma transparente;
* Oferece plataforma de desenvolvimento com acesso através de navegador Web;
* Gera código binário universal totalmente independente de plataforma;
* Suporta aplicações projetadas para Web;
* Controla versão em ambientes distribuídos e colaborativos;
* Oferece capacidade de clusterização, garante escalabilidade e suporta grande número de usuários concorrentes;
* Desenvolvimento remoto proporciona melhor aproveitamento de recursos e aumento de produtividade;
* Suporta plataformas IBM Mainframe® z/OS®, Linux on System z®, Unix, Linux e Windows;
* Reduz significativamente os custos de propriedade;
* Oferece componentes opcionais para implementar SOA - Service Oriented Architecture e integração com ferramentas de BPM - Business Process Management.

ConsistADS® - Advanced Development Solution
Desenvolvimento, manutenção e execução de aplicações escritas em ADVANCE®



Passo a passo para transformar os dados do Adabas Mainframe para o Consist ADS

1 - Passo pegar os dados usando o utilitário ADAULD;

MEMBER=ADAUL039 000013 REC SAVE:26.04.2010 15:01 BY USERID CD01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFSNATB JOB (AAFA,DIBD),DBA,CLASS=S,MSGCLASS=A
//*UQ ALLOW
//* ------------------------------------------------------
//* SALVA EM ARQUIVO PS UM FILE DO ADABAS
//* ------------------------------------------------------
//ADAULD EXEC AAFAU242,TIME=1440
//DDOUT1 DD DSN=AAF.S.F33.ADS,DISP=OLD
//* ------------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADAULD,DBID=242
//DDKARTE DD *
ADAULD FILE=33
/*

Passando o utilitario TRSMAIN

MEMBER=TRSMAIN 000016 REC SAVE:26.04.2010 15:03 BY USERID CB01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//TRSMAIN JOB (AAF,TSS),'DBA',CLASS=S,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* ----------------------------------------------------------
//* CONVERTER PS VB PARA PS FB
//* ----------------------------------------------------------
//STEP EXEC PGM=TRSMAIN,PARM=PACK
//STEPLIB DD DSN=AAB.UNPACK,DISP=SHR
//SYSPRINT DD SYSOUT=A
//* ----------------------------------------------------------
//INFILE DD DISP=OLD,DSN=AAF.S.F33.ADS
//OUTFILE DD DISP=(,CATLG),UNIT=SYSDA,
//* ----------------------------------------------------------
// DSN=AAB.S.F33.TRSMAIN,VOL=SER=PRD27B,
// SPACE=(CYL,(3000,200),RLSE),
// DCB=(LRECL=0,BLKSIZE=0,RECFM=FB,DSORG=PS)
//SYSIN DD *

O arquivo que deu mais trabalho foi o file que tem mais de 20 milhões de registros, para este arquivo tivemos que gravar ele em 5 arquivos, pegamos por ISN de 5 em 5 milhões de registros;

MEMBER=ADAUL077 000017 REC SAVE:02.03.2010 15:48 BY USERID CB01055 R=00000001
DSN=AAB.DIBD.JCLS LIB=S3 VOL=PRL303 UNIT=1024
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
//AAFPSAVE JOB (AAFP,DIBD),DBA,CLASS=4,MSGCLASS=A TYPRUN=HOLD
//*UQ ALLOW
//* -----------------------------------------------------------
//* SALVANDO ARQUIVOS EM UM DATA SET
//* -----------------------------------------------------------
//ADAULD EXEC AAFAU242,TIME=1440
//DDOUT1 DD DSN=AAF.S.F77.S1.ADS,DISP=SHR
//* -----------------------------------------------------------
//DDCARD DD *
ADARUN PROG=ADAULD,DBID=242
//DDKARTE DD *
*ADAULD FILE=77,LRECL=30000,NUMREC=5000000,STARTISN=1,SORTSEQ=ISN
ADAULD FILE=77,LRECL=30000,NUMREC=5000000,STARTISN=5000001,SORTSEQ=ISN
*ADAULD FILE=77,LRECL=30000,NUMREC=5000000,STARTISN=10000001,SORTSEQ=ISN
*ADAULD FILE=77,LRECL=30000,NUMREC=5000000,STARTISN=15000001,SORTSEQ=ISN
*ADAULD FILE=77,LRECL=30000,STARTISN=20000001,SORTSEQ=ISN

/* O arquivo do job TRSMAIN este que temos que fazer FTP (binario) para o micro, este é o arquivo que vai ser feito a migração de plataforma.

Categories: Adabas