Fórum — COBOL Dicas

Conhecimento que atravessa gerações. Compartilhe o que você sabe.

Dificuldade em fazer submit com o JCL

Publicado

Publicação inicial

10/11/2025 23:30 · Publicado

#81
Sou novo no mundo de mainframe no geral.
Estou tentando fazer um CRUD com Intercomm no Hércules TK5, mas há problemas quando eu vou dar um submit no JCL, e não sei se é algum erro de sintaxe ou qual a causa do erro. Tem alguma forma de eu ver os logs ou alguém verificar para mim se há algum erro?

RFEEDIT  HERC01.JCL.CNTL(COMPCRU1) - 1.10                        COLUMNS 1 72
Command ===>                                                  Scroll ===> CSR
****** ****ZAP****AUTOSAVE********** TOP OF DATA ******************************
000001 //HERC01C JOB (COBOL,CRU1),MSGLEVEL=(1,1),CLASS=A,
000002 //            MSGCLASS=X,NOTIFY=HERC01                               
000003 01*******************************************************             
000004 //* COMPILE E LINK-EDIT DO PROGRAMA CRUDPGM PARA INTERCOMM             
000005 //*******************************************************             
000006 //STEP1  EXEC PGM=IGYCRCTL,                                           
000007 //            PARM='OBJ,NODECK,LIB,RENT'                             
000008 //SYSPRINT DD SYSOUT=*                                                 
000009 //SYSUT1  DD UNIT=SYSDA,SPACE=(CYL,(1,1))                             
000010 //SYSUT2  DD UNIT=SYSDA,SPACE=(CYL,(1,1))                             
000011 //SYSUT3  DD UNIT=SYSDA,SPACE=(CYL,(1,1))                             
000012 //SYSUT4  DD UNIT=SYSDA,SPACE=(CYL,(1,1))                             
000013 //SYSLIN  DD DSN=&&OBJSET,DISP=(NEW,PASS),UNIT=SYSDA,                 
000014 //            SPACE=(TRK,(1,1)),DCB=(BLKSIZE=3200)                   
000015 //*                                                                   
000016 //STEP2  EXEC PGM=IEWL,                                               
000017 //            PARM='RMODE(ANY),AMODE(31),LIST,LET'                   
000018 //SYSLIN DD DSN=&&OBJSET,DISP=(OLD,DELETE)                             
000019          DD DSN=SYS1.INTERCOM.LOADLIB,DISP=SHR                       
000020 //SYSPRINT DD SYSOUT=*                                                 
000021 //SYSLMOD DD DSN=HERC01.INTERCOMM.LOADLIB,                             
000022 //            DISP=SHR,MEMBER=CRUDPGM                                 
000023 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))                               
000024 //                                                                     
000025 /*                                                                     
****** ****ZAP****AUTOSAVE********* BOTTOM OF DATA ****************************
                                                                               
                                                                               
                                             
                                                                      6812K FREE
Agradecimentos: 1 Entre para agradecerRegistros do fórum anterior preservados.
Resposta

12/11/2025 20:04 · Publicado

#82
Pelo que estou vendo está tentando compilar um programa COBOL. tenho um JOB de compilação aqui nesse topico:
https://forum.coboldicas.com.br/index.php/forum/ferramentas-utilitarios/20-hercules-tk5-emulador-de-mainframe
Agradecimentos: 0 Entre para agradecer