RENAMES Clause

RENAMES – used to regroup already defined set of data items.

RENAMES should be used only with 66 level variable. 

Example:

01 WS-DATE.                      

     05 WS-DD   PIC X(02).

     05 WS-MM   PIC X(02).

     05 WS-CC   PIC X(02).

       05 WS-YY   PIC X(02).

       66 WS-YYYY RENAMES WS-CC THRU WS-YY