Programar em Natural sobre Adabas continua sendo uma das experiências mais sólidas e produtivas no ambiente corporativo de missão crítica Natural/Adabas. Mesmo sendo um ambiente tradicional, ele permite criar telas funcionais, organizadas e eficientes — principalmente quando estruturadas com boas práticas de usabilidade. Neste artigo, trago alguns exemplos de telas e modelos de layout que podem inspirar o desenvolvimento de novas soluções no Natural. Entre os principais tipos de telas que podemos criar estão as telas de menu principal, que reúnem as rotinas do sistema de forma estruturada e intuitiva, as telas de consulta cadastral, usadas no dia a dia para pesquisa de registros, e as telas de manutenção, onde são realizadas inclusões, alterações e exclusões de dados com validações e controle de segurança. Também é possível desenvolver telas voltadas para operação e suporte, como monitores de processos, acompanhamento de jobs, visualização de logs e rotinas de auditoria, permitindo melhor rastreabilidade e apoio à tomada de decisão. Ao projetar telas em Natural, o mais importante é priorizar simplicidade, clareza das informações e padronização visual, garantindo produtividade, estabilidade e usabilidade para os usuários do ambiente Natural/Adabas.
Exemplo 01
Exemplo 02
Exemplo 03
Exemplo 04
Exemplo 05
Exemplo 06
Exemplo 07
Exemplo 08
Exemplo 09
Exemplo 10 - tela de login do Complete
Exemplo 11
Exemplo 12
Exemplo 13
Exemplo 14
Exemplo 15
------------------------------------------------------------------------------
PRODASUL SERVICOS INTERNOS ADAP300C
17:36:05 ------------------------------------------------------------ 28/12/25
TELEPROCESSAMENTO
+--------------------------------------------------+
+----------------+ | O - Ocorrencias S - Sistemas |
| I - Inclusao | | C - Controladoras M - Marcas e Modelos |
| A - Alteracao | | E - Equipamentos T - Totais de Ocorrencias |
| E - Exclusao | | G - Grupos Q - Totais Equip./Control. |
| C - Consulta | | L - Clientes P - Ocorrencias Pendentes |
| R - Relatorio | | A - Stand-alone H - Historico da Rede |
+----------------+ | D - Tids J - Itens do Faturamento |
OPERACAO: __ | I - Paralizacoes B - Tabela de Ocorrencias |
+--------------------------------------------------+
Ocorr/Tids : ______ Tipo : P ___
Data De : 28122025 Data Ate : 28122025
Gr/Cl/Si/Tb: ________ Seleciona: N
Marca : ____________ Modelo : __________
Serie : ____________________
Impressora : PICS2520 Form: 1
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
FINAL
Exemplo 01
------------------------------------------------------------------------------
PRODASUL SERVICOS INTERNOS AADPA000
17:36:51 ------------------------------------------------------------ 28/12/25
------------------------------------------------------------
10 - RELATORIO DE CARTUCHOS RETIDOS
20 - RELATORIO DE CARTUCHOS SCRATCH
30 - RELATORIO DE REGRAS CRIADAS
------------------------------------------------------------
DIGITE A OPCAO DESEJADA ___
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
HELP MENU
Exemplo 02
------------------------------------------------------------------------------
AA01055 SERVICOS INTERNOS ADAP300D
17:41:27 ------------------------------------------------------------ 28/12/25
RECURSOS UTILIZADOS ADAM600D
+-----------------------------+ +-------------------------------+
| 01 Online por Usuarios | | 06 Totais Desabilitado |
| 02 Online por Tids | | 07 Estatistica Com-Plete |
| 03 Online por Accounts | | 08 Estatistica Broker |
| 04 Online Diario | | 09 Rotina do Account Mensal |
| 05 Batch Diario | | 10 Estatisticas dos Jobs |
+-----------------------------+ +-------------------------------+
Exibicao dos dados: V ( V Video / H Hardcopy / B Batch )
Selecione a OPCAO : _ __ (/ ? )
Com-plete: P ( D Desenv / P Producao )
Iniciando em : Usuario/Account: ____________
Tid: ____
Dia: 01122025 Continua: _ Ver Accounts: _
Compara Data 1: 28122025 Data 2: 21122025
Impressora: PICS2520
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
HELP MENU
Exemplo 03
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS CSAP0000
17:42:06 ------------------------------------------------------------ 28/12/25
NATURAL
------------------------------------------------------------------------------
001 - RELATORIO RACF 007 - XXXXXXXXXXXXXXXXXXXX
002 - RELATORIO SMF 008 - XXXXXXXXXXXXXXXXXXXX
003 - PERMISSAO RACF 009 - XXXXXXXXXXXXXXXXXXXX
004 - TESTE HOMOLOG. SNG/B3 010 - XXXXXXXXXXXXXXXXXXXX
005 - MIGRACAO DE CARTUCHOS SMF 011 - XXXXXXXXXXXXXXXXXXXX
006 - LIBERAR CARTUCHO RMM 012 - XXXXXXXXXXXXXXXXXXXX
------------------------------------------------------------------------------
DIGITE A OPCAO DESEJADA 0__
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT QUIT
Exemplo 04
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS INFOMENU
17:43:37 ------------------------------------------------------------ 28/12/25
INFOPRINT SERVER NATURAL
------------------------------------------------------------------------------
010 - INFOPRINT LOG PRINT 050 - CRIACAO DE PICS
020 - CONSULTAR IMPRESSORA 060 - DELETAR PICS
030 - DISPONIVEL PICS/TICS 070 - BACKUP INFOPRINT
040 - MODIFICAR IMPRESSORA 080 - FORMS INFOPRINT
------------------------------------------------------------------------------
DIGITE A OPCAO DESEJADA 0__
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT LOG QUIT
Exemplo 05
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS ADAMCS94
17:44:58 ------------------------------------------------------------ 28/12/25
RESTRUCTURE NATURAL
------------------------------------------------------------
10 - RESTRUCTUREDB DATABASE
20 - RESTRUCTUREF FILE
30 - STORE RESTRUCTUREF FILE
------------------------------------------------------------
DIGITE A OPCAO DESEJADA __
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
VOLTA
Exemplo 06
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS AADPA000
14:30:17 ------------------------------------------------------------ 29/12/25
NATURAL
+-----------------------------+ +---------------------------------------+
| 01 - Pesquisa de Cartucho | | 05 - Relatorio de Cartuchos Retido |
| 02 - Pesquisa de Label | | 06 - Relatorio de Cartuchos Scratch |
| 03 - Pesquisa de Data | | 07 - Relatorio de Regras Criadas |
| 04 - Pesquisa de OWNER | | 08 - Relatorio de Status do RMM |
+-----------------------------+ +---------------------------------------+
DIGITE A OPCAO DESEJADA 0__
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
MENU
Exemplo 07
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS DBAPMENU
14:37:43 ------------------------------------------------------------ 29/12/25
NATURAL
------------------------------------------------------------------------------
10 - MONITORANDO ESPACOS 80 - CALCULO DO ESPACO
20 - MIGRATE FILES ADABAS 90 - MANUTENCAO NOS FILES
30 - BACKUP BANCO/FILE 100 - PROCEDIMENTOS HISTORICO
40 - LIMPAR CHECKPOINTS 110 - ALOCACAO DOS FILES
50 - ADAREP DOS BANCOS 120 - LIMPANDO BUFFER POOL
60 - REORDB/REORFILE 130 - RESTRUTURACAO
70 - NOMES BANCOS PREDICT
------------------------------------------------------------------------------
DIGITE A OPCAO DESEJADA 0__
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT QUIT
Exemplo 08
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS BROKER00
14:42:30 ------------------------------------------------------------ 29/12/25
ENTIRE BROKER NATURAL
------------------------------------------------------------
10 - PESQUISA SERVIDOR BROKER
20 - CONSULTA SERVIDORES BROKERS
30 - ATUALIZA SERVIDOR BROKER
40 - CADASTRA SERVIDOR BROKER
50 - EXCLUSAO SERVIDOR BROKER
60 - TOTAL DE SOLICITACOES BROKER
70 - SYSRPC (REMOTE PROCEDURE CALL)
------------------------------------------------------------
DIGITE A OPCAO DESEJADA ___
TECLE PF3 PARA SAIR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
HELP MENU
Exemplo 09
29/12/2025
MASTER NATURAL
-------------------------------------------------------------------------------
Informe o numero do incidente : __________________
-------------------------------------------------------------------------------
DEV : IND
Adabas DBA 4022 Ajuda Menu Finalizar
Exemplo 10 - tela de login do Complete
12:00:30 TID 68 COM641/D User 02.06.22
ULG0
---------------- COM-PLETE DE DESENVOLVIMENTO - MASTER/DEV ---------------------
User ID ...........:
Password ..........:
New password ......:
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
Cont End
Exemplo 11
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS ADD4022
14:56:11 ------------------------------------------------------------ 29/12/25
INCLUSAO DE USUARIO NATURAL
+----------------------------------------------------------+
| Cliente __ Matr. ______ |
| Grupo ________ |
| Profile ________ |
| Empresa _____ |
| Matr.Fun __________ |
+----------------------------------------------------------+
Nome : ______________________________
Cpf : ___________
Data Nasc.: ______
Local : ________________________
Email : ____________________________________________________________
Obs Confirme todos os Dados Antes de Gravar o Registro e Tecle
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
CONV. Exit Incl VOLTA
Exemplo 12
-------------------------------------------------------------------------------------------------
29/12/2025 ***** WORKERS BASIC SERVICES ***** 14:58:57
-------------------------------------------------------------------------------------------------
s1582.ms - IC
+------------------------------+ +---------------------------+ +------------------------------+
| ICOM Display | | Server Performance | | ICOM Maintenance |
+------------------------------+ +---------------------------+ +------------------------------+
| 1 - Status | | 11 - Memória | | 90 - ICOM STOP Renach |
| 2 - Netstat | | 12 - Espaço Disco | | 91 - ICOM STOP Renavam |
| 3 - Logs | | 13 - Load Average | | 92 - ICOM START Renach |
| 4 - Conexões | | 14 - Top | | 93 - ICOM START Renavam |
| 5 - Auditoria | +---------------------------+ | 94 - ICOM TCPDUMP |
| 6 - Lista Falhas | +------------------------------+
| 7 - Lista ICOM.ini |
| 8 - Testar Telnet |
+------------------------------+
OPÇÃO ===>
Exemplo 13
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS DBAP21PX
15:03:35 ------------------------------------------------------------ 29/12/25
ALTERACAO DE PROFILES NATURAL
+----------------------------------------------------------+
| User ID DBA4022 |
| |
| Grupo DBA_____ |
| |
| Profile DBA_____ |
+----------------------------------------------------------+
Nome: DBA ADABAS 4022 ______________
Funcional: 4022.2682
Data Nasc.: 22/03/1982
Local: CAMPO GRANDE - MS_______
Coordenador: SIM
Email: CLAUDEMAR.MARTINS@GMAIL.COM_______________________________________
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT VOLTA
Exemplo 14
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS DBAP2149
15:08:01 ------------------------------------------------------------ 29/12/25
EXCLUSAO
+----------------------------------------------------------+
| Usuario ..: DBA4022 |
| |
| Nome .....: USER ID 4022 DBA ADABAS |
| |
| Grupo ....: DBA |
| |
| Profile ..: DBA |
+----------------------------------------------------------+
Para confirmar a exclusao digite 'delete' ______
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT VOLTA
Exemplo 15
------------------------------------------------------------------------------
MASTER SERVICOS INTERNOS INFO0104
15:17:05 ------------------------------------------------------------ 29/12/25
DELETAR IMPRESSORA NO INFOPRINT NATURAL
------------------------------------------------------------
PICS ................ : ________
------------------------------------------------------------
TECLE PF3 PARA VOLTAR
Enter-PF1---PF2---PF3---PF4---PF5---PF6---PF7---PF8---PF9---PF10--PF11--PF12---
EXIT LOG
0 comentários:
Enviar um comentário