TR3271 SUBSYSTEM DDL
?PAGE "TR3271 RESETSTATS command STRUCT for SU object"
?SECTION ZTR3-DDL-RSTATS-SU
?SETSECTION ZTR3-DDL-RSTATS-SU
?TALBOUND 0
!
! ZTR3-DDL-RSTATS-SU :
!
! This DDL is returned to the requester from TR3271
! whenever a RESETSTATS SU command is processed.
!
DEF ZTR3-DDL-RSTATS-SU.
02 Zreset-time TYPE ZSPI-DDL-TimeStamp.
02 Zsample-time TYPE ZSPI-DDL-TimeStamp.
02 Zerr TYPE ZSPI-DDL-Int.
02 Zmsg-sent TYPE ZSPI-DDL-Int.
02 Zmsg-recved TYPE ZSPI-DDL-Int.
END.
TOKEN-MAP ZTR3-MAP-RSTATS-SU VALUE IS ZTR3-TNM-RSTATS-SU
DEF IS ZTR3-DDL-RSTATS-SU.
VERSION "C20" FOR
Zreset-time THRU
Zmsg-recved.
END.
?PAGE "TR3271 STATUS command STRUCT for SU object"
?SECTION ZTR3-DDL-STATUS-SU
?SETSECTION ZTR3-DDL-STATUS-SU
?TALBOUND 0
!
! ZTR3-DDL-STATUS-SU :
!
! This DDL is returned to requester from TR3271 whenever a
! STATUS SU command is processed.
!
DEF ZTR3-DDL-STATUS-SU.
02 ZSDN TYPE ZSPI-DDL-Int.
02 ZState TYPE ZSPI-DDL-Enum.
02 ZStatus TYPE ZSPI-DDL-Int.
02 ZFlags TYPE ZSPI-DDL-Int.
02 ZLast-Err TYPE ZSPI-DDL-Int.
02 ZIS-PTP TYPE ZSPI-DDL-Boolean.
02 ZHIS-SYSNUM TYPE ZSPI-DDL-Int.
02 ZHIS-LDEV TYPE ZSPI-DDL-Int.
02 ZHIS-SDN TYPE ZSPI-DDL-Int.
02 ZHIS-CU TYPE ZSPI-DDL-Int.
02 ZHIS-DA TYPE ZSPI-DDL-Int.
END.
TOKEN-MAP ZTR3-MAP-STATUS-SU VALUE IS ZTR3-TNM-STATUS-SU
DEF IS ZTR3-DDL-STATUS-SU.
VERSION "C20" FOR
ZSDN THRU ZHIS-DA.
END.
B-12