*DECK DMLFIND 
      PROC DMLFIND(RSTID,BEGID,ERRRTN); 
        BEGIN 
 #
* *   DMLFIND - INQUIRE TRANSACTION INTERFACE    PAGE  1
* *            ROUTINE
* *   H.S.WOO                                    DATE  07/30/80 
* * 
* DC  PURPOSE 
* 
*     ISSUE AN INQUIRE TRANSACTION STATUS REQUEST TO CDCS.
* 
* DC  ENTRY CONDITIONS
* 
*  C  PARAMETERS
* 
*     RSTID -- RESTART IDENTIFIER ASSIGNED
*              BY CDCS(INPUT).
* 
*     BEGID -- BEGIN TRANSACTION IDENTIFIER SUPPLIED
*              BY USER(OUTPUT). 
* 
*     ERRRTRN -- ERROR BRANCH(OPTIONAL) 
* 
*  C  ASSUMPTIONS 
* 
*     COMMON BLOCK DB0000 HAS BEEN CREATED IN 
*     THE APPLICATION PROGRAM.
* 
* DC  EXIT CONDITIONS 
* 
*     UPON RETURN FROM CDCS, ERROR STATUS IS STORED 
*     IN DBSTAT.  CONTROL IS RETURNED TO THE APPLICATION
*     PROGRAM.  ON ERROR, EXIT IS MADE TO THE LABEL 
*     SPECIFIED IN THE ERRRTRN PARAMETER(FTN5). 
* 
* DC  CALLING ROUTINES
* 
*     DMLASK IS CALLED FROM THE APPLICATION PROGRAM 
*     AS A RESULT OF A DML CALL STATEMENT.
*     AS A RESULT OF A DML FINDTRAN STATEMENT.
* 
* DC  CALLED ROUTINES 
* 
*     DB$ASK -- CDCS ASK OBJECT-TIME ROUTINE. 
* 
*     DMLRTRN -- RETURN ROUTINE -- SETS REGISTER TO 
*                RETURN PARAMETER.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     DBSTAT IN COMMON BLOCK DB0000 IS MODIFIED.
* 
* DC  DESCRIPTION 
* 
*     A CALL TO DMLASK IS GENERATED BY THE PREPROCESSOR 
*     AS A RESULT OF A DML FINDTRAN STATEMENT.  DMLASK
*     ISSUES THE ASK REQUEST TO CDCS, THEN RETURNS
*     CONTROL AND ERROR STATUS TO THE APPLICATION 
*     PROGRAM.
 #
        CONTROL EJECT;
#**********************************************************************#
#                                                                      #
#     F O R M A L    P A R A M E T E R    D E C L A R A T I O N S      #
#                                                                      #
        ITEM RSTID   C(10);  # RESTART IDENTIFIER(INPUT)               #
        ITEM BEGID   C(10);  # BEGINTRAN IDENTIFIER(OUTPUT)            #
        ITEM ERRRTN  I;      # (FTN5 ONLY)ERROR RETURN LABEL(OPTIONAL) #
                             # DO NOT REFERENCE, MAY NOT BE PRESENT    #
#                                                                      #
#     X R E F    D E C L A R A T I O N S                               #
#                                                                      #
        XREF PROC DB$ASK;    # CDCS INQUIRE INTERFACE ROUTINE          #
        XREF PROC DMLRTRN;   # SET RETURN REGISTER ROUTINE             #
#                                                                      #
#     C O M M O N    B L O C K    D E C L A R A T I O N S              #
#     F O R    F O R T R A N                                           #
#                                                                      #
        COMMON DB0000;
*CALL DB0DCLS 
#                                                                      #
#**********************************************************************#
                                   #---L O C A L    I T E M S----------#
        ITEM RTNPARM I; 
        CONTROL EJECT;
        CONTROL DISJOINT; 
  
#     E X E C U T A B L E    C O D E    B E G I N S    H E R E         #
  
        DB$ASK(RSTID,BEGID,RTNPARM);   # CALL CDCS INQUIRE INTERFACE   #
                                       # ROUTINE                       #
          DBSTAT = RTNPARM;  # STORE ERROR INFORMATION IN DBSTAT       #
        IF RTNPARM NQ 0                # CDCS/CRM ERROR                #
        THEN
          BEGIN 
          RTNPARM = 1;       # SET RTNPARM TO 1                        #
          END 
        DMLRTRN(RTNPARM);    # SET RETURN REGISTER                     #
        RETURN; 
      END 
      TERM
