TR3271 SUBSYSTEM DDL
?PAGE "TR3271 CONSTANT definitions for SUBDEVICE object"
!--------------------------------------------------------------!
! CONSTANTs definition for SU object. !
!- ------------------------------------------------------------!
!
CONSTANT ZTR3-VAL-Proto-CRT VALUE 1.
CONSTANT ZTR3-VAL-Proto-PTP VALUE 4.
?PAGE "common DDL definitions exclusive for TR3271"
!--------------------------------------------------------------!
! begin of common DDL definition. !
!--------------------------------------------------------------!
!
DEF ZTR3-DDL-filler PIC X SPI-NULL " ".
!
! Error info definition.
!
DEF ZTR3-DDL-ERR-INFO.
02 Z-Tkn-Code TYPE ZSPI-DDL-INT2.
02 Z-Index TYPE ZSPI-DDL-INT.
02 Z-Offset TYPE ZSPI-DDL-INT.
END.
!
! Message buffer definition for COBOL, both min and max size
!
DEFINITION ZTR3-DDL-MSG-BUFFER.
02 Z-MSGCODE TYPE ZSPI-DDL-INT.
02 Z-BUFLEN TYPE ZSPI-DDL-UINT.
02 Z-OCCURS TYPE ZSPI-DDL-UINT.
02 Z-FILLER TYPE ZSPI-DDL-BYTE
OCCURS 0 TO ZCOM-VAL-BUFLEN TIMES
DEPENDING ON Z-OCCURS.
END.
DEFINITION ZTR3-DDL-MSG-MAX-BUF.
02 Z-MSGCODE TYPE ZSPI-DDL-INT.
02 Z-BUFLEN TYPE ZSPI-DDL-UINT.
02 Z-OCCURS TYPE ZSPI-DDL-UINT.
02 Z-FILLER TYPE ZSPI-DDL-BYTE
OCCURS 0 TO ZCOM-VAL-MAXBUFLEN TIMES
DEPENDING ON Z-OCCURS.
END.
B-4