Previous Topic Next topic Print topic


REDEFINES

REDEFINES enables you to code clauses in your data structures that redefine elements.
Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Syntax:

dataname REDEF[INES]|R PICformat

Syntax Rules:

  1. When identifing controls in the Control Files clause, dataname must be an elementary data name.
  2. In the following example, B cannot be used as a control variable because it is a group data item. To make B into an elementary data item, use the REDEFINES clause.
    WS01  A                         PIC X(2).
    WS01  B.
          02  B-1                   PIC 9(4).
          02  B-2                   PIC 9(4).
    WS01  B-REDEF  REDEFINES B      PIC X(8).
          .
          .
          .
    RED TEST-REPORT
        CONTROLS ARE A B-REDEF
    

Parameters:

PICformat

PICTURE format for data name being redefined

Example 1: Data Structure Editor format

-LINE- ------- Data Structure Editor --------
000001        WRK1-FIELD-8
000002            WRK1-FIELD-9    X4
000003            WRK1-FIELD-10   X(30)
000004        WRK1-FIELD-11       R X34

Example 2: Generated COBOL code

01  WRK1-FIELD-8.
    05  WRK1-FIELD-9            PIC X(4).
    05  WRK1-FIELD-10       PIC X(30).
01  WRK1-FIELD-11   REDEFINES WRK1-FIELD-8  PIC 
X(34).
Previous Topic Next topic Print topic