MVS Jan 2005.p65 - CBT Tape

C R2,=X'8ØØØØØØØ' Is this the last parm?
BE RETNEGØ8 Yes - return -8
L R2,4(,R9) Get buffer address
N R2,=X'8ØØØØØØØ' Turn off address value
C R2,=X'8ØØØØØØØ' Is this the last parm?
BO RETNEGØ8 Yes - return -8
L R2,4(,R9) Get buffer address
L R8,Ø(,R2) Get WORKAREA address
USING WORKAREA,R8 Set WORKAREA addressability
LA R6,PARMS Get parm address area address
*---------------------------------------------------------------------*
* R1 contains the address of the the incoming parms. Check to *
* make sure that a valid minimum number of parameters have been *
* passed. *
*---------------------------------------------------------------------*
ST R1,PARMØ Save incoming parm address
LTR R1,R1 Parms ok?
BZ RETNEGØ9 No - return -9
LR R9,R1 Copy parm address
L R2,Ø(,R9) Get buffer address
ST R2,ATTAPGM Save pgm name address
TM ATTAPGM,X'8Ø' Is this the last parm?
BO RETNEGØ8 Yes - return -8
L R2,4(,R9) Get buffer address
ST R2,ATTAWRK Save work area address
TM ATTAWRK,X'8Ø' Is this the last parm?
BO RETNEGØ8 Yes - return -8
L R2,8(,R9) Get buffer address
ST R2,ATTAECB Save ECB address
TM ATTAECB,X'8Ø' Is this the last parm?
BO RETNEGØ8 Yes - return -8
L R2,12(,R9) Get buffer address
ST R2,ATTATCB Save TCB address
TM ATTATCB,X'8Ø' Is this the last parm?
BO RETNEGØ8 Yes - return -8
L R2,16(,R9) Get buffer address
ST R2,ATTATSKL Save TASKLIB DCB address
LA R14,256 Set parm base number
LA R15,256 Set parm base number
TM ATTATSKL,X'8Ø' Is this the last parm?
BNO MOREPRMS No - capture additional parms
OI PARMS,X'8Ø' Set last parm flag
B PASTPRMS Bypass parm capture
MOREPRMS DS ØH
NI ATTATSKL,X'7F' Turn off the x'8Ø' flag
OI FLAG1,PPARMS Set parm flag
LA R1,PARMS Get parm addr save area addr
LA R15,256 Set loop count
LA R9,2Ø(,R9) Point to first parm addr
PARMLP DS ØH
36 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.