如何引用不明确的顶级变量

Question

在这段代码中，我想要ACCEPT和DISPLAY01级D变量。虽然05级D很容易，但D OF F，有没有办法指定01级D？

显而易见的解决方案是"只需更改变量名"，但希望有更好的方法！

IDENTIFICATION DIVISION.
PROGRAM-ID. DISAMBIGUATION-ISSUE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 D VALUE PIC 9(8). 
01 F.
05 Y PIC 9(4).
05 M PIC 9(2).
05 D PIC 9(2).
PROCEDURE DIVISION.
*> Errors here, D is ambiguous
ACCEPT D.
DISPLAY "Date: " D.
STOP RUN.

Answer 1

在这种情况下，恐怕唯一的方法就是更改变量名，或者将01级的D变成下级项，例如

01  D-rec.
03  D PIC 9(8).
...
DISPLAY D IN D-rec