AM3270 Management Programming Manual

AM3270 SUBSYSTEM DDL
?PAGE "common DDL definitions exclusive for AM3270"
!--------------------------------------------------------------!
!
! ! begin of common DDL definition.
! !
!
!--------------------------------------------------------------!
!
! Error info definition.
!
DEF ZAM3-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 ZAM3-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 ZAM3-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-6