Com a crescente tendência de migração de plataformas de alto custo para alternativas mais acessíveis e modernas, muitos analistas enfrentam o desafio de transpor a lógica de programas de um ambiente de mainframe para uma plataforma mais atualizada. Nesse contexto, a obtenção de uma cópia do programa em formato de texto torna-se uma etapa crucial para recriar a lógica na nova plataforma.
A transição de sistemas legados para ambientes mais modernos é motivada por diversos fatores, incluindo redução de custos, maior flexibilidade e compatibilidade com tecnologias emergentes. No entanto, migrar programas de uma plataforma alta, como mainframes, para uma plataforma baixa, como servidores distribuídos, requer uma compreensão profunda da estrutura e da lógica subjacente dos programas originais.
Ao obter uma cópia do programa em formato de texto de um programa do Natural, os analistas podem analisar o código-fonte de forma mais detalhada e acessível. Isso permite uma melhor compreensão da lógica de negócios implementada no programa original e facilita a identificação de possíveis pontos de ajuste e otimização durante o processo de migração.
Além disso, o formato de texto oferece maior portabilidade e interoperabilidade entre diferentes plataformas de desenvolvimento. Uma vez que o código esteja disponível em formato de texto, ele pode ser facilmente importado e manipulado em uma ampla variedade de ambientes de desenvolvimento e ferramentas de edição, simplificando o processo de recriação da lógica na plataforma de destino.
No entanto, é importante ressaltar que a migração de programas entre plataformas envolve mais do que simplesmente copiar e colar o código-fonte. É necessário realizar uma análise abrangente dos requisitos de negócios, identificar dependências de sistemas externos e adaptar a lógica do programa para se adequar ao ambiente de destino.
Em resumo, a obtenção de uma cópia do programa em formato de texto é um passo fundamental no processo de migração de plataformas. Facilita a compreensão da lógica de negócios e permite uma transição mais suave e eficiente para ambientes de desenvolvimento modernos. Com as estratégias certas e uma abordagem cuidadosa, os analistas podem garantir uma migração bem-sucedida e aproveitar os benefícios das tecnologias mais recentes e acessíveis.
Segue um exemplo de JCL para listar um programa fonte Natural que mostra a numeração das linhas:
Output é esse - O problema é que lista a numeração vem junto
É só rodar com o parametros NUMBERS OFF após listar o programa
Resultado
Leia Mais
MEMBER=CASSIM1 000020 REC SAVE:23.02.2023 09:59 BY USERID DBA025 R=00000001 DSN=BIB.PRODUCAO.ADA LIB=TS VOL=DIS303 UNIT=1525 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 //DBAPNAT4 JOB (AAF,TSS),'DBA025',CLASS=S,MSGCLASS=A //*UQ ALLOW //* ---------------------------------------------------------------- //* LISTA OS PROGRAMAS DO NATURAL //* ---------------------------------------------------------------- //NATURAL EXEC NATURAL,PARM1='SYS=D,MT=0,STACK=(LOGON SOURCE)' //CMWKF01 DD SYSOUT=A //CMWKF02 DD SYSOUT=A //CMPRINT DD SYSOUT=G //SYSIN DD * L * A@ATUAEM L * A@CONVEM FIN
Output é esse - O problema é que lista a numeração vem junto
1Logon accepted to library SOURCE. 1NEXT L * A@ATUAEM 112:18:17 Program A@ATUAEM Library SOURCE User DBAPNAT4 2019-10-24 + Program A@ATUAEM SOURCE DBAPNAT4 + Program A@ATUAEM SOURCE DBAPNAT4 0010 *** 0020 * FUNCAO DO PROGRAMA ... ATUALIZAR EMISSOR DE AUTO 0030 *** 0040 DEFINE DATA 0050 LOCAL 0060 1 #CONT (P9) 0070 1 #IND (P9) 0080 1 #TOT (P9) 0090 1 #WK (A483) 0100 1 REDEFINE #WK 0110 2 #ISN (N10) 0120 2 FILLER 473X 0130 1 #RC (N1) 0140 1 #EMI-NOVO (N2) 0150 1 #AR-ID (A10) 0160 1 REDEFINE #AR-ID 0170 2 #EMI (N2) 0180 2 #NUM (N8) 0190 1 #CIR-ID (A14) 0200 1 REDEFINE #CIR-ID -------------------------------------------------------------------------------- OP=S CL=ALL IN=ALL JB=DBAPNAT4,04770 DS=1 SI=SO LR=1 LL=80 PP=0 DC= RL=999999 AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000 24.10.2019, 12:18:22
É só rodar com o parametros NUMBERS OFF após listar o programa
MEMBER=CASSIM1 000015 REC SAVE:24.10.2019 12:26 BY USERID DBA025 R=00000001 DSN=BIB.PRODUCAO.ADA LIB=TS VOL=DIS303 UNIT=1525 ....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 //DBAPNAT4 JOB (AAF,TSS),'DBA025',CLASS=S,MSGCLASS=A //*UQ ALLOW //* ---------------------------------------------------------------- //* GRAVA EM UM DATA SET OS PROGRAMAS DO NATURAL //* ---------------------------------------------------------------- //NATURAL EXEC NATURAL,PARM1='SYS=D,MT=0,STACK=(LOGON SOURCE)' //CMWKF01 DD SYSOUT=A //CMWKF02 DD SYSOUT=A //CMPRINT DD SYSOUT=G //SYSOUT DD SYSOUT=A //CMPRT01 DD SYSOUT=G //SYSIN DD * L * A@ATUAEM NUMBERS OFF L * A@CONVEM NUMBERS OFF FIN /*
Resultado
1Logon accepted to library SOURCE. 1NEXT L * A@ATUAEM NUMBERS OFF 108:04:19 Program A@ATUAEM Library SOURCE User DBAPNAT4 2024-02-15 + Program A@ATUAEM SOURCE DBAPNAT4 + Program A@ATUAEM SOURCE DBAPNAT4 *** * FUNCAO DO PROGRAMA ... ATUALIZAR EMISSOR DE AUTO *** DEFINE DATA LOCAL 1 #CONT (P9) 1 #IND (P9) 1 #TOT (P9) 1 #WK (A483) 1 REDEFINE #WK 2 #ISN (N10) 2 FILLER 473X 1 #RC (N1) 1 #EMI-NOVO (N2) 1 #AR-ID (A10) 1 REDEFINE #AR-ID -------------------------------------------------------------------------------- OP=S CL=ALL IN=ALL JB=DBAPNAT4,01709 DS=1 SI=SO LR=1 LL=80 PP=0 DC= RL=999999 AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000 15.02.2024, 8:06:56
