AM3270 Management Programming Manual

AM3270 SUBSYSTEM DDL
?PAGE "AM3270 STATISTICS command STRUCT for SU object"
?SECTION ZAM3-DDL-STATS-SU
?SETSECTION ZAM3-DDL-STATS-SU
?TALBOUND 0
!
! ZAM3-DDL-STATS-SU :
!
! This DDL is returned to requester from AM3270 whenever a
! STATISTICS SU command is processed.
!
DEF ZAM3-DDL-STATS-SU TYPE ZAM3-DDL-RSTATS-SU.
TOKEN-MAP ZAM3-MAP-STATS-SU VALUE IS ZAM3-TNM-STATS-SU
DEF IS ZAM3-DDL-STATS-SU.
VERSION "C20" FOR
ZTmStp THRU ZMsg-Recved.
END.
?PAGE "AM3270 STATUS command STRUCT for SU object"
?SECTION ZAM3-DDL-STATUS-SU
?SETSECTION ZAM3-DDL-STATUS-SU
?TALBOUND 0
*
* ZAM3-DDL-STATUS-SU :
*
* This DDL is returned to requester from AM3270 whenever a
* STATUS SU command is processed.
*
DEF ZAM3-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 ZAM3-MAP-STATUS-SU VALUE IS ZAM3-TNM-STATUS-SU
DEF IS ZAm3-DDL-STATUS-SU.
VERSION "C20" FOR
ZSDN THRU ZHIS-DA.
END.
B-14