The RENAMES clause can be used to assign a different name to a list of contiguous data items.
Specify the new name and which data items make up this new name in the description entry of level-number 66.
000010 @OPTIONS MAIN 000020*---------------------------------------------------------------------- 000030* The RENAMES clause can be used to rename an area. 000040*---------------------------------------------------------------------- 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SAMPLE. 000070 DATA DIVISION. 000080 WORKING-STORAGE SECTION. 000090 01 EMPLOYEE-DATA. 000100 02 EMPLOYEE-NUMBER PIC 9(8) VALUE 19990120. 000110 02 PIC X(2) VALUE SPACE. 000120 02 WHERE-EMPLOYED PIC X(20) VALUE "Sales department". 000130 02 EMPLOYEE-NAME PIC X(30) VALUE "Fujitsu taro". 000140 02 STREET-ADDRESS PIC X(50) VALUE "123 Main Street". 000150 02 TELEPHONE-NUMBER PIC X(15) VALUE "(123) 456-7890". 000160*---------------------------------------------------------------------- 000170* The RENAMES clause can be used to declare a different memory 000175* organization. 000180* Employee information: Information items from the employee number to 000185* the employee name are renamed. 000190* Personal information: Information items from the employee name to the 000195* telephone number are renamed. 000200*---------------------------------------------------------------------- 000210 66 EMPLOYEE-INFORMATION RENAMES EMPLOYEE-NUMBER THRU EMPLOYEE-NAME. 000220 66 PERSONAL-INFORMATION RENAMES EMPLOYEE-NAME THRU TELEPHONE-NUMBER. 000230*---------------------------------------------------------------------- 000024 77 INFORMATION-TYPE PIC 9. 000250 PROCEDURE DIVISION. 000260 DISPLAY "Please input the information type." 000270 DISPLAY "Employee information (1), Personal information (2), All 000275- "information (3) >>" WITH NO ADVANCING. 000280 ACCEPT INFORMATION-TYPE. 000290*---------------------------------------------------------------------- 000300* The renamed data name can be used in the same way as a group item. 000310*---------------------------------------------------------------------- 000320 EVALUATE INFORMATION-TYPE 000330 WHEN 1 000340 DISPLAY EMPLOYEE-INFORMATION 000350 WHEN 2 000360 DISPLAY PERSONAL-INFORMATION 000370 WHEN 3 000380 DISPLAY EMPLOYEE-DATA 000390 WHEN OTHER 000400 DISPLAY "The input data is incorrect." 000410 END-EVALUATE. 000420*---------------------------------------------------------------------- 000430 END PROGRAM SAMPLE.
