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

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

ＮＥＣのオフコン情報掲示板（ノウハウ系）

ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。

1: ＃ＮＦＣＮＶの制限？(2)   2: LLNIPの印刷(3)   3: ＃ＢＫＵＰでｕｓｂに直接出力できますか？(3)   4: A−VXのプリンタ設定方法が分かりません(2)   5: ＯＳのＣＤについて(4)   6: 初期プログラムに関する質問(4)   7: ボリュームMAPにあるが、#ABCだとファイルがみつからない(2)   8: SYS@DDFの復旧(2)   9: スプールデータの取り出し方法についての質問(10)   10: SG処理にて、PAGW実行中にエラーが発生しました(9)   11: ソースライブラリの一括検索(9)   12: 帳表をＰＤＦ印刷する方法（PRINTVEWを使わず）はありますか(2)   13: SKYLINKでテーブルを検索するとエラーとなる(1)   14: オフコン(3)   15: 管理人さんへの質問です(3)   16: #LTEDITでフォームのソースを指定するとメンバーが見つからないと表示される(4)   17: UPS無しの構成へのシステム移行(12)   18: #NFCNV でパソコンへ転送すると、データの先頭に空白がついてしまう(3)   19: CBL85資産をＯＰＥＮｃｏｂｏｌに移行する(3)   20: COBOLソースから仕様書の鏡作成ツール(3)   21: PrintBridgeの使い方(8)   22: WSエミュレータをWindows7Pro32bitSP1PCにインストール出来なくなった(1)   23: 漢字とANKの縮小印字について(3)   24: #NFCNVで先頭のカラムが０になるのは？(2)   25: N7884-14Bと互換性があるプリンタについて(2)   26: 表示（印刷）を任意の順番にしたいのですが・・・(6)   27: JSまたはPMのコールが間違っています(3)   28: ページプリンターのＳＧ方法(2)   29: SMARTの画面明細項目が終われない(8)   30: ＡＶＸでの外字(槇）について(6)  

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 16 17 18 (19) 20 21 22 ... 84 »

■▲▼
1 ＲＤＢ表数拡張キット
step 2011-7-21 8:08:24  [返信] [編集]

　Ａ−ＶＸ０２にて、ＲＤＢの表数拡張キットで従来の１０００表から５０００表に拡張できるということなのですが、聞くところによると、ＲＤＢサーバ・ＤＢレプリケ・オープンデータベースアクセスキット等の外部データベースとのアクセスのみに有効だという話でした。
　どなたか、実際に導入されている方がいらっしゃいましたら情報提供してもらえないでしょうか？
　ＨＰ内での表記では、最後に「RDBQ2では、表定義保守ユーティリティ(#DDM)にて階層化機能(3階層まで)を利用することにより、 階層を切り替えることで、1,000表以上利用することができます。」という記載があるので、使用できるのではないかと期待しているのですが．．．．
　みなさまからの情報提供、よろしくお願いします。

全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 統合管理ツール　Ｖｅｒ２．０
江須扇 2011-6-19 18:52:07  [返信] [編集]

いままで、Ｖｅｒ１．０を使っておりましたが、今回Ｖｅｒ２．０を導入しました。
今回の機能の目玉は、ライブラリの中のメンバーが、ＮＯＴＥＰＡＤで編集できる機能です、これは大変便利が良いです。

ライブラリはＷｉｎｄｏｗｓのエクスプローラライクの詳細表示なので、更新日をクリックしソートすれば、最後に修正したメンバーを一番上にできます。
その位置で右クリックし「テキスト編集」を選べばＮＯＴＥＰＡＤで編集もできます。もちろん書き込みもできます。
ナンバリングは書き込み時チェックしながらできます。
ＣＯＢＯＬ、ＪＣＬ、ＳＦＬ（画面）、ＦＤＬ（フォーム）も編集できます。
ＰＭもＭＥＮＵはできますが、ＳＭＡＲＴ２のパラメータとＲＤＢＱ２のカタログはできません。
ＬＭはＰＣ／ＷＳエミュレータを呼出してそのＬＭを即実行します。実行終了するとエミュレータも自動終了します。
いままで、新ＨＩメニューの「プログラム開発」からしかできなかった、タイトル編集も右クリックで簡単にできます。
Ｗｉｎｄｏｗｓ世代の運用、開発担当者にはとっつき易くてとても便利と感じました。

ただ残念なのは私の支援ツールと目的が少し違いますが、ＣＯＢＯＬコンパイルとメンバーのライブラリー間のコピーができると完璧です。
全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 ｢プリンタ占有プログラム」の公開
富山清風 2011-6-14 18:12:51  [返信] [編集]

皆さんもすでに、自作でお持ちだとは思いますが、｢プリンタ占有プログラム｣を公開します。

以前、｢旧家イトウ家の小技裏技（その７）｣にプリンタ占有プログラムが載っていましたが、
小生も、｢ステップ数の少ない｣かつ｢見やすい｣プリンタ占有プログラムを作成しましたので公開します。
｢プリンタ占有プログラム｣の必要性については記述しませんが、・・・

使用方法は
１.本プログラムを起動する→PRN999(ステーション対応プリンタ?)が｢使用中｣となり、かつ、入力待ちになる
２.入力待ちでエンターでプログラム終了(プリンタ開放)
　XXXリターンで現在使用中のプリンタが開放され、PRNXXXが｢使用中｣となり、再度、入力待ちになる
　以下、２を繰り返す。

ごくごく、簡単なプログラムです。

000010_IDENTIFICATION___________DIVISION.
000020_PROGRAM-ID.______________PRN999.
000030******************************************************************
000040*____ＰＲＮ９９９使用中__________________________________________*
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.

質問などがあれば本掲示板にてお願いします。

以上です。

使用された方は感想をお願いします。

ガンバレ東日本！！
ガンバレＯＰユーザー！！


2 Re: ｢プリンタ占有プログラム」の公開
ターラヤン 2011-6-15 1:41:16  [返信] [編集]

富山清風さん、いつも情報ありがとうございます。

今度の掲示板は、プログラムの前後を半角文字の［ｃｏｄｅ］〜［／ｃｏｄｅ］で囲むと、空白が詰められずに、正しく表示されます。（半角＋小文字じゃないとダメです。［ＣＯＤＥ］だとダメ）

以下のような具合


000010 IDENTIFICATION           DIVISION.
000020 PROGRAM-ID.              PRN999.
000030******************************************************************
000040*    ＰＲＮ９９９使用中                                          *
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.



全部読む 最新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 ｢１行１８１文字を印字する」サブルーチン公開
富山清風 2011-6-7 8:39:33  [返信] [編集]

｢プリンタ制御コードを使用したCOBOLプラグラムのCOMPILE&LINK指定｣のスレッドの中の
｢回転の達人_2011-5-19_12:58:21｣_で｢１バイト半角１３２文字が１７６文字印字可能になります｣がありました。
そこで小生の作成したサブル−チンで同様なものがありましたので公開します。

１行１８１文字印字可能になります
(181とは:136*4/3→181.333→切り捨て181文字です)
実際は180文字までしか印字したことがありませんが、理論上は181文字印字可能です。

COBOLのわかる方であれば、LINKしてみてください。
そもそも、１行１３７文字以上で設計すること自体が無理があるのですが・・・
長々と書きますがご容赦ください。

概要は：
ANK:ANK1文字を２バイト系半角文字に変換しセット
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*____ＡＮＫ　から　日本語文字へ変換サブルーチン　　____　　　　　*
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****_漢字文字ピッチ　１０．８ポイント
000410_01__PR-START.
000420__________03__F_______________PIC_X(05)_VALUE_""3FE04F40A0"".
000430****_漢字文字ピッチ　１４．４ポイント
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****_出力エリアに１０．８ポイントを先頭に設定
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****_以下１文字づつチェックしANK/JIPの判断を行いながら出力エリアへ
001160****_ANK:ANK1文字を２バイト系半角文字に変換しセット
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
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)はいずれも漢字の半角文字です。
使用時は下線("_")を２バイト系の半角スペースで置き換えてください。

質問などがあれば本掲示板にてお願いします。

以上です。

使用された方は感想をお願いします。

ガンバレ東日本！！
ガンバレＯＰユーザー！！
全部読む 最新50 1-100 板のトップ リロード

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 16 17 18 (19) 20 21 22 ... 84 »

BluesBB ©Sting_Band