MVS Jan 2005.p65 - CBT Tape

* R9 : work register *
* 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: ATTACH *
* *
* Function: To provide MVS ATTACH capabilities from an IBM *
* C/C++ program. *
* *
* Arguments: ATTACH program name address (right pad with blanks) *
* ATTACH() function workarea address. This workarea *
* must be a minimum of 256 bytes plus four bytes *
* for each optional parm that is passed. It *
* should not be modified by the calling program or *
* used for any other ATTACH() calls while this *
* task is active. *
* ECB area address (or NULL) *
* TCB area address (or NULL) *
* TASKLIB DCB area address (or NULL) *
* Optional parms to be passed to the attached program. *
* The last parm address will have the X'8Ø' flag *
* set. You can pass up to 256 optional parms. *
* *
* Return: Ø if the ATTACH is successful *
* -7 ATTACH failed. If an ECB area address has been *
* provided, the ECB area contains the ATTACH *
* return code. *
* -8 incorrect minimum number of parms. The ATTACH() *
* function call requires a minimum of five parms. *
* -9 no parms were detected on entry to ATTACH() *
* *
* C usage: i = ATTACH(&pgm_name, &attach_workarea_addr, *
* &ecb, &tcb, &tasklib_dcb, *
* &opt_parm1, &opt_parm2, ... , &opt_parmn); *
*---------------------------------------------------------------------*
ATTACH CSECT
ATTACH AMODE 31
ATTACH RMODE ANY
EDCPRLG BASEREG=R12,DSALEN=WORKLEN
USING ATTAWORK,R13 Addressability to temp storage
*---------------------------------------------------------------------*
LTR R1,R1 Parms ok?
BZ RETNEGØ9 No - return -9
LR R9,R1 Copy parm address
L R2,Ø(,R9) Get buffer address
N R2,=X'8ØØØØØØØ' Turn off address value
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
35