AM3270 Management Programming Manual

AM3270 SUBSYSTEM DDL
?PAGE "AM3270 INFO command STRUCT for LINE object"
?SECTION ZAM3-DDL-INFO-LINE
?SETSECTION ZAM3-DDL-INFO-LINE
?TALBOUND 0
!
! ZAM3-DDL-INFO-LINE :
!
! This DDL is returned to requester from AM3270 whenever an
! INFO LINE command is processed.
!
DEF ZAM3-DDL-INFO-LINE.
02 ZAutoload TYPE ZSPI-DDL-Boolean.
02 ZBCCType TYPE ZSPI-DDL-Enum.
02 ZCharset TYPE ZSPI-DDL-Enum.
02 ZConf-write TYPE ZSPI-DDL-Boolean.
02 ZConsl-msg TYPE ZSPI-DDL-Boolean.
02 ZCtl-RTS TYPE ZSPI-DDL-Boolean.
02 ZCtl-set TYPE ZSPI-DDL-Enum.
02 ZDebug TYPE ZSPI-DDL-Boolean.
02 ZDrop-RTS TYPE ZSPI-DDL-Boolean.
02 ZEot-If-No-Read TYPE ZSPI-DDL-Boolean.
02 ZNo-GP-After-Wack TYPE ZSPI-DDL-Boolean.
02 ZPace TYPE ZSPI-DDL-Int.
02 ZPolltype TYPE ZSPI-DDL-Enum.
02 ZProg TYPE ZSPI-DDL-FName.
02 ZRetry TYPE ZSPI-DDL-Int.
02 ZSyncs TYPE ZSPI-DDL-Int.
02 ZTest-Intvl TYPE ZSPI-DDL-TimeStamp.
02 ZThres TYPE ZSPI-DDL-Int.
02 ZTimeout TYPE ZSPI-DDL-TimeStamp.
02 ZXlate TYPE ZSPI-DDL-Boolean.
02 ZXlate-in TYPE ZSPI-DDL-Char
OCCURS 256 TIMES.
02 ZXlate-out TYPE ZSPI-DDL-Char
OCCURS 256 TIMES.
END.
TOKEN-MAP ZAM3-MAP-INFO-LINE VALUE IS ZAM3-TNM-INFO-LINE
DEF IS ZAM3-DDL-INFO-LINE.
VERSION "C20" FOR
ZAutoload THRU ZXlate-Out.
END.
B-8