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

Document ID : KB000016406
Last Modified Date : 14/02/2018
Show Technical Document Details
Question:

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
Answer:

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: