*        %GOTO PLSRVT;                  /* BILINGUAL HEADER             03000010
         MACRO                                                          06000010
         TRVTD                                                          09000010
         SPACE                                                          12000010
.* CHANGE ACTIVITY AS FOLLOWS:                                          15000010
.*A000000-999999                                               @Y17XAXU 18000010
         SPACE                                                          21000010
IEDRVTD  DSECT                                                          24000010
*                                                                       27000010
*        DSECT FOR RESOURCE VECTOR TABLE (RVT)                          30000010
*                                                                       33000010
RVTNUM   DS    H .                      NO. OF RVT ENTRIES     @Y17XAXU 34000010
RVTINDEX DS    AL2 .                    TNT/MH INDEX                    36000010
RVTLEN   EQU   *-RVTINDEX .             LENGTH OF RVT ENTRY             39000010
         SPACE 2                                                        42000010
         MEND                           */                              45000010
*%PLSRVT : ;                                                            48000010
*DECLARE                                                                51000010
*  1 IEDRVTD BDY(WORD) BASED(IEDQRVTP),                                 54000010
*/*                                                                  */ 57000010
*/*      DSECT FOR RESOURCE VECTOR TABLE (RVT)                       */ 60000010
*/*                                                                  */ 63000010
*    2 RVTNUM   FIXED(15),              /* NO. OF RVT ENTRIE @Y17XAXU*/ 64000010
*   2 RVTINDEX FIXED(15);               /* TNT/MH INDEX              */ 66000010
* %RVTLEN='LENGTH(RVTINDEX)';           /* LENGTH OF RVT ENTRY       */ 69000010
*                                                                       72000010
*%RVTEND: ;                                                             75000010
*                                                                       78000010