MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
L R1,DETASTAE Get STAE option indicator addr<br />
CLC Ø(4,R1),=C'STAE' STAE=YES?<br />
BE STAEYES Yes - DETACH with STAE=YES<br />
B STAENO No - DETACH with STAE=NO<br />
*---------------------------------------------------------------------*<br />
* DETACH the requested TCB (STAE=YES). *<br />
*---------------------------------------------------------------------*<br />
STAEYES DS ØH<br />
L R5,DETATCB Get TCB area addr<br />
DETACH (R5),STAE=YES DETACH<br />
LTR R15,R15 All's well?<br />
BNZ RETNEGØ1 No - return -1<br />
MVC RETCODE(4),=F'Ø' Set return code<br />
*---------------------------------------------------------------------*<br />
B RETURN Return<br />
*---------------------------------------------------------------------*<br />
* *<br />
* DETACH the requested TCB (STAE=NO). *<br />
* *<br />
*---------------------------------------------------------------------*<br />
STAENO DS ØH<br />
L R5,DETATCB Get TCB area addr<br />
DETACH (R5),STAE=NO DETACH<br />
LTR R15,R15 All's well?<br />
BNZ RETNEGØ1 No - return -1<br />
MVC RETCODE(4),=F'Ø' Set return code<br />
*--------------------------------------------------------------------*<br />
B RETURN Return<br />
RETNEGØ1 DS ØH<br />
MVC RETCODE(4),=F'-1' Set return code to -1<br />
B RETURN Return<br />
RETNEGØ8 DS ØH<br />
MVC RETCODE(4),=F'-8' Set return code to -8<br />
B RETURN Return<br />
RETNEGØ9 DS ØH<br />
MVC RETCODE(4),=F'-9' Set return code to -9<br />
B RETURN Return<br />
RETURN DS ØH<br />
L R5,RETCODE Copy the return code<br />
LR R15,R5 Load return code<br />
EDCEPIL<br />
*---------------------------------------------------------------------*<br />
LTORG<br />
*---------------------------------------------------------------------*<br />
DETAWORK EDCDSAD<br />
PARMØ DS F Address of incoming parms<br />
DETATCB DS F Address of TCB<br />
DETASTAE DS F STAE option indicator address<br />
RETCODE DS F Return code<br />
DBL1 DS 2D Dbl word work area<br />
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.<br />
41