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.
BZ NOSYSLX No, let see specific connections<br />
*<br />
SAC Ø Go back into home mode<br />
*<br />
MVC $XM1SYLX,=C'SysLX'<br />
MVC $XM2LINE(LXM2LIN2),$XM2LIN2<br />
BAS R14,WRITE_LISTXME2_LINE System LX line<br />
BAS R14,WRITE_LISTXME2_LINE One blank line<br />
BAS R14,WRITE_LISTXME2_LINE Second blank line<br />
PR Pop stack and return to caller<br />
*<br />
NOSYSLX DS ØH Specific cross-memory connections<br />
*<br />
SAC Ø Go back into home mode<br />
*<br />
MVC $XM2LINE(LXM2LIN3),$XM2LIN3<br />
BAS R14,WRITE_LISTXME2_LINE Title line for this addr space<br />
*<br />
SAC 512 Switch to AR mode<br />
*<br />
MVC HEX1,SETCTO To and from connections....<br />
BAS R14,CONVERT_TO_CHAR<br />
MVC $XM1TO,HEX2 To connections........<br />
MVC $XM1FROM,HEX2+4 From connections......<br />
*<br />
LH R9,SETCTO Calculate number of connections<br />
LH R1Ø,SETCFROM To + From connections<br />
AR R9,R1Ø R9 = index for XMSELOOP<br />
LTR R9,R9 No connection ?<br />
BZ XMSEEND Strange, but possible .....<br />
*<br />
XMSELOOP DS ØH<br />
MVC HEX1,SETCXMSE Put connected XMSE on output line<br />
BAS R14,CONVERT_TO_CHAR<br />
MVC $XM2XMSE,HEX2<br />
MVC $XM2TYPE,=CL4' To' Init field<br />
TM SETCXMSE,#HIGHON Is it a 'To' connection type ?<br />
BO XMSEØØ1Ø Yes, carry on<br />
MVC $XM2TYPE,=CL4'From' No, it's a 'From' connection type<br />
XMSEØØ1Ø DS ØH<br />
TM SETCXMSE+3,#LOWON Is it a valid XMSE ?<br />
BZ XMSEØØ2Ø No, don't go further<br />
MVC $XM2JBN2,=Cl8'Not Used' This connection is no<br />
B XMSEØØ3Ø longer used.<br />
XMSEØØ2Ø DS ØH<br />
L R12,SETCXMSE R12 can be reused<br />
MVC $XM2JBN2,XMSEJBNA Get connected jobname<br />
MVC HEX1,XMSEASID Get connected asid number<br />
BAS R14,CONVERT_TO_CHAR<br />
MVC $XM2ASI2,HEX2<br />
20 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.