旧家イトウ家の小技裏技その４〜その６
江須扇さんから提供していただきました「旧家イトウ家の小技裏技」シリーズのその４〜その６をまとめました。
江須扇さん、ありがとうございます。
若干、私（ターラヤン）が追記しています。
「旧家イトウ家の小技裏技」シリーズのその４
「旧家イトウ家の小技裏技」シリーズのその５
「旧家イトウ家の小技裏技」シリーズのその６
その４）#SFGENを使わず画面フォームをCOBOLソース内で直接指定する方法。
ＣＯＢＯＬのＳＣＲＥＥＮ ＳＥＣＴＩＯＮで指定できますが、縦罫線が思うように引けない。ＢＵＺＺＥＲを思い通りにならせない。スクロールアップが巧く出来ない、などの時には、直接ワークステーションの制御符号を利用します。
詳しくは、「データ管理説明書」の「第13章 ワークステーション」の「13．６ ワークステーションの制御符号」をご覧ください。
ＣＯＢＯＬ８５の前のＣＯＢＯＬは制御符号でするのは当たり前でした。
「ＣＯＢＯＬサンプルプログラム」を参考にしてください。
その５）印刷スプールの指定出来ないプログラムの印刷をスプールする方法。
＃ＬＢＭ等、印刷でスプールを指定できないプログラムでスプールをする場合に利用します。
方法は、プリンタービジースプールがＳＧでされている前提です。
まず、裏画面でＰＲＮ９９９をＯＰＥＮしっぱなしにしておいて、表画面でＰＲＮ９９９に印刷してで実行すればプリンタービジーとなります。
その時に自動又は手動（ＳＧの設定による）でスプールすれば可能となります。
（コメント）
なぜ＃ＬＢＭをスプールする必要が有るかは別項で説明します。
「ＣＯＢＯＬサンプルプログラム」を参考にしてください。
その６）画面入力待ちでなくてもＰＦキーを有効にする方法。
通常はＡＣＣＥＰＴ待ちで、終了キーを判定しますが、ＡＣＣＥＰＴ待ちにしたくない場合などに利用します。
方法はＦＵＮＣＴＩＯＮ−ＫＥＹを利用します。
ＶＢのように割り込みが入ったらサブルーチンを実行と言う形にはできません。
自分でＩＦ命令を要所要所にいれておく必要があります。
（コメント）
サンプルプログラムはＡＣＣＥＰＴ待ちでも問題がありませんが、結果を画面表示する場合、ＡＣＣＥＰＴ待ちだといつまでも終わらないので、時間が立てば自動的に終わりたい時などに使います。
「ＣＯＢＯＬサンプルプログラム」を参考にしてください。
・ＣＯＢＯＬサンプルプログラム
（以下はターラヤンが追記しました。）
・サンプルプログラムの実行方法 ・ダウンロード
