列印 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.