使用国家团体作为基本项目

在以下示例中，将国家或地区组项 Group-1移至国家或地区编辑的项 Edited-date。 由于 Group-1 在移动期间被视为基本数据项，因此将在接收数据项中进行编辑。 移动后 Edited-date 中的值在本地字符中为 06/23/2010 。

01  Edited-date  PIC NN/NN/NNNN  USAGE NATIONAL.
01  Group-1    GROUP-USAGE NATIONAL.
    02 Month     PIC 99   VALUE 06.
    02 DayOf     PIC 99   VALUE 23.
    02 Year      PIC 9999 VALUE 2010.
    . . .
    MOVE Group-1 to Edited-date.

如果 Group-1 是其每个下级项都具有 USAGE NATIONAL (在每个基本项上显式指定了 USAGE NATIONAL 子句，或在组级别隐式指定了 USAGE NATIONAL 子句) 的字母数字组，那么将发生组移动，而不是基本移动。 在移动过程中不会进行编辑或转换。 移动后 Edited-date 的前八个字符位置中的值将在本地字符中为 06232010 ，其余两个字符位置中的值将是 4 字节的字母数字空格。