Type ASSEMBLE
Source Lines : 379
Fixes Applied : 0
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [Unmodified]
Function
DOS/VS PTF TAPE AND WRITE THE MODULES TO THE USER'S
CMS 'A' DISK.
Attributes
LOAD DMSVPD (CLEAR
GENMOD DMSVPD
THIS ROUTINE IS NON-REUSABLE.
Operation
IF PARAMETERS PASSED ARE VALID, DMSVPD GETS A TAPE READ
BUFFER FROM FREE STORAGE (3440 BYTES) AND PROCEEDS TO READ
TAPE RECORDS UNTIL REACHING END OF FILE(TAPE MARK).
EACH TIME A TAPE RECORD IS READ, A POINTER IS USED TO
MOVE EACH 80-BYTE LOGICAL RECORD TO ANOTHER BUFFER AREA
IN ORDER TO WRITE THE LOGICAL RECORD TO DISK, THUS
'DEBLOCKING' THE TAPE RECORDS.
ALL JCL CARDS ('//') INCLUDING COMMENT CARDS ARE IGNORED.
DMSVPD SEARCHES FOR THE 'CATALX' CARD AND WHEN IT IS FOUND
THE FILENAME IS SAVED IN ORDER TO NAME THE CMS OBJECT FILE
'FILENAME TEXT' WHEN THE WRITING TO DISK IS COMPLETED.
AN IMTERMEDIATE FILE BY THE NAME OF 'FILENAME CMSUT1'
IS USED TO WRITE THE NEW FILE TO DISK, SINCE IT COULD BE
REPLACING A FILE ALREADY ON THE DISK. WHEN THE FILE IS
COMPLETELY WRITTEN TO DISK, THE OLD FILE 'FILENAME TEXT ' IS
ERASED AND THE 'FILENAME CMSUT1' FILE IS RENAMED TO
'FILENAME TEXT'.
IF THE 'SELECT' OPTION IS USED, DMSVPD WILL PROMPT THE USER
WITH THE NAME OF THE VSAM OR AMS FILE WHICH IT HAS EN-
COUNTERED AND IF THE USER ANSWERS 'NO' THE THAT PARTICULAR
FILE WILL NOT BE APPLIED (WRIITEN TO DISK).
DMSVPD WILL APPLY ANY FILE BEGINNING WITH 'IDC' (AMS),
'IKQ' (VSAM), 'IGG0' (VSAM CATALOG) OR ANY VSAM LOGICAL
TRANSIENT ROUTINE WHOSE NAME APPEARS IN THE 'TRANTBL' AREA.
DMSVPD ASSUMES THAT A DOS/VS PTF TAPE IS ATTACHED AS
VIRTUAL DEVICE 181 AND THAT THE TAPE IS POSITIONED AT
THE TAPE FILE TO BE PROCESSED.
ALL FILES ARE WRITTEN TO THE USER'S 'A' DISK.