.*************************************************************@SCPYRT**
.*                                                                    *
.*    Licensed Materials - Property of IBM                            *
.*                                                                    *
.*    Restricted Materials of IBM                                     *
.*                                                                    *
.*    5655-C56                                                        *
.*                                                                    *
.*    (C) Copyright IBM Corp. 1974,1998                               *
.*                                                                    *
.*************************************************************@ECPYRT**
.*                                                                     
         AIF   (T'&LABEL EQ 'O').A                                     
&LABEL   DS    0H                                                      
.A       ANOP                                                          
         TM    GBITS2,GBT2XREF     IS XREF ALLOWED?                    
         BZ    XRF&SYSNDX     BR IF NOT ALLOWED                        
         LA    R14,XREFSIZE   GET SIZE OF ENTRY