REXX para localizar string em pacotes do Changeman

Atualizado em 2025 06 11 - Reescreve o post com ajuda do perplexity, nao testei o fonte e nem comparei pra ver se ele mudou alguma coisa, mas bonito devo dizer que ficou!

REXX para localizar string em pacotes do Changeman

Este script REXX realiza uma busca por uma string em todos os membros de um pacote do Changeman, gerando um relatório com os resultados encontrados. Útil para quem precisa localizar rapidamente trechos de código ou referências em ambientes mainframe integrados ao ChangeMan.

Exemplo de uso

Execute o script informando a sigla do sistema, o número do pacote e a string a ser pesquisada.

Código REXX

FINDCHG.REXX

/**  REXX  **/                                                         
arg sigla pacote texto                                                 
call valida_parametros;                                                
call verifica_se_pacote_existe;                                        
/* aqui a magica acontece! */                                          
call outtrap "mbrs."                                                   
"LISTD" "'"pdsname"'" "MEMBERS"                                        
call outtrap "off"                                                     
                                                                       
do ndx=1 to mbrs.0                                                     
   if mbrs.ndx = "--MEMBERS--" then leave                              
end                                                                    
ndx=ndx+1                                                              
qtd_membros = mbrs.0 - ndx + 1                                         
say 'Procuraremos a string em ' qtd_membros ' membros.'                
/* "ALLOC FI(RELAT) DA('WALBUGA.OUTDD.SAIDA') MOD REUSE" */            
log = USERID()'.OUTDD.SAIDA'                                           
say log                                                                
/* "ALLOC FI(RELAT) DA(log) MOD REUSE"                                 
   "ALLOC F(SYS010) DS('"particionado"("membro")') SHR REUSE"          
   "ALLOC FI(RELAT) DA('WALBUGA.OUTDD.SAIDA') MOD REUSE"  */           
 "ALLOC FI(RELAT) DA('"log"') MOD REUSE"                               
IF RC \= 0 THEN                                                        
   DO                                                                  
      say "----------------------------------------"                   
      say "Erro na alocacao do arquivo de relatorio"                   
      say "----------------------------------------"                   
     EXIT 0                                                            
   END                                                                 
/* aqui a magica acontece 2! */                                        
call listdsi "'"pdsname"'"                                             
particionado=sysdsname                                                 
/**-----------------------------------------------------------------**/
linha.1="------------------------------------------------"             
linha.2="Inicio do processamento ------------------------"             
linha.3="------------------------------------------------"              
linha.4="Procurando " pdsname " por <" texto ">"                        
linha.5="------------------------------------------------"              
linha.0=5                                                               
"EXECIO" linha.0 "DISKW RELAT (STEM linha."                             
do curmbr = ndx to mbrs.0                                               
   parse value mbrs.curmbr with membro                                  
   membro=strip(membro)                                                 
   flag=1                                                               
/* say "member="particionado"("membro")" */                             
/* assim sai o membro */                                                
/* aqui =  'particionadome' ||(membro) */                               
/* aqui = "'"(membro)"'" */                                             
/* say aqui */                                                          
/* "ALLOC F(SYS010) DS('"particionado"("membro")') SHR REUSE" */        
   "ALLOC F(SYS010) DS('"particionado"("membro")') SHR REUSE"           
/* "ALLOC F(SYS010) DS("'"aqui"'") SHR REUSE" */                        
   "EXECIO * DISKR SYS010 (FINIS STEM in."                              
   "FREE F(SYS010)"                                                     
   fnd=0                                                                
   do recid=1 to in.0                                                   
      if pos(texto,in.recid) > 0 then                                   
        do                                                              
           if flag = 1 then                                             
             do                                                         
              linha.1="------------------------------------------------"
              linha.2="----> " membro " contem <" texto ">"             
              say linha.2                                               
              linha.3 = in.recid                                        
              linha.0=3                                                 
              "EXECIO" linha.0 "DISKW RELAT (STEM linha."               
              flag=0                                                    
             end                                                        
           linha.1 = in.recid                                           
           linha.0=1                                                    
           "EXECIO" linha.0 "DISKW RELAT (STEM linha."                  
        end                                                             
   end                                                                  
end                                                                    
say '*** Pesquisa finalizada com sucesso ***'                          
linha.1="////////////////////////////////////////////////"             
linha.2="////////////////////////////////////////////////"             
linha.3="////////////////////////////////////////////    "             
linha.4="//////////////////////////////////////////// FIM"             
linha.5="////////////////////////////////////////////////"             
linha.0=5                                                              
"EXECIO" linha.0 "DISKW RELAT (STEM linha."                            
"EXECIO 0 DISKW RELAT (FINIS"                                          
"FREE F(RELAT)"                                                        
exit 0                                                                 
                                                                       
/*----------------------- */                                           
valida_parametros:                                                     
/*----------------------- */                                           
if sigla = "" | pacote = "" | texto = "" then                          
 do                                                                    
   clear                                                               
   say ""                                                              
   say "Bem vindo "  USERID()                                          
   say ""                                                              
   say  "Informe: "                                                    
   say  " - sigla do sistema"                                          
   say  " - numero do pacote "                                         
   say  " - string a ser pesquisada"                                   
   say ""                                                              
   say  "Como não foi informado abrirei a opcao de informar abaixo."   
   say ""                                                              
   say  "Digite SAI para sair, tecle ENTER para continuar..."          
   pull ok                                                             
   say ""                                                              
   /* if parse upper (ok) = 'SAI' then         -- VER USO DO UPPER */  
   if ok = 'SAI' then                                                  
    do                                                                 
      exit 0                                                           
    end                                                                
 end                                                                   
if sigla = "" then                                                     
   do                                                                  
      say "----------------------------------------------------"       
      say "Erro: Informe a sigla do sistema com duas posicoes"         
      say "----------------------------------------------------"       
      say ""                                                           
      say 'Digite a sigla:'                                            
      pull sigla                                                       
   end                                                                 
if pacote = "" then                                                    
   do                                                                  
      say "--------------------------------"                           
      say "Erro: Não foi informado o pacote"                           
      say "--------------------------------"                           
      say ""                                                           
      say "Procuraremos em DESICBIB.CHGMAN.STG.NG0I.#pacote.SRC"       
      say ""                                                           
      say 'Digite o numero do pacote com 6 numeros :'                  
      pull pacote                                                      
   end                                                                 
if texto = "" then                                                     
   do                                                                  
      say "-----------------------------------------------------------"
      say "Erro: Não foi informada a string a ser pesquisada no pacote"
      say "-----------------------------------------------------------"
      say ""                                                           
      say 'Digite a string:'                                           
      pull texto                                                       
   end                                                                 
return                                                                 
                                                                       
                                                                       
/*------------------------------------- */                             
verifica_se_pacote_existe:                                             
/*------------------------------------- */                             
                                                                       
/*         DESICBIB.CHGMAN.STG.NG0I.#000651.SRC */                     
pdsname = 'DESICBIB.CHGMAN.STG.'sigla'0I.#'pacote'.SRC'                
    say '---------------------------------------------------------------' 
    say 'Procurando' texto ' em 'pdsname''                                
    say '---------------------------------------------------------------' 
    x = SYSDSN("'"pdsname"'")      /* só pros feras!!! ODEIO ISSO */      
    say x ', vamos em frente que o pacote ta lá!'                         
    say '---------------------------------------------------------------' 
    if x <> "OK" then                                                     
       do                                                                 
          say "Erro: Não conseguimos localizar o pacote #" pacote         
          say "Erro: Não conseguimos localizar o pacote:" pdsname         
          say "Error: " pdsname " > " sysdsn(pdsname)                     
          say "Press Enter to continue"                                   
          pull uresp                                                      
          exit 8                                                          
       end                                                                
    return                                             

Como funciona

• Valida os parâmetros de entrada (sigla, pacote, texto).
• Verifica se o pacote existe no Changeman.
• Lista todos os membros do pacote e busca a string informada em cada um.
• Gera um relatório de saída com os membros e linhas onde a string foi encontrada.

Observações

• O script pode ser adaptado para outros padrões de pacotes ou ambientes.
• Certifique-se de ter as permissões necessárias para executar comandos de alocação e leitura de membros no ambiente mainframe.

REXX para bom dia! - Gera arquivos de configuração do Debug Tool - Submete Hrecall para todos os membros

Scripts REXX e JCL para Automação no z/OS

Script REXX para Automação no z/OS

BOM#DIA.REXX

/* REXX */                                                    

trace off;                                                    

CLEAR                                                          

SAY 'Ola Buga!'                                                

SAY ' '                                                        

SAY 'Seja vem vindo...'                                        

SAY ' '                                                        

SAY ' '                                                        

parse PULL rola                                                

/******************************/                              

call verifica_primeira_vez_do_dia                              

say flag                                                      

if flag = 'S' then                                            

 do                                                            

    call grava_ja_rodamos;                                    

    call aloca_debug_tool_files;                              

    call hrecall_de_tudo;                                      

 end;                                                          

ISPF                                                          

exit 0                                                        

/******************************/                              

grava_ja_rodamos:                                              

/******************************/                              

dsname = 'walbuga.apagador'                                    

"ALLOC FI(Pdsout) DA('"dsname"') new                          

    tracks space(10 10) dir(01)                                

    Recfm(F B) LRECL(80)"                                      

"FREE  FI(Pdsout)"                                            

"allocate dataset('walbuga.apagador(#15)') fi(#15) shr reuse"  

"execio 0 diskw #15 (stem o. open)"                            

o.1 = 'CEBOLA '                                                

"execio * diskw #15 (stem o. finis)"                          

"free fi(#15)"                                                

return                                                        

/******************************/                              

/******************************/                              

dsname = 'walbuga.apagador'                                    

"ALLOC FI(Pdsout) DA('"dsname"') new                          

    tracks space(10 10) dir(01)                                

    Recfm(F B) LRECL(80)"                                      

"FREE  FI(Pdsout)"                                            

"allocate dataset('walbuga.apagador(#15)') fi(#15) shr reuse"  

"execio 0 diskw #15 (stem o. open)"                            

o.1 = 'CEBOLA '                                                

"execio * diskw #15 (stem o. finis)"                          

"free fi(#15)"                                                

return                                                        

/******************************/                              

verifica_primeira_vez_do_dia:                                  

/******************************/                              

"allocate dataset('walbuga.apagador(#15)') fi(#15) shr reuse"  

"execio * diskr #15 (stem oia. finis)"                        

   if pos('CEBOLA',oia.1) > '0' then                          

      do                                                      

         say 'TSO te derrubou, neh amigao ?'                  

         flag = 'N'                                            

      end                                                      

   else                                                        

      do                                                      

         say 'Divirta-se Buga'                                

         flag = 'S'                                            

      end                                                      

return                                                        

/******************************/                              

aloca_debug_tool_files:                                        

/******************************/                              

debug_tool = "'WALBUGA.G#NG.SEMANA09(DEBUG#01)'"              

SUBMIT debug_tool                                              

return                                                        

/******************************/                              

hrecall_de_tudo:                                              

recall = "'WALBUGA.G#R0.DATA(JCL#0004)'"                      

SUBMIT recall                                                  

return                                

JCL para Alocação de Arquivos de Debug (DEBUG#01)

WALBUGA.G#NG.SEMANA09(DEBUG#01)

DEBUG#01.JCL

//WALBUGA2 JOB NG,BUGA,CLASS=K      RESTART=STEP#002                  

/*NOTIFY WALBUGA                                                      

//*--------------------------------------------------------------------

//* Aloca arquivos utilizados pelo debug tool no z/OS                  

//*--------------------------------------------------------------------

//STEP#001  EXEC PGM=IEFBR14                                          

//SAVINGS      DD DSN=WALBUGA.DBGTOOL.SAVESETS,                        

//             DISP=(NEW,CATLG,DELETE),                                

//             UNIT=SYSDA,SPACE=(CYL,(20,10)),                        

//             DCB=(LRECL=3204,BLKSIZE=0,DSORG=PS,RECFM=VB)            

//SETTINGS      DD DSN=WALBUGA.DBGTOOL.SAVEBPS,                        

//             DISP=(NEW,CATLG,DELETE),                                

//             UNIT=SYSDA,SPACE=(CYL,(20,10)),                        

//             DCB=(LRECL=3204,BLKSIZE=0,DSORG=PO,RECFM=VB),          

//             DSNTYPE=LIBRARY                                        

//*--------------------------------------------------------------------

//* Carrega configuracoes que o Buga gosta!                            

//*--------------------------------------------------------------------

//STEP#002  EXEC PGM=IEBGENER                                          

//SYSIN    DD DUMMY                                                    

//SYSPRINT DD SYSOUT=X                                                

//SYSUT1   DD *                                                        

      COMMENT YES

      SET ASSEMBLER OFF;                                              

      SET ASSEMBLER STEPOVER EXTONLY;                                  

      SET AUTOMONITOR ON NOLOG CURRENT;                                

      SET CHANGE STATEMENT;                                            

      SET COLOR TURQUOISE NONE      HIGH TITLE HEADERS;                

      SET COLOR GREEN     NONE      LOW  TITLE FIELDS;                

      SET COLOR TURQUOISE REVERSE   LOW  MONITOR AREA;                

      SET COLOR TURQUOISE REVERSE   LOW  MONITOR LINES;                

      SET COLOR WHITE     REVERSE   LOW  SOURCE AREA;                  

      SET COLOR TURQUOISE REVERSE   LOW  SOURCE PREFIX;                

      SET COLOR YELLOW    REVERSE   LOW  SOURCE SUFFIX;                

      SET COLOR RED       REVERSE   HIGH SOURCE CURRENT;              

      SET COLOR GREEN     NONE      LOW  SOURCE BREAKPOINTS;          

      SET COLOR TURQUOISE NONE      HIGH PROGRAM OUTPUT;              

      SET COLOR YELLOW    NONE      LOW  TEST INPUT;                  

      SET COLOR GREEN     NONE      HIGH TEST OUTPUT;                  

      SET COLOR BLUE      REVERSE   HIGH LOG LINES;                    

      SET COLOR WHITE     NONE      HIGH COMMAND LINE;                

      SET COLOR GREEN     REVERSE   HIGH WINDOW HEADERS;              

      SET COLOR BLUE      REVERSE   HIGH TOFEOF MARKER;                

      SET COLOR RED       NONE      HIGH TARGET FIELD;                

      SET DEFAULT LISTINGS;                                            

      SET DEFAULT DBG;                                                

      SET DEFAULT MDBG;                                                

      SET DEFAULT SCROLL PAGE;                                        

      SET DEFAULT VIEW STANDARD;                                      

      SET DEFAULT WINDOW SOURCE;                                      

      SET DISASSEMBLY OFF;                                            

      SET DYNDEBUG ON;                                                

      SET ECHO ON;                                                    

      SET EXECUTE ON;                                                  

      SET EXPLICITDEBUG OFF;                                          

      SET FIND BOUNDS 1 *;                                            

      SET HISTORY ON 100;                                              

      SET IGNORELINK OFF;                                              

      SET LDD SINGLE;                                                  

      SET LIST TABULAR OFF;                                            

      SET LIST BY SUBSCRIPT OFF;                                      

      SET LOG OFF;                                                    

      SET LOG KEEP 1000;                                              

      SET LOG NUMBERS ON;                                              

      SET LONGCUNAME ON;                                              

      SET MONITOR DATATYPE OFF;                                        

      SET MONITOR LIMIT 1000;                                          

      SET MONITOR NUMBERS ON;                                          

      SET MONITOR WRAP ON;                                            

      SET MSGID OFF;                                                  

      SET PACE 2;                                                      

      SET PF1     "?" =    ?;                                          

      SET PF2     "STEP" = STEP;                                      

      SET PF3     "QUIT" = QUIT;                              

      SET PF4     "LIST" = LIST;                              

      SET PF5     "FIND" = IMMEDIATE FIND;                    

      SET PF6     "AT/CLEAR" =AT TOGGLE;                      

      SET PF7     "UP" =   IMMEDIATE UP;                      

      SET PF8     "DOWN" = IMMEDIATE DOWN;                    

      SET PF9     "GO" =   GO;                                

      SET PF10    "ZOOM" = IMMEDIATE ZOOM;                    

      SET PF11    "ZOOM LOG" =IMMEDIATE ZOOM LOG;              

      SET PF12    "RETRIEVE" =IMMEDIATE RETRIEVE;              

      SET PF13    "?" =    ?;                                  

      SET PF14    "STEP" = STEP;                              

      SET PF15    "QUIT" = QUIT;                              

      SET PF16    "LIST" = LIST;                              

      SET PF17    "FIND" = IMMEDIATE FIND;                    

      SET PF18    "AT/CLEAR" =AT TOGGLE;                      

      SET PF19    "UP" =   IMMEDIATE UP;                      

      SET PF20    "DOWN" = IMMEDIATE DOWN;                    

      SET PF21    "GO" =   GO;                                

      SET PF22    "ZOOM" = IMMEDIATE ZOOM;                    

      SET PF23    "ZOOM LOG" =IMMEDIATE ZOOM LOG;              

      SET PF24    "RETRIEVE" =IMMEDIATE RETRIEVE;              

      SET POPUP 15;                                            

      SET PROMPT LONG;                                        

      SET REFRESH OFF;                                        

      SET RESTORE SETTINGS AUTO;                              

      SET RESTORE BPS AUTO;                                    

      SET RESTORE MONITORS AUTO;                              

      SET REWRITE 50;                                          

      SET SAVE SETTINGS AUTO;                                  

      SET SAVE BPS AUTO FILE WALBUGA.DBGTOOL.SAVEBPS;          

      SET SAVE MONITORS AUTO;                                  

      SET SCROLL DISPLAY ON;                                  

      SET SUFFIX ON;                                          

      SET WARNING ON;                                          

      WINDOW SIZE 3 LOG;                                  

      WINDOW SIZE 28 SOURCE;                              

      WINDOW SIZE 8 MONITOR;                              

      SET SCREEN ON;                                                  

      SET SCREEN 1 MONITOR SOURCE LOG;                                

      SET KEYS ON 12;                                      

      SET MONITOR COLUMN ON;                                          

//SYSUT2   DD DSN=WALBUGA.DBGTOOL.SAVESETS,                            

//             DISP=(OLD,CATLG,DELETE),                                

//             UNIT=SYSDA,SPACE=(CYL,(20,10)),                        

//             DCB=(LRECL=3204,BLKSIZE=0,DSORG=PS,RECFM=VB)            

//                                                                    

//*                                                                    

                                                                       

SET SAVE SETTINGS AUTO ;                                              

SET SAVE BPS AUTO ;                                                    

SET SAVE MONITORS AUTO ;                                              

                                                                       

SET RESTORE SETTINGS AUTO ;                                            

SET RESTORE BPS AUTO ;                                                

SET RESTORE MONITORS AUTO ;                                            

                                                                       

SET AUTO ON;                                                          

WINDOW SIZE 30 SOURCE; window size 3 log;

JCL para Recall de Datasets do Usuário

'WALBUGA.G#R0.DATA(JCL#0004)'      

//WALBUGA1 JOB R8,'BUGA',MSGLEVEL=(1,1),CLASS=K,MSGCLASS=1,RD=NC        

//*---------------------------------------------------------------------

//*                                                                    

//*   PROCEDIMENTO PARA RECALL DE TODOS OS DATASETS DE UM USUARIO      

//*                                                                    

//*---------------------------------------------------------------------

/*NOTIFY WALBUGA         ** ME NOTIFIQUE                                

/*XEQ ECA                ** RODAR EM SECA                              

//*---------------------------------------------------------------------

//    EXPORT  SYMLIST=(USUARIO,ESTRELA)                                

//    SET     USUARIO=&SYSUID                                          

//    SET     ESTRELA='*'                                              

//*---------------------------------------------------------------------

//*          SCRATCH TODOS OS ARQUIVOS DE SAIDA                        

//*---------------------------------------------------------------------

//STEP#001 EXEC PGM=IDCAMS                                              

//SYSPRINT DD SYSOUT=*                                                  

//SYSIN    DD *,DLM=FIM,SYMBOLS=JCLONLY                                

  DELETE &USUARIO..LISTCAT.OUTPUT                                      

FIM                                                                    

//*---------------------------------------------------------------------

//*       SOLICITA RECALL DOS ARQUIVOS --- OPS NAO PODE                

//*---------------------------------------------------------------------

//STEP#002 EXEC PGM=IKJEFT01                                            

//SYSTSPRT DD SYSOUT=*                                                  

//SYSTSIN  DD *,SYMBOLS=JCLONLY                                        

 HRECALL &USUARIO..&ESTRELA NOWAIT                                      

//*---------------------------------------------------------------------

//* Entra em ação o plano 'B'                                          

//*       LISTA TODOS OS DATASETS DO USUARIO                            

//*---------------------------------------------------------------------

//STEP#003 EXEC PGM=IDCAMS                                              

//SYSPRINT DD   SYSOUT=*                                                

//SYSIN    DD  *,SYMBOLS=JCLONLY                                        

 LISTCAT LEVEL(&USUARIO) -                                              

   OUTFILE(OUTDD)                                                      

//OUTDD    DD DSN=&USUARIO..LISTCAT.OUTPUT,                            

//         DCB=(RECFM=VBA,LRECL=125,BLKSIZE=629),UNIT=DASD,            

//         SPACE=(CYL,(1,1)),                                          

//         DISP=(NEW,CATLG)                                            

//*---------------------------------------------------------------------

//*    COPIA PARA ARQUIVO TEMPORARIO                                    

//*---------------------------------------------------------------------

//STEP#004 EXEC PGM=IEBGENER                                            

//SYSPRINT DD   SYSOUT=*                                                

//SYSOUT   DD SYSOUT=*                                                  

//SYSIN    DD DUMMY                                                    

//SYSUT1   DD DSN=&USUARIO..LISTCAT.OUTPUT,DISP=SHR                    

//SYSUT2   DD DSN=&&TMP1,                                              

//         DCB=(RECFM=VBA,LRECL=125,BLKSIZE=629),UNIT=DASD,            

//         SPACE=(CYL,(1,1)),                                          

//         DISP=(MOD,PASS)                                              

//*---------------------------------------------------------------------

//*    EXTRAI DO RELATORIO DO IDCAMS QUE LISTOU OS ARQUIVOS O NOME DOS  

//* DATASETS QUE SERÃO RECUPERADOSLOGO NA SEQUENCIA                    

//*---------------------------------------------------------------------

//STEP#005 EXEC  PGM=SORT    ,COND=(0,NE)                              

//SORTIN   DD DSN=&&TMP1,DISP=(OLD,DELETE)                              

//SORTOUT  DD DSN=&&TMP2,                                              

//         RECFM=FB,LRECL=00060,                                        

//         SPACE=(CYL,(10,10),RLSE),                                    

//         DISP=(MOD,PASS)                                              

//SORTIN   DD SYSOUT=*                                                  

//SYSIN    DD *,SYMBOLS=JCLONLY                                        

 SORT FIELDS=COPY                                                      

 INCLUDE COND=(22,7,EQ,C'&USUARIO'),FORMAT=CH     *** 4 BYTES DO RDW    

 OUTFIL FNAMES=SORTOUT,VTOF,                                            

 OUTREC=(C' HRECALL ',22,44,C' NOWAIT')                                

//SYSOUT   DD  SYSOUT=*                                                

//SORTMSG  DD  SYSOUT=*                                                

//*---------------------------------------------------------------------

//*    REALIZA O HRECALL DOS MEMBROS DO USUARIO                        

//*---------------------------------------------------------------------

//STEP#006 EXEC PGM=IKJEFT01                                            

//SYSTSPRT DD SYSOUT=*                                                  

//SYSTSIN  DD *                                                        

 /* Vai que alguem resolveu customizar */                              

 PROFILE NOPREFIX                                                      

//         DD DSN=&&TMP2,DISP=(OLD,DELETE)                              

//*                                                                    

//*---------------------------------------------------------------------

//*    ENVIA MENSAGEM INFORMANDO O FINAL DO PROCESSAMENTO              

//*---------------------------------------------------------------------

//STEP#007 EXEC PGM=IKJEFT01                                            

//SYSPRINT DD SYSOUT=*                                                  

//SYSTSPRT DD SYSOUT=*                                                  

//SYSTSIN  DD *,SYMBOLS=JCLONLY                                        

 SEND 'Processo de Recall de arquivos finalizado!     ' USER(&USUARIO)  

/*                                                                      

Testes Unitários em COBOL

Walter BUGA Ramos
buga.bug.buga@gmail.com


Testes unitarios cobol - NeoPragmav.pptx
Testes unitarios cobol - NeoPragmav.pdf

Fontes disponiveis em 
https://github.com/buga-buga-buga/paradinhas_mainframe/tree/main/CUT
------------------------------------------------------------------------
INDICE  - Esse documento                                                
------------------------------------------------------------------------
CLG#001 - Compila. linka e executa modulo fonte Cobol                   
CLG#002 - Compila linka e executa modulo fonte Cobol  (evolucao)        
CLG#003 - Compila linka e executa modulo fonte Cobol  (evolucao 2)      
------------------------------------------------------------------------
ZUTZCPC - Código Fonte do Pre-compilador                                
------------------------------------------------------------------------
ZUTZCPD - Book de instruções do pre-compilador                          
------------------------------------------------------------------------
ZUTZCWS - Book de variaveis do pre-compilador                           
------------------------------------------------------------------------
SAMPLE  - Programa Cobol que sera objeto do teste                       
------------------------------------------------------------------------
SAMPLET - Instrucoes do que quer que seja testado                       
                       Não consegui rodar como particionado             
                            utilize de 'BUGAARQ.SIGLA.SAMPLET'           
------------------------------------------------------------------------
UTSTCFG - Configuration file                                            
------------------------------------------------------------------------

---

Entendendo o cenário de desenvolvimento de Software

Cobol Unit Test - CUT

• Projeto colaborativo disponível no GitHub
• Pré-Compilador escrito em Cobol que gera um programa Cobol específico com o caso de testes a ser executado

---

Pirâmide de Testes

            /        \
           /          \
          /            \
         /Exploratórios \
        /________________\
       / End to End       \
      /____________________\
     / Testes de Componente \  
    /________________________\
   /       Integração         \
  /____________________________\
 /           UNITÁRIO           \
/________________________________\

• Exploratórios: Testes manuais para descobrir comportamentos inesperados.
• End to End: Testes que validam o fluxo completo do sistema.
• Testes de Componente: Validam partes isoladas do sistema.
• Integração: Verificam a interação entre componentes.
• Unitário: Testam unidades individuais de código.

---

Metodologia de desenvolvimento

A arquitetura mainframe é diferente da distribuída e da nuvem.
A linguagem procedural (Cobol/PL1/Rexx) é diferente da orientação a objetos.
Entretanto, vamos utilizar conceitos de outras arquiteturas e linguagens para melhorar a qualidade de nosso código e facilitar a codificação!

---

(Des)conceituando o teste unitário

Procura verificar se o código está correto, em sua menor parte.
A menor parte do fonte a ser testado é um método de uma classe.
Sendo assim, os testes unitários são aplicados a esses métodos, a partir da criação de classes de testes.

---

Então o que testar no COBOL?

Ainda não temos um conceito formado sobre isso, mas esperamos que seja algo parecido com o mock de outras linguagens.
Num dos exemplos do projeto da ferramenta, o teste versa sobre o conteúdo de variável esperada depois da execução de uma section.

---

Funcionamento da ferramenta

Por algum motivo que desconheço, não tem nada sobre como rodar a ferramenta no mainframe; no micro funciona de boa, só seguir o texto base que tem lá no Git.
A importação dos fontes e adaptações foram tranquilas e alguns ajustes foram necessários.
O que mais demorou e que apanhei um bocado foi pra gerar o JCL “redondinho”.

---

Etapas

Depois da ferramenta ter sido compilada e linkeditada, temos:

• Rodar a ferramenta informando o programa e os casos de teste
• Compilar/Linkeditar o “programa” gerado
• Executar esse ‘programa’ com os casos de teste

---

Mãos à obra!

Particionado com os componentes necessários está disponível em:
WALBUGA.SIGLA.CUT.COBOL

---

Obrigado!

Bolsonaro Rojão - Hotel seleção Itália

Bolsonaro soltando rojões na frente do repórter

Um dia ainda acho a entrevista completa com ele soltando os rojões na frente do repórter!

0:00 a federal jair bolsonaro do pp soltou 0:02 morteiros na calçada em frente ao 0:04 sheraton da barra ele diz que fez isso 0:06 em protesto contra o barulho provocado 0:08 por equipamentos instalados pela tutela 0:10 sobre humano 0:11 o condomínio onde o deputado mora fica 0:13 nos fundos do hotel ele disse que já 0:15 pediu providências mas até agora nada 0:17 foi feito a gente procurou a direção do 0:19 sheraton que reconheceu o problema