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.
RETURNØØ DS ØH<br />
MVC RETCODE(4),=F'Ø' Set return code value<br />
B RETURN Return<br />
RETURNØ4 DS ØH<br />
MVC RETCODE(4),=F'4' Set return code value<br />
B RETURN Return<br />
***********************************************************************<br />
WTO1LST WTO 'ATTPGM1 - Parm value is xxxxxxxx for TCB xxxxxxxx. ', X<br />
ROUTCDE=(1),DESC=(6),MF=L<br />
WTO1LN EQU *-WTO1LST<br />
***********************************************************************<br />
LTORG ,<br />
*<br />
WORKAREA DSECT<br />
SAVEAREA DS 18F<br />
*<br />
RETCODE DS F Return code<br />
PARMADDR DS F Parameter address<br />
WTO1WRK DS ØD,CL(WTO1LN) WTO work area<br />
DBL1 DS 2D A work area<br />
DBL2 DS 2D A work area<br />
TCBADDR DS CL8 TCB address<br />
WORKSIZE EQU *-WORKAREA<br />
***********************************************************************<br />
*<br />
RØ EQU Ø<br />
R1 EQU 1<br />
R2 EQU 2<br />
R3 EQU 3<br />
R4 EQU 4<br />
R5 EQU 5<br />
R6 EQU 6<br />
R7 EQU 7<br />
R8 EQU 8<br />
R9 EQU 9<br />
R1Ø EQU 1Ø<br />
R11 EQU 11<br />
R12 EQU 12<br />
R13 EQU 13<br />
R14 EQU 14<br />
R15 EQU 15<br />
END<br />
Rudy Douglas<br />
System Programmer (Canada) © Xephon 2005<br />
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.<br />
47