*        %GOTO AQEBSL;       /* BILINGUAL MAPPING            /*     /*  00050021
         MACRO                                                          00100021
         IHAAQE   &TYPE                                                 00150021
*                                                                       00152021
*        RELEASE 1 AOS, 11/3/71, LEVEL=1                                00154021
*                                                                       00156021
         AIF   ('&TYPE' EQ 'INTERNAL').EQU                              00160021
AQESECT  DSECT ,TCBAQE               ALLOCATED QUEUE ELEMENT            00200021
AQEPTR   DS    A                     ADDRESS OF PREVIOUS AQE            00250021
AQELEN   DS    F                     LENGTH OF ALLOCATED AREA           00300021
         MEXIT                                                          00330021
.EQU     ANOP                                                           00330421
AQEPTR   EQU   0                     ADDRESS OF PREVIOUS AQE            00332021
AQELEN   EQU   4                     LENGTH OF ALLOCATED AREA           00334021
         MEND  , */                                                     00350021
*%AQEBSL:   ;                                                           00400021
* DECLARE                                                               00450021
*                                                                       00460021
*/*      RELEASE 1 AOS, 11/3/71, LEVEL=1                             */ 00470021
*                                                                       00480021
*   1 AQESECT  BASED(TCBAQE),        /* ALLOCATED QUEUE ELEMENT      */ 00500021
*   2 AQEPTR   PTR(31),              /* ADDRESS OF PREVIOUS AQE      */ 00550021
*   2 AQELEN   FIXED(31);            /* LENGTH OF ALLOCATED AREA     */ 00600021