UIB-DATE-TIME-STAMP VALUE different with 15.1

Article Id: 77113
Status: Published
Updated On: 13-08-2018 07:53
Products:
CA Datacom CA Datacom - AD CA CIS CA Common Services for z/OS CA 90s Services CA Database Management Solutions for DB2 for z/OS CA Common Product Services Component CA Common Services CA Datacom/AD CA ecoMeter Server Component FOC CA Easytrieve Report Generator for Common Services CA Infocai Maintenance CA IPC Unicenter CA-JCLCheck Common Component CA Mainframe VM Product Manager CA Chorus Software Manager CA On Demand Portal CA Service Desk Manager - Unified Self Service CA PAM Client for Linux for zSeries CA Mainframe Connector for Linux on System z CA Graphical Management Interface CA Web Administrator for Top Secret CA CA- Xpertware
Issue/Introduction:

Why is the CA Datacom support for Metacobol Version 15.1 generated UIB-DATE-TIME-STAMP VALUE different than with CA MetaCOBOL+ Version 1.1?

For example, when the translation was run on April 8,2018: 

Version 15.1 generated:
    02 UIB-DATE-TIME-STAMP PIC S9(05) COMP-3 VALUE +42036. 

Version 1.1 generated:
   02 UIB-DATE-TIME-STAMP PIC S9(05) COMP-3 VALUE +82057. 
 

Cause:

A solution was needed for 15.1 to the DLM macro (MCT#DLM).

According to the ​CA Datacom® support for MetaCOBOL - 15.1 documentation section on "Other Generated Data-Names":

UIB-DATE-TIME-STAMP PIC S9(5) COMP-3.

This data item assures a unique UIB. It is intialized to the following at translation: The first byte contains the least significant character of the current day, and the remaining bytes contain the current time. A data item containing the date and time of the access. 
https://docops.ca.com/ca-datacom-metacobol/15-1/en/program-development-ca-datacom-db/program-development-reference/generated-names/other-generated-data-names

But, with 15.1, the first byte contains the least significant character of the current month, rather than the current day.

 

Environment:

z/OS

Resolution:

The VALUE should be the same as was generated with prior CA MetaCOBOL+ Version 1.1.

CA Datacom/DB 15.1 PTF SO04526 is available.