ibm:vm370-lib:rscs:givee.copy_src
Table of Contents
GIVEE Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- GIVEE.COPY.txt
- *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
ibm/vm370-lib/rscs/givee.copy_src.txt · Last modified: 2023/08/06 13:39 by Site Administrator