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