NECのオフコン情報掲示板(ノウハウ系)
NECのオフコンを活用するためのノウハウを話し合うための掲示板です。 |
新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
■▲▼ | ||
1 | 統合管理ツール Ver2.0 | |
江須扇 2011-6-19 18:52:07
[返信] [編集] いままで、Ver1.0を使っておりましたが、今回Ver2.0を導入しました。 今回の機能の目玉は、ライブラリの中のメンバーが、NOTEPADで編集できる機能です、これは大変便利が良いです。 ライブラリはWindowsのエクスプローラライクの詳細表示なので、更新日をクリックしソートすれば、最後に修正したメンバーを一番上にできます。 その位置で右クリックし「テキスト編集」を選べばNOTEPADで編集もできます。もちろん書き込みもできます。 ナンバリングは書き込み時チェックしながらできます。 COBOL、JCL、SFL(画面)、FDL(フォーム)も編集できます。 PMもMENUはできますが、SMART2のパラメータとRDBQ2のカタログはできません。 LMはPC/WSエミュレータを呼出してそのLMを即実行します。実行終了するとエミュレータも自動終了します。 いままで、新HIメニューの「プログラム開発」からしかできなかった、タイトル編集も右クリックで簡単にできます。 Windows世代の運用、開発担当者にはとっつき易くてとても便利と感じました。 ただ残念なのは私の支援ツールと目的が少し違いますが、COBOLコンパイルとメンバーのライブラリー間のコピーができると完璧です。 | ||
全部読む 最新50 1-100 板のトップ リロード |
■▲▼ | ||
1 | 「プリンタ占有プログラム」の公開 | |
富山清風 2011-6-14 18:12:51
[返信] [編集] 皆さんもすでに、自作でお持ちだとは思いますが、「プリンタ占有プログラム」を公開します。 以前、「旧家イトウ家の小技裏技(その7)」にプリンタ占有プログラムが載っていましたが、 小生も、「ステップ数の少ない」かつ「見やすい」プリンタ占有プログラムを作成しましたので公開します。 「プリンタ占有プログラム」の必要性については記述しませんが、・・・ 使用方法は 1.本プログラムを起動する→PRN999(ステーション対応プリンタ?)が「使用中」となり、かつ、入力待ちになる 2.入力待ちでエンターでプログラム終了(プリンタ開放) XXXリターンで現在使用中のプリンタが開放され、PRNXXXが「使用中」となり、再度、入力待ちになる 以下、2を繰り返す。 ごくごく、簡単なプログラムです。 000010_IDENTIFICATION___________DIVISION. 000020_PROGRAM-ID.______________PRN999. 000030****************************************************************** 000040*____PRN999使用中__________________________________________* 000050****************************************************************** 000060_DATE-COMPILED. 000070_ENVIRONMENT_____DIVISION. 000080_CONFIGURATION___SECTION. 000090_SOURCE-COMPUTER.____SYSTEM150. 000100_OBJECT-COMPUTER.____SYSTEM150. 000110_INPUT-OUTPUT____SECTION. 000120_FILE-CONTROL. 000130_____SELECT______________________LPF 000140_________________ASSIGN__________LPF-PRN999. 000150_DATA____________________DIVISION. 000160_FILE____________________SECTION. 000170_FD__LPF 000180_________LABEL_RECORD_OMITTED 000190_________LINAGE__66. 000200_01__LP-RC________________PIC_X(300). 000210****************************************************************** 000220_WORKING-STORAGE__________SECTION. 000230_01__QASG01. 000240_____03__QASG0101_________PIC_X(06). 000250_01__QASG02. 000260_____03__QASG0201_________PIC_X(06). 000270_01__FILE-STATUS. 000280_____03__STSXXX___________PIC_X(02). 000290_01__WG-AREA. 000300_____03__F________________PIC_X(03)_VALUE_"PRN". 000310_____03__WG-PRN___________PIC_9(03). 000320_01__WG-PRN999. 000330_____03__WG-PRN001________PIC_N(03). 000340_____03__WG-PRN002________PIC_N(03). 000350_____03__WG-PRN003________PIC_N(03). 000360****************************************************************** 000370_SCREEN______________SECTION. 000380_SD__GAMEN___________END_STATUS__ESTS. 000390_01__GA. 000400_____03__GA-PRN__LINE_23__COLUMN_77__PIC_9(03)__INTO_WG-PRN 000410_____________________CHECK__OVERFLOW_________NO__IFC. 000420_01__GD. 000430_____03__GD-PRN__LINE_12__COLUMN_30__PIC_N(09)__FROM_WG-PRN999 000440______________________BLINK_REVERSE. 000450****************************************************************** 000460_PROCEDURE_______________DIVISION. 000470_ST. 000480_____MOVE____"PRN"_______TO______WG-PRN001. 000490_____MOVE____"999"_______TO______WG-PRN002. 000500_____MOVE____NC"使用中"__TO______WG-PRN003. 000510_____DISPLAY_GD-PRN. 000520_____OPEN____OUTPUT__LPF. 000530_____PERFORM_MAIN-RTN________THRU____MAIN-EXT 000540_____CLOSE___________LPF. 000550_ST-END. 000560_____STOP____RUN. 000570****************************************************************** 000580_MAIN-RTN. 000590_____ACCEPT__GA-PRN. 000600_____IF____(_WG-PRN______=_______"_"_)___________GO__MAIN-EXT. 000610_____CLOSE___________LPF. 000620_____MOVE____WG-AREA_____TO______QASG0101. 000630_____MOVE____"_"_________TO______QASG0201. 000640_____CALL____"CBLASGN"___USING___LPF_____QASG01__QASG02. 000660_____MOVE____"PRN"_______TO______WG-PRN001. 000670_____MOVE____WG-PRN______TO______WG-PRN002. 000680_____MOVE____NC"使用中"__TO______WG-PRN003. 000690_____DISPLAY_GD-PRN. 000700_____OPEN____OUTPUT__LPF. 000710_________________________________________________GO__MAIN-RTN. 000720_MAIN-EXT. 000730_____EXIT. 質問などがあれば本掲示板にてお願いします。 以上です。 使用された方は感想をお願いします。 ガンバレ東日本!! ガンバレOPユーザー!! | ||
2 | Re: 「プリンタ占有プログラム」の公開 | |
ターラヤン 2011-6-15 1:41:16
[返信] [編集] 富山清風さん、いつも情報ありがとうございます。 今度の掲示板は、プログラムの前後を半角文字の[code]〜[/code]で囲むと、空白が詰められずに、正しく表示されます。(半角+小文字じゃないとダメです。[CODE]だとダメ) 以下のような具合
| ||
全部読む 最新50 1-100 板のトップ リロード |
■▲▼ | ||
1 | 「WSエミュレータ再接続キットはエラーが発生したため閉じ・・・」 解決済 | |
たぬき丸 2011-6-8 9:30:10
[返信] [編集] 解決済みですが、情報提供のため投稿します。参考になれば幸いです。 【現象】 ある日の昼休みに、全WS-EMLの画面に「WSエミュレータ再接続キットはエラーが発生したため閉じられました」とのメッセージが表示された。 AVXサーバを再起動すると復旧するが数日後に再発。 【対処】 保守会社に連絡して調査してもらうと「WSエミュレータ再接続キット」の障害と判明。パッチがあるのでそれを適用して完了。 【発生環境】 AVXサーバ:Express 5800/640xi AVX OS:AVX01 R3.01 WS-EML:Ver 16.0 | ||
全部読む 最新50 1-100 板のトップ リロード |
■▲▼ | ||
1 | 「1行181文字を印字する」サブルーチン公開 | |
富山清風 2011-6-7 8:39:33
[返信] [編集] 「プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定」のスレッドの中の 「回転の達人_2011-5-19_12:58:21」_で「1バイト半角132文字が176文字印字可能になります」がありました。 そこで小生の作成したサブル−チンで同様なものがありましたので公開します。 1行181文字印字可能になります (181とは:136*4/3→181.333→切り捨て181文字です) 実際は180文字までしか印字したことがありませんが、理論上は181文字印字可能です。 COBOLのわかる方であれば、LINKしてみてください。 そもそも、1行137文字以上で設計すること自体が無理があるのですが・・・ 長々と書きますがご容赦ください。 概要は: ANK:ANK1文字を2バイト系半角文字に変換しセット JIP:そのままセット(処理の都合上2バイト系の上1桁と下1桁を分けてセット) (注)ラインプリンタで印字する場合は、ラインプリンタのパネル部のスイッチ?で 2/3,1/2,・・・のディップスイッチを/2しなければならなかったような??? 記憶があいまいです。 メインからのパラメータは4つです。 1.入力データ____QATJ-INPUT_______X(250) 2.入力データ長__QATJ-INPUTSIZE___9(03) 3.出力データ____QATJ-OUTPUT______X(505) 4.出力データ長__QATJ-OUTPUTSIZE__9(03) メインの例: _____MOVE____PR-01___________TO______QATJ-INPUT.____________印字しようとしている文字列 _____MOVE____180_____________TO______QATJ-INPSIZE.__________桁数 _____CALL____"AAQATJ"________USING___QATJ.__________________サブルーチンをCALL _____WRITE___LP-RC___________FROM____QATJ-OUTPUT_AFTER_1.___結果を印字 サブルーチンは」以下の通りです。 000010_IDENTIFICATION___________DIVISION. 000020_PROGRAM-ID.______________AAQATJ. 000030****************************************************************** 000040*____ANK から 日本語文字へ変換サブルーチン ____ * 000050****************************************************************** 000060_DATE-COMPILED. 000070_ENVIRONMENT_________DIVISION. 000080_CONFIGURATION_______SECTION. 000090_SOURCE-COMPUTER.____SYSTEM150. 000100_OBJECT-COMPUTER.____SYSTEM150. 000110_DATA____________________DIVISION. 000120_WORKING-STORAGE_________SECTION. 000130****************************************************************** 000140_01__CBL01. 000150_____05__CBL0101_____________PIC__X(256). 000160_____05__CBL0101R____________REDEFINES_CBL0101. 000170_______07__CBL0101O__________OCCURS_256. 000180_________09__CBL010101_______PIC__X(01). 000190_01__CBL02. 000200_____03__CBL0201_____________PIC__9(04)__VALUE__256. 000210**** 000220_01__CBL03. 000230****____________________________________________0123456789ABCDEF 000240_____03__F___________________PIC__X(16)__VALUE_"AAAAJAJAJJJAAAAA"._0 000250_____03__F___________________PIC__X(16)__VALUE_"AAAAJAAJAAJJAAAA"._1 000260_____03__F___________________PIC__X(16)__VALUE_"JJJJJJAAJJJJJAAA"._2 000270_____03__F___________________PIC__X(16)__VALUE_"JJAJJJJAJJJJAAJA"._3 000280_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAAAAAAAAAA"._4 000290_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAJAJAAAAAA"._5 000300_____03__F___________________PIC__X(16)__VALUE_"AAJJJJJJJJJAAAAA"._6 000310_____03__F___________________PIC__X(16)__VALUE_"JJJJJJJJJJAAAAAA"._7 000320_____03__F___________________PIC__X(16)__VALUE_"JAAAAAAAAAAJAAAA"._8 000330_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAAAAAJJAAA"._9 000340_____03__F___________________PIC__X(16)__VALUE_"JJAAAAAAAAAJAAAA"._A 000350_____03__F___________________PIC__X(16)__VALUE_"JAJJJJJJJJAAAAAA"._B 000360_____03__F___________________PIC__X(16)__VALUE_"JAAAAAAAAAJJJJJJ"._C 000370_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAAAAJJJJJJ"._D 000380_____03__F___________________PIC__X(16)__VALUE_"AJAAAAAAAAJJJJJJ"._E 000390_____03__F___________________PIC__X(16)__VALUE_"AAAAAAAAAAJJJJJJ"._F 000400****_漢字文字ピッチ 10.8ポイント 000410_01__PR-START. 000420__________03__F_______________PIC_X(05)_VALUE_""3FE04F40A0"". 000430****_漢字文字ピッチ 14.4ポイント 000440_01__PR-END. 000450__________03__F_______________PIC_X(05)_VALUE_""3FE04FE080"". 000460_01__PR-END-R____________REDEFINES_PR-END. 000470_____03__TBL-END-O_______OCCURS__5. 000480_______05__TBL-END1______PIC__X(01). 000490_01__TBL-CNV. 000500_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".00-0F 000510_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".10-1F 000520_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".20-2F 000530_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".30-3F 000540_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".40-4F 000550_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".50-5F 000560_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".60-6F 000570_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".70-7F 000580_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".80-8F 000590_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".90-9F 000600_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".A0-AF 000610_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".B0-BF 000620_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".C0-CF 000630_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".D0-DF 000640_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".E0-EF 000650_____03__F___PIC_N(16)_VALUE_NC"・・・・・・・・・・・・・・・・".F0-FF 000660_01__TBL-CNV-R___________REDEFINES_TBL-CNV. 000670_____03__TBL-CNR-O_______OCCURS_256. 000680_______05__TBL-JIP1______PIC__X(01). 000690_______05__TBL-JIP2______PIC__X(01). 000700_01__TBL-CNV-RR__________REDEFINES_TBL-CNV. 000710_____03__TBL-CNR-OO______OCCURS_256. 000720_______05__TBL-JIP_______PIC__N(01). 000730_01__WK-CNV-COLUMN___________PIC_9(03). 000740****_""00""+""XX""→COMP-1へ 000750_01__WK-CNV-COMP_________________COMP-1. 000760_01__WK-CNV-COMP-R___________REDEFINES_WK-CNV-COMP. 000770_____03__WK-CNV-00___________PIC_X(01). 000780_____03__WK-CNV-ANK__________PIC_X(01). 000790*************************************************_IX 000800_01__IX-AREA. 000810_____03__IX-INP______________PIC_9(03). 000820_____03__IX-OUT______________PIC_9(03). 000830_____03__IXPR________________PIC_9(02). 000840****************************************************************** 000850_LINKAGE_________________SECTION. 000860****_入力データ、入力サイズ、出力結果(変換結果)、出力サイズ 000870_01__QATJ. 000880_____03__WK-INPUT. 000890_________05__WK-INPDATA______OCCURS__250______PIC_X(01). 000900_____03__WK-INPUTSIZE________PIC_9(03). 000910_____03__WK-OUTPUT. 000920_________05__WK-ESC0_________PIC_X(05). 000930_________05__WK-OUTDATA______OCCURS__505______PIC_X(01). 000940_____03__WK-OUTPUTSIZE_______PIC_9(03). 000950****************************************************************** 000960_PROCEDURE_______________DIVISION____USING__QATJ. 000970_ST. 000980****_出力エリアのクリア 000990_____MOVE____LOW-VALUE_______TO______WK-OUTPUT. 001000****_出力エリアに10.8ポイントを先頭に設定 001010_____MOVE____PR-START________TO______WK-ESC0._____________________ 001020**** 001030_____PERFORM_RECORD-CNV-RTN__THRU__RECORD-CNV-EXT. 001040****_出力レングス設定 001050_____MOVE____IX-OUT__________TO______WK-OUTPUTSIZE. 001060_ST-END. 001070_____EXIT____PROGRAM. 001080****************************************************************** 001090_RECORD-CNV-RTN. 001100****_入力データをコード変換しANK/JIP(A/J)に置き換える 001110_____MOVE____WK-INPUT________TO______CBL0101. 001120_____CALL___"CBLCODE"________USING___CBL01 001130_____________________________________CBL02 001140_____________________________________CBL03. 001150****_以下1文字づつチェックしANK/JIPの判断を行いながら出力エリアへ 001160****_ANK:ANK1文字を2バイト系半角文字に変換しセット 001170****_JIP:そのままセット(処理の都合上2バイト系の上1桁と下1桁をセット 001180_____MOVE____0_______________TO______IX-INP. 001190_____MOVE____0_______________TO______IX-OUT. 001200_RECORD-CNV-10. 001210_____ADD_____1_______________TO______IX-INP. 001220_____IF____(_IX-INP__________>_______250) 001230_______________________________________________GO_RECORD-CNV-90. 001240_____IF____(_IX-INP__________>_______WK-INPUTSIZE) 001250_______________________________________________GO_RECORD-CNV-90. 001260_____MOVE____LOW-VALUE__________TO_____WK-CNV-00. 001270_____MOVE____WK-INPDATA(IX-INP)_TO_____WK-CNV-ANK. 001280_____COMPUTE_WK-CNV-COLUMN___=______WK-CNV-COMP_+_1. 001290_____IF____(_CBL010101(IX-INP)___=___"A"_) 001300_________COMPUTE_IX-OUT__________=_______IX-OUT_+_1 001310_________MOVE____TBL-JIP1(WK-CNV-COLUMN) 001320_________________________________TO______WK-OUTDATA(IX-OUT) 001330_________COMPUTE_IX-OUT__________=_______IX-OUT_+_1 001340_________MOVE____TBL-JIP2(WK-CNV-COLUMN) 001350_________________________________TO______WK-OUTDATA(IX-OUT) 001360_____ELSE 001370_________COMPUTE_IX-OUT__________=_______IX-OUT_+_1 001380_________MOVE____WK-INPDATA(IX-INP) 001390_________________________________TO______WK-OUTDATA(IX-OUT) 001400_________COMPUTE_IX-OUT__________=_______IX-OUT_+_1 001410_________COMPUTE_IX-INP__________=_______IX-INP_+_1 001420_________MOVE____WK-INPDATA(IX-INP) 001430_________________________________TO______WK-OUTDATA(IX-OUT) 001440_____END-IF. 001450_______________________________________________GO_RECORD-CNV-10. 001460_RECORD-CNV-90. 001470****_印字の後ろに14.4ポイントを付加する(元にもどす)_________14.4 001480_____PERFORM______________________________________________________14.4 001490_________VARYING__IXPR__FROM__1___________________________________14.4 001500________________________BY____1___________________________________14.4 001510_________UNTIL____IXPR__>_____5___________________________________14.4 001520____________ADD____1________________TO__IX-OUT____________________14.4 001530____________MOVE___TBL-END1(IXPR)___TO__WK-OUTDATA(IX-OUT)________14.4 001540_____END-PERFORM._________________________________________________14.4 001550_RECORD-CNV-EXT. 001560_____EXIT. 使用時は下線("_")をスペース(" ")で置き換えてください。 000500-000650の・・・・の部分が#NFCNVで上手く変換できなかったので使用時は「手修正」をお願いします。 000500:"________________"_00-0F 000510:"________________"_10-1F 000520:"________________"_20-2F 000530:"________________"_30-3F 000540:"_。「」、・ヲァィゥ[.<(+!"_40-4F 000550:"&ェォャュョゥ_ー_]\*);_"_50-5F 000560:"-/_________,%_>?"_60-6F 000570:"__________:#@'=""_70-7F 000580:"_アイウエオカキクケコ_サシスセ"_80-8F 000590:"ソタチツテトナニヌネノ__ハヒフ"_90-9F 000600:"__ヘホマミムメモヤユ_ヨラリル"_A0-AF 000610:"__________レロワン゙゚"_B0-BF 000620:"_ABCDEFGHI______"_C0-CF 000630:"_JKLMNOPQR______"_D0-DF 000640:"__STUVWXYZ______"_E0-EF 000650:"0123456789______"_F0-FF 上記のN(16)はいずれも漢字の半角文字です。 使用時は下線("_")を2バイト系の半角スペースで置き換えてください。 質問などがあれば本掲示板にてお願いします。 以上です。 使用された方は感想をお願いします。 ガンバレ東日本!! ガンバレOPユーザー!! | ||
全部読む 最新50 1-100 板のトップ リロード |
■▲▼ | ||
1 | プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
昔のITOS 2011-5-18 12:01:31
[返信] [編集] COBOLでプリンタ制御コード(文字ピッチ指定)を使って、汎用用紙に160文字(ANK)を編集しているプログラムがあるのですが、この制御コード有効にするには、COMPILE又はLINKでどのような指定をすれば有効になるのでしょうか? マニュアル等がなくなっていて、困っています。 ご存知の方がいらっしゃれば教えてください。 | ||
3 | Re: プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
富山清風 2011-5-18 12:35:36
[返信] [編集] 昔のITOS 様 こんにちは 特に変わった指定はないかと、思います。 すなわち、「プリンタ制御コード」を使用していない プログラムと同一です。 もし、COMPILE又はLINKでエラーが出れば、 そのメッセージを投稿いただければよいかと思います。 | ||
4 | Re: プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
昔のITOS 2011-5-18 15:31:54
[返信] [編集] そうですよね。 自分でもそのように記憶していたので、オプション等もごくごく標準的なしていだけで、COMPとLINKをしたのですが。。。 COMP、LINKでエラーがでる訳ではなく、正常に終了します。 が、実際にそのLMを実行すると何も出力されないのです。 | ||
5 | Re: プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
回転の達人 2011-5-19 12:58:21
[返信] [編集] プリンタ制御コードではないのですが、文字数を沢山印字できるようなサブルーチンをはるか昔に作った事があります。 1バイト半角文字と2バイト半角文字の対応テーブルを作成し、2バイト半角文字に変換して、ピッチ詰めすれば、1バイト半角132文字が176文字印字可能になります。 ひょとして、こんなサブルーチンを使っていないですか。 | ||
6 | Re: プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
ターラヤン 2011-5-20 1:19:30
[返信] [編集] こんにちは。 現在うまく動いているプログラムと何も出力されないプログラムで、同じプリンタに出力しているのでしょうか。 つまり、うまく動いているプログラムはちゃんと出力されて、新しくコンパイルし直した方だと、同じプリンタに出力しても駄目なのでしょうか。 うまくいっているものと駄目なものは、同じプリンタに出力しているのか、違うプリンタに出力しているのか、ちょっと気になりました。 プリンタの機種によって、使える制御コード、使えない制御コードがあります。 CPについても、機種によって、使えるピッチ、使えないピッチがあります。 それにプリンタメーカーによっては、制御コードの体系自体が異なることもあります。 その制御コードに対応していないプリンタだと、文字化けしたり、何も出なかったりします。 もし、違うプリンタに出力しているようであれば、試しにうまくいっているプリンタの方で試してみてはどうでしょうか。 | ||
7 | Re: プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
昔のITOS 2011-5-20 9:53:36
[返信] [編集] ご指摘ありがとうございます。 残念ながら、同じプリンターで、かつ同じ入力ファイルを使って実行した結果です。 | ||
8 | Re: プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
昔のITOS 2011-5-20 9:58:02
[返信] [編集] ご指摘ありがとうございます。 コード変換等は行わず、プリントエリアの先頭に制御コードをセットして、writeしています。 | ||
9 | Re: プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
温泉好きのうさぎ 2011-5-24 0:46:23
[返信] [編集] なんとか解決の糸口を見つけてあげたいと思うのですが、あまりにも情報が少なすぎます。社内守秘義務にひっかかるような問題でもあるのでしょうか。せめて、以下の内容ぐらい教えていただけませんでしょうか。 (1) コンパイルやリンクに疑問があるのであれば、実際に指定したパラメータは何なのでしょうか。 (2) 文字ピッチ指定(CP)の制御コードは、具体的には何でしょうか。ソースリスト上では、どうコーディングされていますか。 (3) 「汎用用紙に160文字(ANK)を編集」とありますが、CPの制御コードをCEXシーケンスで定義しているのであれば、それは日本語プリンタのみ使用可能です。ANKプリンタは不可。 プログラムでプリンタの定義が日本語プリンタとなるよう指定していますか、さもなくば出力されたLMのプリンタ属性をJIPSに変更していますか。また、プリンタの機種名は。 (4) 「そのLMを実行すると何も出力されない」とありますが、具体的にどんな動作をするのでしょうか。たとえば、 ・プリンタがまったく反応しない。 ・空白を印字している。改行、改ページのみ。 ・文字ピッチ制御をしたい部分のみ出力されない。他の部分は出力される。 ・文字化けをして出力されている。全部、一部。 (5) LM実行中プリンタは間違いなくオープンされていますか。 | ||
10 | Re: プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定 | |
ルリルリ 2011-5-27 19:36:37
[返信] [編集] 以前コンパイルした時の OS、並びにCOBOLかCOBOL85のVER.等は判りますか? 文字ピッチは、7.2 9.6 10.8 14.4 18.0 21.6 25.2 が使用可能です。 この文字ピッチがどうか確認下さい。 | ||
11 | Re: 制御コードはなんですか?(プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定) | |
江須扇 2011-5-29 17:38:23
[返信] [編集] 大変失礼ですが、下記の内容が良くわからないのですが? >COBOLでプリンタ制御コード(文字ピッチ指定)を使って、汎用用紙に160文字(ANK)を編集している 汎用用紙とは11x15インチの連続用紙のことですか? 160文字(ANK)とは1バイト系を指定しているのですか? それともプリンタの出力レコードがPICTURE X(160)を意味しているのです? 文字ピッチ指定とは CP(CEX c”$”P1、x”3FE0”P1)ですか? これは、2バイト用ですよね AGS(CEX x”46”P1P1、x”3F46”P1P2) は1バイト系の文字サイズ指定ですが、1バイト系は文字サイズしか指定出来ず。しかもNIP(レーザープリンタ)しか対応してません。 質問内容が抽象的ですと皆様の回答も抽象的になると思います。 修正前プログラムをそのままコンパイルしたらどうなるのでしょうか? その場合はちゃんと出力されると言うことですか? 制御コードが正しく実行できないと、全く出力されないのでは、現象がちがうとおもいます。 全く出力されないという事であれば、大変失礼ですが、別の原因が考えれれます。 例えば 1.サブプログラムをリンクする必要があるがリンクできてない 2.直接スプール出力でスプールに印刷されている 3.特定プリンタ指定又は、システムプリンタ指定で実はそちらに出力されている | ||
12 | Re: 制御コードはなんですか?(プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定) | |
富山清風 2011-6-3 12:04:46
[返信] [編集] >>制御コードはなんですか たぶん下記の内容だと思います。(あくまで想像ですが) ANK部分 「汎用用紙に160文字(ANK)を編集している」とは、たぶん163文字印字しているのだと思います。 (163とは:136*12CPI/10CPI→163.2→切捨てで163) 漢字部分 (163とは:136*14.4ポイント/12.0ポイント→163.2→切捨てで163) 小生は下記コーディングにて「汎用用紙に163文字(ANK/漢字混在可)を印字」しています 01 PR-01. __03 FILLER PIC X(08) VALUE ""3F46405079407DA0"". 12CPI ANK文字サイズ(ANK開始用) __03 FILLER PIC X(05) VALUE ""3FE04F7F75"". 12.0ポイント 文字ピッチ(漢字開始用) __03 PR-163 PIC X(163). __03 FILLER PIC X(05) VALUE ""3FE04FE080"". 14.4ポイント 文字ピッチ(漢字終了用) __03 FILLER PIC X(08) VALUE ""3F46407D59404D76"". 10CPI ANK文字サイズ(ANK終了用) | ||
全部読む 最新50 1-100 板のトップ リロード |
新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
BluesBB ©Sting_Band