*        %GOTO PLSNAT;                  /* BILINGUAL HEADER             03000010
         MACRO                                                          06000010
         TNATD                                                          09000010
         SPACE                                                          12000010
.* CHANGE ACTIVITY AS FOLLOWS:                                          15000010
.*A-000000-999999                                              @Y17XAXU 18000010
         SPACE                                                          21000010
IEDNATD  DSECT                                                          24000010
*                                                                       27000010
*        DSECT FOR NETWORK ADDRESS TABLE (NAT)                          30000010
*                                                                       33000010
NATODAF  DS    AL2 .                    NETWORK ADDRESS ENTRY           36000010
NATLEN   EQU   *-IEDNATD .              LENGTH OF NAT ENTRY             39000010
         SPACE 2                                                        42000010
         MEND                           */                              45000010
*%PLSNAT : ;                                                            48000010
*DECLARE                                                                51000010
*  1 IEDNATD BDY(WORD) BASED(IEDQNATP),                                 54000010
*/*                                                                  */ 57000010
*/*      DSECT FOR NETWORK ADDRESS TABLE                             */ 60000010
*/*                                                                  */ 63000010
*   2 NATODAF BIT(16);                  /* NETWORK ADDRESS ENTRY     */ 66000010
* %NATLEN='LENGTH(IEDNATD)';            /* LENGTH OF NAT ENTRY       */ 69000010
*                                                                       72000010
*%NATEND: ;                                                             75000010
*                                                                       78000010