COBOL：GDG 文件描述符 (FD) 可以引用多代吗？

我有一个程序可以读取 GDG 文件并将数据移动到工作存储。我很想知道是否可以使用对文件定义的引用对多代 GDG 重复此过程。也许有一种方法可以在文件定义上使用下标？我的想法是必须有一种方法将不同的文件定义移动到引用变量中以访问文件。

基于建议的代码示例，setenv解决方案

FILE-CONTROL.
SELECT DATAIN        ASSIGN TO UT-S-DATAIN.

DATA DIVISION.
FILE-SECTION.
FD  DATAIN                         
BLOCK CONTAINS 0 RECORDS       
RECORD CONTAINS 133 CHARACTERS 
LABEL RECORDS ARE STANDARD     
DATA RECORD IS DATA-REC.       
01  DATA-REC   PIC X(133).         

WORKING-STORAGE SECTION.   
01  ENV-VARS.                                             
02  ENV-NAME        PIC  X(9).                        
02  ENV-VALUE       PIC  X(100).                      
02  ENV-OVERWRITE   PIC  S9(8) COMPUTATIONAL VALUE 1.

PROCEDURE DIVISION.
MOVE Z"DATAIN" TO ENV-NAME                                   
MOVE Z"DSN(PROGRAMMER.TEST.GDGFILE(-1)),SHR" TO ENV-VALUE 
MOVE 1 TO ENV-OVERWRITE                                      
CALL "setenv" USING ENV-NAME ENV-VALUE ENV-OVERWRITE.

Notes

1. 将 DSN 值移至 ENV-VALUE 时要特别注意。在我第一次挥杆时，我省略了右括号，很可能是因为 JCL 肌肉记忆。
2. 请务必清空 JCL/Step 中的 DD 语句。