- Postagens: 1
- Obrigados Recebidos: 0
Scripts de Job Control Language (JCL) e automação no mainframe.
Dificuldade em fazer submit com o JCL
- ezequielfc
- Autor do Tópico
- Desconectado
- Novato
-
Less
Mais
17 horas 2 minutos atrás - 16 horas 54 minutos atrás #91
por ezequielfc
Dificuldade em fazer submit com o JCL foi criado 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
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 54 minutos atrás por ezequielfc.
Por favor Entrar ou Registrar para participar da conversa.