Type ASSEMBLE
Source Lines : 731
Fixes Applied : 2
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [HRC002DS]
Module
DMSTMA (TAPEMAC)
Function
READ AN IEHMOVE UNLOADED PDS FROM TAPE AND PLACE IT IN
CMS MACLIB(S).
Attributes
DISK RESIDENT
Operation
1. VALIDATE PARAMETERS AND OPTIONS PASSED BY THE USER. IF
ALL OK, ISSUE A GETMAIN FOR UP TO 32768 BYTES OF STORAGE.
FROM STORAGE OBTAINED, BREAK OFF A 4096 BYTE SECTION
FOR MAINTAINING THE MACLIB DICTIONARY. REMAINDER OF THE
BUFFER WILL BE SPLIT FURTHER INTO A BUFFER FOR TAPE I/O
AND IEHMOVE RECORD RECONSTRUCTION.
2. READ THE TAPE, DISPLAYING ANY 'VOL' AND 'HDR' RECORDS
AT THE USER'S TERMINAL, UNTIL A NON-LABEL TYPE RECORD IS
FOUND. VERIFY THAT THE TAPE CONTAINS AN UNLOADED PDS
CREATED BY IEHMOVE AND RETRIEVE PERTINENT INFO FROM THE
DSCB. CONTINUE TO SCAN THE TAPE UNTIL A MEMBER HEADER
RECORD IS FOUND.
3. SET UP NECESSARY PARAMETER INFO TO WRITE THE DISK FILE
AND WRITE A DUMMY 80 BYTE HEADER RECORD TO THE FILE.
4. MOVE THE MEMBER NAME FROM THE MEMBER HDR RECORD ON
TAPE INTO THE CURRENT DICTIONARY ENTRY AND SAVE THE ITEM
NUMBER OF THE FIRST DATA RECORD TO BE WRITTEN IN THE
DICTIONARY ENTRY.
5. RECONSTRUCT THE NEXT IEHMOVE RECORD IN CORE AND TEST
IT'S TYPE. IF IT IS A DATA RECORD, WRITE THE RESULTING 80
BYTE DATA RECORDS TO THE DISK FILE. IF IT IS A MEMBER
HEADER RECORD GO TO STEP 3. OTHERWISE, IGNORE THE RECORD
AND REPEAT THIS STEP.
6. IF THE NUMBER OF ITEMS (80 BYTE RECORDS) EXCEEDS
THE VALUE OF ITEMCT (DEFAULT = 50000),
OR THE DICTIONARY BUFFER BECOMES FULL, THE CHARACTER '2' IS
APPENDED TO THE FILE NAME (OVERLAYS LAST CHARACTER IF FN=8
CHARACTERS) AND PROCESSING CONTINUES. IF 9 MACLIBS ARE
THUSLY FILLED UP, PROCESSING TERMINATES WITH AN ERROR
MESSAGE.
7. AFTER DETERMINING THE NEXT NAME TO USE, THE DICTIONARY
FOR THE CURRENT LIBRARY IS PREPARED AND WRITTEN AT THE END
OF THE FILE AND THE MACLIB HEADER RECORD IS BUILT AND
WRITTEN OVER THE DUMMY HEADER RECORD PUT OUT AT THE
BEGINNING. A CHECK IS MADE TO SEE IF THIS STEP WAS ENTERED
AS A RESULT OF AN EOF ON TAPE. IF SO, PROGRAM EXECUTION
RETURNS CONTROL TO THE USER. IF NOT, EXECUTION PROCEEDS
STEP 3.
Calls to Other Routines
DMSBWR, DMSFNS, DMSAUD, DMSERS, DMSCWR, DMSERR, DMSTIO