Previous Topic Next topic Print topic


66 ...RENAMES

Code 66-level RENAMES clauses in your data structures.
Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Syntax:

66 anytext

Syntax Rule:

  1. A 66-level variable needs the same or deeper indentation than the data name it refers to.

Parameters:

anytext

Valid COBOL syntax for 66-levels.

Example 1: Data Structure Editor format

000001   WORK-RECORD
000002      WORK-RECORD-GRP1
000003          WORK-FIELD-1   XX
000004          WORK-FIELD-2   XXX
000005          WORK-FIELD-3   PIC X(04)
000006      WORK-RECORD-GRP2
000007          WORK-FIELD-4   PIC X(02)
000008          WORK-FIELD-5   PIC X(06)
000009      WORK-RECORD-GRP3
000010          WORK-FIELD-6   PIC X(08)
000011          WORK-FIELD-7   PIC X(02)
000012   66  RECORD-1-REN RENAMES WORK-FIELD-1
000013   ... THRU WORK-FIELD-6

Example 2: Generated COBOL code

01  WORK-RECORD.
    05  WORK-RECORD-GRP1.
        10  WORK-FIELD-1        PIC XX.
        10  WORK-FIELD-2        PIC XXX.
        10  WORK-FIELD-3        PIC X(04).
    05  WORK-RECORD-GRP2.
        10  WORK-FIELD-4        PIC X(02).
        10  WORK-FIELD-5        PIC X(06).
    05  WORK-RECORD-GRP3.
        10  WORK-FIELD-6        PIC X(08).
        10  WORK-FIELD-7        PIC X(02).
    66  RECORD-1-REN RENAMES WORK-FIELD-1
                            THRU WORK-FIELD-6.
Previous Topic Next topic Print topic