HP TR3271 Programming Manual page 279

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