*DECK DB$COM
 PROC DB$COM; 
 BEGIN
 #
* *   DB$COM  - FORCE LOAD COMMONS IN 0,0        PAGE  1
* *   A P WONG                                   DATE  08/03/81 
* 
* DC  PURPOSE 
* 
*     DB$COM IS A DUMMY ROUTINE USED TO FORCE COMMON AREAS TO BE
*     LOADED IN (0,0), INSTEAD OF LOADED IN DIFFERENT OVCAPS. 
* 
*     IT IS ALSO USED TO HOLD IN THE OVCAP CONTAINING DB$JRPT.
* 
* DC  ENTRY CONDITIONS
* 
*     NONE
* 
* DC  EXIT CONDITIONS 
* 
*     NOT APPLICABLE. 
* 
* DC  CALLING ROUTINES
* 
*     DB$JRPT 
* 
* DC  CALLED ROUTINES 
# 
      XREF PROC DB$JRPT;           # JOURNAL LOGGING RECOVERY POINT    #
# 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     THIS ROUTINE JUST *CALLS THE COMMON AREAS THAT NEEDED TO BE 
*     LOADED IN (0,0).
* 
*     THE INTERNAL TASK "RPTASK" CALLS THIS ROUTINE TO INITIATE 
*     A CALL TO DB$JRPT FROM OUTSIDE THE OVCAP. 
*     THIS CAUSES THE OVCAP BIT TO BE SET IN THE INTERNAL TASK RCB, 
*     HOLDING THE OVCAP IN MEMORY AS LONG AS THE TASK IS ACTIVE.
 #
*CALL RELCMDCLS 
*CALL CSLCMDCLS 
*CALL MFPCMDCLS 
*CALL RMCOMDCLS 
  
  
  
#     B E G I N   D B $ C O M   E X E C U T A B L E   C O D E .        #
  
  
      DB$JRPT(1);            # PARAMETER VALUE IDENTIFIES THIS CALL    #
                             # DB$JRPT WILL RETURN IMMEDIATELY         #
      END 
 TERM 
