Type ASSEMBLE
Source Lines : 289
Fixes Applied : 0
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [Unmodified]

Module

       DMSVSR - ROUTINE TO RELEASE VSAM SYSTEM

Function

       TO CLEAN UP AND RELEASE CMS/VSAM

Attributes

       NUCLEUS RESIDENT, RE-ENTRANT

Operation

       1. IF DOS MODE NOT IN EFFECT OR RECURSIVE CALL OR PPEND=0,
          EXITS IMMEDIATELY WITH A RETURN CODE OF 1.

       2. CALL VSAM AUTOMATIC CLOSE ($$BACLOS) TO CLEANUP ANY
          OPEN ACB'S.

       3. CLEARS 'PPEND' (ADDRESS OF ANCHOR-TABLE) IN BGCOM.

       4. CLEAR THE VSAM RESOURCE TABLE IN NUCON.

       5. IF A VSAM SAVED SYSTEM IS PRESENT, IT IS PURGED.

       6. IF THE OS VSAM INTERFACE (DMSVIP) HAS BEEN INITIALIZED,
          PREVIOUSLY ALLOCATED FREE STORAGE AREAS ARE RELEASED,
          THE ADDRESS OF THE INTERFACE BOOTSRAP (DMSVIB) IS RESTORED
          TO THE CVT CELL AND THE DOS ENVIRONMENT IS SET OFF.

       7. RETURNS TO FREE STORAGE LIST OF ACB(S) CREATED BY DMSVIP,
          IF IT WAS NOT RELEASED BY DMSVIP.

       8. RETURNS TO CALLER.

Calls to Other Routines

       $$BACLOS - TO CLOSE ALL OPEN ACB'S