COBOL程序无法写入指定文件：status=30错误排查求助

首先明确，libcob返回的status=30是永久文件错误，针对的是输出文件SALESRPT的创建或写入问题，结合你的代码和VS Code环境，按以下方向排查：

1. 路径转义错误 #

你代码里用了Windows反斜杠\定义路径：

SELECT SALESRPT ASSIGN TO 
"C:\Users\Justin\Downloads\SALESRPT.DAT".

COBOL字符串里反斜杠必须转义（写成双反斜杠\\），不然编译器会把\U、\D这类当成特殊转义字符，导致路径解析出错。改成下面两种写法都可以：

-- 双反斜杠转义写法
SELECT SALESRPT ASSIGN TO 
"C:\\Users\\Justin\\Downloads\\SALESRPT.DAT".

-- 正斜杠写法（Windows和Unix系统都兼容）
SELECT SALESRPT ASSIGN TO 
"C:/Users/Justin/Downloads/SALESRPT.DAT".

2. 文件夹权限不足 #

• 确认C:\Users\Justin\Downloads文件夹有写入权限：右键文件夹 → 属性 → 安全选项卡，检查当前用户的权限列表里包含“写入”权限。
• 如果VS Code是用管理员权限启动的，可能导致文件创建时权限上下文冲突，换普通权限重启VS Code再试。

3. 文件被占用 #

• 检查SALESRPT.DAT是否被其他程序打开（比如记事本、Excel），如果是，关闭相关程序后重新运行代码。
• 若之前程序崩溃过，文件可能被系统锁定，重启电脑或者用任务管理器结束相关进程即可。

4. 未初始化变量触发写入错误 #

你的SPACE-CONTROL变量没有设置初始值，第一次执行WRITE语句时，它是默认的无效值，可能触发写入错误。在WORKING-STORAGE段给它添加初始值：

01  PRINT-FIELDS.
    05  PAGE-COUNT      PIC S9(3)   VALUE ZERO.
    05  LINES-ON-PAGE   PIC S9(3)   VALUE +55.
    05  LINE-COUNT      PIC S9(3)   VALUE +99.
    05  SPACE-CONTROL   PIC S9      VALUE 1.

5. 编译器文件名大小写问题 #

部分libcob版本对文件名大小写敏感，确认代码里的SALESRPT和要创建的文件名大小写完全一致——虽然Windows系统本身不区分大小写，但编译器可能有特殊处理逻辑。

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