FILE-CONTROL 段

FILE-CONTROL 段将 COBOL 程序中的每个文件与外部文件关联起来,并指定文件组织、访问模式和其他信息。

以下格式适用于 FILE-CONTROL 段:

  • 顺序文件条目
  • 已建立索引的文件条目
  • 相对文件条目
  • 行顺序文件条目

下表列出了可用于程序的不同类型的文件。

表 1. 文件类型
文件组织 文件系统
顺序 SFS, STL , RSD1Db2®QSAM2, MONGO
相对 SFS, STL , Db2, MONGO
带索引 SFS, STL , Db2, MONGO
行序 LSQ
  1. RSD 文件系统支持固定或可变长度记录顺序文件。
  2. QSAM 文件系统支持固定记录,变量记录和跨区记录。
  3. 如果指定 SdU 文件类型,那么将像指定 STL 文件一样进行处理。

FILE-CONTROL 段以单词 FILE-CONTROL 开头,后跟分隔符句点。 对于 DATA DIVISION 中的 FD 或 SD 条目中描述的每个文件,它必须包含一个且仅包含一个条目。

在每个条目中,必须首先显示 SELECT 子句。 其他子句可以按任何 顺序 显示。

assignment-name-1external-file-name 组件中允许使用下划线。

格式 1: sequential-file-control-entry

读取语法图跳过可视语法图SELECTOPTIONALfile-name-1ASSIGN TOassignment-name-1USINGdata-name-9 RESERVEintegerAREAAREASORGANIZATIONISSEQUENTIALPADDINGCHARACTERISdata-name-5literal-2RECORD DELIMITERISSTANDARD-1assignment-name-2ACCESSMODEISSEQUENTIALPASSWORDISdata-name-6FILESTATUSISdata-name-1data-name-8WITHLOCKONMULTIPLERECORDRECORDS.

格式 2: 已建立索引的文件控制条目

读取语法图跳过可视语法图SELECTOPTIONALfile-name-1ASSIGN TOassignment-name-1USINGdata-name-9 RESERVE整数AREAAREASORGANIZATIONISINDEXEDACCESSMODEISSEQUENTIALRANDOMDYNAMICRECORDKEYIS data-name-2record-key-name-1SOURCEIS=data-name-10 PASSWORDISdata-name-6条目 1FILESTATUSISdata-name-1data-name-8WITHLOCKONMULTIPLERECORDRECORDS.
条目 1
读取语法图跳过可视语法图ALTERNATERECORDKEYISdata-name-3record-key-name-2SOURCEIS=data-name-11WITHDUPLICATESPASSWORDISdata-name-7
限制: 仅 STL 文件系统支持 record-key-name

格式 3 :relative-file-control-entry

读取语法图跳过可视语法图SELECTOPTIONALfile-name-1ASSIGN TOassignment-name-1USINGdata-name-9 RESERVEintegerAREAAREASORGANIZATIONISRELATIVEACCESSMODEISSEQUENTIALRELATIVEKEYISdata-name-4RANDOMDYNAMICRELATIVEKEYISdata-name-4PASSWORDISdata-name-6FILESTATUSISdata-name-1data-name-8WITHLOCKONMULTIPLERECORDRECORDS.

格式 4: line-sequential-file-control-entry

读取语法图跳过可视语法图SELECTOPTIONALfile-name-1ASSIGN TOassignment-name-1USINGdata-name-9 ORGANIZATIONIS LINE SEQUENTIALACCESSMODEISSEQUENTIALFILESTATUSISdata-name-1data-name-8.