ALERT: Some images may not load properly within the Knowledge Base Article. If you see a broken image, please right-click and select 'Open image in a new tab'. We apologize for this inconvenience.

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

book

Article ID: 16406

calendar_today

Updated On:

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 Datacom/AD 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