ＮＥＣのオフコン情報掲示板（ノウハウ系）
| ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
| Re: ｘ２：プリンタの印字についてのご質問 | |
| ど素人 2012-7-31 9:33:58
[返信] [編集] ご回答ありがとうございます。 プリンタはNECのN1153-021でございます。 | |
| Re: プリンタの印字についてのご質問 | |
| ど素人 2012-7-31 9:32:22
[返信] [編集] ご回答ありがとうございます。 他の回答者様からAFTER 0を使用してみてはと 言われたのでBEFOREで印字し最後にSPACE行のAFTER 0 を使用したところ印字できるようになりました。 ただプリンタ設定でどうにかなるのであればそちらの方が 良いので詳細が分かりましたらお教え下さい。 | |
| ＤＥＶＬＯＰ（開発支援プログラム）の簡易説明（その１） | |
| 江須扇 2012-7-30 12:46:25
[返信] [編集] １．起動方法 通常のロードモジュールと同じで運用環境に合わせてご利用ください。 （例１）ＲＵＮコマンドで起動する場合 ＲＵＮ ＤＥＶＬＯＰ，ＦＩＬ＝ＵＴＬ−ＬＭＬ，ＤＥＶ＝ＭＳＤ； ＵＴＬ−ＬＭＬ・・・ＤＥＶＬＯＰの登録されているロードモジュールライブラリー （例２）ＳＹＳ＠ＪＳＬにＪＣＬを登録しＲＵＮコマンドで起動する場合 ＪＣＬ内容 ／ＲＵＮ ＤＥＶＬＯＰ，ＦＩＬ＝ＵＴＬ−ＬＭＬ，ＤＥＶ＝ＭＳＤ； ／＞ ； ＲＵＮ ＤＰ； ＤＰ・・・ＪＣＬのメンバー名 ２．各モードについて ＤＥＶＬＯＰが起動するユーティリティ等を示しております。 ファンクションキーで切り替わります。 ２４行目にガイド表示されます。 ＰＦ１「編集」 ＃ＴＥＤＩＴ ＰＦ２「翻訳」 ＣＢＬ８５ ＰＦ３「一覧」 ＃ＬＢＭ ＰＦ４「実行」 ＬＭ、ＰＭ、ＪＳが実行されます ＰＦ５「追加」 ＃ＬＢＭ ＰＦ６「置換」 ＃ＬＢＭ ３．入力行２３ラインについて 左側にタイムスタンプ（日付時刻）が表示され１３桁目から入力となります。 【入力項目】 メンバー名 ファイル名１ デバイス名１ モード ファイル名２ デバイス名２ メンバー名 「編集」「翻訳」「実行」時は目的のメンバー名となります。 それ以外は６文字のコメントになります。 ※履歴が有る場合は入力せずＥｎｔｅｒをすると履歴を取り込みます ファイル名１ 目的のファイル名になります。 「編集」でスペースの時（メンバー名のみ入力）は”ＵＳＥＲＳＵＬ”となります。 「追加」「置換」の時は入力ファイルとなります。 デバイス名１ 目的のデバイス名になります。 規定値は”ＭＳＤ”になります。（装置番号はなく自動サーチとなります） ※装置番号をつけて”ＭＳＤ００２”等も可能です。 「ＭＳＤ？？？」「ＦＤＵ？？？」が指定可能です。 「一覧」「追加」「置換」は「ＲＭＳ？？？」も可能です。 モード ＣＯＢ ＣＯＢＯＬの「編集」ＳＵＬファイル対象 ＰＡＲ パラメータの「編集」ＰＭＬファイル対象 ＪＣＬ ＪＣＬ の「編集」ＪＳＬファイル対象 ファイル名２ 「翻訳」の時、ＣＯＰＹライブラリファイル名 「追加」「置換」の時、出力ファイルになります。 デバイス名２ デバイス名１に準じます。 | |
| Re: ｘ２：プリンタの印字についてのご質問 | |
| オフコン人 2012-7-30 9:55:45
[返信] [編集] プリンタの機種は何になるでしょうか？ 後ろにCMと付くタイプのプリンタだと、そのような仕様のようです。 １行目の印刷データを出力しただけでは、印刷を行わず、次の行の印刷データを出力すると、１行目の印刷データを印字するようです。 | |
| Re: プリンタの印字についてのご質問 | |
| 近藤 2012-7-27 23:37:15
[返信] [編集] ソースを要求したのに 大変遅くなり、すみませんでした。 すっかりわすれてました。 たしかにプログラム的には問題ないような気がしますね。 ACCEPT要求をしてるときに印字されていないとなるとおかしいですよね。 プログラムではなければプリンタになるのですが・・・・ 考えられるのが、あるような気がします。 会社に帰ってからはっきりわかりますが、プリンタ側の設定で変えられるのですが、思い出せません。 write命令をだしてもプリンタ側にある程度溜め込めなければ印字しないような設定になっているのではないのでしょうか？ サーバのプリンタ設定でラインプリンタを見てもらう事になります。プリンタ設定の中に ｱﾙﾌｧﾍﾞｯﾄ 3文字 Ｅ？？ ？？？ ？？？ ？？？ ３から４種類を選択できる所がありますが この箇所を変えれば直出力になります。 自宅ではわからないので、月曜日まで持ち越すか どなたかわかる人にお任せします。 中途半端な回答になりすみません。 （ラインプリンタが会社になくＵＳＥＲ先に行かないと確認が取れませんｗ ３文字がまったくでてこないｗ "Ｅ"がついて、"Ｕ"もついてたような気がします、悔しいです） | |
| Re: ご評価いただきありがとうございます。（江須扇さんのＤＥＶＬＯＰについて） | |
| 江須扇 2012-7-27 21:26:33
[返信] [編集] 早速お試しいただきありがとうございます。 ＞なんとなく、想像はできるのですが、想像通りにはうごきませんでした。ので・・・ 自分用に作ったのでひとりよがりのところがありもうしわけありません。 オフコンのＡＣＣＥＰＴ命令はエンターキーを押したとき入力エリアがスペースになってしまいますが 前回の内容を再利用できるように左から項目単位に考えております。 ２３行目の入力行で一番左でエンターを押せば全て表示されているものを取り込みます。 1項目目のメンバー名を入力してそこでエンターを押せば メンバー名は入力したものをファイル名とデバイスは表示画面を取り込みます。 ソースタイプはファイル名に ＳＵＬが有る場合はＣＯＢ ＰＭＬが有る場合はＰＡＲ ＪＳＬが有る場合はＪＣＬ とします。 ＞1.編集モード/翻訳モード/一覧モード/実行モードとは何？ 編集モードは＃ＴＥＤＩＴを起動します。 翻訳モードはＣＯＢＯＬコンパイラーを起動します。 一覧モードは＃ＬＢＭでメンバー一覧を表示します。 実行モードは実際にプログラムが実行されます。 ＞2.45ｶﾗﾑ辺りのCOM/DIR/RUN/･･･の種類と意味合い？ ＞3.または、｢各モード｣と｢45ｶﾗﾑ辺り｣の組み合わせ？ 利用した動作モードを表すのと エンターの代わりにスキップキーを押したとき現在モードより優先され動作するモードです。 ＣＯＭは翻訳モードを表します ＤＩＲはメンバー表示モードを表します ＲＵＮは実行モードを表します。 ＣＯＢはＣＯＢＯＬ編集モード ＪＣＬはＪＣＬ編集モード ＰＡＲはＰＡＲＡＭＡＴＥＲ編集モード ＡＤＤはライブラリーの追加 ＲＥＰはライブラリーの置換 ＞4.指示行(下から２行目)内のファイル名２つ(20ｶﾗﾑ辺りおよび49ｶﾗﾑ辺り)の ＞ 指定方法(何を指定するか？SUL?/CUL?/LML?) ＞ また、各モードなどの関係 編集モードはＳＵＬ、ＰＭＬ、ＪＳＬが指定できます。 翻訳モードはＳＵＬのみです 一覧モードはライブラリファイル全てです 実行モードはＬＭＬです ＞また、翻訳時にCUL/LMLのファイル名の変更はできるのか？ ＞USERCUL/USERLMLは固定で、他のライブラリに追加/他のライブラリを変更で対応するのか？ 固定です。 他のライブラリーには追加モードか置換モードでターゲットライブラリーに移動します。 コメント（６文字） 入力ファイル 入力デバイス ＡＤＤ（又はＲＥＰ） 出力ファイル 出力デバイスです 例） ＡＤＤＲＥＩ ＵＳＥＲＬＭＬ ＭＳＤ ＡＤＤ ＪＩＫＯＵＬＭＬ ＭＳＤ | |
| Re: ｘ７：プリンタの印字についてのご質問 | |
| 江須扇 2012-7-27 16:49:32
[返信] [編集] ＞＞１．”ＡＦＴＥＲ １”の代わりに”ＢＥＦＯＲＥ １”印字後改行を使う ＞試しにやってみましたが結果は同じでした;; だめでしたかもうしわけありませんでした。 技術的なことですが、ＣＯＢＯＬの仕様とＯＳ（Ａ−ＶＸ）の仕様が違っているかもしれません。 ”ＢＥＦＯＲＥ １”を使ってもＯＳは改行命令を出力しないのかもしれません。 ＞ユーザー（役員レベル）からの強い要望で、画面確認ではなく ＞登録後即印字して目視で確認してから次を登録するという ＞仕様になってしまいました。 役員のご要望であればしかたありませんね なっとくしました。 ＞データ行印字後にスペース行を印字するようにしたところデータ行は印字されるように ＞なりました。根本的な解決にはなってませんが。。。 チェックリストであれば行間隔が空いたほうがチェックしやすと思いますが、 役員がベタ印刷をご要望されているという事であればむずかしいかもしれません 実機がないのでテストできませんが ”ＢＥＦＯＲＥ １”で印字した後、 スペース行を”ＡＦＴＥＲ ０”で印字すれば改行命令が出力されるかもしれません。 | |
| Re: ｘ２：プリンタの印字についてのご質問 | |
| ど素人 2012-7-26 13:12:21
[返信] [編集] ご質問にお答えします。 ＞シリアルプリンタでは正しく作動するのでしょうか？ シリアルプリンタはあるのですが、オフコンにはラインプリンタ とページプリンタが接続されていますので動作確認はしていません。 端末の隣にあるラインプリンタでという前提です。 ＞プログラムの仕様に無理があるのでは？ うすうす感じてします^^; ＞｢ラインプリンタのカバーをあけ、印字位置アップ(?)し、 印字の確認をする」という操作が必要になってくるのでは。 カバーを開けると自動的に紙送りされ、閉じると元の位置に 自動で戻ります。 ＞毎回/毎行、その操作をするということですか？ その通りです^^; 何とか実現する方法がないか質問した次第です。 江須扇様から『ラインプリンタ行が変わったという情報を得てから印字する』と教えて頂いたので、 データ行印字後にスペース行を印字するようにしたところデータ行は印字されるように なりました。根本的な解決にはなってませんが。。。 | |
| 江須扇さんのＤＥＶＬＯＰについて | |
| 富山清風 2012-7-26 12:44:45
[返信] [編集] 江須扇さんのＤＥＶＬＯＰについて ｢テキストエディタのSPLITについて」の投稿のところで、 江須扇さんより｢ＤＥＶＬＯＰの一度使っていただきご評価いただけると有難いのですが」とありましたので、 すこし、作動させてみましたが、いまいち、機能が整理/理解できません。 なんとなく、想像はできるのですが、想像通りにはうごきませんでした。ので・・・ 機能概要をもうすこし、説明してもらえませんか？ 1.編集モード/翻訳モード/一覧モード/実行モードとは何？ 2.45ｶﾗﾑ辺りのCOM/DIR/RUN/･･･の種類と意味合い？ 3.または、｢各モード｣と｢45ｶﾗﾑ辺り｣の組み合わせ？ 4.指示行(下から２行目)内のファイル名２つ(20ｶﾗﾑ辺りおよび49ｶﾗﾑ辺り)の 指定方法(何を指定するか？SUL?/CUL?/LML?) また、各モードなどの関係 また、翻訳時にCUL/LMLのファイル名の変更はできるのか？ USERCUL/USERLMLは固定で、他のライブラリに追加/他のライブラリを変更で対応するのか？ (他のライブラリに追加/他のライブラリとはどのようなケース/想定で使用するのか？) など・・・ | |
| Re: ｘ２：プリンタの印字についてのご質問 | |
| 富山清風 2012-7-26 12:36:16
[返信] [編集] すこし話しがそれますが、ラインプリンタではなく、シリアルプリンタでは正しく作動するのでしょうか？ 正しく作動するとすれば、 プログラムが正しく動く/動かないの前に、 プログラムの仕様に無理があるのでは？ ラインプリンタに印字されたか否かを判断するのに、 ｢ラインプリンタのカバーをあけ、印字位置アップ(?)し、 印字の確認をする」という操作が必要になってくるのでは。 毎回/毎行、その操作をするということですか？ 話が、とんちんかんであれば、無視してください。 | |
| Re: ｘ２：プリンタの印字についてのご質問 | |
| ど素人 2012-7-26 11:26:31
[返信] [編集] ご回答ありがとうございます。 ＞つまり行が変わったという情報を得てから印字します。 そういう構造なんですね。勉強になります。 ＞１．”ＡＦＴＥＲ １”の代わりに”ＢＥＦＯＲＥ １”印字後改行を使う 試しにやってみましたが結果は同じでした;; ＞その後にデータベースからバッチ（まとめて）印字してチェックリストして最終確認と保管リストとします。 おっしゃる通り他のプログラムはそのようになっておりますが、 ユーザー（役員レベル）からの強い要望で、画面確認ではなく 登録後即印字して目視で確認してから次を登録するという 仕様になってしまいました。 他のプログラムを見よう見まねで作成したところ今回の事態 になっています。 やはり機構的に無理ということなのでしょうか？ | |
| Re: プリンタの印字についてのご質問 | |
| 名無しさん 2012-7-26 10:48:44
[返信] [編集] 早速のご回答ありがとうございます。 紛らわしい質問をしてしまったので、簡素化したプログラムで質問致します。 ＜印刷する内容＞ ☆一覧表☆ ｺｰﾄﾞ 氏 名 金額 という２行の印字をしたい場合で、『☆一覧表☆』を印字後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では１行目が印字されているはずなのに印字されず、 F10キー押下後に１行目が印字され、CLOSE処理で２行目が印字されます。 よろしくお願い致します。 | |
| Re: ｘ２：プリンタの印字についてのご質問 | |
| 江須扇 2012-7-26 10:19:36
[返信] [編集] 江須扇と申します。 ＞１件目の登録では見出し行のみ印字され、２件目登録後１件目の情報が印字されます。 この辺にヒントがあるようです。 一回遅れで印字されるということですよね。 ＞プログラムを終了(プリンタのCLOSE)時に最終登録情報が印字されます。 最終的には印字されるということですよね。 ＡＣＣＥＰＴしたものが直ぐに印字しないのがお気に召さないということですよね。 ＞WRITE プリンタ FROM ファイル情報 AFTER 1 ←これが印字されないまま入力に行ってしまう ”ＡＦＴＥＲ １”は１行改行後印字という命令です。 ＞ラインプリンタに入力した情報を印刷し、次のデータ入力 シリアルプリンタでないのが原因ではと考えます 機構的にラインプリンタは同一行に２回以上重ね印字できないという特性があります。 つまり行が変わったという情報を得てから印字します。 対策としては １．”ＡＦＴＥＲ １”の代わりに”ＢＥＦＯＲＥ １”印字後改行を使う ２．ＡＣＣＥＰＴのあと画面に必要項目をＤＩＳＰＬＡＹし画面で確認 老婆心ながら蛇足を書きます オフコンデータ入力はクリーンデータ入力が基本で ＡＣＣＥＰＴ入力時にマスターチェックや論理チェックをし確認画面を出し最終的に問題ない場合データベースに書き込みが普通です。 その後にデータベースからバッチ（まとめて）印字してチェックリストして最終確認と保管リストとします。 目的的に的外れかもしれませんが念の為、書きました。 | |
| Re: プリンタの印字についてのご質問 | |
| 近藤 2012-7-25 17:08:33
[返信] [編集] こんにちは ソースがないとわかりませんが・・・ なんとなく、 WRITE プリンタ FROM ファイル情報 AFTER 1 このファイル情報はどこかのタイミングでMOVEで移送してると思いますが、移送しているタイミングがおかしいのでは？ そこの箇所だけでもソースがほしいっす♪ | |
| プリンタの印字についてのご質問 | |
| ど素人 2012-7-25 16:39:34
[返信] [編集] オフコン(COBOL自体)素人でうまく説明できないかも知れませんが、わかる方教えて下さい。 あるファイルのメンテナンスプログラムを作成しており、 ACCEPTで必要な項目を入力させファイルにWRITE後、 ラインプリンタに入力した情報を印刷し、次のデータ入力 に戻るというプログラムを作成したのですが、うまく動きません。 印刷内容は見出し行(ページの先頭のみ)と入力した情報です。 １件目の登録後に見出し＋１件目データを印字したいのですが、 １件目の登録では見出し行のみ印字され、２件目登録後１件目の情報が印字されます。 プログラムを終了(プリンタのCLOSE)時に最終登録情報が印字されます。 ソースは ACCEPT 項目入力 WRITE ファイル名 １件目ならプリンタOPEN WRITE プリンタ FROM 見出し行 AFTER 1 WRITE プリンタ FROM ファイル情報 AFTER 1 ←これが印字されないまま入力に行ってしまう 項目入力に戻る 終了時プリンタOPENならCLOSE 環境はExpress5800/600 AVX01で作成しています。 よろしくお願いします。 | |
| Re: 上手くいったようですね（テキストエディタのSPLITについて） | |
| 江須扇 2012-7-25 8:51:25
[返信] [編集] 江須扇と申します。 ＞まさにずばりです！ ＞わたしがやりたかったことです。 上手くいったようですね。よかったです。 オフコンファンとしてオフコンを使いこなす人が一人でも増えることは私も大変うれしく思います。 いろいろ調べればＷｉｎｄｏｗｓやＥｘｃｅｌにしても知らない便利な機能はたくさんあります。 同じ様にオフコンも便利な機能はたくさんあります。 このサイトのＡ−ＶＸの説明書を読んでいただくのも一つでしょう。 合わせてサイト運営している「ターラヤンさん」に感謝しましょう。 | |
| Re: テキストエディタのSPLITについて | |
| gai 2012-7-24 17:26:04
[返信] [編集] 江須扇さんの｢SPL U COB TEM｣ まさにずばりです！ わたしがやりたかったことです。 イマイチまだ理屈を完全に理解できておりませんが、 cobol編集がラクになりそうです。 ありがとうございました。 | |
| Re: ｘ６：テキストエディタのSPLITについて | |
| gai 2012-7-24 14:38:24
[返信] [編集] ありがとうございます。 まだ完全に理解しておりませんが、 どうも単純ではなさそうです。 じっくり読んでみます。 | |
| Re: x2: ちょっと、話がそれますが | |
| 江須扇 2012-7-20 16:40:02
[返信] [編集] 富山清風さんへ ＞エミュレータの文字ポイントを｢14｣にすると4エミュレータを｢左上｣､｢左下｣､｢右上｣､｢右下｣に配置できます。 私も以前はそのような使い方をしておりました。 また、本番機、拠点機、デバック機と別サーバーがあったので、その監視等にも使っておりました。 ところで私の開発支援プログラム「ＤＥＶＬＯＰ」を一度使っていただきご評価いただけると有難いのですが、このサイトの Ａ−ＶＸの説明−＞ＣＯＢＯＬ−＞開発支援プログラム（江須扇さんの投稿） 又は下記サイトです。 *ttp://www.offcom.jp/modules/amanual/index.php/cobol/devlop/devlop.html 注）上記頭の１文字は”＊”は”ｈ”に変更してリンクしてください。（アップロード時エラーになる為の対応です） 宜しくお願いします。 | |
| Re: ちょっと、話がそれますが | |
| 近藤 2012-7-19 18:37:34
[返信] [編集] 懐かしいですね、F80みたいなものを（中間ワーク）をSystem100（冷蔵庫）の頃によく使っていましたね。 ITOSの頃は性能が悪い為、一人２画面しか立ち上げられませんでした。（上司に怒られましたｗ）ITOS時代からSPLITを使っていたような気がします。 Splitは今も必ず使っています。使い方の説明はしませんが、便利なので皆さんどしどし使いましょう。 すみませんF80に反応してコメントしちゃいました。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
BluesBB ©Sting_Band