*COPY ROUTE                                                             00001000
         PUSH  PRINT                                                    00001200
         AIF   ('&SYSPARM' NE 'SUP').ROU01                              00001400
         PRINT OFF,NOGEN                                                00001600
.ROU01   ANOP                                                           00001800
ROUTE    DSECT                                                          00002000
         SPACE 1                                                        00003000
***                      ROUTE  -  ROUTING TABLE ENTRY                  00004000
*                                                                       00005000
*          0   +-----------------------------------------------+        00006000
*              |                   ROUTDEST                    |        00007000
*          8   +-----------------------------------------------+        00008000
*              |                   ROUTNEXT                    |        00009000
*         10   +-----------------------------------------------+        00010000
*                                                                       00011000
***                      ROUTE  -  ROUTING TABLE ENTRY                  00012000
         SPACE 1                                                        00013000
ROUTDEST DS    CL8                 FINAL DESTINATION ID                 00014000
ROUTNEXT DS    CL8                 LINKID FOR INDIRECT ROUTING          00015000
         SPACE 1                                                        00016000
ROUTSIZE EQU   *-ROUTDEST          LENGTH  OF A ROUTING TABLE ENTRY     00017000
         EJECT                                                          00018000
         POP   PRINT                                                    00019000
         SPACE                                                          00020000