如何将给定结构的PL/I copybook转换为COBOL copybook？

本次参考待转换的PL/I copybook示例结构：

2 PL_COPYBOOK.
  3 FIRST_FIELD   CHAR(20).
  3 SECOND_FIELD  FIXED(5).
  3 THIRD_FIELD   FIXED(9,0).
  3 FOURTH_FIELD  FIXED(7,1).
  3 FIFTH_FIELD   BIT(8).
  3 SIXTH_FIELD   FIXED BIN(15).

通用转换基础规则 #

• 层级结构直接复用原有数值：PL/I和COBOL都是用带缩进的数字层级定义嵌套数据结构，原有层级编号不需要调整
• 字段名适配语法：PL/I字段名常用的下划线分隔符要替换为COBOL语法支持的中划线，避免编译报错
• 语法格式对齐：每个字段的完整定义末尾加句点，符合COBOL copybook的语法要求
• 核心校验要求：转换前后必须逐字段核对存储偏移，保证和PL/I原结构的内存布局完全对齐，避免数据读写错位

逐数据类型转换规则与字段对照 #

字符型字段（CHAR(n)） #

• 映射规则：PL/I定长字符CHAR(n)无额外存储开销，直接对应COBOL字母数字型PIC X(n)
• 示例转换：原3 FIRST_FIELD CHAR(20). → 03 FIRST_FIELD PIC X(20).

十进制定点字段（无显式存储标注的FIXED(p,s)） #

• 映射规则：这类PL/I默认定义的定点数为压缩十进制格式，总位数p为包含符号位、小数位的总数字长度，s为隐含小数位数；对应COBOL的COMP-3压缩十进制类型，用V标识不占实际存储的隐含小数位
  • 当s=0时为纯整数，PICTURE串中不需要带小数分隔位
• 示例字段转换：
  • FIXED(5)（总5位、0小数位整数）→ PIC 9(5) COMP-3
  • FIXED(9,0)（总9位、0小数位整数）→ PIC 9(9) COMP-3
  • FIXED(7,1)（总7位、1位小数）→ PIC 9(6)V9 COMP-3

位型字段（BIT(n)） #

• 映射规则：PL/I定长位串按8位为1字节向上对齐到字节边界存储，n为8的整数倍时和单字节字符长度完全匹配，COBOL端用PIC X对应单字节位域即可，不需要额外位操作语法
• 示例转换：原3 FIFTH_FIELD BIT(8). → 03 FIFTH_FIELD PIC X.

二进制定点字段（FIXED BIN(n)） #

• 映射规则：PL/I显式标注FIXED BIN的二进制定点数，按位宽n匹配COBOL COMP（二进制整数）的标准档位：15位有符号二进制对应2字节半字存储，最大可表示4位十进制整数
• 示例转换：原3 SIXTH_FIELD FIXED BIN(15). → 03 SIXTH_FIELD PIC S9(4) COMP.

转换完成后的完整COBOL Copybook #

02  PL-COPYBOOK.
    03  FIRST_FIELD        PIC X(20).
    03  SECOND_FIELD      PIC 9(5) COMP-3.
    03  THIRD_FIELD       PIC 9(9) COMP-3.
    03  FOURTH_FIELD      PIC 9(6)V9 COMP-3.
    03  FIFTH_FIELD       PIC X.
    03  SIXTH_FIELD       PIC S9(4) COMP.

注意：如果主机编译器对位型字段支持USAGE BIT扩展语法，也可以将BIT(8)字段替换为PIC 9(8) USAGE BIT，本质存储长度和PIC X完全一致，不影响布局对齐。

内容的提问来源于stack exchange，提问作者Mohit