Type ASSEMBLE
Source Lines : 1,081
Fixes Applied : 2
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R14621DS]
Module
DMSMVE (MOVEFILE COMMAND)
Function
TO TRANSFER DATA BETWEEN TWO SPECIFIED DDNAMES. THE
DDNAMES MAY SPECIFY ANY DEVICES OR DISK FILES
SUPPORTED BY THE CMS SYTEM.
Attributes
REENTRANT, DISK RESIDENT
Operation
THE INPUT DDNAME IS OPENED WITH PARAMETERS SPECIFIED SO THAT
A STANDARD OS DCB EXIT ROUTINE IS TAKEN. (THAT IS, THE OS
SIMULATION ROUTINES FILL IN THE DCB WITH WHATEVER INFORMATION
IS AVAILABLE FROM THE FILEDEF, AND THEN PASS CONTROL TO
AN EXIT ROUTINE IN THE 'MOVE' CODE, TO GIVE IT AN OPPORTUNITY
TO MAKE ANY ADDITIONS OR CHNGES BEFORE THE OPEN IS COMPLETE.)
THE EXIT ROUTNE FILLS IN THE RECFM, LRECL AND BLKSIZE FIELDS,
IF THEY WERE NOT ALREADY FILLED IN BY THE FILEDEF.
THE LOGIC DEPENDS UPON THE INPUT DEVICE TYPE. IF A DISK
FILE, IT IS CHECKED FOR EXISTENCE, AND THE RECFM AND LRECL
FIELDS OF THE DCB ARE FILLED IN FROM THE FST. FOR OTHER
DEVICES, SUITABLE DFAULTS ARE USED IF NOT SPECIFIED IN THE
FILEDEF FOR THE DDNAME.
THE OUTPUT DDNAME IS OPENED, AND SIMILAR ACTION IS TAKEN IN
THE EXIT ROUTINE.
THE DATA IS TRANSFERRED IN A GET-PUT LOOP, WITH TRUNCATION
OR PADDING DONE AS NECESSARY.
IF THE PDS OPTION IS SPECIFIED AND THE INPUT IS FROM
DISK, THE FCBMVPDS BIT IS SET AND AN OS FIND MACRO IS
ISSUED BEFORE AN OUTPUT DCB IS OPENED TO POSITION
THE INPUT FILE AT THE NEXT MEMBER. THE INPUT MEMBER NAME
IS THEN STORED IN THE OUPUT CMSCB FOR USE AS THE OUTPUT
FILENAME. AFTER END OF FILE IS REACHED ON A MEMBER, THE
MESSAGE DMSMVE225I IS TYPED AND THE
OUTPUT DCB IS CLOSED AND CONTROL IS PASSED TO DO A FIND
ON THE NEXT MEMBER. WHEN ALL THE MEMBERS HAVE BEEN
MOVED TO SEPERATE CMS FILES, MOVEFILE TYPES OUT
MESSAGE DMSMVE226I, CLOSES THE INPUT AND OUTPUT DCBS
AND RETURNS CONTROL TO THE CALLER.
AFTER EOF IS REACHED ON THE INPUT DCB, THE DCB'S ARE CLOSED
WITH THE 'LEAVE' OPTION (IN CASE THEY ARE TAPES, TO
PREVENT REWINDING).
Calls to Other Routines
OS MACROS EXECUTED:
FIND SVC 18 POINT TO NEXT MEMBER
OPEN INPUT SVC 19 OPEN INPUT DDNAME
OPEN OUTPUT SVC 19 OPEN OUTPUT DDNAME
GET BALR READ DATA FROM INPUT DCB
PUT BALR WRITE DATA TO OUTPUT DCB
CLOSE LEAVE SVC 20 CLOSE DCB'S (NO REWIND ON TAPE)
GETMAIN SVC 10 ALLOCATE STORAGE AREA
FREEMAIN SVC 10 FREE STORAGE AREA
SYNADEF SVC 68 GET SYNAD ERROR MESSAGE TEXT
SYNADRLS SVC 68 RELEASE SYNADEF MESSAGE BUFFER
CMS FUNCTIONS USED:
OS SIMULATION (SVC 10, 19, 20, 68, GET AND PUT)
STATE SVC 202 TO DETERMINE WHETHER INPUT FILE
EXISTS
STATEW SVC 202 TO DETERMINE WHETHER OUTPUT FILE
EXISTS
DMSERR SVC 203 TO TYPE OUT ERROR MESSAGES
STRINIT SVC 203 TO INITIALIZE STORAGE FOR
GETMAIN
ADTLKP BALR TO DETERMINE WHETHER OUTPUT DISK
IS READ/WRITE