Why does CA Datacom? support for MetaCOBOL "FREE LAST" generate additional MOVEs for the "RELES" call than CA MetaCOBOL+ Version 1.1?

Products

• Datacom
• DATACOM - AD
• CIS
• COMMON SERVICES FOR Z/OS
• 90S SERVICES
• DATABASE MANAGEMENT SOLUTIONS FOR DB2 FOR Z/OS
• COMMON PRODUCT SERVICES COMPONENT
• Common Services
• CA ECOMETER SERVER COMPONENT FOC
• Easytrieve Report Generator for Common Services
• INFOCAI MAINTENANCE
• IPC
• UNICENTER JCLCHECK COMMON COMPONENT
• Mainframe VM Product Manager
• CHORUS SOFTWARE MANAGER
• CA ON DEMAND PORTAL
• CA Service Desk Manager - Unified Self Service
• PAM CLIENT FOR LINUX ON MAINFRAME
• MAINFRAME CONNECTOR FOR LINUX ON MAINFRAME
• GRAPHICAL MANAGEMENT INTERFACE
• WEB ADMINISTRATOR FOR TOP SECRET
• Xpertware

Issue/Introduction

Why does CA Datacom® support for MetaCOBOL "FREE LAST" generate additional MOVEs for the "RELES" call than CA MetaCOBOL+ Version 1.1?

 

Environment

z/OS

Resolution

CA Datacom® support for MetaCOBOL is working as desired.

This is an improvement to assure that the "FREE LAST" generates the MOVE statements for the "RELES" call to CA Datacom/DB is complete to override a possibly wrong value moved by the user program. 

CA MetaCOBOL+ Version 1.1 may have missed those MOVE statements depending on your maintenance level.

 

For example, see the following generated "FREE LAST" statements:

CA Datacom® support for MetaCOBOL 15.1: 

*     16465 FREE LAST TRI-10000-DVW-U                   

           MOVE 'TRI' TO TRI-10000-DVW-U-RA-FILE        

           MOVE CN-DBID478 TO ZZ-DLDB-HW-DBID           

           MOVE ZZ-DLDB-DBID TO TRI-10000-DVW-U-RA-DBID 

           MOVE 'RELES' TO TRI-10000-DVW-U-RA-FUNCTION  

           CALL 'DBNTRY' USING VR-USERID-BLOCK          

 

Versus CA MetaCOBOL+ 1.1: 

*     16487 FREE LAST TRI-10000-DVW-U

         MOVE 'RELES' TO TRI-10000-DVW-U-RA-FUNCTION     

           CALL 'DBNTRY' USING VR-USERID-BLOCK             

 

Additional Information

For additional information, refer to CA Datacom® support for MetaCOBOL - 15.1 
https://docops.ca.com/ca-datacom-metacobol/15-1/en