ca.portal.admin

COBOL Compile issues under IDMS 17.0 SP1

Discussion created by ca.portal.admin on Feb 26, 2010
Latest reply on Feb 27, 2010 by ca.portal.admin
Hello All:

After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax erro=
rs in IDMSDMLC,

Below is the error and below that is the first section of code that receive=
s this error, the cut and paste from the compile that works is from IDMS 16=
.0 the DMLC syntax errors are from 17.0.

I also have a cut and paste of the JCL for IDMSDMCL, have anyone experience=
d these issues under 17.0 SP1?


- - LISTING OF MESSAGES - -
04055 01886 PERFORM IDMS-STATUS
|
E DML004 Syntax Error
|
E DML004 Syntax Error
05928 03442 PERFORM IDMS-STATUS

|

E DML004 Syntax Error

|

E DML004 Syntax Error

05940 03451 PERFORM IDMS-STATUS.

|

E DML004 Syntax Error
|
E DML004 Syntax Error


06242 00100 PERFORM IDMS-STATUS


|


E DML004 Syntax Error






01884 MOVE WS-TX-YR TO TAX520-II-VAL
TXBII

01885 * OBTAIN TAXII-TBL-REC WITHIN TBL-KEYIX USING TAX520-II-KEY
DMLC0

MOVE 99 TO DML-SEQUENCE


CALL 'IDMS' USING SUBSCHEMA-CTRL


IDBMSCOM (33)


SR520


TBL-KEYIX


TAX520-II-KEY


IDBMSCOM (43);


01886 PERFORM IDMS-STATUS
TXBII



XXDMLC EXEC PGM=3DIDMSDMLC

XXSTEPLIB DD DSN=3DTAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=3DSHR

IEFC653I SUBSTITUTION JCL - DSN=3DTAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=3DSHR

XX DD DSN=3DTAXCM.IDMS.&LOAD..LOADLIB,DISP=3DSHR

IEFC653I SUBSTITUTION JCL - DSN=3DTAXCM.IDMS.TAXZ.LOADLIB,DISP=3DSHR

XX DD DSN=3DTAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=3DSHR

IEFC653I SUBSTITUTION JCL - DSN=3DTAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=3DSHR

XXSYSCTL DD DSN=3DTAXCM.IDMS.&SYSCTL..SYSCTL,DISP=3DSHR

IEFC653I SUBSTITUTION JCL - DSN=3DTAXCM.IDMS.TAXP.SYSCTL,DISP=3DSHR

XXSYSIDMS DD DSN=3DTAXCM.&CVCONT..COPYLIB(&DICT),DISP=3DSHR

IEFC653I SUBSTITUTION JCL - DSN=3DTAXCM.PROD.COPYLIB(APPLDICT),DISP=3DSHR

XXSYSIPT DD DSN=3D&&PAN,DISP=3D(OLD,DELETE,DELETE)

XXSYSPCH DD DSN=3D&&DMLC,DISP=3D(,PASS),

XX UNIT=3DVIO,SPACE=3D(CYL,(3,1),RLSE),

XX DCB=3D(RECFM=3DFB,LRECL=3D80,BLKSIZE=3D0)

XXSYS001 DD UNIT=3DVIO,SPACE=3D(TRK,(30,10),RLSE)

XXSYS002 DD UNIT=3DVIO,SPACE=3D(TRK,(30,10),RLSE)

XXSYS003 DD UNIT=3DVIO,SPACE=3D(TRK,(30,10),RLSE)

XXSYSLST DD SYSOUT=3D*,DCB=3DBLKSIZE=3D133



William M. Allen, Jr.

ARCH Consulting Associates, Ltd.

(704) 641-0296
"
IDMS 3rd-party providers forum
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP
IDMSVENDOR-L@LISTSERV.IUASSN.COM
IDMSVENDOR-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: COBOL Compile issues under IDMS 17.0 SP1
"RO12491 and the setting on OPT00309 will get you a CC=4 and adding OPT00310 will get you back to a cc=0. We installed it and it works.

Outcomes