ca.portal.admin

COBOL Compile issues under IDMS 17.0 SP1

Discussion created by ca.portal.admin on Feb 27, 2010
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
"Were the DML verbs OBTAIN ... USING ... ? Here is a <paste> of a complete IDMS-L thread from earlier this year which may be relevant - HTH - cheers - Gary

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~< start paste>~~~~~~~~~~~~~~~~~~~~~~~~~
Hi Chris - yes RO12491 will be the PTF number which corresponds to TB99850 (which is for z/OS). RO12490 is the z/VSE version of the fix.
These PTFs are going through our internal publication process which involves extensive testing by our QA group before being released publicly. This process usually takes about two weeks provided there are no issues found with the PTFs. I expect these PTFs will be available later next week. The PIB you mentioned (RI12747) documents the new error message introduced by the PTFs. Since it doesn't include a fix that needs tested it was released immediately.

Thanks, Carla

Carla Pereira
CA
Sr. Sustaining Engineer
Tel: +1-508-628-8207
Fax: +1-508-820-4361
Carla.Pereira@ca.com

Outcomes