ここで紹介する OUTPUT という名前のサブルーチンは、内部記述印刷処理を
制御するための安定した動作をシンプルに提供する。
印刷出力のための標識として、明細行であれば42を 合計行であれば 43を ON にして
OUTPUTに渡すだけで確実に、オーバーフロー制御が行なわれる。
長年にわたってこのルーチンを使用してきたが、未だに問題や不便さは感じられない
信頼高いルーチンである。
0009.00 LQPRINT 66FL 62OL
0033.00 C*( 明細印刷 )
0034.00 C*----------------------------------------------------+
0035.00 C SETON 42 |
0036.00 C EXSR OUTPUT | 明細印刷
0037.00 C*----------------------------------------------------+
0042.00 C*( T-LR 最終合計 )
0043.00 C*----------------------------------------------------+
0044.00 CLR SETON 49 |
0045.00 CLR EXSR OUTPUT | 件数印刷
0046.00 C*----------------------------------------------------+
0053.00 C******************************************************
0054.00 C OUTPUT BEGSR
0055.00 C******************************************************
0056.00 CSRN40 SETON 4041
0057.00 CSR EXCPT
0058.00 CSR OF SETOF 40OF
0059.00 CSR SETOF 414243
0060.00 CSR SETOF 444546
0061.00 CSR SETOF 474849
0062.00 CSR ENDSR
0063.00 OQPRINT E 206 41
0064.00 O UDATE Y 8
0065.00 O 14 ' 作成 '
0066.00 O HDR,1 82
0067.00 O 128 'PAGE.'
0068.00 O PAGE Z 131
0069.00 O E 1 41
0070.00 O 10 ' 品種 code'
0071.00 O SHSCOD 14
0072.00 O 22 ' 品種名 '
0073.00 O HNSNAM 36
0074.00 O E 1 41
0075.00 O 10 ' 商品 code'
0076.00 O 34 ' 商品名 '
0077.00 O 68 ' 単価 '
0078.00 O E 2 42
0079.00 O SHCODE 11
0080.00 O SHNAME 46
0081.00 O SHTANKJ 70
0082.00 O E 1 49
0083.00 O 40 ' 処理件数 '
0084.00 O 57 '. . . . . . . . .'
0085.00 O KENSU 2 65