Categoria: REXX

rexx

/*
OBJETIVO: Analisar múltiplas linhas de log
SIMULAÇÃO: Você recebe um array com status de jobs
CADA LINHA: "JOBNAME;STARTTIME;ENDTIME;RC"

EXEMPLO:
jobs.1 = "JOB001;08:00;08:05;00"
jobs.2 = "JOB002;08:05;08:07;04"
jobs.3 = "JOB003;08:07;08:10;00"

TAREFAS:
1. Calcular tempo de cada job
2. Identificar jobs com RC ≠ 0
3. Calcular tempo total de processamento
4. Encontrar job mais longo

DICA: Use PARSE para separar por ";"
*/

rexx

/*
OBJETIVO: Criar sistema de menu profissional
REQUISITOS:
1. Loop infinito com opção de sair
2. Validação de entrada
3. Submenus
4. Histórico de operações
5. Limpeza de tela entre menus

ESTRUTURA:
MENU PRINCIPAL:
1. Processamento
2. Relatórios
3. Utilitários
4. Sair

SUBMENU Processamento:
1.1 Validar dados
1.2 Importar arquivos
1.3 Voltar

DICA: Use DO FOREVER, SELECT aninhados
*/

rexx

/*
OBJETIVO: Gerar JCL dinamicamente
ENTRADA: Parâmetros do job
SAÍDA: Script JCL pronto para usar

PARÂMETROS:
- Nome do job (1-8 chars)
- Programa a executar
- Dataset de entrada
- Dataset de saída
- Região de memória
- Classe

EXEMPLO DE SAÍDA:
//JOB001  JOB ,'DESC',CLASS=A
//STEP1   EXEC PGM=PROGRAM1
//INPUT   DD DSN=USER.DATA.IN
//OUTPUT  DD DSN=USER.DATA.OUT

DICA: Use loops para múltiplos steps
*/

rexx

/* SOLUCAO_LOGS.rex */
/* Array simulado de jobs */
jobs.1 = "JOB001;08:00;08:05;00"
jobs.2 = "JOB002;08:05;08:07;04"
jobs.3 = "JOB003;08:07;08:10;00"
total_jobs = 3

/* Variáveis de análise */
total_tempo = 0
jobs_com_erro = 0
job_mais_longo = ""
tempo_mais_longo = 0

SAY "=== ANÁLISE DE LOGS DE JOB ==="
SAY ""

DO i = 1 TO total_jobs
  /* Parse para separar campos */
  PARSE VAR jobs.i nome ";" inicio ";" fim ";" rc
  
  /* Calcular tempo (em minutos) */
  PARSE VAR inicio hh_in ":" mm_in
  PARSE VAR fim hh_fim ":" mm_fim
  
  inicio_min = (hh_in * 60) + mm_in
  fim_min = (hh_fim * 60) + mm_fim
  duracao = fim_min - inicio_min
  
  /* Acumular totais */
  total_tempo = total_tempo + duracao
  
  /* Verificar RC */
  IF rc <> "00" THEN DO
    jobs_com_erro = jobs_com_erro + 1
    SAY "ALERTA: Job" nome "falhou com RC =" rc
  END
  
  /* Verificar job mais longo */
  IF duracao > tempo_mais_longo THEN DO
    tempo_mais_longo = duracao
    job_mais_longo = nome
  END
  
  SAY "Job:" nome "- Duração:" duracao "minutos - RC:" rc
END

/* Relatório final */
SAY ""
SAY "=== RELATÓRIO FINAL ==="
SAY "Total de jobs:" total_jobs
SAY "Jobs com erro:" jobs_com_erro
SAY "Tempo total:" total_tempo "minutos"
SAY "Job mais longo:" job_mais_longo "(" tempo_mais_longo "min)"
SAY "Tempo médio:" (total_tempo / total_jobs) "minutos por job"

IF jobs_com_erro > 0 THEN
  SAY "ATENÇÃO: Existem jobs que precisam de análise!"
ELSE
  SAY "SUCESSO: Todos os jobs executaram corretamente!"

rexx

/* 
OBJETIVO: Criar calculadora de IMC
ENTRADA: Peso (kg) e Altura (m)
SAÍDA: IMC e classificação

Classificação:
- Abaixo de 18.5: Abaixo do peso
- 18.5 a 24.9: Normal
- 25 a 29.9: Sobrepeso
- Acima de 30: Obesidade

DICA: Use SAY, PULL e IF/ELSE
*/

rexx

/*
OBJETIVO: Validar nomes de dataset
REGRAS:
1. Máximo 44 caracteres
2. Deve começar com letra
3. Partes separadas por ponto
4. Cada parte: 1-8 caracteres
5. Caracteres válidos: A-Z, 0-9, @#$ (apenas no primeiro caractere da parte)

EXEMPLOS VÁLIDOS:
- USER.DATA01
- PROJ#.TEST.COBOL

DICA: Use LENGTH, SUBSTR, DATATYPE
*/

rexx

/*
OBJETIVO: Converter data do mainframe
ENTRADA: "DDMMYYYY" (ex: "15032024")
SAÍDA: "15/MAR/2024"

MESES: 01=JAN, 02=FEV, ..., 12=DEZ

EXTRA: Validar se data é válida
- Dia: 01-31
- Mês: 01-12
- Ano: 1900-2100

DICA: Use SUBSTR para separar partes
*/

/* SOLUCAO_IMC.rex */
SAY '=== CALCULADORA IMC ==='
SAY 'Digite seu peso (kg):'
PULL peso
SAY 'Digite sua altura (m):'
PULL altura

imc = peso / (altura * altura)
SAY 'Seu IMC é:' FORMAT(imc, , 2)  /* 2 casas decimais */

SELECT
  WHEN imc < 18.5 THEN classificacao = 'Abaixo do peso'
  WHEN imc <= 24.9 THEN classificacao = 'Peso normal'
  WHEN imc <= 29.9 THEN classificacao = 'Sobrepeso'
  OTHERWISE classificacao = 'Obesidade'
END

SAY 'Classificação:' classificacao
SAY '========================'

rexx

/* LENGTH - Tamanho da string */
nome = "Mainframe"
tamanho = LENGTH(nome)  /* = 9 */

/* SUBSTR - Extrai parte da string */
texto = "REXX é incrível"
parte = SUBSTR(texto, 6, 2)  /* = "é" */

/* INDEX - Encontra posição */
pos = INDEX("Hello World", "World")  /* = 7 */

/* WORDS e WORD - Trabalhando com palavras */
frase = "REXX no mainframe z/OS"
quantas = WORDS(frase)  /* = 4 palavras */
terceira = WORD(frase, 3)  /* = "mainframe" */

rexx

/* CONVERSÕES */
num = "123"
valor = num + 1  /* REXX converte automaticamente! */

/* Maiúsculas/minúsculas */
grande = UPCASE("rexx")  /* = "REXX" */
pequena = LOWER("IBM")   /* = "ibm" */

/* Formatação */
centralizado = CENTER("Título", 20, "-")
/* = "-------Título-------" */

/* Busca e substituição */
novo = CHANGE("Olá Mundo", "Mundo", "Mainframe")
/* = "Olá Mainframe" */

rexx

/* ANALISA_JOB.rex - Analisa saída de job */
saida = "JOB1234 ENDED OK - 00:05:23 EXECUTION" 
/* Suponha que isso veio de um arquivo de log */

/* Extrai informações */
IF POS('ENDED OK', saida) > 0 THEN DO
  /* Encontra tempo de execução */
  pos_inicio = INDEX(saida, '00:')
  tempo = SUBSTR(saida, pos_inicio, 8)
  
  /* Extrai número do job */
  primeiro_espaco = INDEX(saida, ' ')
  job_num = SUBSTR(saida, 1, primeiro_espaco-1)
  
  SAY 'Job' job_num 'concluído com sucesso!'
  SAY 'Tempo de execução:' tempo
END ELSE DO
  SAY 'Job não concluído corretamente'
  SAY 'Status:' WORD(saida, 3)
END

rexx

/* Processa lista de datasets */
datasets = "USER.DATA.CLIENTES",
           "USER.DATA.VENDAS",
           "USER.DATA.PRODUTOS"

DO i = 1 TO WORDS(datasets)
  dsname = WORD(datasets, i)
  
  /* Extrai último componente */
  ultimo_ponto = LASTPOS('.', dsname)
  tipo = SUBSTR(dsname, ultimo_ponto + 1)
  
  SAY 'Dataset' i ':' tipo '->' dsname
END

rexx

/* SPACE - Controla espaços entre palavras */
compacto = SPACE("REXX    no   mainframe", 1)

/* COPIES - Repete strings */
separador = COPIES('-', 30)  /* 30 traços */

/* DATATYPE - Verifica tipo */
SAY DATATYPE("123")   /* = NUM */
SAY DATATYPE("ABC")   /* = CHAR */
SAY DATATYPE(" ")     /* = BLANK */

rexx

/* Contar de 1 a 10 */
DO i = 1 TO 10
  SAY 'Iteração' i
END

rexx

/* Loop com condição no início */
contador = 1
DO WHILE contador <= 5
  SAY 'Executando...' contador
  contador = contador + 1
END

rexx

/* Loop com condição no final */
contador = 0
DO UNTIL contador >= 3
  SAY 'Digite um valor (0 para sair):'
  PULL valor
  contador = contador + 1
END

rexx

/* Menu principal de sistema */
DO FOREVER
  SAY '=== MENU PRINCIPAL ==='
  SAY '1. Processar'
  SAY '2. Relatório'
  SAY '3. Sair'
  PULL opcao
  
  IF opcao = 3 THEN LEAVE  /* Sai do loop */
  
  /* Processa opção */
  SELECT
    WHEN opcao = 1 THEN SAY 'Processando...'
    WHEN opcao = 2 THEN SAY 'Gerando relatório...'
    OTHERWISE SAY 'Opção inválida'
  END
END
SAY 'Programa encerrado.'

rexx

/* Simulando leitura de arquivo */
linhas = 5  /* Suponha que temos 5 linhas */

SAY 'Processando' linhas 'linhas...'
DO i = 1 TO linhas
  SAY 'Processando linha' i
  /* Aqui viria código real de processamento */
  IF i = 3 THEN ITERATE  /* Pula a linha 3 */
  SAY 'Linha' i 'processada com sucesso.'
END
SAY 'Processamento completo!'