ca.portal.admin

Re:COBOL Compiler Question

Discussion created by ca.portal.admin on Jun 28, 2006
Can someone steer me in the right direction? I have not made any
changes to the IDMS environment.

I have a programmer that is having a problem compiling an IDMS COBOL
program.

Here's the JCL they are using.

//*
//* Compile and Link COBOL II Program: P4411015
//*
//CL EXEC ICOB9CL,CV=01,
// PARM.COB=('NOCOMPILE(S),MAP,NODYNAM,XREF(SHORT),TEST(NOSYM)'),
// COND.LKED=((4,LT,IDMS),(9,LT,COB))
//IDMS.SYSIN DD DISP=SHR,DSN=TWELLS.LIB.COBOL(P4411015)
//IDMS.SYSLST DD DSN=TWELLS.KEDIT.LISTING,
// DISP=SHR,DCB=(LRECL=133,BLKSIZE=27930,RECFM=FBA)
//COB.SYSPRINT DD DSN=TWELLS.KEDIT.REPORT,
// DISP=MOD,DCB=(LRECL=133,BLKSIZE=27930,RECFM=FBA)
//LKED.SYSLMOD DD DISP=SHR,DSN=IDOT.CV01.PGMLOAD(P4411015)



They get these messages.

COBOL-BAD COMPILER/OPTION/VERB

IDMS DC028001 V1 T862 TASK:ADS2 PROG:ADSOMAIN; VERSION OF COBOL COMPILER
IS NOT RECOGNIZABLE
IDMS DC171030 V1 APPLICATION ABORTED. INVOKED USER PROGRAM P4411015 NOT
AVAILABLE

I have these Cobol compiler options in effect.

Options in effect:
NOADATA
NOADV
APOST
ARITH(COMPAT)
NOAWO
BUFSIZE(23400)
NOCICS
CODEPAGE(1140)
NOCOMPILE(S)
NOCURRENCY
DATA(31)
NODATEPROC
NODBCS
NODECK
NODIAGTRUNC
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
NOFASTSRT
FLAG(I,I)
NOFLAGSTD
INTDATE(ANSI)
LANGUAGE(EN)
LIB
LINECOUNT(60)
NOLIST
MAP
NONAME
NSYMBOL(DBCS)
NONUMBER
NUMPROC(MIG)
OBJECT
OFFSET
NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)
SEQUENCE
SIZE(MAX)
SOURCE
SPACE(1)
NOSQL
NOSSRANGE
NOTERM
TEST(ALL,NOSYM,NOSEPARATE)
NOTHREAD
TRUNC(BIN)
NOVBREF
NOWORD
XREF(SHORT)
YEARWINDOW(1900)

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
COBOL Compiler Question
"Can someone steer me in the right direction? I have not made any
changes to the IDMS environment.

I have a programmer that is having a problem compiling an IDMS COBOL
program.

Here's the JCL they are using.

//*
//* Compile and Link COBOL II Program: P4411015
//*
//CL EXEC ICOB9CL,CV=01,
// PARM.COB=('NOCOMPILE(S),MAP,NODYNAM,XREF(SHORT),TEST(NOSYM)'),
// COND.LKED=((4,LT,IDMS),(9,LT,COB))
//IDMS.SYSIN DD DISP=SHR,DSN=TWELLS.LIB.COBOL(P4411015)
//IDMS.SYSLST DD DSN=TWELLS.KEDIT.LISTING,
// DISP=SHR,DCB=(LRECL=133,BLKSIZE=27930,RECFM=FBA)
//COB.SYSPRINT DD DSN=TWELLS.KEDIT.REPORT,
// DISP=MOD,DCB=(LRECL=133,BLKSIZE=27930,RECFM=FBA)
//LKED.SYSLMOD DD DISP=SHR,DSN=IDOT.CV01.PGMLOAD(P4411015)



They get these messages.

COBOL-BAD COMPILER/OPTION/VERB

IDMS DC028001 V1 T862 TASK:ADS2 PROG:ADSOMAIN; VERSION OF COBOL COMPILER
IS NOT RECOGNIZABLE
IDMS DC171030 V1 APPLICATION ABORTED. INVOKED USER PROGRAM P4411015 NOT
AVAILABLE

I have these Cobol compiler options in effect.

Options in effect:
NOADATA
NOADV
APOST
ARITH(COMPAT)
NOAWO
BUFSIZE(23400)
NOCICS
CODEPAGE(1140)
NOCOMPILE(S)
NOCURRENCY
DATA(31)
NODATEPROC
NODBCS
NODECK
NODIAGTRUNC
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
NOFASTSRT
FLAG(I,I)
NOFLAGSTD
INTDATE(ANSI)
LANGUAGE(EN)
LIB
LINECOUNT(60)
NOLIST
MAP
NONAME
NSYMBOL(DBCS)
NONUMBER
NUMPROC(MIG)
OBJECT
OFFSET
NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)
SEQUENCE
SIZE(MAX)
SOURCE
SPACE(1)
NOSQL
NOSSRANGE
NOTERM
TEST(ALL,NOSYM,NOSEPARATE)
NOTHREAD
TRUNC(BIN)
NOVBREF
NOWORD
XREF(SHORT)
YEARWINDOW(1900)

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: COBOL Compiler Question
"Hi,
That is what I first thought but the I checked one of my own COBOL
programs and I have

NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)

and I do not get such a message.

Pete

Outcomes