Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]

Re: ＯＣＲ用フォントについて トクダ 2011-4-21 11:53
Re: ＯＣＲ用フォントについて ＥＸＣＨＡＮＧＥ 2011-4-21 19:06
Re: ＯＣＲ用フォントについて トクダ 2011-4-22 10:23

3 Re: ＯＣＲ用フォントについて
トクダ 2011-4-21 11:53  [返信] [編集]

温泉好きのうさぎさん

アドバイスいただいた通り、ESCシーケンスでHSパイカモードを使ってみたら出来ました！
ありがとうございます。
ふだん制御符号はあまり使わないので勉強になりました。
あとESCシーケンスを見ていると、擬似OCRフォントというのがありました。
それを使っても出来ました。

ただ、ひとつ問題が・・・
フォント指定だけCOBOLでやって、印刷はSMART�兇任笋蹐Δ箸靴討い泙后�
私のCOBOlの書き方の問題かもしれませんが。
制御符号を送った後に、何らかの形で改行しないと設定が有効にならないんです。
改行しないで有効にする方法はないでしょうか？

COBOL
*************************************
WRITE XXXX FROM YYYY AFTER 0.
*************************************
AFTER 0 にすると、改行はしないですが有効になりません。
AFTER 1 にすると、改行して有効になります。

AFTER 0 で ファイルをCLOSEすると、改行されて有効になります。
AFTER 0 で ファイルをCLOSEしないで終了すると、改行されませんが有効になりません。

AFTER 0 でも COBOLでなにか印刷すると、有効になっています。一行余分に改行するわけではありません。

説明が分かりにくいかもしれませんが、
アドバイスいただけると助かります。
4 Re: ＯＣＲ用フォントについて
ＥＸＣＨＡＮＧＥ 2011-4-21 19:06  [返信] [編集]

ＭＯＶＥ ""制御コード"" ＴＯ　ＡＡ．
ＷＲＩＴＥ　ＰＲ−ＲＥＣ　ＦＲＯＭ　ＡＡ　ＢＥＦＯＲＥ　０．

というやり方で出来たような記憶があるのですが、だめでしょうか？
5 Re: ＯＣＲ用フォントについて
トクダ 2011-4-22 10:23  [返信] [編集]

ＥＸＣＨＡＮＧＥさん、ありがとうございます。

ＥＸＣＨＡＮＧＥさんのアドバイス通りやってみましたが、
改行されてしまいました。

説明が下手でごめんなさい。
いまは下記のようにしています。
*****************************************************************************
01 MEISAII91.
   02  FILLER    PIC X(03) VALUE ""制御コード"".

WRITE  PRNT-R  FROM  MEISAII91 AFTER  0.  <-- この時点ではプリンタは動きません。
                                              データが来てる様子もないです。
                                              BEFOR 0 でも駄目でした。

CLOSE  PRNT-F. <-- この後、一行改行されます。

STOP RUN.

ＯＣＲフォント指定が有効になります。
*****************************************************************************


他に試してみたやり方です。
その１
*****************************************************************************
01 MEISAII91.
   02  FILLER    PIC X(03) VALUE ""制御コード"".

WRITE  PRNT-R  FROM  MEISAII91 AFTER  1.  <-- １行改行されます。

CLOSE  PRNT-F. <-- 改行されません

STOP RUN.

これはＯＣＲフォント指定が有効になります。
*****************************************************************************



その２
*****************************************************************************
01 MEISAII91.
   02  FILLER    PIC X(03) VALUE ""制御コード"".

WRITE  PRNT-R  FROM  MEISAII91 AFTER  0.  <-- １行改行されません。

STOP RUN.

CLOSEしないで終わってみました。
これはＯＣＲフォント指定が有効になりません。
*****************************************************************************



その３
*****************************************************************************
01 MEISAII91.
   02  FILLER    PIC X(03) VALUE ""制御コード"".
01 MEISAII92.
   02  FILLER    PIC X(04) VALUE "TEST".

WRITE  PRNT-R  FROM  MEISAII91 AFTER  0.  <-- １行改行されません。

WRITE  PRNT-R  FROM  MEISAII92 AFTER  1.  <-- １行改行されます。

STOP RUN.

一行印刷して、CLOSEしないで終わってみました。
これはＯＣＲフォント指定が有効になります。
*****************************************************************************

試してみると改行(ＣＲ）がないとあかんのかなぁと思ったりしました。
書き方がまずかったりするんでしょうか？

BluesBB ©Sting_Band