OSI/AS Programming Manual

Basic Data Types
DDL Definitions
056783 Tandem Computers Incorporated A–3
Second-Level Data Types Second-level basic data types are made up of one or more of the first-level data types
described in the previous subsection.
ZAPS-DDL-CHAR16 is a string of 16 ASCII characters. You can address them as a
STRUCT, as bytes, or as integers.
DEFINITION ZAPS-DDL-CHAR16.
02 ZLEN TYPE ZAPS-DDL-INT1.
02 ZC PIC X(16).
02 ZS REDEFINES ZC.
03 ZI TYPE BINARY 16 OCCURS 8 TIMES.
02 ZB REDEFINES ZC PIC X OCCURS 16 TIMES.
END
ZAPS-DDL-CHAR20 is a string of 20 ASCII characters. You can address them as a
STRUCT, as bytes, or as integers.
DEFINITION ZAPS-DDL-CHAR20.
02 ZLEN TYPE ZAPS-DDL-INT1.
02 ZC PIC X(20).
02 ZS REDEFINES ZC.
03 ZI TYPE BINARY 16 OCCURS 10 TIMES.
02 ZB REDEFINES ZC PIC X OCCURS 20 TIMES.
END
ZAPS-DDL-CHAR32 is a string of 32 ASCII characters. You can address them as a
STRUCT, as bytes, or as integers.
DEFINITION ZAPS-DDL-CHAR32.
02 ZLEN TYPE ZAPS-DDL-INT1.
02 ZC PIC X(32).
02 ZS REDEFINES ZC.
03 ZI TYPE BINARY 16 OCCURS 16 TIMES.
02 ZB REDEFINES ZC PIC X OCCURS 32 TIMES.
END