Type ASSEMBLE
Source Lines : 784
Fixes Applied : 3
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [HRC002DS]

Module

     DMSTPD (TAPPDS)

Function

       ENABLE USERS TO READ A TAPE CONSISTING OF CARD IMAGES
       MEMBERS OF A PDS AND CREATE CMS DISK FILE(S) FOR EACH
       MEMBER OF THE  DATA SET, OR TO READ A TAPE CONSISTING
       OF UNLOADED PDS AND CREATE CMS DISK FILE(S) FOR  EACH
       MEMBER OF THE  DATA SET. THE PDS OPTION WILL ALLOW TO
       TO READ UNBLOCKED TAPES PRODUCED BY THE  O/S IEBPTPCH
       UTILITY, OR BLOCKED TAPES PRODUCED BY THE O/S IEHMOVE
       UTILITY. THE  UPDATE OPTION WILL PROVIDE THE './ ADD'
       FUNCTION  TO TAPES, BLOCKED OR UNBLOCKED, PRODUCED BY
       THE O/S IEBUPDTE UTILITY.

Attributes

     DISK RESIDENT

Operation

       TAPPDS SETS FLAG  BITS EITHER TO THE  DEFAULT SETTING
       OR  TO  THE  REQUESTED OPTION  SETTING.   IF  A  USER
       FILENAME, FILETYPE, OR TAPE  UNIT IS REQUESTED, THESE
       ARE SAVED IN LOCATIONS NAM1, NAM2, AND TAPID.    TAPE
       RECORDS ARE READ, & THE  END-OF-FILE FLAG  IS CLEARED
       AFTER EACH READ.  IF O/S LABELS ARE ON THE TAPE, THEY
       ARE  TYPED TO  THE TERMINAL  AND THE  NEXT RECORD  IS
       READ.

       IF DATA COLUMNS 1-7 CONTAIN 'MEMBER', THE OPTION BITS
       ARE CHECKED FOR THE PARTITIONED DATA SET REQUEST.  IF
       THERE IS  A PDS REQUEST AND  THE FILE IS  OPEN, FINIS
       IS CALLED TO CLOSE THE OLD FILE, THE USER IS NOTIFIED
       AND THE PROGRAM CONTINUES.  OTHERWISE,
       STATE IS CALLED FOR THE FILE - IF IT EXISTS, ERASE IS
       CALLED.  THE OPEN FILE BIT IS SET ON, AND THE RECORDS
       ARE  BROUGHT IN.   IF THERE  IS NO  PDS REQUEST,  THE
       FIELD  IS IGNORED,  THE  FILE  OPENED, AND  WRBUF  IS
       CALLED  TO  WRITE  THE RECORD  ON  DISK.   SUCCEEDING
       RECORDS GO DIRECTLY TO WRBUF UNTIL TAPPDS  ENCOUNTERS
       EITHER THE NEXT 'MEMBER' CARD (PDS) OR A TAPE MARK IS
       READ (NOPDS). IF THE  'END' OPTION IS SPECIFIED, PRO-
       CESSING CONTINUES UNTIL AN 'END' CARD IS ENCOUNTERED.
       FOR 'NOPDS', THE FILE IS CLOSED, AND PROCESSING STOPS
       WITH THE TAPE POSITIONED AFTER THE 'END' CARD.
       FOR 'PDS', THE FILE IS CLOSED BY CMS  FINIS, THE USER
       IS INFORMED, AND THE  'MAXTEN' COUNTER IS UPDATED AND
       CHECKED.  IF 'MAXTEN' IS REQUESTED, AND THE  LIMIT IS
       REACHED, THE TAPE IS BACKSPACED, THE USER IS INFORMED
       AND THE PROGRAM IS TERMINATED. IF THE 'MAXTEN' OPTION
       IS NOT SPECIFIED, TAPPDS SCANS FOR THE NEXT FILE.


       TAPPDS, WITH THE  'UPDATE' OPTION, WILL SCAN FOR './'
       CARDS, WHICH ARE USED AS 'IEBUPDTE' CONTROL CARDS, IN
       ORDER TO LOAD SOURCE DECKS INTO CMS DISK FILES. TAPPDS
       WILL ONLY RECOGNIZE THE  './ ADD' CARD WITH A 'NAME='
       PARAMETER FROM WHICH TAPPDS GETS THE  CMS FILENAME. A
       DEFAULT FILENAME OF 'TAPPDS' WILL BE  USED IF 'NAME='
       IS MISSING OR FOLLOWED BY A BLANK. A DEFAULT FILETYPE
       OF 'ASSEMBLE' IS USED, UNLESS OTHERWISE SPECIFIED  BY
       THE USER IN THE COMMAND LINE.
       THE 'END' OPTION IS DISABLED WITH THE 'UPDATE' OPTION.
       ALL './' CARDS ARE DELETED BEFORE THE FILE IS WRITTEN
       TO DISK. WHEN A './ ENDUP' CARD IS FOUND, THE CURRENT
       FILE IS CLOSED, THE  USER IS INFORMED, AND PROCESSING
       STOPS WITH NO REPOSITIONING OF THE TAPE.

       IF THE  FIRST RECORD READ SHOWS THAT THE FILE BELONGS
       TO AN UNLOADED PDS, THE DSCB FOR THE DATA SET (RECORD
       2) IS READ, AND THE 'RECFM' AND 'LRECL' ARE SAVED FOR
       LATER USE. THE 1ST. MEMBER HEADER RECORD IS READ. ALL
       DUMMY AND NOTELIST RECORDS ARE IGNORED.  ALL PDS DATA
       RECORDS ARE WRITTEN TO DISK (IF THE DATA SET IS FIXED
       BLOCKED, THE DATA SET IS DEBLOCKD AND WRITTEN TO DISK
       AS FIXED). WHEN THE NEXT MEMBER HEADER RECORD IS READ,
       OR A TAPE MARK IS READ, THE FILE IS CLOSED, THE  USER
       IS INFORMED, AND THE NEW FILE IS OPENED (IF NOT EOF).
       EVERYTIME A NEW MEMBR HEADER RECORD IS READ, STATE IS
       CALLED TO VERIFY IF ANY OLD FILE EXISTS, AND IF FOUND
       ERASE IS CALLED TO ERASE THE OLD FILE.

       AN  ENCOUNTER  OF TWO  TAPE MARKS IN  A ROW  WILL ALSO
       TERMINATE THE PROGRAM.

Calls to Other Routines

       DMSBWR,DMSFNS,DMSSTT,DMSAUDL,DMSERS,DMSCWR,DMSTIO,DMSERR