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

Module

      DMSCLS                                                 *
                                                             *

Function

      DMSCLS CLOSES CMS/DOS FILES ASSOCIATED WITH THE        *
      FOLLOWING DTFS - DTFCN, DTFCD, DTFPR, DTFMT, DTFDI,    *
      DTFCP AND DTFSD.  THE CLOSE OPERATION DEPENDS ON       *
      BOTH DTF TYPE AND DEVICE TYPE AS DETERMINED FROM THE   *
      PUB ASSIGNMENT. ONCE THE DTF TABLE HAS BEEN IDENTIFIED *
      AS CLOSED, A 'CP CLOSE' IS PERFORMED IN THE CASE OF    *
      READER, PRINTER, AND PUNCH.  IF A DISK FILE IS BEING   *
      CLOSED, A 'FINIS FN FT FM' IS PERFORMED.  IF A DISK    *
      WORKFILE IS BEING CLOSED AND DELETFL=NO IS NOT         *
      SPECIFIED, THE WORKFILE IS ERASED (DMSERS).            *
                                                             *

Attributes

      DISCONTIGUOUS SHARED SEGMENT                           *
      REENTRANT                                              *
                                                             *

Operation

DMSCLS IS THE SIMULATED CLOSE ROUTINE USED BY THE *

      CMS/DOS SUPPORT TO CLOSE SUPPORTED DTF TYPES.  DMSCLS  *
      IS USED INSTEAD OF THE MANY $$B-TRANSIENTS             *
      USED BY DOS/VS.                                        *
                                                             *
      DMSCLS PERFORMS THE FOLLOWING MAJOR ACTIVITIES:        *
                                                             *
      1.  DMSCLS OBTAINS ITS WORK AREA FROM FREE STORAGE.    *
                                                             *
      2.  THE PROGRAM THEN SCANS THE LIST OF DTF/ACB FILES   *
          TO BE CLOSED. UPON ENCOUNTERING AN ACB, CONTROL    *
          IS PASSED TO THE VSAM CLOSE ROUTINE ($$BCVSAM)     *
          TO CLOSE THE SPECIFIED ACB.                        *
                                                             *
      3.  ONCE THIS IS ACCOMPLISHED, THE DTF TYPE IS EXAMINED*
          AND CONTROL IS PASSED TO A ROUTINE WHICH CLOSES    *
          THAT PARTICULAR DTF TYPE.                          *
                                                             *
          OPEN IGNORE BIT POSTED - NO ACTION.                *
                                                             *
          UNIT RECORD EQUIPMENT - (DTF TYPES X'02', X '04',  *
          X'08')  RESET OPEN INDICATOR IN DTF.               *
                                                             *
          TAPE WORKFILE (DTF TYPE X'10') -                   *
          IF NOREWIND IS SPECIFIED, THE TAPE IS NOT REWOUND. *
          IF  REWIND/UNLOAD IS SPECIFIED, THE TAPE           *
          IS REWOUND AND UNLOADED.  IF A WRITE COMMAND IS    *
          FOUND IN THE DTF, A TAPE MARK IS WRITTEN.          *
                                                             *
          TAPE DATA FILES (DTF TYPES X'11', X'12', X'14')    *
          IF OUTPUT FILE, AND BLOCKED RECORDS, RETURN CONTROL*
          TO TRUNCS ROUTINE IN LOGIC MODULE VIA SVC 8.       *
          IF OUTPUT FILE, AND UNBLOCKED RECORDS A TAPE MARK  *
          IS WRITTEN.  IF REWIND/UNLOAD IS INDICATED,        *
          THIS ACTION IS TAKEN AND THE DTF IS POSTED CLOSED. *
          IF A TAPE DATA INPUT FILE, AND NO USASI            *
          COBOL CLOSE, THE NORMAL REWIND/UNLOAD IS           *
          DONE IF SPECIFIED.  IF TAPE DATA INPUT FILE,       *
          AND USASI COBOL CLOSE IS SPECIFIED, AND            *
          NONSTANDARD LABEL TAPE, EXIT IS MADE TO USER       *
          LABEL ROUTINE IF SPECIFIED.  IN OTHER INPUT CASES, *
          THE TAPE IS REWOUND/UNLOADED AS SPECIFIED.         *
                                                             *
          DISK FILES (DTFSD/DTFCP/DTFDI)                     *
          IN THE CASE OF OUTPUT FILES, AN EXIT IS MADE TO    *
          THE LOGIC MODULE TO WRITE THE LAST RECORD IF       *
          REQUIRED.  OTHERWISE, FIELDS ARE INITIALIZED TO    *
          CLOSE STATUS IN THE DTF AND A CALL IS MADE         *
          TO FINIS TO CLOSE THE DISK FILE.  IN THE CASE      *
          OF A DISK WORKFILE WHEN DELETFL=NO HAS NOT         *
          BEEN SPECIFIED ON THE DTF MACRO, A CALL IS MADE    *
          TO DMSERS TO ERASE THE WORKFILE.                   *
                                                             *
          IN THE CASE OF DTFCP SYSTEM TAPE FILES,            *
          NO REWIND OR UNLOAD IS PERFORMED. THIS IS NECESSARY*
          FOR COMPILER FILES.                                *
                                                             *
                                                             *
      4.  AFTER EACH DTF TABLE IS INITIALIZED PER THE CLOSE  *
          RULES, A CHECK IS MADE TO SEE IF MORE DTFS REMAIN  *
          TO BE CLOSED.  IF SO, PROCESSING CONTINUES AS OUT- *
          LINED ABOVE IN (3).                                *
                                                             *
      5.  WHEN ALL FILES HAVE BEEN CLOSED, EXIT IS MADE BY   *
          AN SVC 11 TO THE PROBLEM PROGRAM ASSUMING THERE    *
          WERE NO ACBS TO CLOSE.  IF ACBS REMAIN TO BE       *
          CLOSED, AN SVC 2 IS ISSUED FOR $$BCVSAM.  CONTROL  *
          RETURNS TO DMSBOP AND EXIT IS MADE VIA AND SVC 11. *
                                                             *
      6.  WHEN ERRORS ARE ENCOUNTERED, AN APPROPRIATE ERROR  *
          MESSAGE IS ISSUED AND EXIT IS MADE VIA AN SVC 6    *
          (CANCEL - ABNORMAL TERMINATION).                   *

Calls to Other Routines

      DMSTIO - SVC 202                                       *
      DMSFNS - FINIS (BALR)                                  *
      DMSFREB - DMSFREE FOR FREE STORAGE                     *
      'CP CLOSE' TO CLOSE READER, PRINTER AND PUNCH FILES.   *
      DMSXCP - SVC 0 TO PERFORM IO                           *
      DMSERR - ERROR MESSAGES                                *
      DMSERS - TO ERASE DISK WORKFILES.                      *
                                                             *