Endevor

Hi All,

we are moving from xpediter to debug tool , I need to update the corresponding processors with debug options.

1.Could someone help me with endevor & debug tool compiler for cobol version3 and version 2

2.How to differentiate the versions in the processor in endevor.

3.Sample processor code of a cobol3/cobol2 with debug tool.

Regards,
Dinakar

Dinakar,

You do not need to use any debug compile options for Intertest/Batch or Intertest/CICS. Just do a normal compile in Endevor and Intertest will use the compile listing produced for testing. There are a few compile options that need to be set, I believe they are LIST and MAP. You can use the online or batch utility to add the compile listing from an Endevor listing library into the PROTSYM or you can use the auto-populate feature and just specify the PROTSYM name before testing and Intertest will automatically find the listing and add it to the PROTSYM for you.

Sharon

I built a Processor JCl for Debug tool and am getting below error

C1X0013I PARM=XREF(FULL),NOSEQ,RENT,DATA(31),APOST,MAP,LIST,LIB
C1X0011S STEP COB PROGRAM IGYCRCTL ABENDED, CODE=S013
C1G0129E STEP COB RC (S013) EXCEEDS THE MAX RC (0004) FOR THE PROCESSOR STEP

Something I did mistake in Compilation part.Please find the Processor JCL below.Please advice

//*******************************************************************
//**
//** BATCH COBOL COMPILE AND NCAL LINK
//**
//** DEBUG VERSION
//**
//*******************************************************************
//**
//**
//GCB2DBUG PROC COBSTEP='SYS1.COB2COMP',
// EXPAND='Y',
// LSYSLB1='END0P.NULLLOAD',
// LSYSLB2='END0P.NULLLOAD',
// LSYSLB3='END0P.NULLLOAD',
// MAXRCCOB=4,
// MAXRCLNK=4,
// MONLSYS1=COMPONENTS,
// MONLSYS2=COMPONENTS,
// MONLSYS3=COMPONENTS,
// MONSYS1=COMPONENTS,
// MONSYS2=COMPONENTS,
// MONSYS3=COMPONENTS,
// MONSYS4=COMPONENTS,
// MONSYS5=COMPONENTS,
// MONSYS6=COMPONENTS,
// MONSYS7=COMPONENTS,
// MONSYS8=COMPONENTS,
// MONSYS9=COMPONENTS,
// OUTLIST='END0P.&C1STAGE..&C1SYSTEM..COMPLIST',
// OUTLOAD='END0P.&C1STAGE..&C1SYSTEM..NCALLIB',
// PARMCOB1='NOADV,MAP,LIST,DYNAM,RENT,APOST,NOSSR',
// PARMCOB2='FLAG(I,I),LIB,SIZE(4069K),DATA(24)',
// PARMCOB3='SOURCE',
// PARMLNK='LET,XREF,LIST,MAP,NCAL',
// SPC='10',
// SYSLIB1='END0P.&C1STAGE..&C1SYSTEM..COPYCOB',
// SYSLIB2='END0P.&C1STAGE2..&C1SYSTEM..COPYCOB',
// SYSLIB3='END0P.TURNOVER.&C1SYSTEM..COPYCOB',
// SYSLIB4='END0P.QA.&C1SYSTEM..COPYCOB',
// SYSLIB5='END0P.PROD.&C1SYSTEM..COPYCOB',
// SYSLIB6='END0P.NULLLIB',
// SYSLIB7='END0P.NULLLIB',
// SYSLIB8='END0P.NULLLIB',
// SYSLIB9='END0P.NULLLIB',
// WRKUNIT=SYSDA,
// DBGSTEP1='SYS1.DEBUG.SEQAMOD',
// DBGSTEP2='SYS1.DEBUG.SEQABMOD',
// SYSDEBUG='END0P.&C1STAGE..DEBUG.SYSDEBUG',
// EQALANGX='END0P.&C1STAGE..DEBUG.EQALANGX'
//**
//*******************************************************************
//** **
//** PREALLOCATE WORK DATASETS **
//** **
//*******************************************************************
//**
//INITCOB EXEC PGM=BC1PDSIN
//**
//C1INIT01 DD DSN=&&COBLST,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6118,DSORG=PS)
//C1INIT02 DD DSN=&&LNKLST,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(TRK,(1,2)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=4719,DSORG=PS)
//C1INIT03 DD DSN=&&DBGLST,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6118,DSORG=PS)
//C1INIT04 DD DSN=&&SYSDATA,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6118,DSORG=PS)
//**
//*******************************************************************
//** **
//** CREATE A COPY OF THE ELEMENT IN &&SYSIN **
//** TO BE PASSED TO THE COMPILER **
//** **
//*******************************************************************
//**
//WRITE EXEC PGM=CONWRITE,PARM='EXPINCL(&EXPAND)',MAXRC=0
//*
//C1INCL01 DD DSN=&SYSLIB1,DISP=SHR,MONITOR=&MONSYS1
//C1INCL02 DD DSN=&SYSLIB2,DISP=SHR,MONITOR=&MONSYS2
//C1INCL03 DD DSN=&SYSLIB3,DISP=SHR,MONITOR=&MONSYS3
//C1INCL04 DD DSN=&SYSLIB4,DISP=SHR,MONITOR=&MONSYS4
//C1INCL05 DD DSN=&SYSLIB5,DISP=SHR,MONITOR=&MONSYS5
//C1INCL06 DD DSN=&SYSLIB6,DISP=SHR,MONITOR=&MONSYS6
//C1INCL07 DD DSN=&SYSLIB7,DISP=SHR,MONITOR=&MONSYS7
//C1INCL08 DD DSN=&SYSLIB8,DISP=SHR,MONITOR=&MONSYS8
//C1INCL09 DD DSN=&SYSLIB9,DISP=SHR,MONITOR=&MONSYS9
//ELMOUT DD DSN=&&SYSCIN,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(CYL,(1,2),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440,DSORG=PS)
//**
//**********************************************************************
//** C O B O L I I C O M P I L E **
//**********************************************************************
//* 00006500
//COB EXEC PGM=IGYCRCTL,COND=(0,NE),
// MAXRC=&MAXRCCOB,
// PARM='&PARMCOB1,&PARMCOB2,&PARMCOB3'
//*
//STEPLIB DD DSN=&COBSTEP,DISP=SHR
//SYSLIB DD DSN=&SYSLIB1,DISP=SHR,MONITOR=&MONSYS1
// DD DSN=&SYSLIB2,DISP=SHR,MONITOR=&MONSYS2
// DD DSN=&SYSLIB3,DISP=SHR,MONITOR=&MONSYS3
// DD DSN=&SYSLIB4,DISP=SHR,MONITOR=&MONSYS4
// DD DSN=&SYSLIB5,DISP=SHR,MONITOR=&MONSYS5
// DD DSN=&SYSLIB6,DISP=SHR,MONITOR=&MONSYS6
// DD DSN=&SYSLIB7,DISP=SHR,MONITOR=&MONSYS7
// DD DSN=&SYSLIB8,DISP=SHR,MONITOR=&MONSYS8
// DD DSN=&SYSLIB9,DISP=SHR,MONITOR=&MONSYS9
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//SYSLIN DD DSN=&&SYSLIN(&C1ELEMENT),DISP=(,PASS),UNIT=&WRKUNIT,
// SPACE=(CYL,(1,1)),FOOTPRNT=CREATE,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=3200,DSORG=PS)
//SYSUT1 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT2 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT3 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT4 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT5 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT6 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT7 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSPRINT DD DSN=&&COBLST,DISP=(OLD,PASS)
//SYSUDUMP DD SYSOUT=*
//*
//* DEBUG DATASETS AND OPTIONS FOLLOW 00006500
//SYSPRMO DD *
TEST(NONE,SYM,SEPERATE),LIST,MAP,SOURCE,NONUMBER,XREF(SHORT)
//SYSERRM DD DSN=&&DBGLST,DISP=(OLD,PASS)
// DD DSN=&DBGSTEP1,DISP=SHR
// DD DSN=&DBGSTEP2,DISP=SHR
//SYSDEBUG DD DSN=&SYSDEBUG,DISP=SHR
//**
//**********************************************************************
//* 00006500
//** EQALANGX ASSM01--INPUTS ASSEMBLER SYSDATA AND GENERATES AN ********
//** EQALANGX FILE WHICH CAN BE USED BY THE DEBUG TOOL ********
//* 00006500
//**********************************************************************
//* 00006500
//XTRACT1 EXEC PGM=EQALANGX
//IDILANGX DD DSN=&EQALANGX,DISP=OLD
//SYSADATA DD DSN=&&SYSDATA,DISP=(OLD,PASS)
//* 00006500
//*******************************************************************
//** N C A L L I N K E D I T **
//*******************************************************************
//*
//LKED EXEC PGM=IEWL,PARM='&PARMLNK',MAXRC=&MAXRCLNK,
// COND=(&MAXRCCOB,LT,COB)
//*
//SYSLIN DD DSN=&&SYSLIN,DISP=(OLD,DELETE)
// DD *
NAME &C1ELEMENT(R)
//SYSLIB DD DSN=&LSYSLB1,DISP=SHR,MONITOR=&MONLSYS1
// DD DSN=&LSYSLB2,DISP=SHR,MONITOR=&MONLSYS2
// DD DSN=&LSYSLB3,DISP=SHR,MONITOR=&MONLSYS3
//SYSLMOD DD DSN=&OUTLOAD,DISP=OLD,MONITOR=COMPONENTS,
// FOOTPRNT=CREATE,SPACE=(CYL,(10,10))
//SYSUT1 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSPRINT DD DSN=&&LNKLST,DISP=(OLD,PASS)
//SYSUDUMP DD SYSOUT=*
//*
//*******************************************************************
//** **
//** CONCATENATE THE LISTINGS FROM THE COMPILE AND LINK-EDIT **
//** AND STORE THE NEW LISTING ON-LINE **
//** **
//*******************************************************************
//*
//CONLIST EXEC PGM=CONLIST,COND=EVEN,MAXRC=0,PARM=STORE
//*
//C1LLIBO DD DSN=&OUTLIST,DISP=OLD,MONITOR=COMPONENTS,
// FOOTPRNT=CREATE,SPACE=(CYL,(10,&SPC))
//C1BANNER DD UNIT=&WRKUNIT,SPACE=(TRK,(1,1)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//LIST01 DD DSN=&&DBGLST,DISP=(OLD,PASS)
//LIST02 DD DSN=&&COBLST,DISP=(OLD,PASS)
//LIST03 DD DSN=&&LNKLST,DISP=(OLD,PASS)
//LIST04 DD DSN=&&SYSDATA,DISP=(OLD,PASS)
//*******************************************************************
//* PRINT THE LISTINGS *
//*******************************************************************
//*
//CONLIST EXEC PGM=CONLIST,MAXRC=0,PARM=PRINT,
// COND=EVEN
//C1BANNER DD UNIT=&WRKUNIT,SPACE=(TRK,(1,1)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171,DSORG=PS)
//C1PRINT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650,DSORG=PS)
//LIST01 DD DSN=&&DBGLST,DISP=(OLD,DELETE)
//LIST02 DD DSN=&&COBLST,DISP=(OLD,DELETE)
//LIST03 DD DSN=&&LNKLST,DISP=(OLD,DELETE)
//LIST04 DD DSN=&&SYSDATA,DISP=(OLD,DELETE)

Hi,

the S013 error indicates that you have an open error somewhere. This happens when you have miscoded a data set name.
Your JESMSGLG file will probably also show a S013 error with the data set name fully spelled out.

In your processor, find the data set, correct it and run again. Maybe ensuer your symbolics contain what you think they should contain.
Regards,
Jan

Hi

When I check the JESMSGLG it shows below

******************************** TOP OF DATA **********************************
J E S 2 J O B L O G -- S Y S T E M S Y S A -- N O D E J E S 2 N W K

---- MONDAY, 14 MAY 2012 ----
$HASP373 ICCA043M STARTED - INIT 45 - CLASS J - SYS SYSB
ACF9CCCD USERID ICCA043 IS ASSIGNED TO THIS JOB - ICCA043M
IEF403I ICCA043M - STARTED - TIME=09.32.34
IEC141I 013-14,IGG0191B,ICCA043M,NDVRBAT,SYSLIN,9F05,SMSW13,SYS12135.T093238.
BC1PSCRN: OPEN (F)ESTAE Routine Entered
IDI0034I Fault analysis skipped due to: EXCLUDE option specification (FAST)
IEA995I SYMPTOM DUMP OUTPUT 375
SYSTEM COMPLETION CODE=013 REASON CODE=00000014
TIME=09.32.38 SEQ=11772 CPU=0000 ASID=008B
PSW AT TIME OF ERROR 075C1000 80DF4580 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN

The problem is on the SYSLIN statement according to the error message, but I'm not seeing where the error is. Can anyone else see an error on that statement?

Check your SYSLIN dd in the COB step. You're missing the directory block allocation. So you're getting an S013-14 because the SYSLIN is a sequential file not a PDS.

Kevin

Sent from my iPhone

On May 16, 2012, at 10:57 AM, CA Endevor Global User Community <CommunityAdmin@communities-mail.ca.com> wrote:

Sharon

I built a Processor JCl for Debug tool and am getting below error

C1X0013I PARM=XREF(FULL),NOSEQ,RENT,DATA(31),APOST,MAP,LIST,LIB
C1X0011S STEP COB PROGRAM IGYCRCTL ABENDED, CODE=S013
C1G0129E STEP COB RC (S013) EXCEEDS THE MAX RC (0004) FOR THE PROCESSOR STEP

Something I did mistake in Compilation part.Please find the Processor JCL below.Please advice

//*******************************************************************
//**
//** BATCH COBOL COMPILE AND NCAL LINK
//**
//** DEBUG VERSION
//**
//*******************************************************************
//**
//**
//GCB2DBUG PROC COBSTEP='SYS1.COB2COMP',
// EXPAND='Y',
// LSYSLB1='END0P.NULLLOAD',
// LSYSLB2='END0P.NULLLOAD',
// LSYSLB3='END0P.NULLLOAD',
// MAXRCCOB=4,
// MAXRCLNK=4,
// MONLSYS1=COMPONENTS,
// MONLSYS2=COMPONENTS,
// MONLSYS3=COMPONENTS,
// MONSYS1=COMPONENTS,
// MONSYS2=COMPONENTS,
// MONSYS3=COMPONENTS,
// MONSYS4=COMPONENTS,
// MONSYS5=COMPONENTS,
// MONSYS6=COMPONENTS,
// MONSYS7=COMPONENTS,
// MONSYS8=COMPONENTS,
// MONSYS9=COMPONENTS,
// OUTLIST='END0P.&C1STAGE..&C1SYSTEM..COMPLIST',
// OUTLOAD='END0P.&C1STAGE..&C1SYSTEM..NCALLIB',
// PARMCOB1='NOADV,MAP,LIST,DYNAM,RENT,APOST,NOSSR',
// PARMCOB2='FLAG(I,I),LIB,SIZE(4069K),DATA(24)',
// PARMCOB3='SOURCE',
// PARMLNK='LET,XREF,LIST,MAP,NCAL',
// SPC='10',
// SYSLIB1='END0P.&C1STAGE..&C1SYSTEM..COPYCOB',
// SYSLIB2='END0P.&C1STAGE2..&C1SYSTEM..COPYCOB',
// SYSLIB3='END0P.TURNOVER.&C1SYSTEM..COPYCOB',
// SYSLIB4='END0P.QA.&C1SYSTEM..COPYCOB',
// SYSLIB5='END0P.PROD.&C1SYSTEM..COPYCOB',
// SYSLIB6='END0P.NULLLIB',
// SYSLIB7='END0P.NULLLIB',
// SYSLIB8='END0P.NULLLIB',
// SYSLIB9='END0P.NULLLIB',
// WRKUNIT=SYSDA,
// DBGSTEP1='SYS1.DEBUG.SEQAMOD',
// DBGSTEP2='SYS1.DEBUG.SEQABMOD',
// SYSDEBUG='END0P.&C1STAGE..DEBUG.SYSDEBUG',
// EQALANGX='END0P.&C1STAGE..DEBUG.EQALANGX'
//**
//*******************************************************************
//** **
//** PREALLOCATE WORK DATASETS **
//** **
//*******************************************************************
//**
//INITCOB EXEC PGM=BC1PDSIN
//**
//C1INIT01 DD DSN=&&COBLST,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6118,DSORG=PS)
//C1INIT02 DD DSN=&&LNKLST,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(TRK,(1,2)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=4719,DSORG=PS)
//C1INIT03 DD DSN=&&DBGLST,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6118,DSORG=PS)
//C1INIT04 DD DSN=&&SYSDATA,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(CYL,(5,5)),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6118,DSORG=PS)
//**
//*******************************************************************
//** **
//** CREATE A COPY OF THE ELEMENT IN &&SYSIN **
//** TO BE PASSED TO THE COMPILER **
//** **
//*******************************************************************
//**
//WRITE EXEC PGM=CONWRITE,PARM='EXPINCL(&EXPAND)',MAXRC=0
//*
//C1INCL01 DD DSN=&SYSLIB1,DISP=SHR,MONITOR=&MONSYS1
//C1INCL02 DD DSN=&SYSLIB2,DISP=SHR,MONITOR=&MONSYS2
//C1INCL03 DD DSN=&SYSLIB3,DISP=SHR,MONITOR=&MONSYS3
//C1INCL04 DD DSN=&SYSLIB4,DISP=SHR,MONITOR=&MONSYS4
//C1INCL05 DD DSN=&SYSLIB5,DISP=SHR,MONITOR=&MONSYS5
//C1INCL06 DD DSN=&SYSLIB6,DISP=SHR,MONITOR=&MONSYS6
//C1INCL07 DD DSN=&SYSLIB7,DISP=SHR,MONITOR=&MONSYS7
//C1INCL08 DD DSN=&SYSLIB8,DISP=SHR,MONITOR=&MONSYS8
//C1INCL09 DD DSN=&SYSLIB9,DISP=SHR,MONITOR=&MONSYS9
//ELMOUT DD DSN=&&SYSCIN,DISP=(,PASS,DELETE),
// UNIT=&WRKUNIT,SPACE=(CYL,(1,2),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440,DSORG=PS)
//**
//**********************************************************************
//** C O B O L I I C O M P I L E **
//**********************************************************************
//* 00006500
//COB EXEC PGM=IGYCRCTL,COND=(0,NE),
// MAXRC=&MAXRCCOB,
// PARM='&PARMCOB1,&PARMCOB2,&PARMCOB3'
//*
//STEPLIB DD DSN=&COBSTEP,DISP=SHR
//SYSLIB DD DSN=&SYSLIB1,DISP=SHR,MONITOR=&MONSYS1
// DD DSN=&SYSLIB2,DISP=SHR,MONITOR=&MONSYS2
// DD DSN=&SYSLIB3,DISP=SHR,MONITOR=&MONSYS3
// DD DSN=&SYSLIB4,DISP=SHR,MONITOR=&MONSYS4
// DD DSN=&SYSLIB5,DISP=SHR,MONITOR=&MONSYS5
// DD DSN=&SYSLIB6,DISP=SHR,MONITOR=&MONSYS6
// DD DSN=&SYSLIB7,DISP=SHR,MONITOR=&MONSYS7
// DD DSN=&SYSLIB8,DISP=SHR,MONITOR=&MONSYS8
// DD DSN=&SYSLIB9,DISP=SHR,MONITOR=&MONSYS9
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//SYSLIN DD DSN=&&SYSLIN(&C1ELEMENT),DISP=(,PASS),UNIT=&WRKUNIT,
// SPACE=(CYL,(1,1)),FOOTPRNT=CREATE,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=3200,DSORG=PS)
//SYSUT1 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT2 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT3 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT4 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT5 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT6 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSUT7 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSPRINT DD DSN=&&COBLST,DISP=(OLD,PASS)
//SYSUDUMP DD SYSOUT=*
//*
//* DEBUG DATASETS AND OPTIONS FOLLOW 00006500
//SYSPRMO DD *
TEST(NONE,SYM,SEPERATE),LIST,MAP,SOURCE,NONUMBER,XREF(SHORT)
//SYSERRM DD DSN=&&DBGLST,DISP=(OLD,PASS)
// DD DSN=&DBGSTEP1,DISP=SHR
// DD DSN=&DBGSTEP2,DISP=SHR
//SYSDEBUG DD DSN=&SYSDEBUG,DISP=SHR
//**
//**********************************************************************
//* 00006500
//** EQALANGX ASSM01--INPUTS ASSEMBLER SYSDATA AND GENERATES AN ********
//** EQALANGX FILE WHICH CAN BE USED BY THE DEBUG TOOL ********
//* 00006500
//**********************************************************************
//* 00006500
//XTRACT1 EXEC PGM=EQALANGX
//IDILANGX DD DSN=&EQALANGX,DISP=OLD
//SYSADATA DD DSN=&&SYSDATA,DISP=(OLD,PASS)
//* 00006500
//*******************************************************************
//** N C A L L I N K E D I T **
//*******************************************************************
//*
//LKED EXEC PGM=IEWL,PARM='&PARMLNK',MAXRC=&MAXRCLNK,
// COND=(&MAXRCCOB,LT,COB)
//*
//SYSLIN DD DSN=&&SYSLIN,DISP=(OLD,DELETE)
// DD *
NAME &C1ELEMENT(R)
//SYSLIB DD DSN=&LSYSLB1,DISP=SHR,MONITOR=&MONLSYS1
// DD DSN=&LSYSLB2,DISP=SHR,MONITOR=&MONLSYS2
// DD DSN=&LSYSLB3,DISP=SHR,MONITOR=&MONLSYS3
//SYSLMOD DD DSN=&OUTLOAD,DISP=OLD,MONITOR=COMPONENTS,
// FOOTPRNT=CREATE,SPACE=(CYL,(10,10))
//SYSUT1 DD UNIT=&WRKUNIT,SPACE=(CYL,(3,5))
//SYSPRINT DD DSN=&&LNKLST,DISP=(OLD,PASS)
//SYSUDUMP DD SYSOUT=*
//*
//*******************************************************************
//** **
//** CONCATENATE THE LISTINGS FROM THE COMPILE AND LINK-EDIT **
//** AND STORE THE NEW LISTING ON-LINE **
//** **
//*******************************************************************
//*
//CONLIST EXEC PGM=CONLIST,COND=EVEN,MAXRC=0,PARM=STORE
//*
//C1LLIBO DD DSN=&OUTLIST,DISP=OLD,MONITOR=COMPONENTS,
// FOOTPRNT=CREATE,SPACE=(CYL,(10,&SPC))
//C1BANNER DD UNIT=&WRKUNIT,SPACE=(TRK,(1,1)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171)
//LIST01 DD DSN=&&DBGLST,DISP=(OLD,PASS)
//LIST02 DD DSN=&&COBLST,DISP=(OLD,PASS)
//LIST03 DD DSN=&&LNKLST,DISP=(OLD,PASS)
//LIST04 DD DSN=&&SYSDATA,DISP=(OLD,PASS)
//*******************************************************************
//* PRINT THE LISTINGS *
//*******************************************************************
//*
//CONLIST EXEC PGM=CONLIST,MAXRC=0,PARM=PRINT,
// COND=EVEN
//C1BANNER DD UNIT=&WRKUNIT,SPACE=(TRK,(1,1)),
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171,DSORG=PS)
//C1PRINT DD SYSOUT=*,
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650,DSORG=PS)
//LIST01 DD DSN=&&DBGLST,DISP=(OLD,DELETE)
//LIST02 DD DSN=&&COBLST,DISP=(OLD,DELETE)
//LIST03 DD DSN=&&LNKLST,DISP=(OLD,DELETE)
//LIST04 DD DSN=&&SYSDATA,DISP=(OLD,DELETE)
Posted by:dinakarbabu
--
CA Communities Message Boards
98112119
mb.2255613.98109579@myca-email.ca.com
https://communities.ca.com

dinakarbabu wrote:

Hi All,

we are moving from xpediter to debug tool

Hi Dinakar,

When you say "debug tool", are you referring to IBM's Debug Tool?

Some of the answers refer to InterTest, which is something completely different (or very similar but sold by a different vendor... :smile )

Cheers

Charles E Gaskell

dinakarbabu wrote:

Hi All,

we are moving from xpediter to debug tool

Hi Dinakar,

When you say "debug tool", are you referring to IBM's Debug Tool?

Some of the answers refer to InterTest, which is something completely different (or very similar but sold by a different vendor... :smile )

Cheers

Charles E Gaskell

Hello,

Did anyone see the following messages coming back to Endevor processor, from CICS 6.5.0 COMMAND LANGUAGE TRANSLATOR, which is causing error msg C1G0129E when trying to ADD a Cics component thru Endevor?

CICS 6.5.0 COMMAND LANGUAGE TRANSLATOR
TRANSLATOR LOGIC ERROR DETECTED - M15:13
CALLED FROM MODULE PUTLINE
CALLED FROM MODULE DFHEIM07
CALLED FROM MODULE DFHEIM01
CICS COMMAND LANGUAGE TRANSLATOR ABNORMALLY TERMINATED.
******************************** BOTTOM OF DATA ********

Thank you in advanced and regards.

Hi Eraldo,

C1G0129E means that the return code of the step is higher than the maximum RC set for the step on the MAXRC statement.
The reason for this high return code is most likely the logic error that the translator encountered.

Although it is not impossible that Endevor is involved in the translator error, it is not likely. Endevor allocates the files of your processor step and then attaches the processor program. The processor program then should work the same way as if it were executed in a standard batch job.

The easiest way to prove that Endevor is not involved, is to run the translator outside of Endevor with the same input and work files as in the processor step. If it gives the same errors then you know that the owner of the translator is the sole responsible for the case.
If the compile outside of Endevor does not fail, then you still need to contact the owner of the translator becuase it is issuing a message which can only be interpreted and debugged by the owner. If the third party thinks the error occurs because of Endevor interference then we should set up a 3 way investigation, where the thrid party tells us why they think Endevor is causing the change in behavior.

Such a three way investigation seems like a cumbersome process, but in real life it works well with most vendors, and IBM is not an exception.

Regards,
Jan

Dinakar,

I think Kevin is right.
You try to use a member with a PS file. Define it as a PO file.
And this has nothing to do with the IBM Debug Tool...I believe...

Questions:
[dinakar]
1.Could someone help me with endevor & debug tool compiler for cobol version3 and version 2
2.How to differentiate the versions in the processor in endevor.
3.Sample processor code of a cobol3/cobol2 with debug tool.
[dinakar]

Answers:
To 1.:
perhaps but we have "Enterprise COBOL for z/OS" (It's version 3, right?)
To 2.:
with two different processor groups.
To 3.:
see my explanation below...



For using the Debug Tool you have to do something in your processor:

1. create two new symbolics:

a. SYSDEBUG==&SYSUID..something.SYSDEBUG
Note:
Dataset information:
Organization . . . : PO
Record format . . . : FB
Record length . . . : 1024
Block size . . . . : 31744
1st extent cylinders: 3000
Secondary cylinders : 500
Data set name type : LIBRARY


b. DBGLIB=&HLQSYSE..EQA.CUSTLOAD
Note:
&HLQSYSE is our HLQ when we install IBM files...
In this file you find the IBM exit "EQADBCXT" for debugging.
If it is not "EQA.CUSTLOAD" in your installation, you have to search for the LIB where "EQADBCXT" resides.
(perhaps 'EQAW.SEQAMOD'??)



2. Then create a sidefile in the Cobol compile step:
e.g.:
//SYSDEBUG DD DISP=SHR,MONITOR=COMPONENTS,FOOTPRNT=CREATE,
// DSN=&SYSDEBUG(&C1ELEMENT)


3. Then concatinate following compiler parms to your other cparms:
"TEST(NONE,SYM,SEPARATE),NOOPT"
Note:
(NOOPT for full support of debugging)


4.In the link step you have to do:
a. add a new input DD to SYSLIN:
e.g.:
DD DISP=(OLD,DELETE),DSN=&&RXP$LS1

Note:
In the RXP$LS1 file was filled with a statement before:
INCLUDE DBGLIB(EQADBCXT)
(EQADBCXT is the IBM exit that let you catch the program with the debug tool)

b. add a new DD name to your LINK step:
//DBGLIB DD DISP=SHR,MONITOR=COMPONENTS,DSN=&DBGLIB


=> I think that's all what you have to do in Endevor.
To catch the program for debugging is another shoe ... ;-)

I hope it helps a little bit...

regards,
Bridgestone

Endorsement:
Here are some examples from the IBM:
http://pic.dhe.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=%2Fcom.ibm.apa.doc_10.1%2Fcazaug031003.htm