Scripts de Job Control Language (JCL) e automação no mainframe.

Dificuldade em fazer submit com o JCL

Mais
16 horas 39 minutos atrás - 16 horas 31 minutos atrás #91 por ezequielfc
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
Ultima edição: 16 horas 31 minutos atrás por ezequielfc.

Por favor Entrar ou Registrar para participar da conversa.

Powered by Fórum Kunena