CA IDMS IUA EIUA

Expand all | Collapse all

COBOL Compile issues under IDMS 17.0 SP1

  • 1.  COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    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.


  • 2.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    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=3D3DIDMSDMLC
    XXSTEPLIB DD DSN=3D3DTAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=3D3DSH=
    R
    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXZ.LOADLIB,DISP=3D3DSHR
    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=3D3DS=
    HR
    XXSYSCTL DD DSN=3D3DTAXCM.IDMS.&SYSCTL..SYSCTL,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXP.SYSCTL,DISP=3D3DSHR
    XXSYSIDMS DD DSN=3D3DTAXCM.&CVCONT..COPYLIB(&DICT),DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.PROD.COPYLIB(APPLDICT),DISP=3D3DS=
    HR
    XXSYSIPT DD DSN=3D3D&&PAN,DISP=3D3D(OLD,DELETE,DELETE)
    XXSYSPCH DD DSN=3D3D&&DMLC,DISP=3D3D(,PASS),
    XX UNIT=3D3DVIO,SPACE=3D3D(CYL,(3,1),RLSE),
    XX DCB=3D3D(RECFM=3D3DFB,LRECL=3D3D80,BLKSIZE=3D3D0)
    XXSYS001 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYS002 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYS003 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYSLST DD SYSOUT=3D3D*,DCB=3D3DBLKSIZE=3D3D133


    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: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    "I couldn't agree more and I held my nose applying the PTF. But, I believe we heard this fix would be sourced to future releases, though I've not read that anywhere.


  • 3.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax errors in IDMSDMLC,

    Below is the error and below that is the first section of code that receives 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 experienced 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=IDMSDMLC

    XXSTEPLIB DD DSN=TAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=SHR

    XX DD DSN=TAXCM.IDMS.&LOAD..LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.LOADLIB,DISP=SHR

    XX DD DSN=TAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=SHR

    XXSYSCTL DD DSN=TAXCM.IDMS.&SYSCTL..SYSCTL,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXP.SYSCTL,DISP=SHR

    XXSYSIDMS DD DSN=TAXCM.&CVCONT..COPYLIB(&DICT),DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.PROD.COPYLIB(APPLDICT),DISP=SHR

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

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

    XX UNIT=VIO,SPACE=(CYL,(3,1),RLSE),

    XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)

    XXSYS001 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYS002 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYS003 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYSLST DD SYSOUT=*,DCB=BLKSIZE=133



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296
    "
    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 Compile issues under IDMS 17.0 SP1
    "yes, applying the optional bits certainly is an immediate short term but
    .....









    It is strongly recommended to leave DML084 as an error that
    will result in an RC=8 from the IDMSDMLC step. As programs are
    recompiled for r17, the syntax for any FIND/OBTAIN USING DML
    should be corrected to comply with the current syntax.







    one never knows how forgiving the next release of IDMS will be

    Chris Hoelscher
    IDMS/DB2 Database Architect
    Humana Inc
    502-476-2538
    choelscher@humana.com

    you only need to test the programs that you want to work correctly






    From:
    ""Atkinson, Wesley"" <Wesley_Atkinson@DELL.COM>
    To:
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    Date:
    03/01/2010 08:20 AM
    Subject:
    Re: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    Sent by:
    IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



    RO12491 and the setting on OPT00309 will get you a CC=3D4 and adding
    OPT003=
    10 will get you back to a cc=3D0. We installed it and it works.


  • 4.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    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=3D3DIDMSDMLC
    XXSTEPLIB DD DSN=3D3DTAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL -
    DSN=3D3DTAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=3D3DSH=
    R
    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXZ.LOADLIB,DISP=3D3DSHR
    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL -
    DSN=3D3DTAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=3D3DS=
    HR
    XXSYSCTL DD DSN=3D3DTAXCM.IDMS.&SYSCTL..SYSCTL,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXP.SYSCTL,DISP=3D3DSHR
    XXSYSIDMS DD DSN=3D3DTAXCM.&CVCONT..COPYLIB(&DICT),DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL -
    DSN=3D3DTAXCM.PROD.COPYLIB(APPLDICT),DISP=3D3DS=
    HR
    XXSYSIPT DD DSN=3D3D&&PAN,DISP=3D3D(OLD,DELETE,DELETE)
    XXSYSPCH DD DSN=3D3D&&DMLC,DISP=3D3D(,PASS),
    XX UNIT=3D3DVIO,SPACE=3D3D(CYL,(3,1),RLSE),
    XX DCB=3D3D(RECFM=3D3DFB,LRECL=3D3D80,BLKSIZE=3D3D0)
    XXSYS001 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYS002 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYS003 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYSLST DD SYSOUT=3D3D*,DCB=3D3DBLKSIZE=3D3D133


    William M. Allen, Jr.
    ARCH Consulting Associates, Ltd.
    (704) 641-0296



    The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
    "
    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: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    "its not the fix i would object to - its the optional bits that revert
    functionality to a prior release

    i think that turning on the bit(s) is fine as long as it is accompanied
    with an immediate effort to modify the source to comply with the idms
    software - should not be the other way around (since this is only
    enforcing a requirement that has been around forever but must have been
    abused so many times enforcement is now required ...)


    Chris Hoelscher
    IDMS/DB2 Database Architect
    Humana Inc
    502-476-2538
    choelscher@humana.com

    you only need to test the programs that you want to work correctly






    From:
    ""Atkinson, Wesley"" <Wesley_Atkinson@DELL.COM>
    To:
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    Date:
    03/01/2010 12:03 PM
    Subject:
    Re: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    Sent by:
    IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



    I couldn't agree more and I held my nose applying the PTF. But, I believe
    =
    we heard this fix would be sourced to future releases, though I've not
    read=
    that anywhere.


  • 5.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax
    errors in IDMSDMLC,

    Below is the error and below that is the first section of code that
    receives 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
    experienced 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



    The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    "Thanks Chris

    Dick

    Richard Pierce
    (617) 973-8911
    richard.pierce@state.ma.us


  • 6.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    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=3D3DIDMSDMLC
    XXSTEPLIB DD DSN=3D3DTAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL -
    DSN=3D3DTAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=3D3DSH=
    R
    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXZ.LOADLIB,DISP=3D3DSHR
    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL -
    DSN=3D3DTAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=3D3DS=
    HR
    XXSYSCTL DD DSN=3D3DTAXCM.IDMS.&SYSCTL..SYSCTL,DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXP.SYSCTL,DISP=3D3DSHR
    XXSYSIDMS DD DSN=3D3DTAXCM.&CVCONT..COPYLIB(&DICT),DISP=3D3DSHR
    IEFC653I SUBSTITUTION JCL -
    DSN=3D3DTAXCM.PROD.COPYLIB(APPLDICT),DISP=3D3DS=
    HR
    XXSYSIPT DD DSN=3D3D&&PAN,DISP=3D3D(OLD,DELETE,DELETE)
    XXSYSPCH DD DSN=3D3D&&DMLC,DISP=3D3D(,PASS),
    XX UNIT=3D3DVIO,SPACE=3D3D(CYL,(3,1),RLSE),
    XX DCB=3D3D(RECFM=3D3DFB,LRECL=3D3D80,BLKSIZE=3D3D0)
    XXSYS001 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYS002 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYS003 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)
    XXSYSLST DD SYSOUT=3D3D*,DCB=3D3DBLKSIZE=3D3D133


    William M. Allen, Jr.
    ARCH Consulting Associates, Ltd.
    (704) 641-0296



    The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    ADS question
    "(From a non-ADS programmer.) Is it possible to do ""GET STORAGE"" and ""PUT S=
    TORAGE"" commands in ADS code? I don't see them in the ADS reference guide.

    Kay Rozeboom
    State of Iowa
    Information Technology Enterprise
    Department of Administrative Services
    Telephone: 515.281.6139 Fax: 515.281.6137
    Email: Kay.Rozeboom@Iowa.Gov
    "
    IDMS 3rd-party providers forum
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    ADS question
    "(From a non-ADS programmer.) Is it possible to do ""GET STORAGE"" and ""PUT STORAGE"" commands in ADS code? I don't see them in the ADS reference guide.

    Kay Rozeboom
    State of Iowa
    Information Technology Enterprise
    Department of Administrative Services
    Telephone: 515.281.6139 Fax: 515.281.6137
    Email: Kay.Rozeboom@Iowa.Gov
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: ADS question
    "Kay,

    As ADSO manages his own storage this command doesn't exist in ADSO.
    Would you please clarify why you would require this command?

    Regards

    Philippe Jacqmin (Formula OpenSoft Benelux)



  • 7.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax
    errors in IDMSDMLC,

    Below is the error and below that is the first section of code that
    receives 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
    experienced 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=3D3DIDMSDMLC

    XXSTEPLIB DD DSN=3D3DTAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - =
    DSN=3D3DTAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=3D3DSHR

    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..LOADLIB,DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXZ.LOADLIB,DISP=3D3DSHR

    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - =3D
    DSN=3D3DTAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=3D3DSHR

    XXSYSCTL DD DSN=3D3DTAXCM.IDMS.&SYSCTL..SYSCTL,DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXP.SYSCTL,DISP=3D3DSHR

    XXSYSIDMS DD DSN=3D3DTAXCM.&CVCONT..COPYLIB(&DICT),DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - =3D
    DSN=3D3DTAXCM.PROD.COPYLIB(APPLDICT),DISP=3D3DSHR

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

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

    XX UNIT=3D3DVIO,SPACE=3D3D(CYL,(3,1),RLSE),

    XX DCB=3D3D(RECFM=3D3DFB,LRECL=3D3D80,BLKSIZE=3D3D0)

    XXSYS001 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)

    XXSYS002 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)

    XXSYS003 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)

    XXSYSLST DD SYSOUT=3D3D*,DCB=3D3DBLKSIZE=3D3D133



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296



    The information transmitted is intended only for the person or entity to
    which it is addressed and may contain CONFIDENTIAL material. If you
    receive this material/information in error, please contact the sender
    and delete or destroy the material/information.
    "
    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: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    "Hi Dick - yes Chris is correct. The r17 restriction is that you must
    terminate the DML statement with a period or semicolon after specifying
    the sort key in the USING clause, unless the statement is followed by an
    ON clause. It was always documented that multiple field names were
    not allowed on the FIND/OBTAIN WITHIN SET USING SORT KEY DML but not
    properly enforced.

    Thanks,
    Carla


  • 8.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax
    errors in IDMSDMLC,

    Below is the error and below that is the first section of code that
    receives 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
    experienced 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



    The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
    "
    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: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    "i believe ON is an accepted literal to follow the sort -key WITHOUT the
    otherwise required semicolon or period

    Chris Hoelscher
    IDMS/DB2 Database Architect
    Humana Inc
    502-476-2538
    choelscher@humana.com

    you only need to test the programs that you want to work correctly






    From:
    ""Pierce, Richard (DOT)"" <Richard.Pierce@STATE.MA.US>
    To:
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    Date:
    03/11/2010 09:59 AM
    Subject:
    Re: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    Sent by:
    IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



    While investigating the impact of this on our shop, I started to wonder
    if the following would compile correctly with the new restritions.

    OBTAIN MMVR-SACT WITHIN MMVS-SACT-FNCT-X =20
    USING W-SACT-KEY =20
    ON DB-REC-NOT-FOUND =20
    DISPLAY 'SACT NOT FOUND ' W-PARM-REC =20
    GO TO S0500-EXIT. =20

    Any thoughts, comments or ideas?

    Dick

    Richard Pierce
    (617) 973-8911
    richard.pierce@state.ma.us


  • 9.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax
    errors in IDMSDMLC,

    Below is the error and below that is the first section of code that
    receives 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
    experienced 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
    "While investigating the impact of this on our shop, I started to wonder
    if the following would compile correctly with the new restritions.

    OBTAIN MMVR-SACT WITHIN MMVS-SACT-FNCT-X
    USING W-SACT-KEY
    ON DB-REC-NOT-FOUND
    DISPLAY 'SACT NOT FOUND ' W-PARM-REC
    GO TO S0500-EXIT.

    Any thoughts, comments or ideas?

    Dick

    Richard Pierce
    (617) 973-8911
    richard.pierce@state.ma.us


  • 10.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax errors in IDMSDMLC,

    Below is the error and below that is the first section of code that receives 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 experienced 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 Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: COBOL Compile issues under IDMS 17.0 SP1
    "its not the fix i would object to - its the optional bits that revert
    functionality to a prior release

    i think that turning on the bit(s) is fine as long as it is accompanied
    with an immediate effort to modify the source to comply with the idms
    software - should not be the other way around (since this is only
    enforcing a requirement that has been around forever but must have been
    abused so many times enforcement is now required ...)


    Chris Hoelscher
    IDMS/DB2 Database Architect
    Humana Inc
    502-476-2538
    choelscher@humana.com

    you only need to test the programs that you want to work correctly






    From:
    ""Atkinson, Wesley"" <Wesley_Atkinson@DELL.COM>
    To:
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    Date:
    03/01/2010 12:03 PM
    Subject:
    Re: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    Sent by:
    IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



    I couldn't agree more and I held my nose applying the PTF. But, I believe
    =
    we heard this fix would be sourced to future releases, though I've not
    read=
    that anywhere.


  • 11.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax
    errors in IDMSDMLC,

    Below is the error and below that is the first section of code that
    receives 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
    experienced 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=3D3DIDMSDMLC

    XXSTEPLIB DD DSN=3D3DTAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - =
    DSN=3D3DTAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=3D3DSHR

    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..LOADLIB,DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXZ.LOADLIB,DISP=3D3DSHR

    XX DD DSN=3D3DTAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - =3D
    DSN=3D3DTAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=3D3DSHR

    XXSYSCTL DD DSN=3D3DTAXCM.IDMS.&SYSCTL..SYSCTL,DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - DSN=3D3DTAXCM.IDMS.TAXP.SYSCTL,DISP=3D3DSHR

    XXSYSIDMS DD DSN=3D3DTAXCM.&CVCONT..COPYLIB(&DICT),DISP=3D3DSHR

    IEFC653I SUBSTITUTION JCL - =3D
    DSN=3D3DTAXCM.PROD.COPYLIB(APPLDICT),DISP=3D3DSHR

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

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

    XX UNIT=3D3DVIO,SPACE=3D3D(CYL,(3,1),RLSE),

    XX DCB=3D3D(RECFM=3D3DFB,LRECL=3D3D80,BLKSIZE=3D3D0)

    XXSYS001 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)

    XXSYS002 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)

    XXSYS003 DD UNIT=3D3DVIO,SPACE=3D3D(TRK,(30,10),RLSE)

    XXSYSLST DD SYSOUT=3D3D*,DCB=3D3DBLKSIZE=3D3D133



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296



    The information transmitted is intended only for the person or entity to
    which it is addressed and may contain CONFIDENTIAL material. If you
    receive this material/information in error, please contact the sender
    and delete or destroy the material/information.
    "
    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: [IDMSVENDOR-L] Access to Lock Data Used in PMRM?
    "I don't know - as I wrote it is in TSTLCK95 - and this looks like rather old code (don't know whether it was custom?)
    (and in something like ADDPOITM, then I really don't ""get it"")

    Question - how long do locks hold?

    Meaning - like an implicit lock vs an explicit lock vs a KEEP LONGTERM ( and perhaps a KEEP LONGTERM xx UPDGRADE EXCLUSIVE'




    If the KEEP LONGTERM UPGRADE EXCLUSIVE is the problem - should a RELEASE ALL make it let go?

    (Because it appears the locks involved in the stalls seem awfully persistent.)

    Thanks!!
    Cindy Kline
    ASK
    440-829-9275


  • 12.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax
    errors in IDMSDMLC,

    Below is the error and below that is the first section of code that
    receives 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
    experienced 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



    The information transmitted is intended only for the person or entity to
    which it is addressed and may contain CONFIDENTIAL material. If you
    receive this material/information in error, please contact the sender
    and delete or destroy the material/information.
    "
    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 Compile issues under IDMS 17.0 SP1
    "Hi Dick - yes Chris is correct. The r17 restriction is that you must
    terminate the DML statement with a period or semicolon after specifying
    the sort key in the USING clause, unless the statement is followed by an
    ON clause. It was always documented that multiple field names were
    not allowed on the FIND/OBTAIN WITHIN SET USING SORT KEY DML but not
    properly enforced.

    Thanks,=20
    Carla


  • 13.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    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



    The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
    "
    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: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    "yes, applying the optional bits certainly is an immediate short term but
    .....









    It is strongly recommended to leave DML084 as an error that
    will result in an RC=8 from the IDMSDMLC step. As programs are
    recompiled for r17, the syntax for any FIND/OBTAIN USING DML
    should be corrected to comply with the current syntax.







    one never knows how forgiving the next release of IDMS will be

    Chris Hoelscher
    IDMS/DB2 Database Architect
    Humana Inc
    502-476-2538
    choelscher@humana.com

    you only need to test the programs that you want to work correctly






    From:
    ""Atkinson, Wesley"" <Wesley_Atkinson@DELL.COM>
    To:
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    Date:
    03/01/2010 08:20 AM
    Subject:
    Re: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    Sent by:
    IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



    RO12491 and the setting on OPT00309 will get you a CC=3D4 and adding
    OPT003=
    10 will get you back to a cc=3D0. We installed it and it works.


  • 14.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax
    errors in IDMSDMLC,

    Below is the error and below that is the first section of code that
    receives 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
    experienced 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=IDMSDMLC

    XXSTEPLIB DD DSN=TAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=SHR

    XX DD DSN=TAXCM.IDMS.&LOAD..LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.LOADLIB,DISP=SHR

    XX DD DSN=TAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=SHR

    XXSYSCTL DD DSN=TAXCM.IDMS.&SYSCTL..SYSCTL,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXP.SYSCTL,DISP=SHR

    XXSYSIDMS DD DSN=TAXCM.&CVCONT..COPYLIB(&DICT),DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.PROD.COPYLIB(APPLDICT),DISP=SHR

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

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

    XX UNIT=VIO,SPACE=(CYL,(3,1),RLSE),

    XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)

    XXSYS001 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYS002 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYS003 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYSLST DD SYSOUT=*,DCB=BLKSIZE=133



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296
    "
    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 Compile issues under IDMS 17.0 SP1
    "i believe ON is an accepted literal to follow the sort -key WITHOUT the
    otherwise required semicolon or period

    Chris Hoelscher
    IDMS/DB2 Database Architect
    Humana Inc
    502-476-2538
    choelscher@humana.com

    you only need to test the programs that you want to work correctly






    From:
    ""Pierce, Richard (DOT)"" <Richard.Pierce@STATE.MA.US>
    To:
    IDMSVENDOR-L@LISTSERV.IUASSN.COM
    Date:
    03/11/2010 09:59 AM
    Subject:
    Re: [IDMSVENDOR-L] COBOL Compile issues under IDMS 17.0 SP1
    Sent by:
    IDMS 3rd-party providers forum <IDMSVENDOR-L@LISTSERV.IUASSN.COM>



    While investigating the impact of this on our shop, I started to wonder
    if the following would compile correctly with the new restritions.

    OBTAIN MMVR-SACT WITHIN MMVS-SACT-FNCT-X =20
    USING W-SACT-KEY =20
    ON DB-REC-NOT-FOUND =20
    DISPLAY 'SACT NOT FOUND ' W-PARM-REC =20
    GO TO S0500-EXIT. =20

    Any thoughts, comments or ideas?

    Dick

    Richard Pierce
    (617) 973-8911
    richard.pierce@state.ma.us


  • 15.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    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



    The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.
    "
    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 Compile issues under IDMS 17.0 SP1
    "I couldn't agree more and I held my nose applying the PTF. But, I believe =
    we heard this fix would be sourced to future releases, though I've not read=
    that anywhere.


  • 16.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-26-2010 09:46 AM
    Hello All:

    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax
    errors in IDMSDMLC,

    Below is the error and below that is the first section of code that
    receives 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
    experienced 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



    The information transmitted is intended only for the person or entity to
    which it is addressed and may contain CONFIDENTIAL material. If you
    receive this material/information in error, please contact the sender
    and delete or destroy the material/information.
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: [IDMSVENDOR-L] Access to Lock Data Used in PMRM?
    "KEEP LONGTERM... EXCLUSIVE would be problematic. Why is this being done?


  • 17.  Re:COBOL Compile issues under IDMS 17.0 SP1

    Posted 02-27-2010 02:16 AM
    Hello All:



    After upgrading from IDMS 16.0 SP1 to 17.0 SP1 we are receiving syntax errors in IDMSDMLC,

    Below is the error and below that is the first section of code that receives 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 experienced 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=IDMSDMLC

    XXSTEPLIB DD DSN=TAXCM.IDMS.&LOAD..DBA.LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.DBA.LOADLIB,DISP=SHR

    XX DD DSN=TAXCM.IDMS.&LOAD..LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.LOADLIB,DISP=SHR

    XX DD DSN=TAXCM.IDMS.&LOAD..USER.LOADLIB,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXZ.USER.LOADLIB,DISP=SHR

    XXSYSCTL DD DSN=TAXCM.IDMS.&SYSCTL..SYSCTL,DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.IDMS.TAXP.SYSCTL,DISP=SHR

    XXSYSIDMS DD DSN=TAXCM.&CVCONT..COPYLIB(&DICT),DISP=SHR

    IEFC653I SUBSTITUTION JCL - DSN=TAXCM.PROD.COPYLIB(APPLDICT),DISP=SHR

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

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

    XX UNIT=VIO,SPACE=(CYL,(3,1),RLSE),

    XX DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)

    XXSYS001 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYS002 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYS003 DD UNIT=VIO,SPACE=(TRK,(30,10),RLSE)

    XXSYSLST DD SYSOUT=*,DCB=BLKSIZE=133



    William M. Allen, Jr.

    ARCH Consulting Associates, Ltd.

    (704) 641-0296
    "
    IDMS Public Discussion Forum
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP
    IDMS-L@LISTSERV.IUASSN.COM
    IDMS-L@LISTSERV.IUASSN.COM
    SMTP








    Normal

    Normal
    Re: This should be simple but..
    "Hi Chris,

    One solution is to define two views:

    CREATE VIEW sqlschema.PWOR_PTRA (ROWID, col_1,,,col_n) AS
    SELECT PTRA.ROWID, col_1,,,col_n FROM nonsql.PWOR,nonsql.PTRA
    WHERE ""PWOR-PTRA"" PRESERVE PWOR;

    CREATE VIEW sqlschema.PTRA_PCOD (ROWID, col_a,,,col_z) AS
    SELECT PTRA.ROWID, col_a,,,col_z FROM nonsql.PTRA, nonsql.PCOD
    WHERE ""PTRA-PCOD"" PRESERVE PTRA;

    Note that views should be defined in a nonsql schema because a view is not
    allowed in a sql schema.

    Then use ROWID of PTRA to join the two views with PRESERVE.

    SELECT * FROM sqlschema.PWOR_PTRA A, sqlschema.PTRA_PCOD B
    WHERE A.ROWID = B.ROWID PRESERVE A;

    Onni Kukkonen
    Vegasoft