TR3271 SUBSYSTEM DDL
?PAGE "TR3271 STATUS command STRUCT for LINE object"
?SECTION ZTR3-DDL-STATUS-LINE
?SETSECTION ZTR3-DDL-STATUS-LINE
?TALBOUND 0
!
! ZTR3-DDL-STATUS-LINE :
!
! This DDL is returned to requester from TR3271 whenever a
! STATUS LINE command is processed.
!
DEF ZTR3-DDL-STATUS-LINE.
02 ZState TYPE ZSPI-DDL-Enum.
02 ZLdev TYPE ZSPI-DDL-INT.
02 ZPpid.
04 Zcpu TYPE ZSPI-DDL-Int.
04 Zpin TYPE ZSPI-DDL-Int.
02 ZBpid.
04 Zcpu TYPE ZSPI-DDL-Int.
04 Zpin TYPE ZSPI-DDL-Int.
02 ZPath TYPE ZSPI-DDL-Enum.
02 ZCSM-Ldev TYPE ZSPI-DDL-Int.
02 ZCU-Prim TYPE ZSPI-DDL-Int.
02 ZCU-Bkup TYPE ZSPI-DDL-Int.
02 ZDebug TYPE ZSPI-DDL-Boolean.
02 ZTrace TYPE ZSPI-DDL-Boolean.
02 ZTotal-SU TYPE ZSPI-DDL-Int.
02 ZTotal-Su-Opened TYPE ZSPI-DDL-Int.
02 zio-addr-prim TYPE ZSPI-DDL-EXIOADDR.
02 zio-addr-bkup TYPE ZSPI-DDL-EXIOADDR.
END.
TOKEN-MAP ZTR3-MAP-STATUS-LINE VALUE IS ZTR3-TNM-STATUS-LINE
DEF IS ZTR3-DDL-STATUS-LINE.
VERSION "C20" FOR
ZState THRU
Zio-addr-bkup.
END.
B-9