MVS Jan 2005.p65 - CBT Tape

* subtask. *
* *
* Register Usage Conventions: *
* *
* RØ - R1 : work registers, but generally available for use *
* by calls to system functions *
* R2 : used to save the incoming parameter address *
* R3 - R9 : work registers *
* R1Ø - R11 : reserved (future base register expansion) *
* R12 : base register *
* R13 : DSA/workarea address *
* R14 - R15 : work registers, return address and return code, but *
* generally available for use by calls to system *
* functions *
*--------------------------------------------------------------------*
*--------------------------------------------------------------------*
* Routine: DETACH *
* *
* Function: To provide MVS DETACH capabilities from an IBM *
* C/C++ program. *
* *
* Arguments: TCB area address *
* STAE option indicator address (STAE/NOSTAE) *
* *
* Return: Ø if the DETACH is successful *
* -1 task was DETACHed while active *
* -8 incorrect number of parms. the DETACH() function *
* call requires a tcb address parm. *
* -9 no parms were detected on entry to DETACH() *
* *
* C Usage: i = DETACH(&tcb, &stae_opt); *
*---------------------------------------------------------------------*
DETACH CSECT
DETACH AMODE 31
DETACH RMODE ANY
EDCPRLG BASEREG=R12,DSALEN=WORKLEN
LR R2,R1 Save incoming parm addr
USING DETAWORK,R13 Addressability to temp storage
*---------------------------------------------------------------------*
ST R2,PARMØ Save incoming parm address
LTR R2,R2 Parms ok?
BZ RETNEGØ9 No - return -9
L R9,Ø(,R2) Get buffer address
ST R9,DETATCB Save TCB address
TM DETATCB,X'8Ø' Is this the last parm?
BO RETNEGØ8 Yes - return -8
L R9,4(,R2) Get buffer address
ST R9,DETASTAE Save STAE option indicator addr
TM DETASTAE,X'8Ø' Is this the last parm?
BNO RETNEGØ8 No - return -8
40 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.