Publicação inicial
#81Sou 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
Agradecimentos: 1
Entre para agradecerRegistros do fórum anterior preservados.