この命令は使えるでしょうか?
1:この命令は使えるでしょうか? たぬき丸 06/27 00:20 旧来よりWS-EMLから簡易的にExcelやAccessを起動するのにこのような命令を利用してきました。今回約10年ぶりにオフコンを新機種に入れ替えますが、この命令が有効か気になります。販売店に聞いたら良いのでしょうが、最近の人はこんな事知らないようです。どなたか利用されている方、コメント頂けますか?よろしくお願いします。
----------------------------
000450*----* 起動APパスの指定
000460 01 WK-AP-PASS.
000470 03 WK-AP-0 PIC X(04) VALUE ""27"Q00".
000480 03 WK-AP-1.
000490 05 WK-AP-11 PIC X(250) VALUE SPACE.
000500 01 SC-PRG PIC X(150) VALUE
000510 "D:\\ACCESS97\棚卸業務\業務START.mdb".
・
・
・
001200 DISPLAY WK-AP-PASS.
------------------------------------
2:Re:この命令は使えるでしょうか? EXCHANGE 06/27 08:42 ☆全く問題なしに使用できます。
☆出来れば
01 WK-AP-PASS.
_____03 WK-AP-0.
________05 FILLER PIC X(04) VALUE ””27”Q00”.
________05 FILLER PIC X(01) VALUE '”'.
_____03 WK-AP-1.
________05 WK-AP-11 PIC X(248) VALUE SPACE.
_____03 WK-AP-9
________05 FILLER PIC X(01) VALUE '”'.
とやって、
MOVE SC-PRG TO WK-AP-1.
DISPLAY WK-AP-PASS.
のほうがうまくいくと思います。
☆ というのは、SC−PRGで指定されているPASSが ”C:\PROGRAM(ここに空白)FILES\^^^^^^” などと空白を含んでいる場合でもうまく動作するためです。 まさかVALUEのところでダブルクウォーテーションという訳にはいかないでしょうから。。
☆ ここでの指定のやりかたは、WINDOWSの「ファイル名を指定して実行」の場合と同じになるようです。
3:Re:この命令は使えるでしょうか?(補足です) EXCHANGE 06/27 09:01 ☆ 先程の投稿には表記の分かりにくい所があったので、補足します。
01 WK-AP-PASS.
_____03 WK-AP-0.
________05 FILLER PIC X(04) VALUE ""27"Q00".
________05 FILLER PIC X(01) VALUE '"'. <−−(A)
_____03 WK-AP-1.
________05 WK-AP-11 PIC X(248) VALUE SPACE.
_____03 WK-AP-9
_______05 FILLER PIC X(01) VALUE '"'. <−−(B)
☆ (A)(B)の部分は、VALUEの値の指定に通常使われるダブルクウォーテーションではなく、シングルクウォーテーションで囲む方法を使っています。
☆ COBOLの場合、VALUEの値の指定に「”」「’」のどちらでもセットで使えたと思います。
☆ 要するに、DISPLAYの対象になるPASSが途中に空白を含むときは両側にシングルクウォーテーション「’」が必要と言うことです。
4:Re:この命令は使えるでしょうか?(補足です)訂正版 EXCHANGE 06/27 09:06
01 WK-AP-PASS.
_____03 WK-AP-0.
________05 FILLER PIC X(04) VALUE ""27"Q00".
________05 FILLER PIC X(01) VALUE '"'.
_____03 WK-AP-1.
________05 WK-AP-11 PIC X(248) VALUE SPACE.
_____03 WK-AP-9
______05 FILLER PIC X(01) VALUE '"'.
TT
5:Re:この命令は使えるでしょうか?(補足です)訂正版 たぬき丸 06/27 12:12 この命令は旧来のコーディングより何となく慣習的に使用していたもので、理由がわかり納得です。
EXCHANGEさん、何度も御丁寧な投稿をありがとうございます。
前次1-新書板
BluesBB ©Sting_Band
|