Book Read Free

Michael Coughlan

Page 74

by Beginning COBOL for Programmers-Apress (2014) (pdf)


  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

 

‹ Prev