*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