*DECK DB$RELA 
          IDENT  DB$RELA
*#
* *   DB$RELA - REQUEST OR LABEL MACRO           PAGE  1
* *   E. P. JOHNSON                              DATE  06/11/81 
* * 
* 
* DC  PURPOSE 
* 
*     TO ISSUE THE REQUEST MACRO ON NOS/BE OR THE LABEL MACRO ON NOS. 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
* 
*     THE LOCATION OF THE PARAMETER BLOCK IS IN (X1). 
* 
*     ASSUMPTIONS 
* 
*     THE PARAMETER LIST HAS BEEN PROPERLY FORMATTED. 
* 
* DC  EXIT CONDITIONS 
* 
*     AN ATTEMPT HAS BEEN MADE TO REQUEST OR LABEL THE FILE.
* 
* DC  CALLING ROUTINES
* 
*     DB$BGTF                GET A TAPE FILE. 
* 
* DC  CALLED ROUTINES 
* 
*     LABEL MACRO ON NOS. 
*     REQUEST MACRO ON NOS/BE.
* 
* DC  NON-LOCAL VARIABLES MODIFIED
* 
*     NONE
* 
* DC  DESCRIPTION 
* 
*     - GET THE LOCATION OF THE PARAMETER BLOCK.
* 
*     - IF THE OPERATING SYSTEM IS NOS, THEN ISSUE THE LABEL MACRO. 
*       ELSE ISSUE THE REQUEST MACRO. 
* 
*#
          LIST   F
          ENTRY  DB$RELA
DB$RELA   EQ   *+1S17 
          SA1    X1          (X1) = THE LOCATION OF THE PARAMETER BLOCK.
 NOS      IFC    EQ,$"OS.NAME"$KRONOS$,2
          LABEL  X1 
          ELSE   1           ELSE NOS/BE
          REQUEST X1
          EQ    DB$RELA 
          END 
