AM3270 Management Programming Manual

AM3270 SUBSYSTEM DDL
?PAGE "AM3270 STATUS command STRUCT for LINE object"
?SECTION ZAM3-DDL-STATUS-LINE
?SETSECTION ZAM3-DDL-STATUS-LINE
?TALBOUND 0
!
! ZAM3-DDL-STATUS-LINE :
!
! This DDL is returned to requester from AM3270 whenever a
! STATUS LINE command is processed.
!
DEF ZAM3-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 ZAM3-MAP-STATUS-LINE VALUE IS ZAM3-TNM-STATUS-LINE
DEF IS ZAM3-DDL-STATUS-LINE.
VERSION "C20" FOR
ZState THRU
Zio-addr-bkup.
END.
B-11