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

Module

       DMSSRV  ( SSERV )

Function

       PROVIDE THE FACILITY TO COPY BOOKS IN THE DOS/VS
       SYSTEM OR PRIVATE SOURCE STATEMENT LIBRARY TO A
       SPECIFIED OUTPUT DEVICE. VALID OUTPUT DEVICES ARE
       CMS DISK FILE, VIRTUAL PRINTER, USER'S CONSOLE,
       AND/OR VIRTUAL PUNCH.

Attributes

       DISK RESIDENT MODULE
       EXECUTES IN USER AREA

Operation

       1. SET UP NECESSARY ADDRESSABILITIES AND SAVE
          THE RETURN REGISTER. ACQUIRE SUPERVISOR KEY
          AND INITIALIZE REUSABILITY FIELDS. VERIFY IF
          IN CMS/DOS ENVIRONMENT.

       2. CHECK THE COMMAND LINE FOR VALID ARGUMENTS
          AND OPTIONS. ENSURE THAT A  BOOK  NAME WAS
          SPECIFIED. SET APPROPIATE SWITCHES FOR EACH
          OPTION SPECIFIED. IF THE 'DISK' OPTION IS
          SPECIFIED OR IMPLIED, ERASE ANY OLD FILE ON
          THE 'A' DISK. IF ERASE RETURNS A CODE OF 36,
          EITHER THE 'A' DISK IS R/O OR IS NOT ATTACHED.

       3. DETERMINE IF READING FROM THE SYSTEM OR PRIVATE
          SOURCE STMNT LIBRARY (PRIVATE IS SEARCHED FIRST)
          & START READING THE APPROPIATE LIBRARY DIRECTORY
          RECORDS TO LOCATE THE SPECIFIED  BOOK. ONCE THE
          BOOK ENTRY IS FOUND, COMPUTE THE DISK ADDRESS OF
          THE  BOOK  DATA BLOCKS.

       4. READ THE BOOK DATA BLOCKS ONE AT A TIME. DECODE
          EACH DATA BLOCK INTO CARD IMAGES. DOS/VS REMOVES
          ALL BLANKS FROM THE CARD IMAGES, THUS THEY MUST
          REPLACED BEFORE THE OUTPUT BUFFER IS WRITTEN TO
          THE OUTPUT DEVICE.

       5. WHEN ALL PROCESSING HAS BEEN DONE, ALL OUTPUT
          DEVICES ARE CLOSED.

       6. A SWITCH TO PROBLEM PROGRAM KEY IS DONE, AND A
          RETURN TO THE CALLER IS MADE PASSING IN REG. 15
          THE RETURN CODE OF THE COMMAND.

Calls to Other Routines

       DMSSTT, DMSERR, DMSERS, DMSKEY, DMKGIO, DMSPIO
       DMSBWR, DMSCWR, DMSCIO, DMSCPF, DMSFNS