NATURAL

Algumas características do Natural são:

• Linguagem de programação com acesso a diversos bancos de dados: ADABAS (Hierárquico e relacional), Oracle, DB2, etc.;
• Utiliza diversos editores para criar programas, funções, telas pré-formatadas e áreas de dados;
• Permite uma programação modular;
• Utiliza funções e variáveis do sistema;
• Permite execução on-line e batch;
• Possui utilitário de testes de programação;
• Possui utilitário de criação/manutenção de mensagens de erros de aplicação;
• Qualquer aplicação pode ser facilmente portada para várias outras plataformas.

Os objetos Natural (programas, mapas, áreas de dados, etc.) são armazenados em bibliotecas (“Libraries”), com estrutura parecida com o diretório DOS e podem ter 8 caracteres como nome máximo. Mesmo sendo objetos de diferentes tipos, não podem possuir o mesmo nome.

As principais vantagens do NATURAL em relação às linguagens tradicionais são:

• facilidade de acesso a Banco de Dados (ADABAS, DB2, ORACLE, etc..);
• velocidade de programação;
• dinamismo em testes e manutenção de programas; e
• menor preocupação com os demais recursos da instalação.

Diz-se "linguagem de IV geração" por possuir diversas vantagens de automatização de rotinas em relação às chamadas "III geração" (COBOL, PL/I, etc): editor de telas amigável, muito superior ao CICS; eventos (o que certamente ajudou a inspirar VB, Delphi etc.) e muitas outras inovações para a sua época. A linguagem NATURAL possui diversos controles automáticos que facilitam o controle do programa através de blocos de código acionados automaticamente. Exemplo:

READ EMPLOYEES BY NAME

AT END OF DATA
  ADD TOTAL-PARCIAL TO TOTAL
  WRITE TOTAL
END-ENDDATA

END-READ

Este bloco de código será sempre executado todas as vezes que o ponteiro de leitura alcançar o último registro selecionado, não sendo necessário que o programador se preocupe em que parte do programa este código será escrito (contanto que esteja dentro do LOOP de leitura).

Tal como o bloco no exemplo, o NATURAL possui outros que são ativados em diversas situações: no início da leitura; na quebra de seqüência da classificação da chave; antes da quebra; depois da quebra etc. Além destas características, a linguagem possui diversas outras que fizeram e fazem do NATURAL uma grande linguagem de programação.

O Natural tem os seguintes componentes principais:

• Núcleo - executa os comandos e instruções e gerência os demais componentes;
• Compilador - de execução interativa;
• System File - arquivo ADABAS de suporte ao Natural.
• Módulos de interface:
  • Com o Sistema Operacional - executa todos os comandos de entrada/saída e demais comunicações;
  • Com o monitor de TP - gerência todos os recursos necessários à aplicação;
  • Com o ADABAS - executa todos os comandos ADABAS e controla vários processos de acessos/atualizações.

0010 * Estas duas linhas (0010 e 0020)
0020 ** são comentários.
0030 FORMAT LS=80 /* Bem como esta parte da linha (0030)
.
.
0200 END

Aqui tem um exemplo: AG Natural 6.3

• http://www.softwareag.com/Corporate/products/natural/download/default.asp Em falta ou vazio |título= (ajuda)

Um exemplo de código de um "Hello, World!"

* Hello World in NATURAL
WRITE 'Hello World!'
END

Um exemplo de código com a implementação de um programa nessa linguagem que encontre os quatro primeiros números perfeitos:

DEFINE DATA LOCAL
1 #LIMITE    (N16)
1 #CONT      (N16)
1 #X         (N16)
1 #SOMA      (N16)
1 #I         (N16)
1 #RESULTADO (N16)
1 #RESTO     (N16)
END-DEFINE
RESET INITIAL #CONT #X
DISPLAY 'QUANTOS NUMEROS PERFEITOS VOCE DESEJA ENCONTRAR?'
INPUT #LIMITE
DISPLAY 'OS NUMEROS PERFEITOS SAO:'
REPEAT
      ADD 1 TO #X
      MOVE 0 TO #SOMA
      FOR #I 1 #X-1 1
         DIVIDE #X INTO #I GIVING #RESULTADO REMAINDER #RESTO
         IF #RESTO = 0
            ADD #I TO #SOMA
         END-IF
      END-FOR
      IF SOMA = X
            DISPLAY #X
            ADD 1 TO #CONT
      END-IF
UNTIL CONT=LIMITE
END-REPEAT
END

• «NATURALs product home page» (em inglês)
• «Adabas and Natural Developer Community» (em inglês)
• «Free Natural Software for developers» (em inglês)