オフコン練習帳 - 掲示板->ＮＥＣのオフコン情報掲示板（ノウハウ系）

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

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

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)

スレッド一覧はこちら

« 1 ... 101 102 103 (104) 105 106 107 108 »

	Re: 旧家イトウ家の小技裏技（その１０）
	ターラヤン 2003-11-18 14:20:06 [返信] [編集] いつもいろいろな情報をいただきありがとうございます。 PC/WSエミュレータは、いろいろと細かい所が、従来のキーボードと違って、時々どのキーを使えば良いのか迷うことがあります。主に使用するキーは、ほとんど同じなだけに、その「少し違う」という部分にぶつかると困ってしまいます。ＰＣのキーボードにあるキーの配置とＡ－ＶＸキーボードのキーの配置が違うので、仕方がないことかもしれませんが、皆さん「ちょっとの違い」で悩んでいるのではないでしょうか。キーボードとか画面表示などは、マンマシンインターフェースの一番重要なところなので、互換性を重視しているならば、本来一番気をつけるべきところだと思います。１６進コード入力は＃ＴＥＤＩＴでは、使用できないのですか。バグなのですかね？
	旧家イトウ家の小技裏技（その１０）
	江須扇 2003-11-16 10:43:01 [返信] [編集] ------------------------------------------------------------------------------------------- その１０）１６進データの直接入力 ------------------------------------------------------------------------------------------- ＰｕｒｅＷＳの時代は１６進入力というファンクションキーがあり、入力できたのですが、今はできません。ＰＣ／ＷＳエミュレータのバージョンによっては上部のメニューに有るのですが、最新バージョンの入力メニューを選んでも出来てきません。エミュレータを起動してない時にＰＣ／ＷＳエミュレータ（３２）カスタムツールを起動し入力に関する設定で１６進コード入力のチェックを入れます。エミュレータを起動している時、入力領域でＡｌｔ＋Ｊを入力すると画面の一番上のところに［１６進］と表示されれは、１６進入力状態です。但し、なぜか＃ＴＥＤＩＴではなりません。私は本当は＃ＴＥＤＩＴで利用したかったのですが、無理でした。実際はＪＣＬを順編成に変換して＃ＦＩＬＥＭで１６進指定で入力しています。 ------------------------------------------------------------------------------------------- ＪＣＬで１６進入力が必要かは次の項で説明します。
	Re:旧家イトウ家の小技裏技（その９）
	ターラヤン 2003-11-11 2:29:50 [返信] [編集] 隠しの機能一覧を見る限り、普段は使用しないもの、外のユーティリティや機能を呼び出すだけなものがほとんどのようですね。実は私も昔、他の人から教えられました。１３、１４についても、その時に教えてもらった気がするのですが、忘れてしまいました。
	（補足）旧家イトウ家の小技裏技（その９）
	江須扇 2003-11-10 3:35:51 [返信] [編集] ＃ＡＢＣがリリースされた時からこの機能があったとすれば、利用可能ＯＳはＩＴＯＳ途中バージョン～です。テンキー２桁数字、入力練習、お疲れさまでした。正解は”９６”です。１３番、１４番は私も解りません。ご存知の方、教えてください。以上
	旧家イトウ家の小技裏技（その９）
	江須扇 2003-11-9 7:04:49 [返信] [編集] ------------------------------------------------------------------------------------------- その９）＃ＡＢＣの裏技 ------------------------------------------------------------------------------------------- ＃ＡＢＣを起動した時、メニューが表示されますが、そこに表示されている番号しか選択出来ないとお思いでしょうか？実はそれ以外にも番号を選択する事が出来ます。一度、他の番号を入れて探して見てください。子メニューが出来来ます。 ------------------------------------------------------------------------------------------- 「なお、その番号の中身を実行してデータが消去されたり、あるいはプログラムが暴走しても私はいっさい関知しません」とスパイ大作戦風（古る～）にコメントしておきます。
	（補足２）旧家イトウ家の小技裏技（バージョン情報）
	江須扇 2003-11-4 3:44:49 [返信] [編集] 古いマニュアルがあったので、補足です。（その３）のＳＭＡＲＴⅡＥＸはＩＴＯＳでもリリースされていますが、Ｒ２１．５時点では、＃ＳＦＧＥＮ用のＳＵＬの入出力は出来ないようです。（その８）の＃ＡＢＣのＳＰＯＯＬからＰＩＦ変換はＩＴＯＳの１７．５では既にできるようです。以上
	Re:旧家イトウ家の小技裏技（バージョン情報）
	ターラヤン 2003-11-3 9:32:17 [返信] [編集] > この中で残して方が良い機能があれば、保存版として「豆知識」へ登録していただければ幸いです。今、皆さんの書かれた情報を残す方法を考えています。ジオボードに書かれた順番（つまり今の順番）にしようか、ある程度ジャンル別に分ける／書いていただいた方別に分けるなど、どのように保存すれば良いか考えているところです。もちろん、江須扇さんの書かれたものも残したいと思っています。 > > > > 補足するならば、（その８）は、（いつのバージョンからかは忘れましたが）Ａ－ＶＸ４から可能な技です。 > > 私は読解力不足なので、上記は、 > > １．（その８）より簡単で良い方法がある。 > ２．（その８）はＡ－ＶＸ４で可能である。 > > どちらでしょうか？　１番でしたらぜひその技のご教授をお願い申し上げます。 > その８で#NFCNVを使用していますが、#NFCNVは、少なくともS7200シリーズ（A-VX10 or A-VX2）の頃はまだないはず。（たしかA-VX4の頃からですよね。） S3100やS7200を使用されている方が、江須扇さんの書かれた内容を見てやってみようと考えることもあるかと思いましたので、一言付け加えました。
	（補足）旧家イトウ家の小技裏技（バージョン情報）
	江須扇 2003-11-2 2:15:08 [返信] [編集] （その８）は＃ＦＴＣＮＶ（有償ソフト）という方法もありました。再度纏めるとＡ－ＶＸ１０初期バージョン～　は＃ＰＣＣＮＶ（有償ソフト）を利用Ａ－ＶＸⅡ初期バージョン～　　は上記又は＃ＦＴＣＮＶ（有償ソフト）を利用Ａ－ＶＸⅢ初期バージョン～　　は上記又は＃ＮＦＣＮＶ（標準ソフト）を利用以上
	旧家イトウ家の小技裏技（バージョン情報）
	江須扇 2003-11-1 8:05:49 [返信] [編集] > 私が、Ａ－ＶＸIVの次のＯＳの話の返事を書いている間に、一気に書き込まれていました。 > すばらしいです。 > 私もがんばってＨＰの更新をしなければいけません。今日は、ターラヤンさん、（その８）を書きたかったのですが、サンプルプログラムには細かな機能を使っておりその説明をついでにしました。この中で残して方が良い機能があれば、保存版として「豆知識」へ登録していただければ幸いです。 > 補足するならば、（その８）は、（いつのバージョンからかは忘れましたが）Ａ－ＶＸ４から可能な技です。私は読解力不足なので、上記は、１．（その８）より簡単で良い方法がある。２．（その８）はＡ－ＶＸ４で可能である。どちらでしょうか？　１番でしたらぜひその技のご教授をお願い申し上げます。 > まだＳ３１００やＳ７２００を使っている方も大勢いらっしゃるようなので、念の為使用可能なバージョンも書いておいた方がいいでしょう。む?、難しい。兜蟹ＳＥは、アバウトＳＥなので、以下は断定的に書いていますが、全て「多分」や「と思います」が付きます。ぜひ、詳しいバージョンの解かる方は逆にご指摘ください。（その１）Ａ－ＶＸ１０初期バージョン～（説明）システムメニューがリリースされてから可能（その２）ＩＴＯＳ初期バージョン～　　（説明）旧１００（赤１００）の代替機能の為（その３）Ａ－ＶＸ１０初期バージョン～（説明）ＳＭＡＲＴⅡＥＸがリリースされてから可能（その４）ＩＴＯＳ初期バージョン～　　（説明）最初のＣＯＢＯＬのＤＩＳＰＣＲＴで利用可能（その５）ＩＴＯＳ初期バージョン～　　（説明）スプール機能がリリースされてから可能（その６）ＩＴＯＳ途中バージョン～　　（説明）ＣＯＢＯＬ８５がリリースされてから可能（その７）ＡＴＴＡＣＨ＝ＭＡＮＵＡＬ　　　　　ＩＴＯＳ初期バージョン～　　（説明）コマンド（ＪＣＬ）がいつ公開されてたかは不明　　　　　　ＳＹＳＳＰＡＷＮ　　　　　ＩＴＯＳ初期バージョン～　　（説明）サブルーチンがいつ公開されてたかは不明（その８）＃ＡＢＣのＰＩＦ変換　　　　　ＩＴＯＳ途中バージョン～　　（説明）＃ＡＢＣがリリースされてから可能　　　　　＃ＰＣＣＮＶ（有償ソフト、＃ＮＦＣＮＶが使えないＯＳの場合、ＦＤＤ対応）　　　　　Ａ－ＶＸ１０初期バージョン～（説明）但し１，２バイト混在は不可　　　　　＃ＮＦＣＮＶ　　　　　Ａ－ＶＸⅢ初期バージョン～　（説明）ＷＮＴ領域で可能という事で殆どが古い機能ですのでＳ３１００でもＡ－ＶＸであれば可能です。 > COBOLのプログラムも、なかなかおもしろい機能をいろいろと使用しているようです。ＣＯＢＯＬシステムサブルーチン説明書は何か利用出来る物はないかと今でもたまに見ております。
	Re:旧家イトウ家の小技裏技
	ターラヤン 2003-10-26 14:24:12 [返信] [編集] 私が、Ａ－ＶＸIVの次のＯＳの話の返事を書いている間に、一気に書き込まれていました。すばらしいです。私もがんばってＨＰの更新をしなければいけません。補足するならば、（その８）は、（いつのバージョンからかは忘れましたが）Ａ－ＶＸ４から可能な技です。まだＳ３１００やＳ７２００を使っている方も大勢いらっしゃるようなので、念の為使用可能なバージョンも書いておいた方がいいでしょう。 COBOLのプログラムも、なかなかおもしろい機能をいろいろと使用しているようです。
	旧家イトウ家の小技裏技（その８）
	江須扇 2003-10-26 13:42:56 [返信] [編集] ------------------------------------------------------------------------------------------- その８）プログラムのメンバーリストをＷｉｎｄｏｗｓ（ＤＯＳ）に取り込みたい。 ------------------------------------------------------------------------------------------- オフコンのプログラムの一覧表をＷｉｎｄｏｗｓ側に取り込んでＥＸＣＥＬで利用したいと思ったことはありませんか？そんなお悩みの貴殿に取って置きの情報をお教えします。紙に印刷してスキャナーで読み取ってＯＣＲで変換する。いえいえ違います。まず、＃ＬＢＭで一覧表をＳＰＯＯＬします。（その５を参照してください）あとは、ＰｒｉｎｔＶｉｅｗで指定しておけば、Ｗｉｎｄｏｗｓ側で見たり取り込みもできます。エェ?、ＰｒｉｎｔＶｉｅｗは高いから買ってないって、でもご心配無用。お金が無い方は手間隙を掛ければ取り込みはできます。ＳＰＯＯＬファイルを＃ＡＢＣで順編成ファイルにします。その方法は「５．複写（変換）」の「ファイル」を選びます。複写元はＳＰＯＯＬファイル（＃ＳＰＯＯＬの詳細表示でファイル名はわかります。）複写先は任意の順編成ファイル（レコード長は２５６で良いと思います。）オプション指定で固定長（ＦＩＸ）を選んでください。各レコードの先頭にゴミがあります。（多分改行情報？）また、タイトル等の余分な行もあります。Ａ－ＶＸ側でＣＯＢＯＬプログラムを作って削除するかＷｉｎｄｏｗｓで取り込んでから削除してください。ここまで書けば後はお解かりと思いますがＷｉｎｄｏｗｓの取り込みは、＃ＮＦＣＮＶをつかってテキストとして変換すれば良いと思います。 ------------------------------------------------------------------------------------------- （コメント）その４からその７は前振りでした。今日のメインはこれです。ＰｒｉｎｔＶｉｅｗが無くてもこの方法で手間隙かければいろいろな帳票をＷｉｎｄｏｗｓ側に取り込む事ができます。
	ＣＯＢＯＬサンプルプログラム２
	江須扇 2003-10-26 13:37:07 [返信] [編集] 000010 IDENTIFICATION DIVISION. 000020*************************************************************** 000030* プリンタ占有プログラム起動 (PRLOCK CALL) * 000040*************************************************************** 000050* 作成者　江須扇 000060* 作成日　２００３年１０月２６日 000070 PROGRAM-ID. PRLCKC. 000080 ENVIRONMENT DIVISION. 000090 CONFIGURATION SECTION. 000100 SOURCE-COMPUTER. EXPRESS5800. 000110 OBJECT-COMPUTER. EXPRESS5800. 000120 DATA DIVISION. 000130 WORKING-STORAGE SECTION. 000140 01 SPAWN-REC1. 000150 02 SPAWN11 PIC X(256). 000160 01 SPAWN-REC2. 000170 02 SPAWN21 PIC 9(04). 000180 01 SPAWN-REC3. 000190 02 SPAWN31 PIC X(10). 000200 02 SPAWN32 PIC X(02). 000210 02 SPAWN33 PIC X(10). 000220 02 SPAWN34 PIC X(08). 000230 01 TIMER PIC 9(04). 000240* 000250* 000260 SCREEN SECTION . 000270 SD GAMEN END STATUS IS ENDSTS. 000280 01 HAJIMEDSP CLEAR SCREEN. 000290 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101004". 000300 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101407". 000310 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0324402". 000320 02 LINE 03 COLUMN 24 PIC N(18) VALUE 000330 NC"＞＞プリンタ占有プログラム起動＜＜". 000340 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0358407". 000350 01 HAJIMEDSP2. 000360 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0721164". 000370 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0721404". 000380 02 LINE 07 COLUMN 24 PIC N(18) VALUE 000390 NC"　　　※　状　態　表　示　※". 000400 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0761104". 000410 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0761407". 000420 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821104". 000430 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821403". 000440 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0861100". 000450 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0862000". 000460 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0863004". 000470 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0863407". 000480 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921104". 000490 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921403". 000500 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0961100". 000510 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0962000". 000520 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0963004". 000530 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0963407". 000540 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021104". 000550 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021403". 000560 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1061100". 000570 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1062000". 000580 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1063004". 000590 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1063407". 000600 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121104". 000610 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121403". 000620 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1161100". 000630 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1162000". 000640 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1163004". 000650 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1163407". 000660 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221104". 000670 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221403". 000680 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1261100". 000690 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1262000". 000700 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1263004". 000710 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1263407". 000720 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321106". 000730 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321403". 000740 02 LINE 13 COLUMN 23 PIC N(18) VALUE 000750 NC"　　プリンタ占有プログラム起動中". 000760 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1361100". 000770 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1362000". 000780 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1363004". 000790 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1363407". 000800 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421104". 000810 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421403". 000820 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1461100". 000830 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1462000". 000840 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1463004". 000850 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1463407". 000860 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521104". 000870 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521403". 000880 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1561100". 000890 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1562000". 000900 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1563004". 000910 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1563407". 000920 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621104". 000930 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621403". 000940 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1661100". 000950 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1662000". 000960 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1663004". 000970 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1663407". 000980 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721104". 000990 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721403". 001000 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1761100". 001010 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1762000". 001020 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1763004". 001030 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1763407". 001040 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821144". 001050 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821403". 001060 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1861100". 001070 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1862000". 001080 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1863004". 001090 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1863407". 001100 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1922000". 001110 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1963004". 001120 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1963407". 001130 01 SPOOLDSP. 001140 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821403". 001150 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921403". 001160 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021403". 001170 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121403". 001180 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221403". 001190 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321403". 001200 02 LINE 13 COLUMN 23 PIC N(18) VALUE 001210 NC"　　＃ＳＰＯＯＬプログラム起動中". 001220 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421403". 001230 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521403". 001240 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621403". 001250 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721403". 001260 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821403". 001270 01 OWARIDSP. 001280 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821402". 001290 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921402". 001300 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021402". 001310 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121402". 001320 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221402". 001330 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321402". 001340 02 LINE 13 COLUMN 24 PIC N(18) VALUE 001350 NC"　プリンタ占有プログラム起動終了". 001360 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421402". 001370 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521402". 001380 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621402". 001390 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721402". 001400 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821402". 001410* 001420* 001430* 001440************************************************************ 001450 PROCEDURE DIVISION. 001460 HAJIME. 001470 DISPLAY HAJIMEDSP WITH BYPASS. 001480 MOVE 0010 TO TIMER. 001490 CALL "CBLTIMER" USING TIMER. 001500 MOVE "PRLOCK,FIL=TESTLML,ATTACH=MANUAL;" TO SPAWN11. 001510 MOVE 0033 TO SPAWN21. 001520 MOVE "MODE=DEFER" TO SPAWN31. 001530 CALL "SYSSPAWN" USING SPAWN-REC1 SPAWN-REC2 SPAWN-REC3. 001540 DISPLAY HAJIMEDSP2 WITH BYPASS. 001550* 001560 CALL "CBLTIMER" USING TIMER. 001570 MOVE "#SPOOL,ATTACH=MANUAL;" TO SPAWN11. 001580 MOVE 0021 TO SPAWN21. 001590 MOVE "MODE=DEFER" TO SPAWN31. 001600 CALL "SYSSPAWN" USING SPAWN-REC1 SPAWN-REC2 SPAWN-REC3. 001610 DISPLAY SPOOLDSP WITH BYPASS. 001620* 001630 CALL "CBLTIMER" USING TIMER. 001640 DISPLAY OWARIDSP WITH BYPASS. 001650* 001660 CALL "CBLTIMER" USING TIMER. 001670 STOP RUN.
	旧家イトウ家の小技裏技（その７）
	江須扇 2003-10-26 13:32:00 [返信] [編集] ------------------------------------------------------------------------------------------- その７）裏画面でプログラムを起動して画面接続をしないと表画面に出さない方法。 ------------------------------------------------------------------------------------------- ＲＵＮコマンドでＲＵＮ　ｘｘｘｘｘｘ，ＡＴＴＡＣＨ＝ＭＡＮＵＡＬ；で実行します。プログラムコールする場合は、ＣＯＢＯＬシステムサブルーチンＳＹＳＳＰＡＷＮを利用します。 ------------------------------------------------------------------------------------------- （コメント）常駐プログラムを実行した時など有効です。後で上げておきますので、「ＣＯＢＯＬサンプルプログラム２」を参考にしてください。
	ＣＯＢＯＬサンプルプログラム１
	江須扇 2003-10-26 13:30:29 [返信] [編集] 000010 IDENTIFICATION DIVISION. 000020*************************************************************** 000030* プリンタ占有プログラム (PRINTER LOCK) * 000040*************************************************************** 000050* 作成者　江須扇 000060* 作成日　２００３年１０月２６日 000070 PROGRAM-ID. PRLOCK. 000080 ENVIRONMENT DIVISION. 000090 CONFIGURATION SECTION. 000100 SOURCE-COMPUTER. EXPRES5800. 000110 OBJECT-COMPUTER. EXPRES5800. 000120 INPUT-OUTPUT SECTION. 000130 FILE-CONTROL. 000140 SELECT LP-F ASSIGN TO LP-PRN999. 000150 I-O-CONTROL. 000160 APPLY SHIFT-CODE ON LP-F. 000170 DATA DIVISION. 000180 FILE SECTION. 000190 FD LP-F 000200 LABEL RECORD OMITTED 000210 LINAGE IS 66 LINES. 000220 01 LP-REC. 000230 03 FILLER PIC X(200). 000240 WORKING-STORAGE SECTION. 000250 01 TIMER PIC 9(04). 000260* 000270* 000280 SCREEN SECTION . 000290 SD GAMEN END STATUS IS ENDSTS. 000300 01 HAJIMEDSP CLEAR SCREEN. 000310 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101004". 000320 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101407". 000330 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0325402". 000340 02 LINE 03 COLUMN 25 PIC N(18) VALUE 000350 NC"＞＞ＰＲＮ９９９プリンタ占有＜＜". 000360 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0357407". 000370 01 HAJIMEDSP2. 000380 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101004". 000390 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0101407". 000400 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0325402". 000410 02 LINE 03 COLUMN 25 PIC N(18) VALUE 000420 NC"＞＞ＰＲＮ９９９プリンタ占有＜＜". 000430 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0357407". 000440 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0721164". 000450 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0721404". 000460 02 LINE 07 COLUMN 24 PIC N(18) VALUE 000470 NC"　　　※　状　態　表　示　※". 000480 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0761104". 000490 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0761407". 000500 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821104". 000510 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0821401". 000520 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0861100". 000530 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0862000". 000540 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0863004". 000550 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0863407". 000560 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921104". 000570 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0921401". 000580 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0961100". 000590 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0962000". 000600 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0963004". 000610 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"0963407". 000620 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021104". 000630 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1021401". 000640 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1061100". 000650 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1062000". 000660 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1063004". 000670 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1063407". 000680 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121104". 000690 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1121401". 000700 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1161100". 000710 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1162000". 000720 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1163004". 000730 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1163407". 000740 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221104". 000750 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1221401". 000760 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1261100". 000770 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1262000". 000780 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1263004". 000790 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1263407". 000800 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321106". 000810 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1321401". 000820 02 LINE 13 COLUMN 24 PIC N(18) VALUE 000830 NC"　　ＰＲＮ９９９プリンタ占有中". 000840 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1361100". 000850 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1362000". 000860 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1363004". 000870 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1363407". 000880 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421104". 000890 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1421401". 000900 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1461100". 000910 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1462000". 000920 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1463004". 000930 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1463407". 000940 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521104". 000950 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1521401". 000960 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1561100". 000970 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1562000". 000980 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1563004". 000990 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1563407". 001000 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621104". 001010 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1621401". 001020 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1661100". 001030 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1662000". 001040 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1663004". 001050 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1663407". 001060 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721104". 001070 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1721401". 001080 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1761100". 001090 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1762000". 001100 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1763004". 001110 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1763407". 001120 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821144". 001130 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1821401". 001140 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1861100". 001150 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1862000". 001160 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1863004". 001170 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1863407". 001180 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1922000". 001190 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1963004". 001200 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"1963407". 001210 02 LINE 01 COLUMN 01 PIC X(09) VALUE ""27E2"2221006". 001220 02 LINE 22 COLUMN 24 PIC N(18) VALUE 001230 NC"　どれかのＰＦキーを押してください。". 001240************************************************************ 001250 PROCEDURE DIVISION. 001260 HAJIME. 001270 DISPLAY HAJIMEDSP WITH BYPASS. 001280 MOVE 0010 TO TIMER. 001290 CALL "CBLTIMER" USING TIMER. 001300 OPEN OUTPUT LP-F. 001310* 001320 OWARI. 001330 DISPLAY HAJIMEDSP2 WITH BYPASS. 001340 CALL "CBLTIMER" USING TIMER. 001350 IF FUNCTION-KEY = ""FF"" OR ""00"" GO TO OWARI. 001360 CLOSE LP-F. 001370 STOP RUN.
	旧家イトウ家の小技裏技（その６）
	江須扇 2003-10-26 13:26:10 [返信] [編集] ------------------------------------------------------------------------------------------- その６）画面入力待ちでなくてもＰＦキーを有効にする方法。 ------------------------------------------------------------------------------------------- 通常はＡＣＣＥＰＴ待ちで、終了キーを判定しますが、ＡＣＣＥＰＴ待ちにしたくない場合などに利用します。方法はＦＵＮＣＴＩＯＮ－ＫＥＹを利用します。ＶＢのように割り込みが入ったらサブルーチンを実行と言う形にはできません。自分でＩＦ命令を要所要所にいれておく必要があります。 ------------------------------------------------------------------------------------------- （コメント）サンプルプログラムはＡＣＣＥＰＴ待ちでも問題がありませんが、結果を画面表示する場合、ＡＣＣＥＰＴ待ちだといつまでも終わらないので、時間が立てば自動的に終わりたい時などに使います。後で上げておきますので、「ＣＯＢＯＬサンプルプログラム１」を参考にしてください。
	旧家イトウ家の小技裏技（その５）
	江須扇 2003-10-26 13:23:56 [返信] [編集] ------------------------------------------------------------------------------------------- その５）印刷スプールの指定出来ないプログラムの印刷をスプールする方法。 ------------------------------------------------------------------------------------------- ＃ＬＢＭ等、印刷でスプールを指定できないプログラムでスプールをする場合に利用します。方法は、プリンタービジースプールがＳＧでされている前提です。まず、裏画面でＰＲＮ９９９をＯＰＥＮしっぱなしにしておいて、表画面でＰＲＮ９９に印刷してで実行すればプリンタービジーとなります。その時に自動又は手動（ＳＧの設定による）でスプールすれば可能となります。 ------------------------------------------------------------------------------------------- （コメント）なぜ＃ＬＢＭをスプールする必要が有るかは別項で説明します。後で上げておきますので、「ＣＯＢＯＬサンプルプログラム１」を参考にしてください。
	旧家イトウ家の小技裏技（その４）
	江須扇 2003-10-26 13:15:23 [返信] [編集] ------------------------------------------------------------------------------------------- その４）＃ＳＦＧＥＮを使わず画面フォームをＣＯＢＯＬソース内で直接指定する方法。 ------------------------------------------------------------------------------------------- ＣＯＢＯＬのＳＣＲＥＥＮ　ＳＥＣＴＩＯＮで指定できますが、縦罫線が思うように引けない。ＢＵＺＺＥＲを思い通りにならせない。スクロールアップが巧く出来ない。などの時には、直接ワークステーションの制御符号を利用します。詳しくは、「データ管理説明書」の「第13章　ワークステーション」の「13．６　ワークステーションの制御符号」をご覧ください。 ------------------------------------------------------------------------------------------- （コメント）ＣＯＢＯＬ８５の前のＣＯＢＯＬは制御符号でするのは当たり前でした。後で上げておきますので、「ＣＯＢＯＬサンプルプログラム１」を参考にしてください。
	旧家イトウ家の小技裏技（その３）
	江須扇 2003-10-23 3:39:29 [返信] [編集] ------------------------------------------------------------------------------------------- その３）＃ＳＦＧＥＮ用の画面フォームを画面で直接作る方法。 ------------------------------------------------------------------------------------------- ＳＭＡＲＴⅡＥＸを導入している前提ですが、ＳＭＡＲＴⅡＥＸを呼び出して"7支援ツール"→"1画面設計"を選ぶと作れます。ミソは書き込むときにＰＭＬではなくＳＵＬに書き込むと＃ＳＦＧＥＮ用のソースが作られます。後は＃ＳＦＧＥＮでコンパイルしＣＯＢＯＬプログラムと＃ＬＩＮＫすれば完成です。修正も可能です。 ------------------------------------------------------------------------------------------- （コメント）ＳＭＡＲＴの開発メンバーは４ＧＬと言うか、何と言うのか忘れましたが簡易言語と合わせて開発ツールとしての進化を狙っていたようですが、ここまでで終わりです。ＳＭＡＲＴの中だけでは解り易いかどうかは別として仕様書印刷や、使いやすいかどうかは別として帳票設計も画面でできるというものでしたが、オフコンＯＳでの当時のマシンの動きでは使い物にはなりませんでしが、最近は画面スピードが速くなったので少しはマシになりました。
	Re:旧家イトウ家の小技裏技（その２）
	ターラヤン 2003-10-21 14:04:24 [返信] [編集] 情報ありがとうございます。たしかに、ユーティリティのパラメータでも、どう使用するのかあまり良くわからないものもあります。そういえば、このパラメータも昔マニュアルを読んだ時に、何の為にあるのか、と疑問に思っていました。 25Rで指定する画面というと、無愛想なRUNコマンド入力画面ですね。どういう構造になっているのかはわかりませんが、昔の機能は昔の画面でしか使用できないということでしょうか。 P.S.今頃気がついたのですが、このジオボードは５０タイトルしか保存されないみたいです。古い投稿が消えてしまいました。貴重な情報も多々あるので、そのうち保存しておいたものをサイトに上げておきます。最近多忙で、サイトの更新も停滞していますが、来月あたりからまた更新していく予定です。
	旧家イトウ家の小技裏技（その２）
	江須扇 2003-10-20 3:57:51 [返信] [編集] 前回のSYSMはSYSTの間違いでした訂正します。 ------------------------------------------------------------------------------------------- その２）”ＲＵＮコマンドを入れてください．”で数字２桁でプログラムを呼び出す方法。 ------------------------------------------------------------------------------------------- １．＃ＬＢＭ（システムメニューでも可能ですが以下矛盾するので＃ＬＢＭで説明します。）で数字二桁を登録します。 PRD=PRN999 MDE=MSD MCI= MFI=SYS@LML　←ここのプログラムしか呼べません ACT=CHANGE NAM=#NFCNV　←これは例です SEC= PRI= ROR= GFC= STN= PRN= DBG= NOF= AMD= SEL=07 ←例えば”０７”といれます。 EXC= SIZ= REV= これで終わってください。ＲＵＮコマンドを入れてください．で０７＋[実行／送信]（アドバンス）で目出度く＃ＮＦＣＮＶが呼び出せます。但し、ＳＧの「３．ＯＳ機能の定義」の「２．システム情報（１）の定義の「ＷＳモード」がWSM=25R又はWSM=26Rになっているのが前提です。つまり、画面に出ているプログラム名（通常は右下）がSYSTである事が前提で#MENUP,#MENU,#TITILは呼び出すことが出来ません。ステーション初期プログラムが設定している場合でも、ＰＣ／ＷＳ?ＥＭＬの設定の「その他」のタグの「操作開始画面で待機」を選んで操作終了、操作開始をすればSYSTになる場合もあります。 ------------------------------------------------------------------------------------------- これは１９７９年以前の旧１００（赤１００）ではプログラムを２桁の数字で呼ぶことが普通でした。新１００ではその機能の継承と言うことで、この機能が有る訳ですが、通常の新しいＳＧでは呼び出せないので１回目のシステムメニューとは相反する機能です。今回は一番古い機能をお知らせしました。こんな事を知っているは、シーラカンスＳＥ、日本的に言えば兜蟹ＳＥぐらいですね。（ちっとも自慢にはなってませんね）

« 1 ... 101 102 103 (104) 105 106 107 108 »