User Tools

Site Tools


ibm:vm370-lib:rscs:route.copy_src

ROUTE Source

References

Source Listing

ROUTE.COPY.txt
  1. *COPY ROUTE 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').ROU01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .ROU01 ANOP 00001800
  6. ROUTE DSECT 00002000
  7. SPACE 1 00003000
  8. *** ROUTE - ROUTING TABLE ENTRY 00004000
  9. * 00005000
  10. * 0 +-----------------------------------------------+ 00006000
  11. * | ROUTDEST | 00007000
  12. * 8 +-----------------------------------------------+ 00008000
  13. * | ROUTNEXT | 00009000
  14. * 10 +-----------------------------------------------+ 00010000
  15. * 00011000
  16. *** ROUTE - ROUTING TABLE ENTRY 00012000
  17. SPACE 1 00013000
  18. ROUTDEST DS CL8 FINAL DESTINATION ID 00014000
  19. ROUTNEXT DS CL8 LINKID FOR INDIRECT ROUTING 00015000
  20. SPACE 1 00016000
  21. ROUTSIZE EQU *-ROUTDEST LENGTH OF A ROUTING TABLE ENTRY 00017000
  22. EJECT 00018000
  23. POP PRINT 00019000
  24. SPACE 00020000
ibm/vm370-lib/rscs/route.copy_src.txt ยท Last modified: 2023/08/06 13:39 by Site Administrator