1 %INCLUDE %FROM %CDD "CDD$TOP.BASIC.DECIMALSTRING"
C1 ! test decimal string data types
C1 RECORD DECIMALSTRING ! UNSPECIFIED
C1 DECIMAL(5 ,2 ) MY_PACKED_DECIMAL ! PACKED DECIMAL
C1 GROUP MY_ZONED_NUMERIC ! ZONED NUMERIC !
C1 STRING STRING_VALUE = 6
C1 END GROUP
C1 GROUP MY_UNSIGNED_NUMERIC ! UNSIGNED NUMERIC
C1 STRING STRING_VALUE = 8
C1 END GROUP
C1 GROUP MY_LEF_SEP_NUMERIC ! NUMERIC LEFT
! SEPARATE
C1 STRING STRING_VALUE = 11
C1 END GROUP
C1 GROUP MY_LEFT_OVPNCH_NUMERIC ! NUMERIC LEFT
! OVERPUNCHED
C1 STRING STRING_VALUE = 5
C1 END GROUP
C1 GROUP MY_RIGHT_SEP_NUMERIC ! NUMERIC RIGHT
! SEPARATE
C1 STRING STRING_VALUE = 4
C1 END GROUP
C1 GROUP MY_RIGHT_OVPNCH_NUMERIC ! NUMERIC RIGHT
! OVERPUNCHED
C1 STRING STRING_VALUE = 4
C1 END GROUP
C1 END RECORD
%BASIC-I-CDDSUBGRO, data type in CDD/Repository not supported,
substituted group for: DECIMALSTRING::MY_ZONED_NUMERIC.
%BASIC-I-CDDSUBGRO, data type in CDD/Repository not supported,
substituted group for: DECIMALSTRING::MY_UNSIGNED_NUMERIC.
%BASIC-I-CDDSUBGRO, data type in CDD/Repository not supported,
substituted group for: DECIMALSTRING::MY_LEF_SEP_NUMERIC.
%BASIC-I-CDDSUBGRO, data type in CDD/Repository not supported,
substituted group for: DECIMALSTRING::MY_LEFT_OVPNCH_NUMERIC.
%BASIC-I-CDDSUBGRO, data type in CDD/Repository not supported,
substituted group for: DECIMALSTRING::MY_RIGHT_SEP_NUMERIC.
%BASIC-I-CDDSUBGRO, data type in CDD/Repository not supported,
substituted group for: DECIMALSTRING::MY_RIGHT_OVPNCH_NUMERIC.