|
1:プリンタの印字についてのご質問 ど素人 07/25 16:39 オフコン(COBOL自体)素人でうまく説明できないかも知れませんが、わかる方教えて下さい。 あるファイルのメンテナンスプログラムを作成しており、 ACCEPTで必要な項目を入力させファイルにWRITE後、 ラインプリンタに入力した情報を印刷し、次のデータ入力 に戻るというプログラムを作成したのですが、うまく動きません。 印刷内容は見出し行(ページの先頭のみ)と入力した情報です。 １件目の登録後に見出し＋１件目データを印字したいのですが、 １件目の登録では見出し行のみ印字され、２件目登録後１件目の情報が印字されます。 プログラムを終了(プリンタのCLOSE)時に最終登録情報が印字されます。 ソースは ACCEPT 項目入力 WRITE ファイル名 １件目ならプリンタOPEN WRITE プリンタ FROM 見出し行 AFTER 1 WRITE プリンタ FROM ファイル情報 AFTER 1 ←これが印字されないまま入力に行ってしまう 項目入力に戻る 終了時プリンタOPENならCLOSE 環境はExpress5800/600 AVX01で作成しています。 よろしくお願いします。 2:Re: プリンタの印字についてのご質問 近藤 07/25 17:08 こんにちは ソースがないとわかりませんが・・・ なんとなく、 WRITE プリンタ FROM ファイル情報 AFTER 1 このファイル情報はどこかのタイミングでMOVEで移送してると思いますが、移送しているタイミングがおかしいのでは？ そこの箇所だけでもソースがほしいっす♪ 3:Re: ｘ２：プリンタの印字についてのご質問 江須扇 07/26 10:19 江須扇と申します。 ＞１件目の登録では見出し行のみ印字され、２件目登録後１件目の情報が印字されます。 この辺にヒントがあるようです。 一回遅れで印字されるということですよね。 ＞プログラムを終了(プリンタのCLOSE)時に最終登録情報が印字されます。 最終的には印字されるということですよね。 ＡＣＣＥＰＴしたものが直ぐに印字しないのがお気に召さないということですよね。 ＞WRITE プリンタ FROM ファイル情報 AFTER 1 ←これが印字されないまま入力に行ってしまう ”ＡＦＴＥＲ １”は１行改行後印字という命令です。 ＞ラインプリンタに入力した情報を印刷し、次のデータ入力 シリアルプリンタでないのが原因ではと考えます 機構的にラインプリンタは同一行に２回以上重ね印字できないという特性があります。 つまり行が変わったという情報を得てから印字します。 対策としては １．”ＡＦＴＥＲ １”の代わりに”ＢＥＦＯＲＥ １”印字後改行を使う ２．ＡＣＣＥＰＴのあと画面に必要項目をＤＩＳＰＬＡＹし画面で確認 老婆心ながら蛇足を書きます オフコンデータ入力はクリーンデータ入力が基本で ＡＣＣＥＰＴ入力時にマスターチェックや論理チェックをし確認画面を出し最終的に問題ない場合データベースに書き込みが普通です。 その後にデータベースからバッチ（まとめて）印字してチェックリストして最終確認と保管リストとします。 目的的に的外れかもしれませんが念の為、書きました。 4:Re: プリンタの印字についてのご質問 07/26 10:48 �� �� ACCEPT �� 000010 IDENTIFICATION DIVISION. 000020 PROGRAM-ID. AAA003. 000030 ENVIRONMENT DIVISION. 000040 CONFIGURATION SECTION. 000050 INPUT-OUTPUT SECTION. 000060 FILE-CONTROL. 000070 SELECT DPFL ASSIGN TO DP-PRN999. 000080* 000090 I-O-CONTROL. 000100* ( 000110 APPLY SHIFT-CODE ON DPFL. 000120* 000130 DATA DIVISION. 000140 FILE SECTION. 000150* ( 000160 FD DPFL LABEL RECORD OMITTED 000170 LINAGE IS 66. 000180* 000190 01 DPFL-R PIC X(136). 000200* 000210 WORKING-STORAGE SECTION. 000220 01 WORK-AREA. 000230 03 END-STATUS. 000240 05 ADV PIC X(02) VALUE "04". 000250 03 WK-ADV PIC X(01). 000260*-----------------------------------------------------------------* 000270* * 000280*-----------------------------------------------------------------* 000290 01 P-TITLE. 000300 03 FILLER PIC X(10) VALUE "". 000310 03 FILLER PIC X(126). 000320 01 P-MIDASHI. 000330 03 FILLER PIC X(04) VALUE "". 000340 03 FILLER PIC X(03). 000350 03 FILLER PIC X(06) VALUE " ". 000360 03 FILLER PIC X(08). 000370 03 FILLER PIC X(08) VALUE "". 000380 03 FILLER PIC X(107). 000390*-----------------------------------------------------------------* 000400* * 000410*-----------------------------------------------------------------* 000420 SCREEN SECTION. 000430 SD GAMEN END STATUS IS END-ST. 000440* 000450 01 SCR01 CLEAR SCREEN. 000460 03 LINE 01 COLUMN 01 PIC N(14) VALUE 000470 NC"". 000480 01 AC-AREA. 000490 03 AC-ADV LINE 22 COLUMN 68 PIC X(01) 000500 USING WK-ADV 000510 NO IFC CHECK OVERFLOW. 000520* 000530 PROCEDURE DIVISION. 000540* 000550 BEGINNING. 000560 DISPLAY SCR01. 000570 OPEN OUTPUT DPFL. 000580* () 000590 WRITE DPFL-R FROM P-TITLE AFTER 2 000600 END-WRITE. 000610* (ACCEPT) 000620 ACCEPT AC-ADV. 000630 EVALUATE END-ST 000640 WHEN ADV 000650* (F10) 000660 WRITE DPFL-R FROM P-MIDASHI AFTER 2 000670 END-WRITE 000680 WHEN OTHER 000690* (��) 000700 CONTINUE 000710 END-EVALUATE. 000720 CLOSE DPFL. 000730 STOP RUN. ACCEPT�� F10CLOSE 5:Re: ｘ２：プリンタの印字についてのご質問 ど素人 07/26 11:26 ご回答ありがとうございます。 ＞つまり行が変わったという情報を得てから印字します。 そういう構造なんですね。勉強になります。 ＞１．”ＡＦＴＥＲ １”の代わりに”ＢＥＦＯＲＥ １”印字後改行を使う 試しにやってみましたが結果は同じでした;; ＞その後にデータベースからバッチ（まとめて）印字してチェックリストして最終確認と保管リストとします。 おっしゃる通り他のプログラムはそのようになっておりますが、 ユーザー（役員レベル）からの強い要望で、画面確認ではなく 登録後即印字して目視で確認してから次を登録するという 仕様になってしまいました。 他のプログラムを見よう見まねで作成したところ今回の事態 になっています。 やはり機構的に無理ということなのでしょうか？ 6:Re: ｘ２：プリンタの印字についてのご質問 07/26 12:36 すこし話しがそれますが、ラインプリンタではなく、シリアルプリンタでは正しく作動するのでしょうか？ 正しく作動するとすれば、 プログラムが正しく動く/動かないの前に、 プログラムの仕様に無理があるのでは？ ラインプリンタに印字されたか否かを判断するのに、 ｢ラインプリンタのカバーをあけ、印字位置アップ(?)し、 印字の確認をする」という操作が必要になってくるのでは。 毎回/毎行、その操作をするということですか？ 話が、とんちんかんであれば、無視してください。 7:Re: ｘ２：プリンタの印字についてのご質問 ど素人 07/26 13:12 ご質問にお答えします。 ＞シリアルプリンタでは正しく作動するのでしょうか？ シリアルプリンタはあるのですが、オフコンにはラインプリンタ とページプリンタが接続されていますので動作確認はしていません。 端末の隣にあるラインプリンタでという前提です。 ＞プログラムの仕様に無理があるのでは？ うすうす感じてします^^; ＞｢ラインプリンタのカバーをあけ、印字位置アップ(?)し、 印字の確認をする」という操作が必要になってくるのでは。 カバーを開けると自動的に紙送りされ、閉じると元の位置に 自動で戻ります。 ＞毎回/毎行、その操作をするということですか？ その通りです^^; 何とか実現する方法がないか質問した次第です。 江須扇様から『ラインプリンタ行が変わったという情報を得てから印字する』と教えて頂いたので、 データ行印字後にスペース行を印字するようにしたところデータ行は印字されるように なりました。根本的な解決にはなってませんが。。。 8:Re: ｘ７：プリンタの印字についてのご質問 江須扇 07/27 16:49 ＞＞１．”ＡＦＴＥＲ １”の代わりに”ＢＥＦＯＲＥ １”印字後改行を使う ＞試しにやってみましたが結果は同じでした;; だめでしたかもうしわけありませんでした。 技術的なことですが、ＣＯＢＯＬの仕様とＯＳ（Ａ−ＶＸ）の仕様が違っているかもしれません。 ”ＢＥＦＯＲＥ １”を使ってもＯＳは改行命令を出力しないのかもしれません。 ＞ユーザー（役員レベル）からの強い要望で、画面確認ではなく ＞登録後即印字して目視で確認してから次を登録するという ＞仕様になってしまいました。 役員のご要望であればしかたありませんね なっとくしました。 ＞データ行印字後にスペース行を印字するようにしたところデータ行は印字されるように ＞なりました。根本的な解決にはなってませんが。。。 チェックリストであれば行間隔が空いたほうがチェックしやすと思いますが、 役員がベタ印刷をご要望されているという事であればむずかしいかもしれません 実機がないのでテストできませんが ”ＢＥＦＯＲＥ １”で印字した後、 スペース行を”ＡＦＴＥＲ ０”で印字すれば改行命令が出力されるかもしれません。 9:Re: プリンタの印字についてのご質問 近藤 07/27 23:37 ソースを要求したのに 大変遅くなり、すみませんでした。 すっかりわすれてました。 たしかにプログラム的には問題ないような気がしますね。 ACCEPT要求をしてるときに印字されていないとなるとおかしいですよね。 プログラムではなければプリンタになるのですが・・・・ 考えられるのが、あるような気がします。 会社に帰ってからはっきりわかりますが、プリンタ側の設定で変えられるのですが、思い出せません。 write命令をだしてもプリンタ側にある程度溜め込めなければ印字しないような設定になっているのではないのでしょうか？ サーバのプリンタ設定でラインプリンタを見てもらう事になります。プリンタ設定の中に ｱﾙﾌｧﾍﾞｯﾄ 3文字 Ｅ？？ ？？？ ？？？ ？？？ ３から４種類を選択できる所がありますが この箇所を変えれば直出力になります。 自宅ではわからないので、月曜日まで持ち越すか どなたかわかる人にお任せします。 中途半端な回答になりすみません。 （ラインプリンタが会社になくＵＳＥＲ先に行かないと確認が取れませんｗ ３文字がまったくでてこないｗ "Ｅ"がついて、"Ｕ"もついてたような気がします、悔しいです） 10:Re: ｘ２：プリンタの印字についてのご質問 オフコン人 07/30 09:55 プリンタの機種は何になるでしょうか？ 後ろにCMと付くタイプのプリンタだと、そのような仕様のようです。 １行目の印刷データを出力しただけでは、印刷を行わず、次の行の印刷データを出力すると、１行目の印刷データを印字するようです。 |