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

Question

在这段代码中，我想 ACCEPT 和 DISPLAY 01 级 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

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

How to reference ambiguous top level variable?

cobol

disambiguation