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