*DECK DMLDBST 
      PROC DMLDBST(STSBLK,LENGTH);
  
 #
* *   DMLDBST - DATA BASE STATUS BLOCK INTERFACE ROUTINE
* 
*     J. G. SERPA                                      10/15/78 
* 
* DC  PURPOSE 
* 
*     ISSUE A DATA BASE STATUS BLOCK CALL TO CDCS 
* 
* DC  ENTRY CONDITIONS
* 
* DC  PARAMETERS
* 
*     STSBLK  - ADDRESS OF COMMUNICATION STATUS BLOCK 
* 
*     LENGHT  - LENGTH OF STATUS BLOCK
* 
* DC  ASSUMPTIONS 
* 
*     NONE
* 
* 
* DC  EXIT CONDITIONS 
* 
*     CONTROL IS RETURNED TO THE APPLICATION PROGRAM. 
* 
* DC  CALLING ROUTINES
* 
*     DMLDBST IS CALLED FROM THE APPLICATION PROGRAM
*     AS A RESULT OF A DIRECT CALL TO DMLDBST.
* 
* DC  CALLED ROUTINES 
* 
*     DB$DBST  --  CDCS STATUS BLOCK INTERFACE ROUTINE
* 
* DC  NON-LOCAL VARIABLES 
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     A CALL TO DMLDBST IS INSERTED INTO THE APPLICATION PROGRAM
*     TO DEFINE A STATUS BLOCK FOR CDCS TO RETURN DETAILED STATUS 
*     INFORMATION.
* 
 #
  
#     PARAMETERS PASSED IN CALL                                        #
  
      ARRAY STSBLK;;                   # COMMUNICATION STATUS BLOCK    #
  
      ITEM LENGTH;                     # LENGTH OF STATUS BLOCK        #
  
      XREF PROC DB$DBST;
  
      BEGIN 
      DB$DBST(STSBLK,LENGTH);          # CALL DB$DBST                  #
  
      RETURN; 
      END 
      TERM
