Previous Topic: Zero SubscriptsNext Topic: Demonstration


What You Can Do

You can define an alphanumeric work field, redefine adjacent storage to contain segments of the work field, and reference the segments with explicit subscripts.

How to Do It

  1. Define the subscripted work field by coding a work field parameter (0) with:
    1. The name of the primary work field that redefines the adjacent fields
    2. A period (.) followed immediately by zero (0)
    3. Spaces (enclosed in single quotation marks) to indicate the length of the primary work field
      010 NAME-0.0 '         '
      
  2. Redefine the storage area that immediately follows the zero-subscripted work field by coding on one or more work field parameters (in alphabetical or numerical order):
    1. The prefix of the field name being defined
    2. Spaces (enclosed in single quotation marks) to indicate the length of the redefined field:
      010 NAME-0.0 '         '
      010 NAME-1 '  '
      
  3. Reference a zero-subscripted work field by using:
    1. The name of the work field
    2. An explicit subscript
      010 FIELD-0.0 '         '
      010 FIELD-1 ' '
      010 FIELD-2 '     '
      010 FIELD-3 '   '
      0151*010 FIELD-0.1  $References the first occurrence of FIELD-0.0