*DECK DB$ATCR 
          IDENT  DB$ATCR
          IPARAMS 
*#
* *   DB$ATCR                                    PAGE  1
* *   C O GIMBER                                 2/24/76
* 
* DC  PURPOSE 
* 
*     ISSUE PF ATTACH WITH RECALL 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
* 
*     ADDRESS 5TH WORD FDB (NOS/BE) 
*     ADDRESS OF FET (NOS)
*#
  
          LIST   F
          ENTRY  DB$ATCR
DB$ATCR   EQ   *+1S17 
          SA1    X1          (X1) = ADDRESS 5TH WORD FDB OR FET 
NOSBE     IFC    EQ,*"OS.NAME"*SCOPE *
          ATTACH X1,RC
NOSBE     ENDIF 
NOS       IFC    EQ,*"OS.NAME"*KRONOS*
          ATTACH X1 
NOS       ENDIF 
          EQ   DB$ATCR
          END 
