AM3270 Management Programming Manual

AM3270 SUBSYSTEM DDL
?PAGE "AM3270 ADD command STRUCT for SUBDEVICE object"
!-------------------------------------------------------------!
!
! ! STRUCTs/MAPs definition for SU object.
! !
!
!-------------------------------------------------------------!
?SECTION ZAM3-DDL-ADD-SU
?SETSECTION ZAM3-DDL-ADD-SU
?TALBOUND 0
!
! ZAM3-DDL-ADD-SU :
!
! This DDL is sent to AM3270 whenever an ADD SU command is
! requested.
DEF ZAM3-DDL-ADD-SU.
02 ZAddr TYPE ZSPI-DDL-Int-Pair SPI-NULL 255.
02 ZProto TYPE ZSPI-DDL-Enum SPI-NULL 255.
02 ZRecSize TYPE ZSPI-DDL-Int SPI-NULL 255.
02 ZRepoll-Intvl TYPE ZSPI-DDL-TimeStamp.
02 ZType TYPE ZSPI-DDL-Int-Pair SPI-NULL 255.
END.
TOKEN-MAP ZAM3-MAP-ADD-SU VALUE IS ZAM3-TNM-ADD-SU
DEF IS ZAM3-DDL-ADD-SU.
VERSION "C20" FOR
ZAddr THRU ZType.
END.
?PAGE "AM3270 ALTER command STRUCT for SUBDEVICE object"
?SECTION ZAM3-DDL-ALTER-SU
?SETSECTION ZAM3-DDL-ALTER-SU
?TALBOUND 0
!
! ZAM3-DDL-ALTER-SU :
!
! This DDL is sent to AM3270 whenever an ALTER SU command is
! requested
DEF ZAM3-DDL-ALTER-SU TYPE ZAM3-DDL-ADD-SU.
TOKEN-MAP ZAM3-MAP-ALTER-SU VALUE IS ZAM3-TNM-ALTER-SU
DEF IS ZAm3-DDL-ALTER-SU.
VERSION "C20" FOR
ZAddr THRU ZType.
END.
B-12