Type ASSEMBLE
Source Lines : 769
Fixes Applied : 4
Most Recent Version : Tuesday, December 12, 1978
Last Fix ID : [R13662DS]

Module

       DMSSEB (SOEOB - END OF BLOCK)

Function

       CALLS DEVICE I/O ROUTINES TO DO I/O AND SETUP ECB
       AND IOB RETURN CODES.

Attributes

       REENTRANT, SEGMENT RESIDENT

Operation

       EOBROUTN: IF THE FCB OS BIT IS ON, CONTROL IS PASSED
       TO OSREAD. OTHERWISE, IF NO SPECIAL I/O ROUTINE IS
       SPECIFIED IN FCBPROC, CONTROL PASSES TO EOB2. IF THE
       BATCH BIT IS NOT ON AND AN FCBPROC ROUTINE IS SPECIFIED,
       CONTROL IS PASSED TO THE ADDRESS IN FCBPROC. ON RETURN FROM
       FCBPROC, IF THE I/O WAS DONE, CONTROL IS PASSED TO EOBRETRN.
       IF THE I/O WAS NOT DONE, CONTROL IS PASSED TO EOB2.

       OSREAD: DMSROS IS CALLED TO PERFORM A READ OR WRITE
       AND THEN CONTROL IS PASSED TO EOBRETRN.

       EOB2:  IF I/O  IS TO BE PERFORMED OR IF  THERE WAS NO
       ADDRESS  IN FCBPROC,  FCBDEV  IS  PICKED UP  AND
       CONTROL PASSED  TO THE  APPROPRIATE DEVICE  DEPENDENT
       CODE. IN ALL CASES,  WHEN DEVICE DEPENDENT PROCESSING
       IS  COMPLETED, RETURN  IS VIA  EOBRETRN.

       EOBRETRN:  A COMPLETION CODE OF X'42'(ERROR) OR X'7F'
       (NO ERROR) IS STORED IN THE ECB AND IOBECBCC FIELDS
       ALONG WITH A CMS ERROR CODE; THE RESIDUAL COUNT, IF ANY,
       IS STORED IN IOBCSW+6 AND RETURN IS MADE TO THE CALLER.

       CONSOLE:  IF A READ IS SPECIFIED, DMSCRD IS CALLED TO
       READ A RECORD FROM THE CONSOLE, THE RECORD IS MOVED TO THE
       USERS BUFFER AND CONTROL IS PASSED TO EOBRETRN.  IF WRITE
       IS SPECIFIED, DCBRECFM IS CHECKED FOR THE ASA BIT. IF IT
       IS ON, THE FIRST BYTE OF THE RECORD IS USED AS A CHARIAGE
       CONTROL CHARACTER. DMSCWR IS THEN CALLED TO TYPE THE RECORD
       AND CONTROL IS PASSED TO EOBRETRN.

       DISK:  A CHECK IS MADE TO DETERMINE IF DCBRECFM IS
       VARIABLE AND IF THE FILE MODE IS OTHER THAN 4. IF NOT,
       CONTROL IS PASSED TO CKRDWR. OTHERWISE, VARIABLE
       RECORDS ARE READ INTO OR WRITTEN OUT OF A BUFFER
       ONE AT A TIME BY CALLS TO CKRDWR UNTIL THE BUFFER
       IS ENTIRELY READ OR WRITTEN. CONTROL IS THEN PASSED
       TO EOBRETRN.

       CKRDWR:  DMSBRD OR DMSBWR IS CALLED TO READ OR WRITE
       A RECORD. IF AN ERROR CODE OF 9 IS RETURNED, DMSFNS IS
       CALLED TO CLOSE THE FILE AND DMSBRD OR DMSBWR IS CALLED
       AGAIN.  IF WRITE WAS SPECIFIED, CONTROL IS PASSED
       TO EITHER THE VARIABLE BLOCKING ROUTINE, IF IT WAS THE
       CALLER, OR EOBRETRN. IF READ WAS SPECIFIED AND IF ANY
       ERRORS WERE ENCOUNTERED, CONTROL IS RETURNED TO EITHER
       THE VARIABLE BLOCKING ROUTINE, IF IT WAS THE CALLER,
       OR EOBRETRN. IF READ WAS SPECIFIED AND NO ERRORS WERE
       ENCOUNTERED, A CHECK IS MADE OF THE BUFFER TO SEE IF
       A SHORT BLOCK OR EOF RECORD (X'61FFFF61') WAS READ.
       IF AN EOF RECORD WAS READ, AN ERROR CODE IS SET. IF
       A SHORT BLOCK WAS READ, AN INDICATOR IS SET IN
       DCBFDAD TO INSURE THAT ANOTHER READ TO THIS DATA
       SET WILL CAUSE AN EOF ERROR. CONTROL IS THEN RETURNED
       TO EITHER THE VARIABLE BLOCKING ROUTINE, IF IT WAS THE
       CALLER, OR EOBRETRN.

       READR:  DMSCIO IS CALLED WITH THE ADDRESS
       OF THE IOAREA  IN THE PLIST.
       AFTER THE RECORD IS READ IN, CONTROL IS PASSED TO EOBRETRN.

       PUNCH AND PRINT:  RECORDS ARE WRITTEN OUT OF A BUFFER
       ONE AT A TIME BY CALLS TO DMSCIO OR DMSPIO UNTIL THE BUFFER
       IS EMPTY. CONTROL IS THEN RETURNED TO EOBRETRN. IF PRINT
       IS SPECIFIED AND NO CONTROL CHARACTERS ARE SPECIFIED IN
       DCBRECFM, A BLANK IS ADDED TO THE FRONT OF THE RECORD
       BEFORE CALLING DMSPIO.

       TAPE:  A PLIST IS BUILT FROM INFORMATION IN THE FCB AND
       TAPEIO IS CALLED TO READ OR WRITE A BLOCK OF DATA. CONTROL
       IS THEN PASSED TO EOBRETRN.

Calls to Other Routines

       DMSFNS, GETMAIN, DMSBRD, DMSBWR, DMSROS
       DMSCIO, DMSCRD, DMSCWR, DMSPIO, DMSTIO, AND THE FCBPROC
       ROUTINE IF ONE IS SPECIFIED.