*DECK DB$STT
USETEXT RVRSCTX 
      PROC DB$STT;
      BEGIN 
 #
* *   DB$STT                                     PAGE 1 
* *   C O GIMBER                                 2-24-75
* 
* DC  PURPOSE 
* 
*     OUTPUT TOTAL STATISTICS FOR RUN TO OUTPUT LISTING 
*     AND TO THE DAYFILE. 
* 
* DC  ENTRY CONDITIONS
* 
*     ALL PROCESSING FOR THE RUN IS COMPLETE. 
* 
* DC  DESCRIPTION 
* 
 #
      CONTROL EJECT;
      CONTROL NOLIST;                  #RVRSCOMMN#
      CONTROL LIST; 
  
# EXTERNAL REFERENCES#
      XREF FUNC DB$CDIS C(10);         #CONVERT TO DEC DISP BLANK FILL# 
      XREF PROC DB$EPRT;                #PRINT LINE TO OUTPUT FILE# 
      XREF PROC DB$MSG;                #PRINT LINE TO DAYFILE#
  
# MESSAGES# 
  
      ITEM WRTMSG C(40)=" TOTAL WRITES PROCESSED =";
      ITEM DELMSG C(40)=" TOTAL DELETES PROCESSED ="; 
      ITEM REWMSG C(40)=" TOTAL REWRITES PROCESSED =";
  
      ITEM WRTERR C(40)=" TOTAL WRITES NOT PROCESSED =";
      ITEM DELERR C(40)=" TOTAL DELETES NOT PROCESSED ="; 
      ITEM REWERR C(40)=" TOTAL REWRITES NOT PROCESSED =";
      CONTROL EJECT;
 #
*     OUTPUT WRITES PROCESSED.
 #
      C<27,8>WRTMSG = DB$CDIS(TOTLWRITES,8,10," "); 
      C<38>WRTMSG = 0;
      C<39>WRTMSG = 0;
      C<0>WRTMSG = "0"; 
      DB$EPRT(WRTMSG,35); 
      C<0>WRTMSG = " "; 
      DB$MSG(WRTMSG); 
 #
*     OUTPUT TOTAL DELETES PROCESSED. 
 #
      C<27,8>DELMSG = DB$CDIS(TOTLDELETES,8,10," ");
      C<38>DELMSG = 0;
      C<39>DELMSG = 0;
      DB$EPRT(DELMSG,35); 
      DB$MSG(DELMSG); 
 #
*     OUTPUT TOTAL REWRITES PROCESSED.
 #
      C<27,8>REWMSG = DB$CDIS(TOTLREWRITES,8,10," "); 
      C<38>REWMSG = 0;
      C<39>REWMSG = 0;
      DB$EPRT(REWMSG,35); 
      DB$MSG(REWMSG); 
 #
*     OUTPUT TOTAL WRITES NOT PROCESSED.
 #
      IF ERRWRITES NQ 0 THEN
        BEGIN 
        C<31,4>WRTERR = DB$CDIS(ERRWRITES,4,10," ");
        C<38>WRTERR = 0;
        C<39>WRTERR = 0;
        DB$EPRT(WRTERR,35); 
        DB$MSG(WRTERR); 
        END 
 #
*       OUTPUT TOTAL DELETES NOT PROCESSED. 
 #
      IF ERRDELETES NQ 0 THEN 
        BEGIN 
        C<31,4>DELERR = DB$CDIS(ERRDELETES,4,10," "); 
        C<38>DELERR = 0;
        C<39>DELERR = 0;
        DB$EPRT(DELERR,35); 
        DB$MSG(DELERR); 
        END 
 #
*     OUTPUT TOTAL REWRITES NOT PROCESSED.
 #
      IF ERRREWRITES NQ 0 THEN
        BEGIN 
        C<31,4>REWERR = DB$CDIS(ERRREWRITES,4,10," ");
        C<38>REWERR = 0;
        C<39>REWERR = 0;
        DB$EPRT(REWERR,35); 
        DB$MSG(REWERR); 
        END 
      RETURN; 
      END 
      TERM; 
  
