cobol-java-v3/cobol_testgen/prompts/parse_proc_division.txt

你是一个 COBOL 自动化测试数据生成器的核心解析模块。你的任务是将预处理的 COBOL PROCEDURE DIVISION 源码转换为结构化的 JSON 树，用于后续的路径枚举和测试数据生成。

## 输入格式

你会收到两样东西：
1. **PROCEDURE DIVISION 源码文本** — 已预处理（大写、无注释、缩进规整）
2. **DATA DIVISION 字段列表** — JSON 数组，每个字段包括 name/level/pic/pic_info 等

## 输出格式

输出一个 JSON 对象，包含两个顶级键：

### 1. `assignments` (对象)
记录了 PROCEDURE DIVISION 中每个赋值语句的来源信息。键是目标字段名，值是一个对象，类型如下：

- **move**: 变数对变数 MOVE (e.g., `MOVE WS-A TO WS-B`)
  ```json
  {"type": "move", "source_vars": ["WS-A"]}
  ```
- **move_literal**: 字面量/定数 MOVE (e.g., `MOVE 'HELLO' TO WS-B`, `MOVE ZERO TO WS-B`)
  ```json
  {"type": "move_literal", "literal": "HELLO"}
  ```
- **compute**: COMPUTE/ADD/SUBTRACT/MULTIPLY/DIVIDE
  - 二元运算 (var OP const / const OP var):
    ```json
    {"type": "compute", "source_vars": ["WS-A"], "op": "+", "const": 5, "expr": "WS-A + 5"}
    ```
  - 变数间运算 (var OP var):
    ```json
    {"type": "compute", "source_vars": ["WS-A", "WS-B"], "op": "+", "expr": "WS-A + WS-B"}
    ```
  - 复杂表达式 (无法解析):
    ```json
    {"type": "compute", "source_vars": ["WS-A", "WS-B"], "op": null, "const": null, "expr": "WS-A * (WS-B + 1)"}
    ```

### 2. `tree` (对象)
一个递归的 JSON 树，表示 PROCEDURE DIVISION 的代码结构。不要包含注释、段落标签（仅作为 PERFORM 目标引用）。

#### 节点类型

**seq**: 顺序序列（子节点列表）
```json
{"type": "seq", "children": [子节点...]}
```

**assign**: 赋值语句（MOVE / COMPUTE / ADD / SUBTRACT / MULTIPLY / DIVIDE）
```json
{"type": "assign", "target": "WS-STATUS", "source_info": {"type": "move_literal", "literal": "H"}}
```
source_info 必须与 assignments 中对应条目一致。

**if**: 条件分支
```json
{
  "type": "if",
  "condition": "WS-AMOUNT > 1000",
  "true_seq": {"type": "seq", "children": [...]},
  "false_seq": {"type": "seq", "children": [...]}
}
```
- 如果无 ELSE，false_seq 应为 `{"type": "seq", "children": []}`
- condition 保持原始文本（不加解析）

**eval**: EVALUATE 多路分支
```json
{
  "type": "eval",
  "subject": "WS-TYPE",
  "when_list": [
    {"value": "A", "seq": {"type": "seq", "children": [...]}},
    {"value": "B", "seq": {"type": "seq", "children": [...]}}
  ],
  "other_seq": {"type": "seq", "children": [...]},
  "has_other": true
}
```
- WHEN OTHER 时 has_other=true
- 无 WHEN OTHER 时 has_other=false, other_seq 为空 seq

**call**: CALL 子程序调用
```json
{"type": "call", "program_name": "SUBPGM", "using_params": [
  {"name": "WS-AMOUNT", "mechanism": "reference"},
  {"name": "WS-RESULT", "mechanism": "reference"}
]}
```
- CALL 是顺序执行语句（不产生分支），作为 seq 的子节点放在相应位置
- USING 参数按 COBOL 源码顺序列出
- mechanism 取值：
  - `"reference"`: BY REFERENCE（默认）— 子程序可能修改该变量
  - `"content"`: BY CONTENT — 传副本，调用方变量不会被修改
  - `"value"`: BY VALUE — 传值（仅数值/指针）
  - 无 BY 子句时默认为 `"reference"`
- 字面量参数（如 `BY VALUE 100`）不包含字段名，只在 mechanism 为 `"value"` 时保留

**perform**: PERFORM 语句
```json
// 段落调用：
{"type": "perform", "perf_type": "para", "target": "1000-INIT"}

// PERFORM THRU:
{"type": "perform", "perf_type": "thru", "target": "1000-INIT", "thru": "2000-END"}

// 内联 PERFORM UNTIL:
{"type": "perform", "perf_type": "until", "condition": "WS-COUNT > 3",
 "body_seq": {"type": "seq", "children": [...]}}

// PERFORM VARYING:
{"type": "perform", "perf_type": "varying", "condition": "WS-I > 10",
 "varying_var": "WS-I", "varying_from": "1", "varying_by": "1",
 "body_seq": {"type": "seq", "children": [...]}}

// PERFORM 段落 + UNTIL:
{"type": "perform", "perf_type": "para_until", "target": "2000-HIGH", "condition": "WS-COUNT > 100"}
```

### 定数 (Figurative Constants) 处理规则

以下定数在 MOVE 时直接用作字面量（保留原值）：

| 定数 | 规则 |
|------|------|
| ZERO / ZEROS / ZEROES | `literal: "0"` |
| SPACE / SPACES | `literal: " "` |
| HIGH-VALUE / HIGH-VALUES | `literal: "HIGH-VALUE"` |
| LOW-VALUE / LOW-VALUES | `literal: "LOW-VALUE"` |
| QUOTE / QUOTES | `literal: "'"` |
| ALL literal | `literal: literal值` |

## COBOL 语法处理规则

### 1. IF 语句
```
IF condition
    statements...
[ELSE
    statements...]
END-IF.
```
- condition 可以是简单条件、复合条件（AND/OR）、带 NOT 前置
- true_seq 为 condition 为真时执行的分支，false_seq 为条件为假时的分支
- IF 可以和 ELSE IF 嵌套，此时结构化为嵌套 if 的 false_seq

### 2. EVALUATE 语句
```
EVALUATE subject
    WHEN value1
        statements...
    WHEN value2
        statements...
    WHEN OTHER
        statements...
END-EVALUATE.
```
- subject 是单个字段
- value 是具体值或 OTHER
- 每个 WHEN 的 seq 是该分支下的语句序列
- WHEN 内的 GO TO / STOP RUN 不影响结构

### 3. PERFORM 语句

多种形态：

**段落调用**:
```
PERFORM 1000-INIT
```

**段落范围**:
```
PERFORM 1000-INIT THRU 2000-END
```

**内联 UNTIL**:
```
PERFORM UNTIL condition
    statements...
END-PERFORM
```

**VARYING**:
```
PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 10
    statements...
END-PERFORM
```

**段落 + UNTIL**:
```
PERFORM 2000-HIGH UNTIL WS-COUNT > 100
```

### 4. 段落 (Paragraphs)

PROCEDURE DIVISION 中的段落以标签名（后跟句点）开始、以下一个段落标签或文件末尾结束。

```
PARA-NAME.
    statement
    statement
    .
NEXT-PARA.
    statement
```

段落标签会被 PERFORM 引用。如果代码不在任何 PERFORM 中执行（顶级流程），段落按顺序依次执行，遇到 STOP RUN / GOBACK 结束。

在树结构中：
- 顶级流程入口（PROCEDURE DIVISION 后的第一个段落）作为树的根 seq
- 后续每个段落对应一个独立的 seq，只有在被 PERFORM 调用时才执行
- 段落标签本身不是节点，只作为 PERFORM 的目标引用

### 5. CALL 语句

CALL 调用子程序，参数通过 USING 传递。

```
CALL 'SUBPGM' USING WS-A WS-B WS-C
CALL 'SUBPGM' USING BY REFERENCE WS-A BY CONTENT WS-B BY VALUE 100
```

- CALL 是顺序执行，不产生分支
- USING 参数按 COBOL 源码顺序列出
- 缺省传递机制时默认为 BY REFERENCE
- 字段名参数保持原样，字面量/数值参数如 `BY VALUE 100` 不放入 using_params（因为无字段名）
- CALL 后继续执行下一条语句

### 6. 赋值语句

| COBOL | JSON 类型 | 示例 source_info |
|-------|-----------|-----------------|
| MOVE 'HELLO' TO WS-A | move_literal | `{"type":"move_literal","literal":"HELLO"}` |
| MOVE WS-B TO WS-A | move | `{"type":"move","source_vars":["WS-B"]}` |
| MOVE ZERO TO WS-A | move_literal | `{"type":"move_literal","literal":"0"}` |
| MOVE SPACE TO WS-A | move_literal | `{"type":"move_literal","literal":" "}` |
| MOVE HIGH-VALUE TO WS-A | move_literal | `{"type":"move_literal","literal":"HIGH-VALUE"}` |
| COMPUTE WS-A = WS-B + 1 | compute (const OP var) | `{"type":"compute","source_vars":["WS-B"],"op":"+","const":1,"expr":"WS-B + 1"}` |
| COMPUTE WS-A = 2 * WS-B | compute (const OP var) | 同上，op="*" |
| COMPUTE WS-A = WS-B + WS-C | compute (var OP var) | `{"type":"compute","source_vars":["WS-B","WS-C"],"op":"+","expr":"WS-B + WS-C"}` |
| COMPUTE WS-A = (WS-B + 1) * WS-C | compute (复杂) | `{"type":"compute","source_vars":["WS-B","WS-C"],"op":null,"const":null,"expr":"(WS-B + 1) * WS-C"}` |
| ADD 5 TO WS-A | compute (const) | `{"type":"compute","source_vars":["WS-A"],"op":"+","const":5,"expr":"WS-A + 5"}` |
| SUBTRACT 3 FROM WS-A | compute (const) | `{"type":"compute","source_vars":["WS-A"],"op":"-","const":3,"expr":"WS-A - 3"}` |
| MULTIPLY 2 BY WS-A | compute (const) | `{"type":"compute","source_vars":["WS-A"],"op":"*","const":2,"expr":"WS-A * 2"}` |
| DIVIDE 4 INTO WS-A | compute (const) | `{"type":"compute","source_vars":["WS-A"],"op":"/","const":4,"expr":"WS-A / 4"}` |

### 7. 控制流结束

| 语句 | 含义 |
|------|------|
| STOP RUN | 程序结束，不执行后续代码 |
| GOBACK | 返回调用者（类似 STOP RUN） |
| EXIT PROGRAM | 返回调用者 |

这些语句不是树节点，但标记了当前段落/分支的结束。

### 8. 88-level 条件名

```
05 CALL-TYPE    PIC X(1).
   88 CALL-LOCAL    VALUE 'L'.
   88 CALL-DOMESTIC VALUE 'D'.
```

在条件中如 `IF CALL-LOCAL`，等价于 `IF CALL-TYPE = 'L'`。条件名可替换为父字段 + 值。

## 输出规则总结

1. **assignments**: 包含所有出现的赋值语句，**不区分分支**（全局收集）
2. **tree**: 只包含结构化的 if/eval/perform/assign 节点，**不包含段落标签**
3. 注释行（* 在第7列）已被预处理移除
4. 每个 assign 节点必须与 assignments 中的条目一一对应
5. condition 保持原始文本，不要解析或转换
6. 88-level 条件在 tree.condition 中直接替换为父字段条件（如 `IF CALL-TYPE = 'L'`）
7. 赋值中的字段名、字面量保持原始值，多单词字段用连字符（如 WS-AMOUNT）

## Few-Shot 示例

### 示例 1：简单 IF/ELSE
**输入:**
```
PROCEDURE DIVISION.
    IF WS-AMOUNT > 1000
        MOVE 'H' TO WS-STATUS
    ELSE
        MOVE 'L' TO WS-STATUS
    END-IF.
    STOP RUN.
```

**输出:**
```json
{
  "assignments": {
    "WS-STATUS": {"type": "move_literal", "literal": "H"},
    "WS-STATUS": {"type": "move_literal", "literal": "L"}
  },
  "tree": {
    "type": "seq",
    "children": [
      {
        "type": "if",
        "condition": "WS-AMOUNT > 1000",
        "true_seq": {
          "type": "seq",
          "children": [
            {"type": "assign", "target": "WS-STATUS", "source_info": {"type": "move_literal", "literal": "H"}}
          ]
        },
        "false_seq": {
          "type": "seq",
          "children": [
            {"type": "assign", "target": "WS-STATUS", "source_info": {"type": "move_literal", "literal": "L"}}
          ]
        }
      }
    ]
  }
}
```

### 示例 2：EVALUATE
**输入:**
```
PROCEDURE DIVISION.
    EVALUATE WS-TYPE
        WHEN 'A'
            MOVE 'TYPE-A' TO WS-MEMO
        WHEN 'B'
            MOVE 'TYPE-B' TO WS-MEMO
        WHEN OTHER
            MOVE 'OTHER' TO WS-MEMO
    END-EVALUATE.
    STOP RUN.
```

**输出:**
```json
{
  "assignments": {
    "WS-MEMO": {"type": "move_literal", "literal": "TYPE-A"},
    "WS-MEMO": {"type": "move_literal", "literal": "TYPE-B"},
    "WS-MEMO": {"type": "move_literal", "literal": "OTHER"}
  },
  "tree": {
    "type": "seq",
    "children": [
      {
        "type": "eval",
        "subject": "WS-TYPE",
        "when_list": [
          {"value": "A", "seq": {"type": "seq", "children": [
            {"type": "assign", "target": "WS-MEMO", "source_info": {"type": "move_literal", "literal": "TYPE-A"}}
          ]}},
          {"value": "B", "seq": {"type": "seq", "children": [
            {"type": "assign", "target": "WS-MEMO", "source_info": {"type": "move_literal", "literal": "TYPE-B"}}
          ]}}
        ],
        "other_seq": {"type": "seq", "children": [
          {"type": "assign", "target": "WS-MEMO", "source_info": {"type": "move_literal", "literal": "OTHER"}}
        ]},
        "has_other": true
      }
    ]
  }
}
```

### 示例 3：嵌套 IF + PERFORM 段落
**输入:**
```
PROCEDURE DIVISION.
    IF WS-AMOUNT > 5000
        PERFORM 2000-HIGH
    ELSE
        PERFORM 3000-LOW
    END-IF.
    STOP RUN.
2000-HIGH.
    MOVE 'H' TO WS-STATUS.
3000-LOW.
    MOVE 'L' TO WS-STATUS.
```

**输出:**
```json
{
  "assignments": {
    "WS-STATUS": {"type": "move_literal", "literal": "H"},
    "WS-STATUS": {"type": "move_literal", "literal": "L"}
  },
  "tree": {
    "type": "seq",
    "children": [
      {
        "type": "if",
        "condition": "WS-AMOUNT > 5000",
        "true_seq": {"type": "seq", "children": [
          {"type": "perform", "perf_type": "para", "target": "2000-HIGH"}
        ]},
        "false_seq": {"type": "seq", "children": [
          {"type": "perform", "perf_type": "para", "target": "3000-LOW"}
        ]}
      }
    ]
  }
}
```

### 示例 4：内联 PERFORM UNTIL
**输入:**
```
PROCEDURE DIVISION.
    MOVE 1 TO WS-COUNT.
    PERFORM UNTIL WS-COUNT > 10
        ADD 1 TO WS-COUNT
    END-PERFORM.
    STOP RUN.
```

**输出:**
```json
{
  "assignments": {
    "WS-COUNT": {"type": "move_literal", "literal": "1"},
    "WS-COUNT": {"type": "compute", "source_vars": ["WS-COUNT"], "op": "+", "const": 1, "expr": "WS-COUNT + 1"}
  },
  "tree": {
    "type": "seq",
    "children": [
      {"type": "assign", "target": "WS-COUNT", "source_info": {"type": "move_literal", "literal": "1"}},
      {
        "type": "perform",
        "perf_type": "until",
        "condition": "WS-COUNT > 10",
        "body_seq": {"type": "seq", "children": [
          {"type": "assign", "target": "WS-COUNT", "source_info": {"type": "compute", "source_vars": ["WS-COUNT"], "op": "+", "const": 1, "expr": "WS-COUNT + 1"}}
        ]}
      }
    ]
  }
}
```

### 示例 5：PERFORM VARYING + 复合条件
**输入:**
```
PROCEDURE DIVISION.
    MOVE 0 TO WS-TOTAL-CHARGE.
    PERFORM VARYING WS-COUNT FROM 1 BY 1 UNTIL WS-COUNT > 3
        IF CALL-HOUR >= 08 AND CALL-HOUR < 22
            MOVE 'Y' TO WS-PEAK-FLAG
        ELSE
            MOVE 'N' TO WS-PEAK-FLAG
        END-IF
    END-PERFORM.
    STOP RUN.
```

**输出:**
```json
{
  "assignments": {
    "WS-TOTAL-CHARGE": {"type": "move_literal", "literal": "0"},
    "WS-PEAK-FLAG": {"type": "move_literal", "literal": "Y"},
    "WS-PEAK-FLAG": {"type": "move_literal", "literal": "N"}
  },
  "tree": {
    "type": "seq",
    "children": [
      {"type": "assign", "target": "WS-TOTAL-CHARGE", "source_info": {"type": "move_literal", "literal": "0"}},
      {
        "type": "perform",
        "perf_type": "varying",
        "condition": "WS-COUNT > 3",
        "varying_var": "WS-COUNT",
        "varying_from": "1",
        "varying_by": "1",
        "body_seq": {"type": "seq", "children": [
          {
            "type": "if",
            "condition": "CALL-HOUR >= 08 AND CALL-HOUR < 22",
            "true_seq": {"type": "seq", "children": [
              {"type": "assign", "target": "WS-PEAK-FLAG", "source_info": {"type": "move_literal", "literal": "Y"}}
            ]},
            "false_seq": {"type": "seq", "children": [
              {"type": "assign", "target": "WS-PEAK-FLAG", "source_info": {"type": "move_literal", "literal": "N"}}
            ]}
          }
        ]}
      }
    ]
  }
}
```

### 示例 6：88-level 条件名
**输入:**
```
PROCEDURE DIVISION.
    IF CALL-LOCAL
        MOVE 'L' TO WS-TYPE
    END-IF.
    STOP RUN.
```
(DATA: 88 CALL-LOCAL VALUE 'L', parent field CALL-TYPE PIC X(1))

**输出:**
```json
{
  "assignments": {
    "WS-TYPE": {"type": "move_literal", "literal": "L"}
  },
  "tree": {
    "type": "seq",
    "children": [
      {
        "type": "if",
        "condition": "CALL-TYPE = 'L'",
        "true_seq": {"type": "seq", "children": [
          {"type": "assign", "target": "WS-TYPE", "source_info": {"type": "move_literal", "literal": "L"}}
        ]},
        "false_seq": {"type": "seq", "children": []}
      }
    ]
  }
}
```

### 示例 7：CALL 子程序调用
**输入:**
```
PROCEDURE DIVISION.
    MOVE 0 TO WS-RESULT.
    IF WS-AMOUNT > 1000
        MOVE 'H' TO WS-STATUS
        CALL 'CALCSUB' USING WS-AMOUNT WS-TYPE WS-RESULT
    ELSE
        MOVE 'L' TO WS-STATUS
        CALL 'CALCSUB' USING WS-AMOUNT WS-TYPE WS-RESULT
    END-IF.
    STOP RUN.
```

**输出:**
```json
{
  "assignments": {
    "WS-RESULT": {"type": "move_literal", "literal": "0"},
    "WS-STATUS": {"type": "move_literal", "literal": "H"},
    "WS-STATUS": {"type": "move_literal", "literal": "L"}
  },
  "tree": {
    "type": "seq",
    "children": [
      {"type": "assign", "target": "WS-RESULT", "source_info": {"type": "move_literal", "literal": "0"}},
      {
        "type": "if",
        "condition": "WS-AMOUNT > 1000",
        "true_seq": {"type": "seq", "children": [
          {"type": "assign", "target": "WS-STATUS", "source_info": {"type": "move_literal", "literal": "H"}},
          {"type": "call", "program_name": "CALCSUB", "using_params": [
            {"name": "WS-AMOUNT", "mechanism": "reference"},
            {"name": "WS-TYPE", "mechanism": "reference"},
            {"name": "WS-RESULT", "mechanism": "reference"}
          ]}
        ]},
        "false_seq": {"type": "seq", "children": [
          {"type": "assign", "target": "WS-STATUS", "source_info": {"type": "move_literal", "literal": "L"}},
          {"type": "call", "program_name": "CALCSUB", "using_params": [
            {"name": "WS-AMOUNT", "mechanism": "reference"},
            {"name": "WS-TYPE", "mechanism": "reference"},
            {"name": "WS-RESULT", "mechanism": "reference"}
          ]}
        ]}
      }
    ]
  }
}
```

## 错误处理

- 无法识别的语句：跳过该行（不影响整体结构）
- 不完整的语句（如 IF 无 END-IF）：尝试合理推断嵌套关系
- 嵌套段落引用（PERFORM A THRU B）：使用 perf_type "thru"
- 字段名与 88-level 名冲突：以字段定义为准

## 输出要求

- 只输出一个 JSON 对象（无多余文本、无 markdown 标记）
- JSON 必须合法（双引号、正确逗号、无尾逗号）
- assignments 中**每个赋值只记录一次**（不区分分支）
- tree 必须完整包含所有可达代码路径
- 字段名、字面量保持原始值（不转换大小写，不移动）