打印 EJECT

PRINT EJECT 在输出的新页面顶部显示指定的信息。 每次执行时， PRINT EJECT 都会导致页面弹出。

PRINT EJECT [OUTFILE='file'] [ENCODING='encoding specification']
  [RECORDS={1}] [{NOTABLE}] 
           {n}   {TABLE  }

  /{1    } varlist [{col location [(format)]}] [varlist...] 
   {rec #}          {(format list)          }
                    {*                      }

 [/{2    }...] 
   {rec #}

此命令不会读取活动数据集。 将存储此数据集，并使用读取数据集的下一个命令暂挂执行。 请参阅主题 命令顺序 以获取更多信息。

发布历史

发行版 16.0

• 为 Unicode 支持添加了 ENCODING 子命令。

示例

DO IF $CASENUM EQ 1.
PRINT EJECT /'   NAME ' 1 'DEPT' 25 'HIRED' 30 '  SALARY' 35.
END IF.
PRINT / NAME DEPT *
        MOHIRED(T30,F2) '/' YRHIRED *
        SALARY (T35,DOLLAR8).
EXECUTE.