When moving a group item, the CORRESPONDING phrase can be used to code a move that operates only on the elementary data items that share the same name in both groups.
000010 @OPTIONS MAIN 000020*---------------------------------------------------------------------- 000030* The CORRESPONDING phrase can be used to execute statements that 000040* process only corresponding data items. 000050*---------------------------------------------------------------------- 000060 IDENTIFICATION DIVISION. 000070 PROGRAM-ID. SAMPLE. 000080 DATA DIVISION. 000090 WORKING-STORAGE SECTION. 000100 01 EDITING-DISPLAY. 000110 02 PIC X(6) VALUE " Year ". 000120 02 YEAR PIC 9(4). 000130 02 PIC X(7) VALUE " Month ". 000140 02 MONTH PIC 9(2). 000150 02 PIC X(5) VALUE " Day ". 000160 02 MONTH-DAY PIC 9(2). 000170 02 PIC X(6) VALUE " Hour ". 000180 02 HOUR PIC 9(2). 000200 02 PIC X(8) VALUE " Minute ". 000210 02 MINUTE PIC 9(2). 000220 02 PIC X(8) VALUE " Second ". 000230 02 SECOND PIC 9(2). 000240 01 CURRENT-DATE-AND-TIME. 000250 02 YEAR PIC 9(4). 000260 02 MONTH PIC 9(2). 000270 02 MONTH-DAY PIC 9(2). 000280 02 HOUR PIC 9(2). 000290 02 MINUTE PIC 9(2). 000300 02 SECOND PIC 9(2). 000310 PROCEDURE DIVISION. 000320 MOVE FUNCTION CURRENT-DATE TO CURRENT-DATE-AND-TIME. 000330*---------------------------------------------------------------------- 000340* The CORRESPONDING phrase moves to the corresponding data item (having 000345* the same name). 000350*---------------------------------------------------------------------- 000360 MOVE CORRESPONDING CURRENT-DATE-AND-TIME TO EDITING-DISPLAY. 000370*---------------------------------------------------------------------- 000380 DISPLAY "The current date and time are ". 000385 DISPLAY EDITING-DISPLAY ".". 000390 END PROGRAM SAMPLE.
