*DECK DMLRPT
      PROC DMLRPT (RECPT,COMMENT);
  
#     INTERFACE ROUTINE TO DB$RPT, TO DEFINE A RECOVERY POINT          #
 #
* *   DMLRPT - DEFINE A RECOVERY POINT FOR CDCS 
* 
*     J. G. SERPA                                      10/10/78 
* 
* DC  PURPOSE 
* 
*     ISSUE A CALL TO CDCS TO DEFINE A RECOVERY POINT 
* 
* DC  ENTRY CONDITIONS
* 
* DC  PARAMETERS
* 
*     RECPT  --  RECOVERY POINT NUMBER. RETURNED BY CDCS
* 
*     COMMENT -- USER SUPPLIED COMMENT TO BE WRITTEN TO THE 
*                JOURNAL LOG. 
* 
* DC  ASSUMPTIONS 
* 
*     NONE
* 
* 
* DC  EXIT CONDITIONS 
* 
*     UPON RETURN FROM CDCS, THE RECOVERY POINT RECPT HAS 
*     BEEN DEFINED AND THE "COMMENT" HAS BEEN WRITTEN TO THE
*     JOURNAL LOG FILE. 
*     CONTROL IS RETURNED TO THE APPLICATION PROGRAM. 
* 
* DC  CALLING ROUTINES
* 
*     DMLRPT IS CALLED FROM THE APPLICATION PROGRAM 
*     AS A RESULT OF AN EXPLICIT CALL TO DMLPRT.
* 
* DC  CALLED ROUTINES 
* 
*     DB$RPT  --  CDCS RECOVERY POINT INTERFACE ROUTINE 
* 
* DC  NON-LOCAL VARIABLES 
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     A CALL TO DMLRPT IS INSERTED INTO THE APPLICATION PROGRAM 
*     TO DEFINE A RECOVERY POINT TO CDCS. DMLRPT ISSUES THE CALL
*     TO DB$RPT TO DEFINE SUCH A POINT. 
*     THE POINT NUMBER IS RETURNED TO THE USER IN FIELD "RECPT".
*     CONTROL IS RETURNED TO THE APPLICATION PROGRAM. 
* 
 #
      CONTROL EJECT;
  
#     PARAMETERS PASSED IN CALL                                        #
  
      ITEM RECPT I;                    # RECOVERY POINT NUMBER RETURNED#
                                       # BY CDCS                       #
  
      ITEM COMMENT C(30);              # USER SUPPLIED COMMENT TO BE   #
                                       # WRITTEN TO THE JOURNAL LOG    #
  
      XREF PROC DB$RPT; 
  
      BEGIN 
      DB$RPT(RECPT,COMMENT);           # CALL DB$RPT                   #
  
      RETURN; 
      END 
      TERM
