|
|
|
32.改ページでトラブらない印刷出力のサブルーチン
|
|
ここで紹介する 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
|
|
|
