Rodando Programa Natural no JCL

Ao enfrentar desafios de automação e processamento de dados em mainframes, muitas vezes surge a necessidade de executar programas Natural para realizar tarefas específicas. Entretanto, em alguns casos, pode ser conveniente contornar o desenvolvimento de um programa Natural completo e recorrer a uma abordagem mais direta usando Job Control Language (JCL). Imagine a seguinte situação: você precisa realizar uma tarefa específica em um mainframe, mas não deseja criar um programa Natural do zero. Nesse cenário, é possível usar uma abordagem alternativa, aproveitando as funcionalidades do console para executar comandos diretamente. Aqui está um exemplo prático de como executar um programa Natural via JCL sem a necessidade de desenvolver um programa Natural específico:

 //AAFSNATB JOB (AAF,TSS),'CLAUD',CLASS=S,MSGCLASS=A             
 //*UQ ALLOW                                                                    
 //* ----------------------------------------------------------------           
 //*                   RODANDO PROGRAMA VIA JCL                                 
 //* ----------------------------------------------------------------           
 //STEP01   EXEC NATURAL,PARM1='SYS=T,MT=0,STACK=(LOG ADA744)'                
 //CMWKF01  DD SYSOUT=A                                                         
 //CMWKF02  DD SYSOUT=G                                                         
 //CMPRT01  DD SYSOUT=G,HOLD=YES                                                
 //CMSYNIN DD *                                                                 
 LOGON ADA744                                                                 
 EDT                                                                            
 DEFINE DATA LOCAL                                                              
 1 A(A10) INIT <'HELLO'>                                                        
 END-DEFINE                                                                     
 WRITE A 'WORLD'                                                                
 END                                                                            
 .E                                                                             
 RUN

rodou ok

 IEF142I AAFSNATB NATURAL STEP01 - STEP WAS EXECUTED - COND CODE 0000           
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
--------------------------------------------------------------------------------
OP=S CL=ALL IN=ALL JB=AAFSNATB,08023 DS=3 SI=CC LR=1 LL=80 PP=0 DC= RL=999999   
AD=J DE= SC= PT= SQ=C RR=0 OC= SD=2000   07.06.2023,  9:52:08

Resultado

1Logon accepted to library ADA744.                                            
1NEXT LOGON ADA744                                                            
1Logon accepted to library ADA744.                                            
1NEXT EDT                                                                       
 0010 DEFINE DATA LOCAL                                                         
 0020 1 A(A10) INIT <'HELLO'>                                                   
 0030 END-DEFINE                                                                
 0040 WRITE A 'WORLD'                                                           
 0050 END                                                                       
 0060 .E                                                                        
1NEXT RUN                                                                       
1PAG      1                                                                     
0HELLO      WORLD                                                               
1NAT9995 Natural session terminated normally.                                   
UQS0009 - END OF DATA SET.

Categories: Natural