*DECK DB$FAM
          IDENT DB$FAM
          SST 
          TITLE DB$FAM - CALL ENFAM MACRO 
          COMMENT   CALL ENFAM MACRO
*#
* *   DB$FAM - CALL ENFAM MACRO                  PAGE 1 
* *   M.L.BRANDENBURG                            DATE 05/20/81
* 
* DC  PURPOSE 
* 
*     CALL THE ENFAM MACRO TO SET THE FAMILY NAME.
* 
* DC  ENTRY CONDITION 
* 
*     X1 CONTAINS THE ADDRESS OF FAMILY NAME. 
* 
* DC  EXIT CONDITION
* 
*     EACH CALL REPLACES THE NAME STORED AT ADDR WITH THE 
*     NAME STORED AT THE CONTROL POINT.   AFTER THE FIRST 
*     CALL ADDR CONTAINS THE DEFAULT VALUE OF FAMILY AND
*     THE CONTROL POINT CONTAINS THE PASSED VALUE OF FAMILY.
* 
* DC  CALLED ROUTINE
* 
*     ENFAM MACRO WHICH IS IN OPL IN COMDEC COMCMAC.
* 
* DC  CALLING ROUTINES
* 
*     DB$ATCH* - ATTACH ROUTINE IN CDCS 
*     DB$ATWR* - ATTACH ROUTINE IN INITIALIZATION AND UTILITIES 
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NAME STORED AT ADDRESS PASSED AS PARAMETER. 
*     FAMILY NAME STORED AT CONTROL POINT.
* 
*#
  
          ENTRY DB$FAM
          IFC    EQ,$"OS.NAME"$KRONOS$,1
OPL       XTEXT  COMCMAC
DB$FAM    EQ     *+1S17 
          IFC    EQ,$"OS.NAME"$KRONOS$,1
          ENFAM  X1 
          EQ     DB$FAM 
          END 
