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