現在、対話式の自作のプログラムを呼び出し、インプットデータとアウトプットデータを入力させ
プログラムを実行するという簡単なバッチファイルを作成しております。
そこで、パイプとecho機能を使用して、プログラムに変数を引数として渡そうとしているのですが
引数の部分に何も代入されず(ファイル名が表示されず)、パイプは終了しました、とエラーが出てしまいました。
以下に、コードを掲載させていただきます。
――――ここから――――
@echo off
set PROGRAM=Z0.exe ←プログラム名
set INUPUT=dd.dat ←インプットデータ
set OUTPUT=a.prn ←アウトプットデータ
echo %INPUT% %OUTPUT% | call %PROGRAM%
――――ここまで――――
エラーメッセージですが、
INPUT DATA ===> (空白)
OUTPUT DATA ===> (空白)
forrtl:パイプは終了しました。
forrtl:致命的なエラー(24):読み取り中にファイルの最後に達しました。
といった具合です。
プログラムは起動すると、インプットデータとアウトプットデータの名前をそれぞれ入力し
簡単な計算を実行するものです。
ちなみにOSはwindows10です。
ご回答よろしくお願いいたします。
-----6/18追記-----
Z0.exeのプログラムに原因があるのではないかというご指摘をいただいたので
以下にプログラムソースの一部を記載させていただきます。
INTEGER NUMP1 ,NUME1,NUMP,K,I,J,N1,N2,N3,N4,KX(100000,8),NY,NX, 1 N5,N6,N7,N8 ,KM(100000,30),NEP,NZ,NM, KL 2 J4,J41,J42, KNODE(2000000), KX8(2000000) 3 , K1,K2,K3,k4,K5,K6,K7,K8,J8,J81,J82 DIMENSION XE(200000),YE(200000),ZE(200000,2),X0(100000),Y0(100000) DIMENSION XI(2000000),YI(2000000),ZI(2000000),A1(100000,4),DZ(100), 1 Z0(100000,2,2),ZU1(30),ZD1(30) REAL*8 PB,QB,Z1,Z2,ZZ0,ZMAX,XX0,YY0 ,P1,P2,P3,XII,YII,A4,A5,A3A REAL*8 Z13,Z24,AB1,AB2,AB3,ZMAX1, DZMIN,DEG,XX,YY,XT0,YT0,ZT0 1 , XT01,YT01,DEG1, ZT01,XSC1,YSC1,DCG1,DZC
C ================================================== READ OPEN FILE NAME
C ------------------------------- READ CONTOROL DATA FROM No.5----------
WRITE (,102)
READ (,25) FNAME5
C ------------------------------- READ OLD NODE DATA FROM No.8----------
WRITE (,101)
READ (,25) FNAME6
C--------------------------------------------------- READ OPEN FILE NAME
C
OPEN (5, FILE=FNAME5, STATUS='OLD',FORM='FORMATTED')
OPEN (6, FILE=FNAME6, STATUS='UNKNOWN',FORM='FORMATTED')
OPEN (8, FILE="node-n.dat", STATUS='OLD',FORM='FORMATTED')
C-------------------------------------------------------------------------
cc READ(5, 25) HED
C $$$ ---------------------------------------------------------------
READ(5,) NUMP1,NUME1,NUMP,NEP, NZ, NM
WRITE(6,20) NUMP1,NUME1, NUMP,NEP, NZ, NM
READ(5,) XT0,YT0,DEG, ZT0
READ(5,) XT01,YT01,DEG1, ZT01
READ(5,) DZMIN
20 FORMAT(8I9)
C----------------------------
(計算処理部分)
C----------------------------
C
25 FORMAT (A20)
C
102 FORMAT (1H0,'== INPUT DATA FILE NAME [ EX. B:DATA1.DAT ] ====> ')
103 FORMAT (1H0,'== INPUT NODE FILE NAME [ EX. B:DATA2.DAT ] ====> ')
101 FORMAT (1H0,'=== OUTPUT FILE NAME [ EX. C:UNS1.PRN ] ====> ')
C
STOP
END
C
以上です。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。