REXX : Hello World em JCL Batch

 

Um Café no Bellacosa Mainframe

2,167 subscribers

Hello World em JCL Batch

Bellacosa Mainframe

4,424 followers

July 20, 2025

Salve jovem padawan, neste pequeno artigo apresento um JCL explicando com rodar seu primeiro programa REXX no processo BATCH.

O programa é bem pequenino com apenas 4 linhas de código

 /* REXX */
  Say "Hello world!!!!"
  Exit 0
  @@

Explicando cada linha:

1ª /* REXX / indica que é um programa REXX

2ª SAY "Hello World!!!!" exibira a mensagem seja na tela ou na sysout a depender de onde executar

3ª EXIT 0 - encerra o programa e devolve return-code 0 para a operação

4ª @@

O Job devera ser executado no ambiente e a SYSOUT analisada no SDSF.

//REXXJOB1 JOB 'REXX','Hello World',CLASS=A,MSGCLASS=W,               
//         MSGLEVEL=(1,1)
//*
//**********************************************************
//**           REXX em Batch Process                   **
//**********************************************************
//STEP1    EXEC PGM=IEBGENER
//SYSUT1   DD *,DLM=@@
  /* REXX */
  Say "Hello world!!!!"
  Exit 0
  @@
//SYSUT2   DD DSN=&&PDS(PROG1),DISP=(,PASS),UNIT=VIO,
//         SPACE=(CYL,(1,1,1),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DUMMY
//*
//STEP2    EXEC PGM=IRXJCL,PARM='PROG1'
//SYSEXEC  DD DSN=&&PDS,DISP=(OLD,PASS)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//* 

O resultado será exibido numa SYSOUT

Listagem com todos as sysouts no SDSF

Para quem não se recorda, segue o job sendo SUBmetido no JES2.

Espero ter ajudado, qualquer dúvida estou a disposição.