*DECK DB$BDPF 
USETEXT BRGENTX 
      PROC DB$BDPF((EXTINDEX)); 
      BEGIN 
 #
* *   DB$BDPF - DUMP DIRECTIVE                   PAGE  1
* *   E. P. JOHNSON                              DATE  01/22/81 
* * 
* 
* DC  PURPOSE 
* 
*     TO DUMP AN AREA (VERSION) FILE OR JOURNAL LOG FILE TO TAPE. 
* 
*     **NOTE**
* 
*     THE DUMPING OF AREA (VERSION) FILES IS NOT CURRENTLY SUPPORTED. 
* 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ITEM EXTINDEX I;                 # INDEX INTO THE EXECUTION TABLE#
# 
*     ASSUMPTIONS 
* 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     AN ATTEMPT HAS BEEN MADE TO DUMP THE SPECIFIED FILE.
* 
* DC  CALLING ROUTINES
* 
*     DB$B20B           THE CONTROLLING ROUTINE OF THE (2,0) OVERLAY. 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$BDLG;               # DUMP THE JOURNAL LOG FILE.    #
      XREF PROC DB$BUNT;               # DBREC INTERNAL ERROR PROCESSOR#
      XREF PROC DB$BURP;               # USER REPORT GENERATOR.        #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     - IF THE JOURNAL LOG FILE FLAG IN THE EXECUTION TABLE IS SET, 
*       THEN CALL THE JOURNAL LOG FILE DUMP ROUTINE. ELSE, ABORT DBREC
*       BECAUSE THE DUMPING OF AREA (VERSION) FILES IS NOT CURRENTLY
*       SUPPORTED.
* 
*     - PRINT THE DUMP DIRECTIVE EXECUTION COMPLETE MESSAGE ON THE
*       DBREC OUTPUT FILE.
* 
*     - RETURN TO THE CALLER. 
* 
 #
  
  
# S T A R T   O F   D B $ B D P F   E X E C U T A B L E   C O D E      #
  
  
# IF THE JOURNAL LOG FILE FLAG IN THE EXECUTION TABLE IS SET, THEN     #
# CALL THE JOURNAL LOG FILE DUMP ROUTINE. ELSE, ABORT DBREC BECAUSE    #
# THE DUMPING OF AREA(VERSION) FILES IS NOT CURRENTLY SUPPORTED.       #
  
      IF EXJLFLG[EXTINDEX]
      THEN
        BEGIN 
        DB$BDLG(EXTINDEX);             # DUMP THE JOURNAL LOG FILE.    #
        END 
      ELSE
        BEGIN 
        DB$BUNT(" DB$BDPF-1");         # ABORT DBREC.                  #
  
        END 
  
# PRINT THE DUMP DIRECTIVE EXECUTION COMPLETE MESSAGE ON THE DBREC     #
# OUTPUT FILE.                                                         #
  
      DB$BURP(DFURP07); 
  
# RETURN TO THE CALLER.                                                #
  
      RETURN; 
  
      END 
      TERM
