*        %GOTO QMNGRBSL;                                             /* 05000000
         MACRO                                                          10000000
&NAME    QMNGRIO                                                        15000000
*      LINKAGE MACRO FOR JES QUEUE MANAGER                              20000000
&NAME    L     15,16(0,0)               LOAD CVT POINTER                25000000
         USING CVTMAP,15                                                30000000
         L     15,CVTJESCT              LOAD JESCT POINTER              35000000
         USING JESCT,15                                                 40000000
         L     15,JESRESQM              LOAD QUEUE MNGR ENTRY POINT     45000000
         DROP  15                                                       50000000
         BALR  14,15                    LINK TO QUEUE MANAGER           55000000
         MEND  , */                                                     60000000
*%QMNGRBSL:;                                                            65000000
*/* LINKAGE MACRO FOR JES QUEUE MANAGER                              */ 70000000
*        DCL   QMPTR REG(15) PTR(31);                                   75000000
*        QMPTR=CVTPTR->CVTJESCT->JESRESQM;  /* FOLLOW CVT/JESCT CHAIN   80000000
*                                               TO GET QMGR ADDRESS  */ 85000000
*        GEN ( BALR 14,15);            /* GO TO QUEUE MANAGER        */ 90000000