Michael Coughlan
Page 74
Table/Array Differences ������������������������������������������������������������������������������������������������������������������������������������� 248
Declaring Tables ������������������������������������������������������������������������������������������������������������������������248
OCCURS Clause Rules ���������������������������������������������������������������������������������������������������������������������������������������� 248
Subscript Rules ������������������������������������������������������������������������������������������������������������������������������������������������� 249
Why Use Tabular Data? ��������������������������������������������������������������������������������������������������������������249
First Specification ���������������������������������������������������������������������������������������������������������������������������������������������� 249
Second Specification ����������������������������������������������������������������������������������������������������������������������������������������� 250
Using a Table for the State Sales Totals ������������������������������������������������������������������������������������������������������������� 251
Third Specification: Group Items as Table Elements ������������������������������������������������������������������������������������������ 253
Tabular Data Program ���������������������������������������������������������������������������������������������������������������������������������������� 254
Multidimensional Tables ������������������������������������������������������������������������������������������������������������256
Multidimensional Program �������������������������������������������������������������������������������������������������������������������������������� 257
Correct Depiction of COBOL Tables �������������������������������������������������������������������������������������������������������������������� 260
Three-Dimensional Tables ��������������������������������������������������������������������������������������������������������������������������������� 260
xiv
■ Contents
Prefilled Tables ��������������������������������������������������������������������������������������������������������������������������262
REDEFINES Clause ��������������������������������������������������������������������������������������������������������������������������������������������� 263
Creating Prefilled Tables of Values��������������������������������������������������������������������������������������������������������������������� 263
Creating a Prefilled Two-dimensional Table ������������������������������������������������������������������������������������������������������� 264
ANS 85 Table Changes ��������������������������������������������������������������������������������������������������������������270
Summary �����������������������������������������������������������������������������������������������������������������������������������271
Specification Extension ������������������������������������������������������������������������������������������������������������������������������������� 272
Chapter 12: Adv
■
anced Data Declaration �����������
��������������������������������������������������������������273
The Redefines Clause ����������������������������������������������������������������������������������������������������������������273
Specification: Aromamora Base Oil Sales Report ���������������������������������������������������������������������������������������������� 273
The REDEFINES Clause ��������������������������������������������������������������������������������������������������������������280
REDEFINES Syntax ��������������������������������������������������������������������������������������������������������������������������������������������� 280
REDEFINES Notes ���������������������������������������������������������������������������������������������������������������������������������������������� 280
REDEFINES Examples ���������������������������������������������������������������������������������������������������������������������������������������� 281
The RENAMES Clause ����������������������������������������������������������������������������������������������������������������284
RENAMES Syntax ����������������������������������������������������������������������������������������������������������������������������������������������� 284
RENAMES Notes ������������������������������������������������������������������������������������������������������������������������������������������������ 284
RENAMES Examples ������������������������������������������������������������������������������������������������������������������������������������������ 285
Listing Notes ������������������������������������������������������������������������������������������������������������������������������������������������������ 286
The USAGE Clause ���������������������������������������������������������������������������������������������������������������������286
Representation of Numeric Data ����������������������������������������������������������������������������������������������������������������������� 286
Nonstandard USAGE Extensions ������������������������������������������������������������������������������������������������������������������������ 292
Decimal Arithmetic ��������������������������������������������������������������������������������������������������������������������292
Summary �����������������������������������������������������������������������������������������������������������������������������������294
The Problems ����������������������������������������������������������������������������������������������������������������������������������������������������� 294
Program 1 ���������������������������������������������������������������������������������������������������������������������������������������������������������� 299
Program 2 ���������������������������������������������������������������������������������������������������������������������������������������������������������� 300
Program 3 ���������������������������������������������������������������������������������������������������������������������������������������������������������� 301
Program 4 ������������
������������������������������������������������������������������������������������������������������������������������������������������������ 302
References ��������������������������������������������������������������������������������������������������������������������������������302
xv
■ Contents
Chapter 13: Sear
■
ching Tabular Data ������������������������������������������������������������������������������303
SEARCHING Tabular Data �����������������������������������������������������������������������������������������������������������303
Searching Using SEARCH and SEARCH ALL ������������������������������������������������������������������������������303