Type ASSEMBLE
Source Lines : 582
Fixes Applied : 1
Most Recent Version : Wednesday, December 20, 1978
Last Fix ID : [R09217DS]

Module

       DMSPRV  ( PSERV )

Function

       PROVIDE THE FACILITY TO COPY PROCEDURES IN THE
       DOS/VS SYSTEM PROCEDURE LIBRARY TO A SPECIFIED
       OUTPUT DEVICE. VALID OUTPUT DEVICES ARE VIRTUAL
       PRINTER, CMS DISK FILE, 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  PROC. 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 THE SYSTEM PROCEDURE LIBRARY IS
          ACTIVE (IF IT EXISTS) AND START READING THE
          APPROPIATE LIBRARY DIRECTORY RECORDS TO FIND
          THE SPECIFIED PROCEDURE. ONCE THE PROCEDURE
          ENTRY IS FOUND, COMPUTE THE DISK ADDRESS OF
          THE PROCEDURE DATA BLOCKS.

       4. READ THE PROCEDURE DATA BLOCKS ONE AT A TIME.
          DECODE EACH DATA BLOCK INTO CARD IMAGES, AND
          WRITE EACH CARD IMAGE ( AS IS ) 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

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