MVS Jan 2005.p65 - CBT Tape

$XM2SE1Ø EQU $XM2TYPE+4,1
$XM2XMSE EQU $XM2SE1Ø+1,8 Cross-memory services block addr
$XM2SE11 EQU $XM2XMSE+8,1
$XM2JBN2 EQU $XM2SE11+1,8 Jobname
$XM2SE12 EQU $XM2JBN2+8,1
$XM2ASI2 EQU $XM2SE12+1,4 Asid
$XM2SE13 EQU $XM2ASI2+4,1
*
$XM2LIN2 DS ØH
DC C' System LX bit is on, this address space has connectivi*
ty with all other asids.'
LXM2LIN2 EQU *-$XM2LIN2
*
$XM2LIN3 DS ØH
DC C' Type Xmse Jobname Asid'
LXM2LIN3 EQU *-$XM2LIN3
**********************************************************************
* THE DCBS *
**********************************************************************
DS ØH
LISTXME1 DCB DDNAME=LISTXME1,MACRF=(PM),RECFM=FBA,LRECL=133, *
DSORG=PS
LISTXME2 DCB DDNAME=LISTXME2,MACRF=(PM),RECFM=FBA,LRECL=133, *
DSORG=PS
EJECT
**********************************************************************
* Dsects *
**********************************************************************
XMSE DSECT
XMSEACRO DS CL4 Acronym 'XMSE'
XMSESETC DS F SETC address
DS CL8
XMSEPREV DS F Previous XMSE block
XMSENEXT DS F Next XMSE block
DS CL4
XMSEJBNA DS CL8 Job Name that own this XMSE
XMSEASID DS CL2 Asid hex that own this XMSE
*
SETC DSECT
SETCACRO DS CL4 Acronym 'SETC'
DS CL2
SETCFLG1 DS X Flags
SYSTEMLX EQU B'1ØØØØØØØ' Flag for System LX
DS X
DS CL12
SETCTO DS H Number of 'TO' connections
SETCFROM DS H Number of 'FROM' connections
DS CL8
SETCXMSE DS F First connected XMSE
*
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
25