この命令は使えるでしょうか?

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