*COPY GIVEE 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').GIV01 00001400
PRINT OFF,NOGEN 00001600
.GIV01 ANOP 00001800
GIVEE DSECT 00002000
SPACE 1 00003000
*** GIVEE - GIVE REQUEST ELMENT 00004000
* 00005000
* 0 +-----------------------------------------------+ 00006000
* | GIVENEXT | 00007000
* 4 +-----------------------------------------------+ 00008000
* | GIVEADDR | 00009000
* 8 +-----------------------------------------------+ 00010000
* | GIVENAME | 00011000
* C +-----------------------+-----------+-----------+ 00012000
* | | GIVENID | GIVERID | 00013000
* 10 +-----------------------+-----------+-----------+ 00014000
* 00015000
*** GIVEE - GIVE REQUEST ELMENT 00016000
SPACE 1 00017000
GIVENEXT DS 1F NEXT GIVE ELEMENT 00018000
GIVEADDR DS 1F GIVE REQ TAB IN SENDING TASK'S STOR 00019000
GIVENAME DS CL4 TASK NAME OF RECEIVING TASK 00020000
GIVESPAR DS AL2 SPARE 00021000
GIVENID DS 1X ID OF RECEIVING TASK AFTER TAKE 00022000
GIVERID DS 1X ID OF SENDING TASK 00023000
EJECT 00024000
POP PRINT 00025000
SPACE 00026000