すべてのページへの見出しの印刷例

図 1 には、すべてのページへの見出しの印刷に必要なコーディングの例が 示されています。1 ページ目、すべてのオーバーフロー・ページ、および制御フィールドの変更 (L2 がオン) の ために開始される各改ページ。 最初の行によって、オーバーフローが起こった (OA がオンで L2 がオンでない) 時にのみ、 見出しを新しいページの最上部 (06 にスキップ) に印刷することができます。

2 行目では、新制御グループの始め (L2 がオン) でのみ新しいページに見出し を印刷することができます。 この方法では、L2 と OA の両方がオンになることに よって発生する重複見出しは起こりません。 2 行目によって、制御フィールドが レコードで指定されている場合には、最初のレコードは常に制御の 切れ目となる (L2 をオンにする) ので、最初のレコードが読み取られた後に、見出しを 1 ページ目に印刷することができます。

図 1. すべてのページへの見出しの印刷
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... *
OFilename++DF..N01N02N03Excnam++++B++A++Sb+Sa+.............................
OPRINT     H    OANL2                  3  6
O..............N01N02N03Field+++++++++YB.End++PConstant/editword/DTformat++
O         OR    L2
O                                            8 'DATE'
O                                           18 'ACCOUNT'
O                                           28 'N A M E'
O                                           46 'BALANCE'
O*