MVS Jan 2005.p65 - CBT Tape

LTR R15,R15 All's well?
BNZ RETNEGØ7 No - save RC in ECB area
ST R1,Ø(,R5) Save TCB address
B RETURNOK Return
NODETACH DS ØH
***********************************************************************
* ATTACH the requested program. *
***********************************************************************
MVC ATTACHWK(ATTACHLN),ATTACHLS Copy the model
LTR R7,R7 A TASKLIB DCB?
BNZ TASKLIB2 YES - ISSUE ATTACH WITH TASKLIB
ATTACHX EPLOC=(R3), ** SPECIFIED PROGRAM **X
MF=(E,PARMS), ** PARM LIST ADDRESS **X
VL=1, ** SET X'8Ø' BIT ON LAST PARM **X
SF=(E,ATTACHWK) ** INDICATE EXECUTE FORM **
LTR R15,R15 All's well?
BNZ RETNEGØ7 No - save RC in ECB area
B RETURNOK Return
TASKLIB2 DS ØH
L R7,Ø(,R7) Get TASKLIB DCB address
ATTACHX EPLOC=(R3), ** SPECIFIED PROGRAM **X
TASKLIB=(R7), ** TASKLIB DCB **X
MF=(E,PARMS), ** PARM LIST ADDRESS **X
VL=1, ** SET X'8Ø' BIT ON LAST PARM **X
SF=(E,ATTACHWK) ** INDICATE EXECUTE FORM **
LTR R15,R15 All's well?
BNZ RETNEGØ7 No - save RC in ECB area
B RETURNOK Return
***********************************************************************
RETURNOK EQU *
***********************************************************************
MVC RETCODE(4),=F'Ø' Set return code to Ø
***********************************************************************
B RETURN Return
RETNEGØ7 EQU *
ST R15,Ø(,R4) Save RC in ECB area
MVC RETCODE(4),=F'-7' Set return code to -7
B RETURN Return
RETNEGØ8 EQU *
MVC RETCODE(4),=F'-8' Set return code to -8
B RETURN Return
RETNEGØ9 EQU *
MVC RETCODE(4),=F'-9' Set return code to -9
B RETURN Return
RETURN EQU *
L R15,RETCODE Load return code
EDCEPIL
***********************************************************************
ATTACHLS ATTACHX SF=L
ATTACHLN EQU *-ATTACHLS
38 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.