TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)

Chapter 6 267
Host Language Access
COBOL II
chapter 3. Tables 3-2 and 3-3 show the TurboIMAGE/XL type designators, sub-item
lengths, and data types typically used to process them in COBOL II.
NOTE All parameters must be on halfword boundaries.
Defining Data Types, Variables, and Intrinsics
The following is part of the COBOL II program; it defines all the data items and records.
IDENTIFICATION DIVISION.
PROGRAM-ID. RECEIVE.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
SYMBOLIC CHARACTERS CLEAR, SCREEN IS 28, 86.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 END-OF-CHAIN PIC S9(4) COMP VALUE 15.
01 END-OF-DATA-SET PIC S9(4) COMP VALUE 11.
01 NO-CHAIN-HEAD PIC S9(4) COMP VALUE 17.
01 NO-SUCH-ENTRY PIC S9(4) COMP VALUE 17.
01 ENTRY-HAS-NO-DATA PIC S9(4) COMP VALUE 17.
01 DBNAME.
05 BASEID PIC X(02).
05 BASENAME PIC X(06).
05 TERMINATOR PIC X(02).
01 PASSWORD PIC X(10).
01 STATUS1.
05 CONDITION PIC S9(4) COMP.
05 LENGTH1 PIC S9(4) COMP.
05 RECORD-NUMBER PIC S9(9) COMP.
05 CHAIN-COUNT PIC S9(9) COMP.
05 BACK-POINTER PIC S9(9) COMP.
05 FORWARD-POINTER PIC S9(9) COMP.
01 OPTION PIC S9(4) COMP.
01 DB-MODE PIC S9(4) COMP.
01 LIST PIC X(80).
01 ERROR-BUFFER PIC X(80).
01 ERROR-LENGTH PIC S9(9) COMP.
01 ANSWER PIC S9(4) COMP.
01 LOCK-DESCRIPTOR-ARRAY.
05 NUM-OF-ELEMENTS PIC S9(4) COMP.
05 LOCK-DESCRIPTOR-SALES.
10 LENGTH-OF-DESCRIPTOR PIC S9(4) COMP.
10 DATA-SET-OF-DESCRIPTOR PIC X(16).
10 DATA-ITEM-OF-DESCRIPTOR PIC X(16).
10 RELOP-FOR-DATA-ITEM PIC X(02).
10 VALUE-FOR-DATA-ITEM PIC X(6).
10 NUM-VALUE-FOR-DATA-ITEM REDEFINES
VALUE-FOR-DATA-ITEM PIC S9(9) COMP.
01 SALES-DETAIL PIC X(16).
01 SEARCH-ITEM-NAME PIC X(16).
01 SEARCH-ITEM-VALUE PIC X(6).
01 SALES-BUFFER.