*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