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

Module

      DMSOPL                                                 *
                                                             *

Function

      DMSOPL READS THE APPROPRIATE SYSTEM DIRECTORY RECORDS  *
      AND DIRECTORY HEADER (S) AND CHECKS IF THE SPECIFIED   *
      LIBRARIES CONTAIN ANY ACTIVE MEMBERS.  IT SUPPLIES     *
      THE CALLER WITH THE DISK ADDRESS OF THE SPECIFIED      *
      SYSTEM LIBRARY AND INDICATES WHETHER OR NOT THERE ARE  *
      ACTIVE MEMBERS IN THE LIBRARIES TO BE ACCESSED.  IF    *
      A PRIVATE LIBRARY IS TO BE ACCESSED, IT MUST HAVE BEEN *
      OPENED (USING DMSBOP) PRIOR TO CALLING THIS PHASE AND  *
      ITS DISK ADDRESS MUST BE AVAILABLE IN INTERFACE FIELD  *
      'BUCK1'.                                               *
                                                             *

Attributes

      DISCONTIGUOUS SHARED SEGMENT                           *
      REENTRANT                                              *
                                                             *

Operation

      THE FOLLOWING ACTIVITIES ARE PERFORMED BY DMSOPL IN THE*
      SPECIFIED ORDER:                                       *
                                                             *
                     1.  R2 IS RESTORED FROM THE LTA SAVEAREA*
                         R2 CONTAINS A POINTER TO THE TEN    *
                         BYTE FIELD PASSED TO THE MODULE.    *
                                                             *
                     2.  READ SYSTEM SOURCE STATEMENT        *
                         LIBRARY DIRECTORY RECORD.           *
                                                             *
                     3.  IF LIBRARY EXISTS, READ FIRST       *
                         SYSTEM LIBRARY DIRECTORY BLOCK.     *
                                                             *
                     4.  IF ACTIVE LIBRARY MEMBERS INDICATE  *
                         IN FIELD TO BE PASSED BACK TO CALLER*
                                                             *
                     5.  IF NO SYSTEM SOURCE STATEMENT LIBE  *
                         EXISTS OR AFTER THE SYSTEM SOURCE   *
                         STATEMENT LIBRARY DIRECTORY RECORDS *
                         HAVE BEEN PROCESSED, PREPARE TO     *
                         OPEN THE PRIVATE SOURCE STATEMENT   *
                         LIBRARY.                            *
                                                             *
                     6.  IS THIS A PRIVATE LIBRARY OPEN ?    *
                         (INDICATOR PASSED TO DMSOPL FROM    *
                         CALLER)                             *
                                                             *
                     7.  LOCATE DOSCB FOR PRIVATE SOURCE     *
                         STATEMENT LIBRARY.                  *
                                                             *
                     8.  READ FIRST DIRECTORY BLOCK FOR      *
                         PRIVATE LIBRARY.                    *
                                                             *
                     9.  INDICATE ACTIVE MEMBERS IN THE      *
                         FIELD TO BE PASSED BACK TO THE      *
                         CALLER, IF THEY EXIST               *
                                                             *
                     10.  RETURN TO CALLER VIA SVC 11        *
                                                             *
                     11. WHEN ERRORS ARE ENCOUNTERED,        *
                         AN APPROPRIATE ERROR MESSAGE IS     *
                         ISSUED  AND EXIT MADE VIA AN SVC 6. *
                         (CANCEL - ABNORMAL TERMINATION)     *

Calls to Other Routines

      DMSXCP                                                 *
                                                             *