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.