TR3271 Management Programming Manual

TR3271 SUBSYSTEM DDL
?PAGE "TR3271 STRUCT definitions for PROCESS object"
!--------------------------------------------------------------!
! STRUCTs definition for PROCESS object. !
!------------------------------------------------------------- !
?PAGE "TR3271 ALTER command STRUCT for LINE object"
!--------------------------------------------------------------!
! STRUCTs/MAP definition for LINE object. !
!--------------------------------------------------------------!
?SECTION ZTR3-DDL-ALTER-LINE
?SETSECTION ZTR3-DDL-ALTER-LINE
?TALBOUND 0
!
! ZTR3-DDL-ALTER-LINE :
!
! This DDL is sent to TR3271 whenever an ALTER LINE command
! is requested.
!
DEF ZTR3-DDL-ALTER-LINE.
02 Zbcctype TYPE ZSPI-DDL-Enum SPI-NULL 255.
02 Zcharset TYPE ZSPI-DDL-Enum SPI-NULL 255.
02 Zctl-rts TYPE ZSPI-DDL-Boolean.
02 Zctl-set TYPE ZSPI-DDL-Enum SPI-NULL 255.
02 Zdebug TYPE ZSPI-DDL-Boolean.
02 Zdrop-rts TYPE ZSPI-DDL-Boolean.
02 Zinit-status TYPE ZSPI-DDL-Int2 SPI-NULL 255.
02 Zmulti-block TYPE ZSPI-DDL-Boolean.
02 Zoffline-timer TYPE ZSPI-DDL-TimeStamp.
02 Zprog TYPE ZSPI-DDL-Fname.
02 Zread-cmd TYPE ZSPI-DDL-Enum SPI-NULL 255.
02 Zretry TYPE ZSPI-DDL-Int SPI-NULL 255.
02 Zsyncs TYPE ZSPI-DDL-Int SPI-NULL 255.
02 Ztest-intvl TYPE ZSPI-DDL-TimeStamp.
02 Zthres TYPE ZSPI-DDL-Int SPI-NULL 255.
02 Ztimeout TYPE ZSPI-DDL-TimeStamp.
02 Zxlate TYPE ZSPI-DDL-Boolean.
02 Zxparent TYPE ZSPI-DDL-Boolean.
02 Zwack-delay TYPE ZSPI-DDL-TimeStamp.
02 Zxlate-in TYPE ZSPI-DDL-Char OCCURS 256 TIMES.
02 Zxlate-out TYPE ZSPI-DDL-Char OCCURS 256 TIMES.
END.
TOKEN-MAP ZTR3-MAP-ALTER-LINE VALUE IS ZTR3-TNM-ALTER-LINE
DEF IS ZTR3-DDL-ALTER-LINE.
VERSION "C20" FOR
Zbcctype THRU Zxlate-out.
END.
B-5