Table of Contents

GIVEE Source

References

Source Listing

GIVEE.COPY.txt
  1. *COPY GIVEE 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').GIV01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .GIV01 ANOP 00001800
  6. GIVEE DSECT 00002000
  7. SPACE 1 00003000
  8. *** GIVEE - GIVE REQUEST ELMENT 00004000
  9. * 00005000
  10. * 0 +-----------------------------------------------+ 00006000
  11. * | GIVENEXT | 00007000
  12. * 4 +-----------------------------------------------+ 00008000
  13. * | GIVEADDR | 00009000
  14. * 8 +-----------------------------------------------+ 00010000
  15. * | GIVENAME | 00011000
  16. * C +-----------------------+-----------+-----------+ 00012000
  17. * | | GIVENID | GIVERID | 00013000
  18. * 10 +-----------------------+-----------+-----------+ 00014000
  19. * 00015000
  20. *** GIVEE - GIVE REQUEST ELMENT 00016000
  21. SPACE 1 00017000
  22. GIVENEXT DS 1F NEXT GIVE ELEMENT 00018000
  23. GIVEADDR DS 1F GIVE REQ TAB IN SENDING TASK'S STOR 00019000
  24. GIVENAME DS CL4 TASK NAME OF RECEIVING TASK 00020000
  25. GIVESPAR DS AL2 SPARE 00021000
  26. GIVENID DS 1X ID OF RECEIVING TASK AFTER TAKE 00022000
  27. GIVERID DS 1X ID OF SENDING TASK 00023000
  28. EJECT 00024000
  29. POP PRINT 00025000
  30. SPACE 00026000