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