如何在JCL的EASYTRIEVE中实现硬编码表头仅单次输出？

核心思路 #

EASYTRIEVE会对每条输入记录执行一次PROCESS块代码，直接把表头输出写在PROCESS里必然重复打印。解决关键是加一个首次记录标志位，仅在第一条记录时输出表头，后续记录自动跳过。

完整代码示例 #

* EASYTRIEVE PROGRAM TO PROCESS MOVIE DATA
JOB INPUT(INFILE) OUTPUT(OUTFILE)

* 定义输入数据集结构（根据实际数据调整字段位置/长度）
INFILE LENGTH(80)
  TITLE         1  20  A
  GENRE-CODE    21  2   N
  RATING-PACKED 23  3   P(3,1)  * 直接定义PACKED DECIMAL类型解析评分

* 定义输出数据集结构
OUTFILE LENGTH(40)
  OUT-TITLE     1  20  A
  OUT-GENRE     21  10  A
  OUT-RATING    32  5   A

* 定义首次记录控制标志
WORKING-STORAGE
  FIRST-RECORD  1  1   A   VALUE('Y')

PROCESS
  * Genre编码转文字映射
  SELECT GENRE-CODE
    WHEN 1  MOVE 'ACTION'      TO OUT-GENRE
    WHEN 2  MOVE 'COMEDY'      TO OUT-GENRE
    WHEN 3  MOVE 'DRAMA'       TO OUT-GENRE
    OTHERWISE MOVE 'UNKNOWN'   TO OUT-GENRE
  END-SELECT

  * 转换PACKED评分为可读格式
  MOVE RATING-PACKED TO OUT-RATING EDITED '(9.9)'

  * 表头仅输出一次控制逻辑
  IF FIRST-RECORD = 'Y'
    PRINT 'Title                Genre      Rating'
    PRINT '-------------------- ---------- -----'
    MOVE 'N' TO FIRST-RECORD
  END-IF

  * 输出数据行
  PRINT OUTFILE

关键细节说明 #

1. 首次记录标志：FIRST-RECORD初始设为Y，第一条记录输出表头后改为N，后续记录自动跳过表头输出逻辑，完全适配EASYTRIEVE每条记录必走PROCESS的循环特性。
2. Genre转换：用SELECT CASE结构做编码映射，比多个IF判断更简洁易维护。
3. Packed评分解析：直接在输入字段定义时指定P(3,1)（总位数3，小数位1），EASYTRIEVE会自动解析PACKED数据，再通过EDITED格式转成易读的字符串输出。
4. 为什么GOTO无效？EASYTRIEVE的PROCESS块是每条记录的强制执行逻辑，GOTO只能在单条记录的处理流程内跳转，无法跳过后续记录的表头输出，标志位才是适配这种循环逻辑的正确方式。

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